很多人都想著QQ級(jí)別高...這可可以理解.但是用高低來(lái)看人.我鄙視這種人.
雖然我QQ 42級(jí)了 但是我也只是偶爾上線.或者在做東西的時(shí)候才上線.
難道說(shuō)我就可以在某地區(qū)受到特殊待遇么. 那叫放P.我在大街上都他媽沒(méi)人理我.
今天給大家做的教程QQ永遠(yuǎn)在線..鄙視掛QQ的.聲明.我不是掛QQ.我是真的每時(shí)每刻在和QQ上的朋友互相交流....
現(xiàn)在我們開(kāi)始吧~~~看好.麥克風(fēng)就不說(shuō)了
>QQ或TM程序,再運(yùn)行本腳本"
else
do \'循環(huán)檢測(cè)
myqqin=chkuin(QQUIN) \'檢測(cè)上面提取出來(lái)的QQ號(hào)碼是否有在本機(jī)打開(kāi)
if not myqqin then \'如果沒(méi)有運(yùn)行則,重新運(yùn)行QQ程序并登錄
runapp(AppPath) \'
wscript.sleep 10000 \'等待10秒
else
wscript.sleep 5000 \'等待5秒
end if
loop \'返回繼續(xù)檢測(cè)
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
將以上代碼存儲(chǔ)為"*.vbs"文件。而后登錄QQ，一鍵切換到TM，再運(yùn)行VBS腳本。此后，即使關(guān)閉了TM/QQ，它也會(huì)自動(dòng)啟動(dòng)并登錄至網(wǎng)絡(luò)。經(jīng)筆者在Windows XP SP2系統(tǒng)上測(cè)試，完全有效。
小編提示：對(duì)于用戶(hù)掛QQ這個(gè)事情，對(duì)此并不贊同，因?yàn)槌四艿玫叫睦锷系臐M足以外，其余任何事情都不能做到，而且還大量地浪費(fèi)了國(guó)家的電能，所以在此小編提示大家，這個(gè)技巧只是叫大家明白，我們可以用VBS實(shí)現(xiàn)這一功能，絕對(duì)不是提倡這種掛QQ等級(jí)的做法()