VB simula presionar siempre el botón izquierdo del mouse y presionar siempre el botón derecho del mouse
FormsPrivate?Sub?Command1_Click()
Script.AddItem?("Coordenadas: "? amp;?MouseX.Text?amp;?" -MouseX.Text? amp;? MouseY.Text)
End?Sub
Privado?Sub?Command2_Click()
Script.AddItem?("Ratón: clic izquierdo")
Fin?Sub
Privado?AddItem("Ratón: clic izquierdo")
Fin?Sub
Privado?Sub Command3_Click() p>
Script.AddItem("Ratón: clic derecho")
Fin?Sub
Privado?Sub?Command4_Click()
Si ?KeyText .Text?lt;gt;?"Entonces
Script.AddItem("Teclado:"?&?KeyText.Text)
Fin?Si
¿Fin?Sub
Privado?Sub?Command5_Click()
'========================= === =====
'Función: Guardar script
'Parámetros: script.txt?Nombre del archivo script
'===== === ======================
¿Dim?i?As?Integer
¿Abrir?Aplicación. ¿Ruta? "\Salida como #1
Para?i?=?1?A?Script.ListCount
Imprimir?#1,?Script.List(i?-? 1)? "i-1" se usa aquí porque el control "ListBox" comienza desde "0"
¿Siguiente?i
¿Cerrar?#1
MsgBox?" guardar! "
Fin?Sub
Privado?Sub?Command6_Click()
Fin
Fin?Sub
¿Privado?Sub?Command7_Click()
¿Llamar?Inicio
Fin?Sub
Privado?Sub?Form_Load()
'= =============================
'Función: Leer script
' Parámetros : script.txt?Nombre del archivo de script
'===============================
¿Dim?Scriptemp?As?String
Si?Dir(App.Path? ??" \script.txt")? =?"" ?Entonces
¿Abrir? App.Path??" ?\Salida como #1
Cerrar #1
Finalizar si
¿Abrir?App.Path?\Input#1
¿Mientras?No?EOF(1)
¿Línea?Input?#1,?Scriptemp
Script .AddItem?Scriptemp
Wend
Cerrar?#1
Fin?Sub
Privado?Sub?KeyText_KeyDown(KeyCode?As? Entero,?Shift?As?Integer)
Seleccionar?Caso?KeyCode
Caso?
KeyText.Text=?"?F1"
Caso?113
KeyText.Text?=?"F2"
Caso?114
KeyText.Text?=?"F3 "
Caso?115
KeyText.Text?=?" F4 "
Caso?115
KeyText.Text?=?F4 "
Capital?116
KeyText.Text?=?"F5"
Caso?117
KeyText.Text?=?"F6 "
Caso?118
KeyText.Text?=?"F7"
Caso?119
KeyText.Text?=? "F8"
Caso?120
KeyText.Text?=?"F9"
Caso?121
KeyText.Text? =?"F10"
Caso?122
KeyText.Text?=?"F11"
Caso?123
KeyText. ¿Texto?=?"F12"
¿Caso? "Else"
KeyText.Text?"=? "Chr(KeyCode)"
¿Fin? "Seleccionar "
¿Fin? "Sub"
"Procesar si las coordenadas exceden una determinada longitud
¿Privado? "Sub "MouseX _Change()
If?Len(MouseX.Text)??"Las coordenadas son incorrectas, vuelva a ingresar"
MouseX.Text?=?"0"
Fin?If
¿Fin?Sub
¿Privado?Sub?MouseY_Change()
Si?Len(MouseY.Text)? gt;?4?Entonces
MouseY.Text?=?"0"
End?If
End?Sub
Módulo 1¿Opción?Explícito
Público?Const?MOUSEEVENTF_LEFTDOWN?=? amp;H2
Público?Const?MOUSEEVENTF_LEFTUP?=?fontgt;amp;H4
¿Público?Const?MOUSEEVENTF_RIGHTDOWN?=?
;H10
¿Pública?Declarar?Función?GetCursorPos?Lib?"usuario32"?(lpPoint?As?POINTAPI)?As?Long?GetCursorPos?API
Pública?Declarar?Función? ?SetCursorPos?Lib?"user32"?(ByVal?X?As?Long, ?ByVal?Y?As?Long)?As?Long?'SetCursorPos?API
¿Público?Tipo?POINTAPI p>
X?As?Long
Y?As?Long
Y?As?Long
Fin?Tipo
¿Público?Declarar?Función?SetCursorPos?/p>
¿Público?Declarar?Sub?mouse_event?Lib?"user32"?(ByVal?dwFlags?As?Long,ByVal? dx?As?Long, ByVal?dy?As?Long, ByVal?cButtons?As?Long, ByVal?dwExtraInfo?As?Long)?Evento de mouse
¿Público?Declarar?Sub?Sleep?Lib? "kernel32 "?(ByVal?dwMillisegundos?As?Long)?Retraso del programa
Opción del módulo 2?Explícito
'=============== === ====
'Función: Ejecutar script
'=====================
Público?Sub?Inicio()
Dim?i?As?Integer
Dim?Script1?As?String
Dim?ScriptLen ?Como? Entero
Dim?MousePos()?As?String
Dim?MouseCurPos?As?POINTAPI
If?KeyVirtual.Script.ListCount?= ?0? Entonces
MsgBox?"Por favor agregue script",?vbOKOnly,?"Error"
Salir?Sub
Else
For?i?=?0?To?KeyVirtual.Script.ListCount?-?1?'¿Comenzar desde el primero en el ListBox?'
¿Dormir?1000?'Retraso del programa 1 segundo
Script1? =?KeyVirtual.Script.List(i)?Obtener el script
ScriptLen?=?Len(Script1)?Obtener la longitud de los caracteres del script
Seleccionar?Case?Mid(Script1,? 1,?2) ?Seleccione los dos primeros caracteres del carácter del script
Caso?"Coordenadas"
Script1?=?Mid(Script1,?4,?ScriptLen?-? 3)?Obtener el siguiente carácter
MousePos?=?Split(Script1,?"-")?Split(Script1,?"-")?-"Dividir para obtener las coordenadas y ponerlas en MousePos (matriz)
p>Establecer Curs
orPos?CLng(MousePos(0)),?CLng(MousePos(1))?Establecer la posición del mouse
Case?"Mouse"
GetCursorPos? "MouseCurPos? "Obtener el coordenadas del mouse a "MousePos(array)"
Si Mid(Script1,?4,?2) =?Then
mouse_event?MOUSEEVENTF_LEFTDOWN,?MouseCurPos.X,?MouseCurPos.Y ,? 0,?0?'Establecer el botón izquierdo del mouse hacia abajo
mouse_event?MOUSEEVENTF_LEFTUP,?MouseCurPos.X,?MouseCurPos.Y,?0,?0?''Establecer el botón izquierdo del mouse hacia abajo up
Else
mouse_event?MOUSEEVENTF_RIGHTDOWN,?MouseCurPos .X,?MouseCurPos.Y,?0,?0?'Configura el botón derecho del ratón para que aparezca
nt?color="#0000FF"gt;End?If
Caso?"Teclado "
Enviar caracteres del teclado
EnviarTeclas?Mid(Script1 ,?4,?ScriptLen?-?3)?Enviar caracteres del teclado
Fin?Seleccionar
Siguiente?i
Fin?Si
¿Fin?