Código fuente de asistencia del ratón
. Apoye el hilo electrónico de la biblioteca
. Se hizo clic en subrutina_button1_.
If(Button3.Title = "Bloqueado")
Botón3. Título = "Desbloqueado"
En caso contrario.
Botón 3. Título = "Bloquear"
Si finaliza
Iniciar hilo (& subrutina 1,,)
Subrutina subrutina 1
. Variable local x
. Variable local y
X = Obtener la posición horizontal del mouse ()
Y = Obtener la posición vertical del mouse ()
Determinar el cabezal del bucle (botón 3. Título ≦"bloquear")
Juzga el cabezal del bucle (toma la posición horizontal del mouse () ≠ X o Y ≠ toma la posición vertical del mouse ())
_Move el ratón (X, Y)
. Determine el final del bucle ()
. Determinar el final del bucle ()
Versión 2
. Comando DLL_Mueva el mouse, "SetCursorPos", abra user32.dll.
Parámetro x, tipo entero
Parámetro y, tipo entero
Intente...