El código fuente es el siguiente:
Dim WshShell, QQPath, QQselect
QQPath="c:\Progra~1\Tencent\QQ\CoralQQ. exe"
Establecer
WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run
QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ Login"
WshShell.SendKeys
" {TAB}"
WshShell.SendKeys "123456789"
WScript.Sleep 200
WshShell.SendKeys
"{TAB}"
WshShell.SendKeys. "123456789"
WScript.Sleep 200
WshShell.SendKeys
"{ENTER}"
Copia el código anterior y guárdalo como "*.VBS” y ejecútelo. Además, debido a que la línea de comando solo admite nombres de archivos con una longitud de 8 caracteres, los nombres de archivos como "ProgramFiles" deben reescribirse como "Progra~1". Si desea iniciar sesión en varios QQ al mismo tiempo, simplemente agregue el siguiente código. El rojo es la ruta del disco duro donde se encuentra QQ.exe, el azul se cambia al número de QQ y el verde se cambia a la contraseña. del número QQ.
WScript.Sleep 2000
QQPath="D:\Progra~1\Tencent\QQ\CoralQQ.exe"'Ruta QQ
Establecer
Establecer
p>
WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run
QQPath
WScript.Sleep 2000
WshShell.AppActivate
"QQ Login 1"
WshShell.SendKeys " {TAB}"
WshShell.SendKeys "123456789"
WScript.Sleep 200
WshShell.SendKeys
"{TAB}"
WshShell. SendKeys "123456789"
WScript .Sleep 200
WshShell.SendKeys
"{ENTER}"