Código fuente del enlace de teclado
Versión 5.00
Inicia VB. Formulario Formulario 1
BorderStyle = 1 'Precisión simple fija
Caption = "Ratón de grabación"
Altura del cliente = 4500
Cliente EndLeft = 45
ClientTop = 435
ClientWidth = 7620
FillColor = & ampH000000FF & amp
Icon = "Form1. frx": 0000
LinkTopic = "Form1 "
MaxButton = 0 'False
MinButton = 0 'False
Altura proporcional= 4500
Ancho de escala = 7620
StartUpPosition = 3 'Valor predeterminado de la ventana
Iniciar VB. Casilla de verificación Check1
Caption = "¿Puedo ver este software mientras está en funcionamiento?"
Altura = 255
Izquierda = 4560
TabIndex = 14
Superior = 240
Valor = 1 'Seleccionado
Ancho = 3015
Fin
Inicio VB . TextBoxTttex
Alineación = 2' Centro
Apariencia = 0 pies planos
Altura = 270
Izquierda = 3480
Bloqueado = -1 'True
TabIndex = 13
Texto = " 0 & lt* & gt0"
Top = 570
Ancho = 1815
Fin
Inicio VB. Botón de comando Comando 6
caption = " Salir(&;e)"
Altura = 375
Izquierda = 6120
TabIndex = 12
Arriba = 3960
Ancho = 1335
Fin
Inicio VB. Temporizador Temporizador 3
Habilitado = 0 'Falso
Intervalo = 1000
Izquierda = 3600
Arriba = 4320
Fin
Iniciar VB. TextBoxText2
Alineación=2'Centro
Apariencia=0 pies planos
Altura=270
Izquierda=3480
p >TabIndex = 7
Texto = "20 "
Superior = 240
Ancho = 615
Fin
p>
Iniciar VB. Botón de comando comando 5
Caption = "Grabación vacía (&z)"
Altura = 375
Izquierda = 3000
TabIndex = 6
Arriba = 3480
Ancho = 1335
Fin
Inicio VB. TextBoxText1
Apariencia = 0 pies planos
Altura = 270
Izquierda = 3480
TabIndex = 5
Texto = "D:\Mouse Record. Texto"
Superior = 900
Ancho = 3975
Fin
Iniciar VB.
Botón de comando comando 4
Caption = "Abrir grabación (&cinco)"
Alto = 375
Izquierda = 3000
TabIndex = 4
Arriba = 3960
Ancho = 1335
Fin
Inicio VB. Botón de comando Comando 3
Caption = "Guardar grabación(&b)"
Alto = 375
Izquierda = 4560
TabIndex = 3
Arriba = 3960
Ancho = 1335
Fin
Inicio VB. Cuadro de lista Lista1
Alto = 4200
datos del elemento = " formulario 1 . frx ":324 a
Izquierda = 120
Lista = "Form1.frx":324C
TabIndex = 2
Superior = 120
Ancho = 2295
Fin
Inicie VB. Botón de comando comando 2
Caption = "Reproducir grabación (&c)"
Alto = 375
Izquierda = 6120
TabIndex = 1
Arriba = 3480
Ancho = 1335
Fin
Inicio VB. Temporizador Temporizador 2
Habilitado = 0 'Falso
Intervalo = 20
Izquierda = 3000
Arriba = 4320
Fin
Iniciar VB. TimerTimer1
Habilitado = 0 'Falso
Intervalo = 20
Izquierda = 2400
Arriba = 4320
Fin
Iniciar VB. Botón de comando comando 1
Caption = "Iniciar grabación (&x)"
Alto = 375
Izquierda = 4560
TabIndex = 0
Arriba = 3480
Ancho = 1335
Fin
Inicio VB. Etiqueta Etiqueta5
Título = "Uso"
Alto = 1935
Izquierda = 2520
TabIndex = 11
Arriba = 1440
Ancho = 4935
Fin
Iniciar VB. Etiqueta Etiqueta4
Caption = "Guardar dirección:"
Altura = 255
Izquierda = 2520
TabIndex = 10
Arriba = 960
Ancho = 1575
Fin
Iniciar VB. Etiqueta Etiqueta3
Caption = "Ubicación actual:"
Altura = 255
Izquierda = 2520
TabIndex = 9
Arriba = 600
Ancho = 1455
Fin
Iniciar VB.
Etiqueta Etiqueta2
Caption = "Velocidad de reproducción:"
Alto = 255
Izquierda = 2520
TabIndex = 8
Superior = 300
Ancho = 1215
Fin
Fin
Atributo VB_Name = "Form1 "
Atributo VB_GlobalNameSpace = False
Atributo VB_Creatable = False
Atributo VB_PredeclaredId = True
Atributo VB_Exposed = False
Obtener puntero del mouse
La función de declaración privada GetCursorPos Lib " usuario 32 " (punto LP como POINTAPI) es larga
Mover al punto del mouse
La función de declaración privada SetCursorPos Lib " user32" (ByVal x es Long, ByVal y es Long) es Long
presione el teclado.
Función de declaración privada GetAsyncKeyState Lib " usuario 32 "(ByVal vKey As Long) es un número entero
Botón del mouse: debe presionarse
Private Declare Sub mouse _ event Lib " usuario 32 "(ByVal dw flags es Long, ByVal dx es Long, ByVal dy es Long, ByVal cButtons es Long, ByVal dwExtraInfo es Long)
evento de mouse privado Const f _ izquierda abajo = Botón izquierdo de &H2 presionado
Evento de mouse Const privado f_left up = Botón izquierdo de &H4 arriba
Evento de mouse Const privado f_right down=&H8 'Botón derecho abajo
p>Evento de mouse privado Const f_right up = & H10 'Botón derecho arriba
Evento de mouse privado Constf_MIDDLEDOWN = & H20 'Botón central presionado
Evento de mouse privado Const f_middle up = & H40 'Botón central arriba
Bloqueo, mouse y teclado
Declaración privada entrada de bloque de función Lib " usuario 32 "(ByVal fEnable As Long)
Declaración privada biblioteca de sub-sueño "kernel 32" (ByVal dw milisegundos mientras)
Definición
Dim xxx, yyy
Dim SSSDDD como cadena
Dim CC
Tipo de puntero del mouse
Tipo privado POINTAPI
x tiene la misma longitud
Siempre que
Tipo de finalización
Teclado presionado
Función privada booleana MyHotKey(vKeyCode)
MyHotKey =(GetAsyncKeyState(vkey code))
Finalizar función
Presione el botón del mouse
Función privada booleana MyKey(vbKeyLButton)
MyKey = GetAsyncKeyState(vbKeyLButton)
Finalizar función
Private subform_Load()
CC = "Ratón de grabación"
SSSDDD = "0 "
Temporizador 1. habilitado = verdadero
Temporizador2. habilitado = falso
Temporizador3. enable=false
Etiqueta5. Caption = "Uso: 1 Presione A para detener la grabación;"& ampvbCrLf & _
"Este software también puede presionar S para bloquear el mouse y el teclado;"& ampvbCrLf & _
"Este software también puede presionar D para bloquear el mouse y el teclado, que se pueden mover."中."& ampvbCrLf & amp;_
vbCrLf & amp;vbCrLf & amp;vbCrLf & amp;vbCrLf & amp;vbCrLf & amp;_
"& ampApp. (Versión" & App. Profesional y Artístico.
"."&App. Menores y menores. "."&App. Revisión y amplificador")"El número de versión actual es
Conector final
Velocidad
Subtexto privado 2 _ KeyPress (KeyAscii es un número entero)
Solo (0123456789.) Los números se pueden ingresar en texto.
Si InStr(1,"0123456789",UCase(Chr(KeyAscii)),1)<= 0, entonces KeyAscii = 0
Adaptador final
Privado subtext2_Change()
Si SMS 2. Texto & gt0 y luego temporizador 2. espacio = texto2. Texto
Conector final
Leer archivo seguro
Subcomando privado 3 _ clic()' lista1 Guardar *.txt.
Dim fn es un número entero, I es un número entero
fn = archivo libre
Abrir Texto1. Salida de texto como #1
Para i = 0 en Lista1. Recuento de listas: 1
Imprimir #1, lista 1. Lista (1)
Luego
Cierre #1
MsgBox "Guardado exitosamente en:" & Texto1. Texto
Conector final
Subcomando privado 4 _ click()' list1 leído *.txt.
Lista1. Borrar
Abrir texto1. Texto ingresado como #1
Hacer mientras no EOF(1)
Entrada de línea #1, Temperatura
Lista1. Adjuntar temperatura
Lazo
Cerrar #1
Finalizar conexión
Lista vacía 1.
Subcomando privado 5_Click()
Lista1. clear
Conector final
Leer registro
Subcomando privado 2_Click()
ShFu
Si Listado 1. ListCount & gt luego 0
List1. ListIndex = 1
Formulario1. Caption = "Grabar reproducción con el mouse"
Temporizador 2. enable = true
Terminará si...
Conector final
Sub-timer2_Timer() privado
Tamaño x
Lista1. ÍndiceLista = Lista1. ListIndex - 0 + 1
x = Split(List1. Text, " & lt* >)
SetCursorPos x(0), x(1)' la posición del punto que necesita
Si x(2) = "Zuo", entonces Zuo Danqi
Si x(2) = "Zhong" entonces Zongdanji
Si x( 2) = "derecha", entonces hay varios
Si list1. ListIndex & gt= list1. list count-1 entonces form1. YhFu: Temporizador2. Habilitado = Falso.
Finalizar conector
Clic con el botón izquierdo del ratón
Nota privada ()
mouse_ event mouse event f_ izquierda abajo o MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0& simulan el clic del mouse
Conector final
Clic central del mouse
Conjunto único privado de Subzong()
mouse_event evento de mouse f_middle down o MOUSEEVENTF_MIDDLEUP, 0 & amp, 0 & amp, 0 & amp, 0 & amp simulan clic del mouse
Conector final
Clic derecho.
Separación de aceite privada independiente ()
mouse_event evento del mouse f_right down o MOUSEEVENTF_RIGHTUP, 0 & amp, 0 & amp, 0 & amp, 0 & amp simulan el clic del mouse
Finalizar conector
Iniciar grabación
Subcomando privado 1_Click()
ShFu
Formulario 1. Caption = "Grabar grabación con el mouse (presione A para detener)"
Conector final
Grabar
Private Sub Tttex_Change()
Si el formulario 1. Caption = "Grabando grabación con el mouse (presione A para detener)" luego agregue texto en la lista 1.
Conector final
Subtemporizador privado 1_Timer()
Atenuar MousG
si mykey(vbkeylbutton)entonces mousg = " left "
si mykey(vbkeymbutton)entonces mousg = " medium "
si mykey(vbkeybutton)entonces mousg = " right "
Atenuar P1 como POINTAPI
p>
GetCursorPos P1
Tttex. Texto = P1. "& lt* >& ampp 1 . y & "& lt* >& ampMousG
MousG = "0 "
Tecla de acceso rápido
Si myhotkey (vbkeya) luego forma 1. caption = " Grabar mouse ":CC = " Detener bloqueo y grabar mouse ":YhFu ' Se presiona un teclado.
si mi tecla de acceso rápido (vbKeyX) Luego comando 1 _ Haga clic en:ShFu
si mi tecla de acceso rápido (tecla VB) Luego comando 2 _ Haga clic en: ShFu
Si mi tecla de acceso rápido (vbKeyX) Luego comando 2 _ Haga clic en: ShFu
Si mi tecla de acceso rápido (vbKeyX) (vbKeyB)Luego Comando3_Click
Si MyHotKey(vbKeyV)Luego comando 4_Click
si mi tecla de acceso rápido (vbKeyZ)Luego comando 5 _ Click
si mi tecla de acceso rápido (vbKeyE )Luego comando 6 _ Click
Si MyHotKey(vbKeyS) entonces SSS: ShFu
Si MyHotKey(vbKeyD) entonces DDD: ShFu
Finalizar conector
Bloqueo, mouse y teclado
Subtemporizador privado 3_Timer()
Si SSSDDD & gt0, entonces ssdd = ssdd-1
Formulario 1 si CC = "sin movimiento". Caption = "Grabar mouse bloqueado y el teclado no se mueve" & SSSDDD & "Desbloquear en segundos"
Form1 if CC="Móvil". Caption = "Grabar mouse: el mouse y el teclado bloqueados son extraíbles" & SSSDDD & "Desbloquear en segundos"
Si SSSDDD & lt entonces 1
Bloquear entrada (0)
Formulario 1. Caption = "Grabar mouse"
CC = "Detener bloqueo de grabación del mouse"
Temporizador 3. enable = false
YhFu
"Finalizar si continúa"
Finalizar empalme
Sub-SSS privado()
Forma 1. Caption = "Grabar mouse: bloquear el mouse y el teclado, no mover"
SSSDDD = InputBox ("Preguntar", "¿Cuántos segundos para bloquear?", "10")
CC = "No extraíble"
Temporizador 3. Enabled=True
'BlockInput (5)' está bloqueado y no se puede mover.
Conector final
DDD privado()
Formulario 1. Caption = "Grabar mouse - bloquear mouse y teclado, móviles"
SSSDDD = InputBox ("Preguntar", "¿Cuántos segundos desea bloquear?", "10")
CC="Teléfono móvil"
Temporizador 3. enable = true
Llamar a suspensión (SSDDD)' bloqueado y extraíble.
Conector final
¿Puedo verlo cuando utilizo el software?
Private Sub ShFu()'
Si check1.value = 0, entonces form1.hide' se oculta.
Fin de ajuste
Private Sub YhFu()'
Si CC = "Detener bloqueo del mouse de grabación", entonces
Formulario 1. "Mostrar" muestra
CC = "Registro del mouse"
Terminará si...
Finalizar conector
Eliminar lista 1 Una línea.
Sublista privada1_DblClick()'
Lista1. Eliminar lista de elementos1. Índice de lista
Conector final
Descartar
Subcomando privado 6_Click()
Fin
Conector final
p>