脚本 一键登陆ＱＱ

゛.餖漿﹏.o

Dim Program1
Program1= "qq所在的目录"
Set WshShell=createobject("wscript.shell")
# {! J; s, b( b9 n6 J7 q) d+ gSet oExec=WshShell.Exec(Program1)
6 e3 O" ?5 n4 l4 q5 H, c4 [WScript.Sleep 2000
+ K9 U! J& p9 \' w7 NWshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "你的qq号"
WScript.Sleep 200
8 Y0 f! k* q  K6 fWshShell.SendKeys "{TAB}"
WshShell.SendKeys "你的qq密码"
' q8 u0 B; E" z3 P# ]/ [WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
+ I4 q+ l! E5 v( ^" ^

  D- ^( ?! o( B  ]把上面的写到写字版上．保存为XX.vbs的格式
登陆的时候点下这个XX.vbs就好了｀呵呵｀