Red de conocimiento informático - Aprendizaje de código fuente - Un experto en asistentes clave puede ayudarme a resolver el problema.

Un experto en asistentes clave puede ayudarme a resolver el problema.

UserVar completamente automático=1

VBS establece TiShiObj = createobject("WScript.Shell")

Plugin hwnd = Window.GetKeyFocusWnd()

Retraso 500

Remo en segundo plano de Gosub

Si es completamente automático=1

Ventana de activación de Gosub

EndIf

Si completamente automático=1

Gosub gira

EndIf

Si completamente automático=1

Ventana de retorno de Gosub

EndIf

Remo en segundo plano

Para 2

Retraso 200

Ventana de complemento.SendKeyPress(hwnd, 27) p>

Retraso 500

Ventana del complemento.SendKeyPress(hwnd, 119)

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 116)

p>

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 122)

Retraso 1500

Ventana del complemento.SendKeyPress (hwnd, 119)

p>

Retraso 1500

Ventana de complemento.SendKeyPress(hwnd, 112)

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 122)

p>

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 119)

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 115)

p>

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 122)

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 119)

p>

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 119)

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 122)

p>

Retraso 1500

Ventana del complemento.SendKeyPress (hwnd, 119)

Retraso 1500

Ventana de complemento.SendKeyPress(hwnd, 113)

p>

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 122)

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 119)

>Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 114)

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 122)

Retraso 116000

EndFor

Ventana del complemento.SendKeyPress(hwnd, 119)

Retraso 1500

Ventana del complemento.SendKeyPress(hwnd, 117)

Retraso 1500

Devolver remo en segundo plano

Ventana de subactivación

Plugin yuan=Window.Foreground()

Tishi="Espere un momento, no mueva el mouse ni el teclado"

Gosub le solicita a Tishi

Plugin Window.Active(hwn)

Retraso 700

Plugin Window.Restore(hwn)

Retraso 700

Ventana de activación de retorno

Ventana de retorno secundario

Tishi="Puedes continuar"

Gosub solicita a Tishi

Plugin Window.Active(yuan)

Regresar Regresar a la ventana

// Parámetro de ventana de solicitud Tishi

Subsolicitud Tishi

VBSCall TiShiObj.Popup(Tishi, 3, "La ventana se cerrará automáticamente después de 3 segundos", 0)

Indicador de retorno Tshi

Subdirección

KeyDown 39, 1

Retraso 850

KeyUp 39, 1

Dirección de retorno

Roniapee 40.1