讓QQ"永遠"運行

時間：2006/3/8 22:37:00人氣：0次作者：不詳我要評論(0)

讓QQ"永遠"運行
自從QQ出現(xiàn)了等級制度之后，現(xiàn)在有不少人都開始了瘋狂掛級，希望在聯(lián)機狀態(tài)下始終運行QQ，即便被人關(guān)閉也能自動啟動登錄，而且還要防止因異常錯誤而退出。其實這些事情我們可以使用兩個VBS腳本來實現(xiàn)這一目的。

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_ \'列出系統(tǒng)中所有正在運行的程序
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 "已經(jīng)成功提取以下QQ號碼的自動登錄命令行" & vbcrlf & vbcrlf & QQNUM & vbcrlf & "具體請查看當前目錄下的<QQ自動登錄.bat>文件",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腳本，會發(fā)現(xiàn)在當前目錄下生成了一個"QQ自動登陸.bat"的文件，運行該文件即可自動登錄所有QQ號碼。
小提示：代碼中的"XXXXXX"代表你的QQ號。

2.QQ防止關(guān)閉腳本
dim QQUIN
for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ \'列出系統(tǒng)中所有正在運行的程序
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 "系統(tǒng)中沒有運行QQ或TM程序,請重新啟動QQ或TM,登陸后再使用一鍵換切換一下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 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腳本。此后，即使關(guān)閉了TM/QQ，它也會自動啟動并登錄至網(wǎng)絡。經(jīng)筆者在Windows XP SP2系統(tǒng)上測試，完全有效。
小編提示：對于用戶掛QQ這個事情，小編對此并不贊同，因為除了能得到心里上的滿足以外，其余任何事情都不能做到，而且還大量地浪費了國家的電能，所以在此小編提示大家，這個技巧只是叫大家明白，我們可以用VBS實現(xiàn)這一功能，絕對不是提倡這種掛QQ等級的做法。

五月天综合网站日本|亚洲欧美人与动人物在线|久久1024国产对白精品|原创国产中文AV

讓QQ"永遠"運行

相關(guān)文章

猜你喜歡

網(wǎng)友評論

熱門評論

最新評論

已有0人參與，點擊查看更多精彩評論

推薦文章

最新文章

文章排行

五月天综合网站日本|亚洲欧美人与动人物在线|久久1024国产对白精品|原创国产中文AV

讓QQ"永遠"運行

相關(guān)文章

猜你喜歡

網(wǎng)友評論

熱門評論

最新評論

已有0人參與，點擊查看更多精彩評論

推薦文章

最新文章

文章排行

已有0人參與，點擊查看更多精彩評論