Dim Program1
Program1="C:\program files\tencent\qq\qq.exe"
Set WshShell=createobject("wscript.shell")
Set Exec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate"用户登陆"
WshShell.SendKeys"{TAB}"
WshShell.SendKeys"123456789"     'qq号码'
WScript.Sleep 1000
WshShell.SendKeys"{TAB}"
WshShell.SendKeys"*********"        'qq密码'
WScript.Sleep 1000
WshShell.SendKeys"{ENTER}"