让QQ永久在线的新方法(简单+方便) 申请点亮

社区服务
高级搜索
猴岛论坛综合游戏交流QQ游戏让QQ永久在线的新方法(简单+方便) 申请点亮
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
4个回复

让QQ永久在线的新方法(简单+方便) 申请点亮

楼层直达
lijianchao

ZxID:2025902

等级: 上士

举报 只看楼主 使用道具 楼主   发表于: 2008-11-16 0
大家好.

今天给大家做的教程QQ永远在线..鄙视挂QQ的.声明.我不是挂QQ.我是真的每时每刻在和QQ上的朋友互相交流....
现在我们开始吧~~~看好.麦克风就不说了

>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:2193313
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等级的做法
乖囡囡

ZxID:2090778

等级: 准尉
举报 只看该作者 4楼  发表于: 2008-11-23 0
楼主真厉害
乖囡囡

ZxID:2090778

等级: 准尉
举报 只看该作者 地板   发表于: 2008-11-23 0
这样也行啊。。。
悠云

ZxID:2269292

等级: 中士
举报 只看该作者 板凳   发表于: 2008-11-16 0
在线也没意思~~
詠遠有哆遠

ZxID:2321938

等级: 禁止发言

举报 只看该作者 沙发   发表于: 2008-11-16 0
沙发 好用就顶了
« 返回列表
发帖 回复