vbs脚本,实现QQ自动登入
[ 2008/07/02 09:42 | by selboo ]
现看下脚本的内容吧！很容易理解的
Dim WshShell, QQPath, QQselect
QQPath="C:\Progra~1\Tencent\QQ\qq.exe" 'QQ所在路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ用户登录"
WshShell.SendKeys "123456" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "654321" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
QQPath="C:\Progra~1\Tencent\QQ\qq.exe" 'QQ所在路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ用户登录"
WshShell.SendKeys "123456" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "654321" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
保存为 *.vbs 直接运行就可登入
修改相应的位置就可以自动登入，可以有效的防止，键盘记录木马
