自動登錄腳本 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等級的做法。