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