|
|
Dim Program1
8 G. N E5 O- ?3 t1 O+ WProgram1= "qq所在的目录"' ~. w; j W' x/ F2 a! k5 ]
Set WshShell=createobject("wscript.shell")- @0 J& l. S- m5 [5 o5 Y
Set oExec=WshShell.Exec(Program1)
& W0 B8 F `1 ^# v& uWScript.Sleep 2000
7 m& {' w6 h- v" Y) e" aWshShell.AppActivate "Q登录"7 q- A! r6 f* O% G4 Y
WshShell.SendKeys "+{TAB}"% w! E1 i$ ~/ m8 r4 u9 E$ Y5 \
WshShell.SendKeys "你的qq号"' \, L" b7 \: W" f
WScript.Sleep 200! g. {' s/ i- |
WshShell.SendKeys "{TAB}"
1 [% j0 w8 [; s9 O& I' N' f: eWshShell.SendKeys "你的qq密码"4 u, U! K s9 d$ x; r! m
WScript.Sleep 200
1 }" I U' o/ M }WshShell.SendKeys "{ENTER}"! p9 p2 y% \& ?7 I* F4 }1 i9 M% i5 T% T
0 i* H2 X e% x" e6 H/ B
+ d; {+ [( D/ c; I1 Z9 P0 G$ N8 D把上面的写到写字版上．保存为XX.vbs的格式+ U2 |; I- B$ H' _ d1 P
登陆的时候点下这个XX.vbs就好了｀呵呵｀ |
|
IP卡
狗仔卡
发表于 2008-2-21 18:58:27
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡