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