不用挂机也让qq永久在线

很多人都想着QQ级别高…这可可以理解.但是用高低来看人.我鄙视这种人.
虽然我QQ 30多级了 但是我也只是偶尔上线.或者在做东西的时候才上线.
今天给大家做的教程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 qq
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等级的做法
(本文摘自互联网)

制作在线QQ的具体步骤

1、首先登录到http://is.qq.com/webpresence/code.shtml 网站
2、选择风格
3、填写相关数据
4、生成网页代码
5、复制代码到“写字板”,另存文件名为001.html
6、创建自建栏目,将写字板里的图案样式部分复制到“自建栏目”中
7、全部完成以后,将图标设置链接,地址为:http://wpa.qq.com/msgrd?v=1&uin=你的QQ号码&site=240zt
保存发布就OK了!
其实,还有更简单的办法哦,按照前面说的进入:http://is.qq.com/webpresence/code.shtml ,找到喜欢的QQ留言风格,把图片另存为到自己的电脑桌面保存,然后,登陆自己的站点,自定义站点,上传刚才保存的QQ留言风格的图片,然后点击图片添加超级连接,把http://wpa.qq.com/msgrd?v=1&uin=你的QQ号码&site=240zt复制进入就可以啦,自己试过了,好像可以这样做的哦…