Dim Program1
Program1=
"qq所在的目录"
Set WshShell=createobject("wscript.shell")
Set
oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
WshShell.AppActivate
"Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys
"你的qq号"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys
"你的qq密码"
WScript.Sleep 200
WshShell.SendKeys
"{ENTER}"
把上面的写到写字版上.保存为XX.vbs的格式
登陆的时候点下这个XX.vbs就好了`呵呵