|
|
Dim Program1
. i* e6 @7 }- B1 FProgram1= "qq所在的目录"
. m: u; H [0 d( u( [5 O, L ySet WshShell=createobject("wscript.shell")4 Q( b9 j& V: C5 H0 P- z8 A
Set oExec=WshShell.Exec(Program1)
6 B& Z6 i/ ~' w8 h F+ ~3 ]: vWScript.Sleep 2000
; E( V0 W6 P, X$ E8 U' F M2 HWshShell.AppActivate "Q登录"
5 J+ E" @; D% UWshShell.SendKeys "+{TAB}"
+ x7 t, x/ k9 ^& G; K$ Y3 RWshShell.SendKeys "你的qq号"+ [: ?0 }8 \- j& w
WScript.Sleep 200
8 _6 |: i- Q+ y& z* E( p, K6 oWshShell.SendKeys "{TAB}", S U2 M0 t: e9 _
WshShell.SendKeys "你的qq密码"
" D! f; }( O% h; }- N. |8 Z. {* JWScript.Sleep 2005 Q* p# ]) ?$ w
WshShell.SendKeys "{ENTER}"
7 F6 Q8 @# `1 T% Q- [$ X; D
0 |: y$ R4 E: r+ k+ y% R! |* x4 L3 o2 L8 E! c4 ]+ b
把上面的写到写字版上．保存为XX.vbs的格式
' _+ {# S( S5 S; I( _登陆的时候点下这个XX.vbs就好了｀呵呵｀ |
|
IP卡
狗仔卡
发表于 2008-2-21 18:58:27
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡