qq网吧.vbs

VBS 运行 调用 腾讯验证码 通过maxthon 可 实现自动调用

set A=WScript.CreateObject("WScript.Shell")
A.Run "http://netbar.qq.com/gateway/index.shtml?key=5c9tPw35&user=suqunmu"
WScript.Sleep 6000
'双倍钻体验码
A.SendKeys "%g"
A.SendKeys "2"
WScript.Sleep 6000
A.SendKeys "%s"
A.SendKeys "\\server-u\QQnetbar$\sb.htm"
A.SendKeys "%s"
WScript.Sleep 1000
A.SendKeys "y"
WScript.Sleep 1000
A.SendKeys "^w"

WScript.Sleep 1000
'蓝钻体验码
A.SendKeys "%g"
A.SendKeys "3"
WScript.Sleep 6000
A.SendKeys "%s"
A.SendKeys "\\server-u\QQnetbar$\lz.htm"
A.SendKeys "%s"
WScript.Sleep 1000
A.SendKeys "y"
WScript.Sleep 1000
A.SendKeys "^w"

'黄钻体验码
'A.SendKeys "%g"
'A.SendKeys "4"
'WScript.Sleep 6000
'A.SendKeys "%s"
'A.SendKeys "\\server-u\QQnetbar$\hz.htm"
'A.SendKeys "%s"
'WScript.Sleep 1000
'A.SendKeys "y"
'WScript.Sleep 1000
'A.SendKeys "^w"
'WScript.Sleep 1000
'A.SendKeys "^w"
A.SendKeys "%fx"

WScript.Sleep 800
A.Run "E:\Progra~1\Tencent\del.vbs"
WScript.Sleep 800
A.Run "E:\Progra~1\Tencent\del2.vbs"