自從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等級的做法。
