QQ自动登陆带自动缩小的vbs脚本

 

大部分是别人写的，我只是拿来学习了一下，因为我是在单位公共机器上挂QQ，机子总是被他人占着，挤不进去。所以逼的我研究了这个vbs代码。因为QQ在登录时总被他人直接关闭，所以加上了这个自动缩小的vbs脚本。本人第一次改写第一次发表大家让着点，不要打击我，我好怕怕~！

 

 

 

Dim Program1
WScript.Sleep 2000 '这是等待运行的时间1000为一秒这行可以删除，我在单位机子上用的所以时间设的长
Program1= "C:/Program Files/Tencent/QQ/Bin/QQ.exe"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 2000  '这是两秒
WshShell.AppActivate "登录窗口"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "10001" '引号里改为你要登陆的号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "12345"'引号里改为你要登陆的密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
wscript.sleep  200
WshShell.SendKeys "%"
WshShell.SendKeys " "
WshShell.SendKeys "n"
Wscript.quit