- 浏览: 18832 次
最近访客 更多访客>>
最新评论
-
luozhong915127:
这是什么呀,你以为别人跟你一样是神眼呀。你可以把语言的条款写清 ...
Linux DM9000网卡驱动程序完全分析
利用VBS脚本让qq永远在线
2011年06月07日
让QQ"永远"运行
自从QQ出现了等级制度之后,现在有不少人都开始了疯狂挂级,希望在联机状态下始终运行QQ,即便被人关闭也能自动启动登录,而且还要防止因异常错误而退出。其实这些事情我们可以使用两个VBS脚本来实现这一目的。
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:XXXXXX"
else
msgbox "提取QQ自动登录命令失败,请查看QQ或TM是否正在运行.",0,"QQ自动登录命令提取脚本 BY chenall QQ:XXXXXX"
f.close
set f = fso.getfile("QQ自动登录.bat")
f.delete
end if
将这些代码存储为"*.vbs"文件。然后将所有需要自动登录的QQ号码全部登录,再在一个QQ上点击"菜单"→"一键切换到TM"。此后运行该VBS脚本,会发现在当前目录下生成了一个"QQ自动登陆.bat"的文件,运行该文件即可自动登录所有QQ号码。
小提示:代码中的"XXXXXX"代表你的QQ号。
2.QQ防止关闭脚本
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"文件。而后登录QQ,一键切换到TM,再运行VBS脚本。此后,即使关闭了TM/QQ,它也会自动启动并登录至网络。经笔者在Windows XP SP2系统上测试,完全有效。
小编提示:对于用户挂QQ这个事情,小编对此并不赞同,因为除了能得到心里上的满足以外,其余任何事情都不能做到,而且还大量地浪费了国家的电能,所以在此小编提示大家,这个技巧只是叫大家明白,我们可以用VBS实现这一功能,绝对不是提倡这种挂QQ等级的做法。
*******************************************************************************************************************
方法绝对有效,
只是复杂了一点,但正是因为复杂知道的人很少,所以到现在还没被封
希望那些没有认真看就说闲话的人最好闭上你的嘴巴
尊重人家的劳动成果
发表评论
-
深入探究 Win32 PE 文件格式
2012-01-20 08:23 704深入探究 Win32 PE 文件格 ... -
V4L2应用程序框架
2012-01-20 08:23 1204V4L2应用程序框架 2010年 ... -
关于file_operations结构体
2012-01-20 08:23 585关于file_operations结构体 2010年12月2 ... -
堆栈的认知!
2012-01-20 08:23 591堆栈的认知! 2010年11月2 ... -
Linux DM9000网卡驱动程序完全分析
2012-01-20 08:23 810Linux DM9000网卡驱动程序完全分析 2011年02 ... -
Adsutil.vbs在脚本入侵中的妙用
2012-01-19 13:35 580Adsutil.vbs在脚本入侵中的妙用 2011年03月0 ... -
vbs脚本实例
2012-01-19 13:35 671vbs脚本实例 2011年02月28日 rem 结束QQ ... -
vbs 脚本没事测试玩
2012-01-19 13:35 574vbs 脚本没事测试玩 2011年03月27日 Set ... -
VBS脚本文件大全
2012-01-19 13:35 793VBS脚本文件大全 2011年05月24日 一、自动打开 ... -
安装minigui 的界面环境 mstudio
2012-01-17 03:25 2018安装minigui 的界面环境 mstudio 2010年0 ... -
[转]win7搭建Android开发 个人测试成功
2012-01-17 03:24 604[转]win7搭建Android开发 个人测试成功 2011 ... -
Platform Builder和Embedded visual C++简介
2012-01-17 03:24 589Platform Builder和Embedded vis ... -
解决无IISXP系统无IIS如何安装IIS【出现问题请看最后面】
2012-01-17 03:24 811解决无IISXP系统无IIS如何安装IIS【出现问题请看最后面 ... -
搭建android开发环境
2012-01-17 03:24 717搭建android开发环境 2011年05月08日 O ... -
开学之前放个重磅――盘点下我知道的情景喜剧
2012-01-16 01:59 573开学之前放个重磅―― ... -
中国各地男人之最的分析
2012-01-16 01:59 777中国各地男人之最的分 ... -
祝福新人
2012-01-16 01:59 534祝福新人 2009年10月07日 好朋友军 ... -
daogou
2012-01-16 01:59 481daogou 2009年09月01日 服装店店员的服务用 ... -
徐强眼中的自己,朋友们觉得是我吗?
2012-01-16 01:59 517徐强眼中的自己,朋友们 ... -
a usage of c macro-小雨-iteye技术网站
2012-01-11 02:01 671a usage of c macro-小雨-iteye技术网站 ...
相关推荐
VBS实例 44个 vbs脚本实例, VBS取QQ-TM号码的自动登录命令行.vbs 妙用脚本清除电脑中的痕迹.vbs 后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs 旁注查询工具.vbs 中文姓名笔画计算(VBS脚本版).vbs ...
wincc VBS脚本加密破解
VBS VBSCRIPT 脚本 VBS脚本入门教程5 <br>大家如果觉得好,可以到我站来看看。 email:kelonre@tom.com<br>msn:kelonre@tom.com<br>QQ:53163108 (请注明申请斑竹字样) 本站QQ群号:31686490;12647825(新群)...
VBS脚本入门教程3 <br> 大家如果觉得好,可以到我站来看看。 email:kelonre@tom.com<br>msn:kelonre@tom.com<br>QQ:53163108 (请注明申请斑竹字样) 本站QQ群号:31686490;12647825(新群) 本站UC群号:...
打开QQ并且让它自己输入用户名和密码的vbs脚本.pdf
QQ自动登陆”的VBS脚本代码.pdf
这是一个基于QQ本地VBS脚本的一键邮件发送工具,可以帮助用户快速发送邮件,提高工作效率。该工具具有以下特点: 1. 简单易用:只需双击运行脚本,填写邮件信息即可一键发送邮件。 2. 支持多种邮件服务商:支持...
批量自动发送qq消息,群发,操作简单便捷; 启动qq聊天界面,设置好发送消息循环次数,双击vbs脚本,看结果吧 有可能被T哦
VBS脚本入门教程4 <br> 大家如果觉得好,可以到我站来看看。 email:kelonre@tom.com<br>msn:kelonre@tom.com<br>QQ:53163108 (请注明申请斑竹字样) 本站QQ群号:31686490;12647825(新群) 本站UC群号:...
◎Vbs脚本编程简明教程之四—如何利用Vbs运行外部程序? ◎Vbs脚本编程简明教程之五—错误处理 ◎Vbs脚本编程简明教程之六—修改注册表 ◎Vbs脚本编程简明教程之七—FSO的常见对象和方法 ◎Vbs脚本编程简明...
vbs登陆脚本,可以实现加密登陆QQ。 安全防盗,另外对于少数喜欢挂Q的朋友可以放在系统启动项里实现开机自动登陆
WINCC VBS 脚本资料,里面有语句的使用方法,还有案例介绍
VBS脚本入门教程7 大家如果觉得好,可以到我站来看看。 email:kelonre@tom.com<br>msn:kelonre@tom.com<br>QQ:53163108 (请注明申请斑竹字样) 本站QQ群号:31686490;12647825(新群) 本站UC群号:5955365...
VBS脚本入门教程2 大家如果觉得好,可以到我站来看看。 email:kelonre@tom.com<br>msn:kelonre@tom.com<br>QQ:53163108 (请注明申请斑竹字样) 本站QQ群号:31686490;12647825(新群) 本站UC群号:5955365...
VBS脚本入门教程6 <br>大家如果觉得好,可以到我站来看看。 email:kelonre@tom.com<br>msn:kelonre@tom.com<br>QQ:53163108 (请注明申请斑竹字样) 本站QQ群号:31686490;12647825(新群) 本站UC群号:...
本程序可以实现在QQ上给好友连发消息,作为VBS代码编写的参考,本程序可以设置发送次数和发送间隔时间,易操作。 使用方法:将要发送的内容放入剪贴板(把内容写在记事本中复制一次),选择发送消息的方式,如CTRL+...
有示范性的VBS代码
一个用vbs写的能备份/恢复WIN7的无线网络密码,以防重做系统后无线密码忘记,或经常外出,用过很多无线,如果做了备份,以后重做系统后恢复,那么就不用记录密码了。(只能用于win7)
刷QQ群的VBS脚本
用vb脚本语言写的,代码只有6行。程序可改动,把后缀改成.txt就可看代码。这个程序运行后可让你想要的任何程序关闭。qq聊天时,可逗你朋友,源码作用是关闭qq