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> 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) p>
>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