花江边社区—论坛 » 电脑/手机/数码 » 发个QQ自动登陆的脚本

小木 发表于 2008-8-8 10:24

发个QQ自动登陆的脚本

dim program1
program1="[color=red]QQ程序的绝对路径[/color]"
set wshshell=CreateObject("wscript.shell")
set oexec=wshshell.exec(program1)
wscript.sleep 2000
wshshell.appactivate "QQ登录"
wshshell.sendkeys "+{TAB}"
wshshell.sendkeys "[color=red]输入QQ号码[/color]"
wscript.sleep 2000
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "[color=red]输入密码[/color]"
wscript.sleep 2000
wshshell.sendkeys "{ENTER}"
Wscript.quit

=========================================================================================
就像有个QQ登陆器一样方便
这个我就不上传样本了。。。。。

叻叻 发表于 2008-10-3 14:16

我试了怎么不行的呀？

小木 发表于 2008-10-11 11:00

回

VISTA下好象不能用
明明有脚本宿主编译器
就是不能用  我也不明白
PS：要保存为VBE或VBS格式

[[i] 本帖最后由 小木 于 2008-10-11 11:01 编辑 [/i]]

伊蓝 发表于 2008-10-11 11:55

回复 3# 小木 的帖子

看不懂哦
怎么用的呀

小木 发表于 2008-10-11 16:22

回

把它用记事本保存
然后把后缀名改为.vbe或者.vbs就好了

空心菜 发表于 2008-10-11 16:33

我按你说的去做了
当我双击文本的时候——音响“轰”的一声——没死机——更没爆炸，出现了这个东西


[attach]1218[/attach]

小木 发表于 2008-10-12 11:53

回

你的源为什么是那个wshshell.exec啊  没有Microsoft VBScript????

[[i] 本帖最后由 小木 于 2008-10-12 11:59 编辑 [/i]]

查看完整版本: 发个QQ自动登陆的脚本