讓QQ"永遠"運行
軟件技術2.08W
讓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出現了等級制度之後,現在有不少人都開始了瘋狂掛級,希望在聯機狀態下始終運行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等級的做法。
-
抖音東方甄選積分在哪看到?抖音東方甄選積分兑換在哪裏?
抖音東方甄選的直播大家有看過嗎?相比其他的直播間來説,東方甄選的直播間還是很有看頭的,不僅商品介紹的很花哨,大家還可以加入會員,日後可以兑換東西,下面就和小編一起來看看抖音東方甄選積分在哪的相關信息。抖音東方甄選積分在哪看到?1,打開抖音,進入直播間。2.在直...
-
蛋仔派對微博聯動皮膚怎麼領取?蛋仔派對微博聯動皮膚領取攻略
蛋仔派對微博聯動外觀來咯,大眼仔的顏值還是很高的,而且要求也很簡單,大家只需要在蛋仔派對超話連續簽到三天就可以獲得了,下面就和小編一起來看看蛋仔派對微博聯動皮膚的相關信息。蛋仔派對微博聯動皮膚怎麼領取?蛋仔派對可以領大眼仔聯動外觀啦!大家快點來蛋仔超話...
-
詩句“蓼茸蒿筍試春盤,人間有味是清歡”的“春盤”類似哪種食物?
支付寶莊園小課堂3月14日的問題是,詩句“蓼茸蒿筍試春盤,人間有味是清歡”的“春盤”類似哪種食物?正確回答就可以領取180g飼料餵養小雞哦。一起來看看吧。2024年螞蟻莊園3月14日莊園小課堂答案今天的問題是:詩句“蓼茸蒿筍試春盤,人間有味是清歡”的“春盤”類似哪...
-
淘麥vip黑鑽有什麼用?淘麥vip黑鑽免費開通教程
看演唱會搶票大家也都經歷過吧,現在大麥也推出了淘麥vip的玩法,作為會員之後在買票上還是有一定的優勢的,不過很多人不清楚淘麥vip黑鑽會員怎麼來的?怎麼買呢?多少錢呢?怎麼才能成為淘麥vip黑鑽會員呢?淘麥vip黑鑽有什麼用?淘麥VIP黑鑽會員可以享受多重權益和服務,主要...