Un problema de vbs
1. El motivo del error es:
Mientras ws.AppActivate(TXTFileName)=True
Su función es: cada vez que se repite, el juego será automáticamente La ventana cambia a la ventana actual.
En segundo lugar, la solución es:
Cada vez que se repite, debes encontrar el título de la ventana actual. Si es una ventana de juego, completa la función correspondiente, de lo contrario no lo será. procesado.
Debido a que VBS en sí no tiene la función de encontrar el título de la ventana actual, se debe usar una DLL externa. Para obtener instrucciones, consulte mi blog:
/ljl88900/blog/item. /ce53feb5a8439bc937d3ca7e.html
El método específico es:
1. Vaya a http://202.115.22.199/Blog/Attachment/609
Descargue un dynwrap. Biblioteca de enlaces dinámicos .dll
p>Copie dynwrap.dll al directorio system32 y regístrelo nuevamente
regsvr32 /i /s dynwrap.dll
2. Modifique el código VBS anterior de la siguiente manera:
Dim TXTFileName ,UserWrap,Title,Res
set ws=createobject("wscript.shell")
Set UserWrap = CreateObject("DynamicWrapper")
UserWrap.Register "USER32.DLL", "SendMessage", "i=llllr", "f=s", "r=l"
TXTFileName=InputBox("Ingrese lo que desea crear ")
ws.AppActivate (TXTFileName)
Título = TXTFileName
Mientras trim(title) = TXTFileName
ws.sendkeys" ^v"
ws.sendkeys"{enter}"
ws.sendkeys"{enter}"
wscript.sleep 1000
Título = Espacio(254)
res=UserWrap.SendMessage(UserWrap.GetForegroundWindow(), &HD,len(título), Título)
Fin
wscript.Quit