诚毅小家|集美大学生活【集美大学,诚毅学院,水产学院,师范学院,美术学院,财经学院,体育学院,航海学院,集美学村,石鼓路,龙舟池】

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
热搜: 活动 交友 discuz
查看: 531|回复: 0

脚本 一键登陆QQ

[复制链接]
发表于 2008-2-21 18:58:27 | 显示全部楼层 |阅读模式
Dim Program1/ R$ ^7 W8 V" [
Program1= "qq所在的目录"- A$ |/ c1 r/ c% o. D
Set WshShell=createobject("wscript.shell")
/ _( v8 M# @0 ?3 cSet oExec=WshShell.Exec(Program1)
+ {- o: x- ^1 W% b* I" |WScript.Sleep 2000
- z0 @4 n" L8 c, ?WshShell.AppActivate "Q登录"
1 Y4 f1 [6 b6 [  @7 O: k( E# V& }WshShell.SendKeys "+{TAB}"* {6 w! k3 b& F: b, x
WshShell.SendKeys "你的qq号"6 e* H6 A) p" k
WScript.Sleep 200' E. }/ |/ \; L& o$ `
WshShell.SendKeys "{TAB}"* @4 f; O7 f3 J3 b% _2 z
WshShell.SendKeys "你的qq密码"
. k  a% E' a3 Y; |WScript.Sleep 2001 ^5 n- S" H" U! E' U, ]$ ^
WshShell.SendKeys "{ENTER}"% y+ D" L( N: s- N) A4 C3 P

! t: U- O& C. P: @* B5 }  B; P( z8 Y6 W9 O) S" n
把上面的写到写字版上.保存为XX.vbs的格式# [) F) W- p; `+ J$ P, E( I' X
登陆的时候点下这个XX.vbs就好了`呵呵`
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|小黑屋|诚毅小家 ( 小家社区工作室 闽ICP备05007965号 )

GMT+8, 2024-11-1 15:18 , Processed in 0.046282 second(s), 24 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表