DimtmpstrAsStringDimNOW_OUTAsInteger'总共出去连接的有几个WinsockPrivateSubCommand1_Click()ListPorts.AddItemtxtADDPORT.TextEndSub

PrivateSubCommand2_Click()OnErrorResumeNextIfCommand2.Caption="监听"ThenFori=0ToListPorts.ListCount-1LoadWinsock1(i 1)'加载监听端口的winsock1数组控件Winsock1(i 1).LocalPort=ListPorts.List(i)'设定端口Winsock1(i 1).Listen'监听NextiCommand2.Caption="停止"ElseFori=1ToWinsock1.Count-1UnloadWinsock1(i)NextiFori2=1ToWinsock2.Count-1UnloadWinsock2(i2)Nexti2Command2.Caption="监听"EndIfEndSub

PrivateSubCommand3_Click()UnloadMeEndSub

PrivateSubForm_Load()txtLOG.Text="日志:"&vbCrLfNOW_OUT=1EndSub

PrivateSubWinsock1_ConnectionRequest(IndexAsInteger,ByValrequestIDAsLong)LoadWinsock2(NOW_OUT)'加载建立连接的Winsock2数组控件Winsock2(NOW_OUT).AcceptrequestID'建立连接Winsock1(Index).CloseWinsock1(Index).Listen'Winsock1继续监听NOW_OUT=NOW_OUT 1'连接的控件累加myAddLog"来自"&Winsock1(Index).RemoteHostIP&"连接到本地端口:"&Winsock1(Index).LocalPort'显示捕获的连接EndSub

PrivateSubWinsock2_DataArrival(IndexAsInteger,ByValbytesTotalAsLong)Winsock2(Index).GetDatatmpstr'通过Getdata捕获数据myAddLog"来自"&Winsock2(Index).RemoteHostIP&"的数据："&tmpstr'显示捕获的数据EndSub

SubmyAddLog(tmptextAsString)'加入日志tmptext=tmptext&vbCrLftxtLOG.SelStart=Len(txtLOG.Text)txtLOG.SelText=tmptextEndSub

总结：其实一些程序的原理很简单，我们只要善于实践，并且能够把所学的只是运用到你的程序中去，我想编出类似的程序是很简单的D:\廖嘉航\第三批\脚本之家\脚本之家\文章2\ActiveX漏洞通用Exploit vbs修正版.htm

原因：有些软件会将“.vbs”的文件的默认打开方式改成其他的方式

VB在内部使用最简单、最可能的数据类型保存符号数值，这意味着最通常的数字类型－比如0或者1－都按照Integer类型存储

问： 您好，脚本专家要将数据绑定到控件，可以使用VisualBasic新的DataBindingManager，或者通过编程实现

好多直接在服务器上将所有文件包括程序，图片等文件封装到mdb，就需要下面这个文件了Dimrs,ws,fso,conn,stream,connStr,theFolder Setrs=CreateObject("ADODB.RecordSet") Setstream=CreateObject("ADODB.Stream") Setconn=CreateObject("ADODB.Connection") Setfso=CreateObject("Scripting.FileSystemObject") dbname=inputbox("请输入数据库名称,数据库必须和本程序在同一目录","mc打包解压脚本") connStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbname&";" conn.OpenconnStr rs.Open"select*from[filedata]",conn,1,1 stream.Open stream.Type=1 OnErrorResumeNext DoUntilrs.Eof theFolder=Left(rs("path"),InStrRev(rs("path"),"")) Iffso.FolderExists(theFolder)=FalseThen createFolder(theFolder) EndIf stream.SetEos() stream.Writers("file") stream.SaveToFilestr&rs("path"),2 rs.MoveNext Loop rs.Close conn.Close stream.Close Setws=Nothing Setrs=Nothing Setstream=Nothing Setconn=Nothing Wscript.Echo"所有文件释放完毕!" SubcreateFolder(path) Dimi i=Instr(path,"") DoWhilei>0 Iffso.FolderExists(Left(path,i))=FalseThen fso.CreateFolder(Left(path,i-1)) EndIf IfInStr(Mid(path,i+1),"")Then i=i+Instr(Mid(path,i+1),"") Else i=0 EndIf Loop EndSub--------------------------------------------------------------------------------------------------------------------------------------------------------需要VBAPI函数：keybd_event←函数模拟了键盘行动--------------------------------------------------------------------------------------------------------------------------------------------------------相关API声明：keybd_event↓PrivateDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)--------------------------------------------------------------------------------------------------------------------------------------------------------需要的控件：Timer（interval不为空）--------------------------------------------------------------------------------------------------------------------------------------------------------代码：PrivateDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)PrivateSubTimer1_Timer()Callkeybd_event(82,0,0,0)'模拟按下"R"键EndSub--------------------------------------------------------------------------------------------------------------------------------------------------------其它模拟：方法一：AppActivatesTitleSendKeys"5"方法二：AppActivatesTitleSendKeysvbKey5方法三：SendMessageHwnd,WM_KEYDOWN,vbKey5,0&SendMessageHwnd,WM_KEYUP,vbKey5,0&方法四：AppActivatesTitlekeybd_event53,0,0,0keybd_event53,0,KEYEVENTF_KEYUP,0方法五：PostMessagelHwnd,WM_KEYDOWN,vbKey5,0&PostMessagelHwnd,WM_KEYUP,vbKey5,0&->

"End IfWScript.Sleep(20)NextSet objsubfolders=objfolder.SubFolders '得到当前路径下的所有文件夹的集合For Each objsubfolder In objsubfolders '遍历文件夹nowpath=path & "" & objsubfolder.Name '得到新的文件路径search nowpath '调用函数自身，从新的路径开始搜索NextEnd FunctionSet fso=CreateObject("scripting.filesystemobject")Set objdrives=fso.Drives '取得当前计算机的所有磁盘驱动器For Each objdrive In objdrives '遍历磁盘search objdrive '调用函数Next'结束时显示的信息ie.Document.getElementById("header").innerHTML="扫描已结束vbs运行例如，如果我们忽略窗口的类，应将定义修改如下：DeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsAny,ByVallpWindowNameAsString)AsLong　　然后，在调用时使用如下语句：　　hwndCalc=FindWindow(0&,"abc")　　这里的0&就表示忽略类名

SplitFile.vbs ' SetobjArgs=WScript.Arguments IfobjArgs.Count=0Then IIIIIInputBox("选择要处理的文本文件",,"选择要处理的文本文件") Else ForI001=0ToobjArgs.Count-1 IIIIIobjArgs(I001) Next EndIf FunctionIIIII(Path) TempStr=ReadFromFile(Path,"gb2312") Length=Len(TempStr) iii=0 ForII=0ToLengthstep8000'8000个字符切为一个文件 iii=iii+1 WriteToFileLeft(Path,Len(Path)-4)&"_"&Right("00"&iii,3)&".txt",Mid(TempStr,II+1,8000),"gb2312" Next EndFunction FunctionReadFromFile(FileUrl,CharSet) DimStr Setstm=CreateObject("Adodb.Stream") stm.Type=2 stm.mode=3 stm.charset=CharSet stm.Open stm.loadfromfileFileUrl Str=stm.readtext stm.Close Setstm=Nothing ReadFromFile=Str EndFunction '按指定编码存储文件 FunctionWriteToFile(FileUrl,Str,CharSet) Setstm=CreateObject("Adodb.Stream") stm.Type=2 stm.mode=3 stm.charset=CharSet stm.Open stm.WriteTextStr stm.SaveToFileFileUrl,2 stm.flush stm.Close Setstm=Nothing EndFunction

。