my.vbs

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

set A=WScript.CreateObject("WScript.Shell")
A.Run "http://netbar.qq.com/gateway/index.shtml?key=99JM5Jb9&user=nmrtwb"
WScript.Sleep 6000
'双倍钻体验码
A.SendKeys "%g"
A.SendKeys "2"
WScript.Sleep 6000
A.SendKeys "%s"
A.SendKeys "G:\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 "G:\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 "G:\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"