脚本 一键登陆ＱＱ

゛.餖漿﹏.o

Dim Program1
Program1= "qq所在的目录"
Set WshShell=createobject("wscript.shell")
/ z. F: {8 x9 ^7 y  [Set oExec=WshShell.Exec(Program1)
+ p4 M5 c, n* t  xWScript.Sleep 2000
WshShell.AppActivate "Q登录"
. \* y- _- A  ^WshShell.SendKeys "+{TAB}"
1 s  x" ?! l- b; |) ^WshShell.SendKeys "你的qq号"
; v$ A0 D" m. w( H8 bWScript.Sleep 200
WshShell.SendKeys "{TAB}"
# M3 B4 U) j- h& a, ?) AWshShell.SendKeys "你的qq密码"
/ s% I& W  [  Y4 n3 }WScript.Sleep 200
& p: y) L) t9 ?4 f0 a# Q8 WWshShell.SendKeys "{ENTER}"
5 _: J$ x. F4 H* [/ U7 w
+ K2 _  e0 v' D! i+ \2 r- o9 Y$ K/ R
% m) x- d, X. T6 m$ i' U把上面的写到写字版上．保存为XX.vbs的格式
  i; j0 z5 _3 w登陆的时候点下这个XX.vbs就好了｀呵呵｀