UC知道VBS一键登陆 脚本解释
来源：百度知道 编辑：UC知道 时间：2024/06/17 21:28:20
本是刚接触电脑.看到了这一组语言.不懂..希望大虾给.解释下。 解释好的话 加分加分
Dim strPrgpth
strPrgpth = "E:\msn\qq\QQ.exe" '
Set wshshell = CreateObject("wscript.shell")
Set oexec = wshshell.exec(strPrgpth)
wscript.sleep 4000 '
wshshell.AppActivate "QQ用户登录"
wshshell.Sendkeys "{TAB}"
wshshell.Sendkeys "本人QQ号" '
wscript.Sleep 1000
wshshell.Sendkeys "{TAB}"
wscript.Sleep 1000
wshshell.Sendkeys "本人密码" '
wscript.Sleep 1000
wshshell.Sendkeys "{ENTER}"
Dim strPrgpth
strPrgpth = "E:\msn\qq\QQ.exe" '
Set wshshell = CreateObject("wscript.shell")
Set oexec = wshshell.exec(strPrgpth)
wscript.sleep 4000 '
wshshell.AppActivate "QQ用户登录"
wshshell.Sendkeys "{TAB}"
wshshell.Sendkeys "本人QQ号" '
wscript.Sleep 1000
wshshell.Sendkeys "{TAB}"
wscript.Sleep 1000
wshshell.Sendkeys "本人密码" '
wscript.Sleep 1000
wshshell.Sendkeys "{ENTER}"
第一句:定义一个变量用来保存QQ程序路径.
第二句:设置变量保存的QQ程序路径字符串.
第三句:创建一个wscript.shell操作对象.
第四句:用这个对象调用路径指定的程序.也就是QQ主程序来启动QQ
第五句:暂停4秒.等待启动完毕.
第六句:查找并激活QQ登陆窗口.
第七句:发送一个TAB键到登陆窗口.焦点转到QQ号码输入框.
第八句:发送QQ号码到输入框.
第九句:暂停1秒.
第十句:发送一个TAB键到登陆窗口.焦点转到QQ密码输入框.
第11句:暂停1秒.
第12句:发送QQ密码到输入框.
第13句:暂停秒.
第14句:发送回车键登陆.
解释完毕.