Programación de tarjetas Vb

Opción explícita

Función de declaración privada FindWindow Lib "usuario 32" alias "FindWindowA" u

(ByVal lpClassName en forma de cadena, ByVal lpWindowName en forma de cadena) misma longitud

Función de declaración privada PostMessage Lib "user32 "alias" PostMessageA " \u

(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam _

Misma longitud) Misma longitud

Const WM _ CLOSE = & ampH10

Const WM _ QUIT = & ampH12

Las manijas de atenuación son las mismas longitud

Representar n como un número entero

Subcomando privado 1_Click()

Temporizador 1. Enable=True

Conector final

Subcomando privado2_Click()

Fin

Conector final

Subcomando privado timer1_Timer()

Temporizador1. enable = false

Atenuar WinText(1 a 3) como cadena

Atenuar I como número entero

WinText(1) = "World of Warcraft"'aquí El El nombre debe ser el mismo que el de su solicitud.

WinText(2) = "Tarjeta"

WinText(3) = "Buscaminas"

Para i = 1 a 3

Handle = FindWindow(vbNullString, WinText(i))

Si handle & lt& gt entonces 0

Handle PostMessage, WM_CLOSE, 0, 0

es... .Salir

Terminará si...

Siguiente yo

Si handle & lt& gt0 entonces MsgBox "Jaja, estás robando World of Warcraft otra vez" , VB Suspiro, "¡¡¡Pequeña advertencia!!!"

Conector final