Red de conocimiento informático - Conocimiento informático - ¿Cómo programar un cuadro de texto en otra ventana del programa para que ingrese texto automáticamente y salte automáticamente a otro cuadro de texto o botón?

¿Cómo programar un cuadro de texto en otra ventana del programa para que ingrese texto automáticamente y salte automáticamente a otro cuadro de texto o botón?

'Usando el ejemplo de VBS, descargue dynwrap.dll, luego cópielo en c:\windows\system32 y ejecute regsvr32 para registrar dynwrap.dll

Establezca ws=CreateObject("WSCript.shell")

Establecer Wrap1 = CreateObject("DynamicWrapper")

Wrap1.Register "USER32.DLL", "FindWindow", "I=ss", "f=s", "R=l"

Wrap1.Register "USER32.DLL", "SetForegroundWindow", "I=h", "f=s", "R=l"

hWin = Wrap1.FindWindow( vbNullString , CStr("Nombre de la ventana"))

si hWin gt; 0 entonces

Portapapeles = "MsHta vbscript: ClipBoardData.setData(""Texto"","" amp; " El texto que desea ingresar"&"")(Cerrar)"

ws.Run(Clipboard) 'Copiar texto

ws.Run(Clipboard) 'Copiar texto p>

ws.Run(Clipboard) 'Copiar texto

ws.Run(Clipboard) 'Copiar texto y enviar tecla "{tab}" 'Enviar tecla de tabulación para mover el foco

ws.Sendkeys "^v" 'Enviar y pegar, asegúrese de que haya contenido en el portapapeles

end if