網名館

請輸入關鍵字詞

熱門搜索排行

位置：首頁 > 計算機網絡 > 軟件技術

讓QQ"永遠"運行

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

自動登錄腳本
set fso = teObject("SystemObject")
Set f = teTextFile("QQ自動登錄",true)
eLine "@echo off" & vbcrlf
for each ps in getobject("winmgmts:\.rootcimv2:win32_process")ances_ '列出系統中所有正在運行的程序
if lcase()="" or lcase()="" then '檢測是否QQ或TM
QQCMD=andline '提取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
eLine "ECHO QQ號碼:" & QQUIN
eLine "ECHO 命令行:" & QQCMD
eLine QQCMD & vbcrlf
end if
end if
next
if not len(QQ)=0 then
MSGBOX "已經成功提取以下QQ號碼的自動登錄命令行" & vbcrlf & vbcrlf & QQNUM & vbcrlf & "具體請查看當前目錄下的<QQ自動登錄>文件",0,"QQ自動
登錄命令提取腳本 BY chenall QQ:XXXXXX"
else
msgbox "提取QQ自動登錄命令失敗,請查看QQ或TM是否正在運行.",0,"QQ自動登錄命令提取腳本 BY chenall QQ:XXXXXX"
e
set f = ile("QQ自動登錄")
te
end if
將這些代碼存儲為"*"文件。然後將所有需要自動登錄的QQ號碼全部登錄，再在一個QQ上點擊"菜單"→"一鍵切換到TM"。此後運行該VBS腳本，會發現在當前目錄下生成了一個"QQ自動登陸"的文件，運行該文件即可自動登錄所有QQ號碼。
小提示：代碼中的"XXXXXX"代表你的QQ號。

防止關閉腳本
dim QQUIN
for each ps in getobject("winmgmts:\.rootcimv2:win32_process")ances_ '列出系統中所有正在運行的程序
if lcase()="" or lcase()="" then '檢測是否QQ或TM
AppPath=andline '提取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 "系統中沒有運行QQ或TM程序,請重新啟動QQ或TM,登陸後再使用一鍵換切換一下QQ或TM程序,再運行本腳本"
else
do '循環檢測
myqqin=chkuin(QQUIN) '檢測上面提取出來的QQ號碼是否有在本機打開
if not myqqin then '如果沒有運行則,重新運行QQ程序並登錄
runapp(AppPath) '
p 10000 '等待10秒
else
p 5000 '等待5秒
end if
loop '返回繼續檢測
end if

function RunApp(AppPath)
dim obj
set obj = createobject("l")
obj.exec(AppPath)
end function

function chkuin(QQUIN)
for each ps in getobject("winmgmts:\.rootcimv2:win32_process")ances_
if lcase()="" or lcase()="" then
AppPatht=andline
'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
將以上代碼存儲為"*"文件。而後登錄QQ，一鍵切換到TM，再運行VBS腳本。此後，即使關閉了TM/QQ，它也會自動啟動並登錄至網絡。經筆者在Windows XP SP2系統上測試，完全有效。
小編提示：對於用户掛QQ這個事情，小編對此並不贊同，因為除了能得到心裏上的滿足以外，其餘任何事情都不能做到，而且還大量地浪費了國家的電能，所以在此小編提示大家，這個技巧只是叫大家明白，我們可以用VBS實現這一功能，絕對不是提倡這種掛QQ等級的做法。
標籤：qq 運行

相關文章