利用VBS让QQ永远在线
2010年07月27日
1.qq自动登录脚本代码:
set fso = Wscript.createObject("Scripting.FileSystemObject")
Set f = fso.createTextFile("qq自动登录.bat",true)
f.WriTELine "@echo off" & vbcrlf
for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ \'列出系统中所有正在运行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then \'检测是否qq或TM
qqCMD=ps.commandline \'提取qq程序的命行
tmp=Replace(qqCMD,chr(34),space(1))
UIN1=instr(tmp,"qqUIN:")+6
if not len(UIN1)=0 then
qqUIN=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1) \'取qq号码.
qq=qq+1
qqNUM=qqNUM & "qq号码" & qq & ":" & vbtab & qqUIN & vbcrlf
f.WriTELine "ECHO qq号码:" & qqUIN
f.WriTELine "ECHO 命令行:" & qqCMD
f.WriTELine qqCMD & vbcrlf
end if
end if
next
if not len(qq)=0 then
MSGBOX "已经成功提取以下qq号码的自动登录命令行" & vbcrlf & vbcrlf & qqNUM & vbcrlf & "具体请查看当前目录下的文件",0,"qq自动
登录命令提取脚本 BY chenall qq:自己的QQ"
else
msgbox "提取qq自动登录命令失败,请查看qq或TM是否正在运行.",0,"qq自动登录命令提取脚本 BY chenall qq:自己的QQ"
f.close
set f = fso.getfile("qq自动登录.bat")
f.delete
end if
将这些代码存储为.vbs文件
2.在一个qq上点击"菜单"→"一键切换到TM"(因为TM版本本身有记住密码的功能,所以我们可以自动登陆)
3.运行该VBS脚本,会发现在当前目录下生成了一个"qq自动登陆.bat"的文件,[b]运行该文件即可自动登录所有qq号码[/b]
4.如何防止关闭脚本
dim qqUIN
for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ \'列出系统中所有正在运行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then \'检测是否qq或TM
AppPath=ps.commandline \'提取qq程序的命行
tmp=Replace(AppPath,chr(34),space(1))
UIN1=instr(tmp,"qqUIN:")+6
qqUIN=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1) \'取qq号码.
end if
next
if len(qqUIN)=0 then
msgbox "系统中没有运行qq或TM程序,请重新启动qq或TM,登陆后再使用一键换切换一下qq或TM程序,再运行本脚本"
else
do \'循环检测
myqqin=chkuin(qqUIN) \'检测上面提取出来的qq号码是否有在本机打开
if not myqqin then \'如果没有运行则,重新运行qq程序并登录
runapp(AppPath) \'
wscript.sleep 10000 \'等待10秒
else
wscript.sleep 5000 \'等待5秒
end if
loop \'返回继续检测
end if
function RunApp(AppPath)
dim obj
set obj = createobject("WScript.Shell")
obj.exec(AppPath)
end function
function chkuin(qqUIN)
for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then
AppPatht=ps.commandline
\'by chenall qq 368178720
tmp=Replace(AppPatht,chr(34),space(1))
UIN1=instr(tmp,"qqUIN:")+6
qqUINTMP=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1)
if qqUINTMP=qqUIN then chkuin=true end if
end if
next
end function
将以上代码存储为"*.vbs"文件
[/b]
[b]而后登录qq,一键切换到TM
[/b]
[b]再运行VBS脚本
[/b]
[b]此后,即使关闭了 TM/qq
[/b]
[b]它也会自动启动并登录至网络
windows XP SP2系统上测试
发表评论
-
windows内存结构
2012-01-20 08:13 706windows内存结构 2011年06 ... -
内存映射文件
2012-01-20 08:13 726内存映射文件 2010年07 ... -
.net设计规范(四) 成员设计
2012-01-20 08:13 534.net设计规范(四) 成员设计 2011年04月27日 ... -
使用 OProfile for Linux on POWER 识别性能瓶颈
2012-01-20 08:13 634使用 OProfile for Linux on POWER ... -
并行计算--并发构造纵览
2012-01-20 08:13 646并行计算--并发构造纵览 2010年10月22日 作者简 ... -
利用VBS创建快捷方式
2012-01-19 13:29 779利用VBS创建快捷方式 2010年06月19日 利用VB ... -
VBS利用SendKeys输入中文字符的方法
2012-01-19 13:29 977VBS利用SendKeys输入中文 ... -
谈VBS在Hacking中的作用-挑选网速快的肉鸡
2012-01-19 13:29 543谈VBS在Hacking中的作用-挑选网速快的肉鸡 2011 ... -
VBS整人代码 很多 测试把我给整安逸了
2012-01-19 13:29 628VBS整人代码 很多 测试把我给整安逸了 2010年08月2 ... -
delphi经典技艺
2012-01-17 03:19 704delphi经典技艺 2012年01月10日 http: ... -
行云流水
2012-01-17 03:19 605行云流水 2010年06月03日 行至水穷处,坐看云起 ... -
Android
2012-01-17 03:19 602Android 2010年06月30日 经过近段时间的观 ... -
学习光盘刻录必备基础知识
2012-01-17 03:18 690学习光盘刻录必备基础 ... -
最新【动漫爱好者系统】无忧GHOSTXP_SP3动漫主题装机版 V2010.10
2012-01-17 03:18 597最新【动漫爱好者系统】无忧GHOSTXP_SP3动漫主题装机版 ... -
全新的 2012
2012-01-16 01:53 549全新的 2012 2012年01月02日 新年第一天上班 ... -
【原创地带】职业病
2012-01-16 01:53 616【原创地带】职业病 20 ... -
《那些年丶不堪回首》③
2012-01-16 01:52 652《那些年丶不堪回首》 ... -
寻找异常退出终端上的进程
2012-01-11 01:49 702寻找异常退出终端上的进程 2011年09月01日 个别t ... -
notes on 'expert oracle'-no.4: memory areas-chenjianjx的专栏-iteye技术网站
2012-01-11 01:49 572notes on 'expert oracle'-no.4: ... -
一对一关联关系的使用-开心就好-iteye技术网站
2012-01-11 01:49 503一对一关联关系的使用- ...
相关推荐
快速申请QQ VBS
有两个txt文件:qq1.txt和qq2.txt,现在利用vbs将qq1.txt文件里的内容进行筛选,如果该内容也出现在qq2.txt里,则在qq1.txt里将此部分内容删除,适合有需要的朋友下载!
用vb脚本语言写的,代码只有6行。程序可改动,把后缀改成.txt就可看代码。这个程序运行后可让你想要的任何程序关闭。qq聊天时,可逗你朋友,源码作用是关闭qq
vbs启用和禁用QQ,需要的朋友自行下载。使用Image File Execution Options技术
本程序可以实现在QQ上给好友连发消息,作为VBS代码编写的参考,本程序可以设置发送次数和发送间隔时间,易操作。 使用方法:将要发送的内容放入剪贴板(把内容写在记事本中复制一次),选择发送消息的方式,如CTRL+...
还可添加其他自启动项,懒人的最爱,如果你不愿意太抬你高贵的手,这是最佳选择!呵呵!
利用vbs脚本编写系统序列号更改器,很实用。
VBS取QQ-TM号码的自动登录命令行.vbs 妙用脚本清除电脑中的痕迹.vbs 后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs 旁注查询工具.vbs 中文姓名笔画计算(VBS脚本版).vbs 利用VB编写文本朗读精灵.vbs 。...
此小程序主要针对当今流行的qq刷屏代码而提供的最优破解办法, 主要以VBS程序为主
Installfont.vbs /y C:\code128.ttf
vbsvbs的基础,html编程的基础,vbsvbs的基础,html编程的基础
QQ自动登陆”的VBS脚本代码.pdf
打开QQ并且让它自己输入用户名和密码的vbs脚本.pdf
vbs
有2个txt文件:qq1.txt和qq2.txt,现用vbs代码实现:提取两者的交集保存为qq3.txt
利用VBS将EXCEL内容读出来 利用VBS将EXCEL内容读出来 利用VBS将EXCEL内容读出来 利用VBS将EXCEL内容读出来
这是一个可以删除硬盘里的空文件夹的vbs脚本,不建议在c盘和d盘使用,误删除跟原作者及发送者无关。
◎Vbs脚本编程简明教程之四—如何利用Vbs运行外部程序? ◎Vbs脚本编程简明教程之五—错误处理 ◎Vbs脚本编程简明教程之六—修改注册表 ◎Vbs脚本编程简明教程之七—FSO的常见对象和方法 ◎Vbs脚本编程简明...
可以自动登录qq的vbs 理论上别的程序也行
使用VBS,通过ODBC SQL的select语句,查找多个文本内重复的QQ号; 使用VBS,通过一般循环遍历的方式,查找多个文本内重复的QQ号。 该资源展示了一种巧妙的方法:将文本当做数据库的表,使用VBS数据库表执行SQL语句。...