怎样制作一个VBS脚本让QQ自动登陆呢
怎样制作一个VBS脚本让QQ自动登陆呢?下面这个代码,只要换下QQ安装路径,QQ号和密码就能使用了。
步骤/方法
- 01
新建一个文本文档。
- 02
输入下列代码。 Dim Program1 Program1= "QQ路径" Set WshShell=createobject("wscript.shell") Set oExec=WshShell.Exec(Program1) WScript.Sleep 3000 WshShell.AppActivate "cncn" WshShell.SendKeys "+{TAB}" WshShell.SendKeys "QQ号" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WshShell.SendKeys "密码" WScript.Sleep 200 WshShell.SendKeys "{ENTER}"
- 03
然后点击“文件”——“另存为”。
- 04
选择保存路径及输入文件名“QQ自动登陆.vbs”,保存。
- 05
然后双击运行该文件,即可自动登录QQ。
赞 (0)