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"