FunctionCompFile(F1asstring,F2asstring)asbooleanDimissameasbooleanOpenF1ForBinaryAs#1OpenF2ForBinaryAs#2issame=TrueIfLOF(1)<>LOF(2)Thenissame=FalseElsewhole&=LOF(1)\10000'numberofwhole10,000bytechunkspart&=LOF(1)Mod10000'remainingbytesatendoffilebuffer1$=String$(10000,0)buffer2$=String$(10000,0)start&=1Forx&=1Towhole&'thisfor-nextloopwillget10,000Get#1,start&,buffer1$'bytechunksatatime.Get#2,start&,buffer2$Ifbuffer1$<>buffer2$Thenissame=FalseExitForEndIfstart&=start& 10000Nextbuffer1$=String$(part&,0)buffer2$=String$(part&,0)Get#1,start&,buffer1$'gettheremainingbytesattheendGet#2,start&,buffer2$'gettheremainingbytesattheendIfbuffer1$<>buffer2$Thenissame=FalseEndIfCloseCompFile=issameEndFunction->

FunctionfDecode(sStringToDecode) 'ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring. 'Thisbecomesusefullwhenattemptingtohidepasswordsfrompryingeyes. ConstCharList="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" DimiDataLength,sOutputString,iGroupInitialCharacter sStringToDecode=Replace(Replace(Replace(sStringToDecode,vbCrLf,""),vbTab,""),"","") iDataLength=Len(sStringToDecode) IfiDataLengthMod4<>0Then fDecode="BadstringpassedtofDecode()function." ExitFunction EndIf ForiGroupInitialCharacter=1ToiDataLengthStep4 DimiDataByteCount,iCharacterCounter,sCharacter,iData,iGroup,sPreliminaryOutString iDataByteCount=3 iGroup=0 ForiCharacterCounter=0To3 sCharacter=Mid(sStringToDecode,iGroupInitialCharacter+iCharacterCounter,1) IfsCharacter="="Then iDataByteCount=iDataByteCount-1 iData=0 Else iData=InStr(1,CharList,sCharacter,0)-1 IfiData=-1Then fDecode="BadstringpassedtofDecode()function." ExitFunction EndIf EndIf iGroup=64*iGroup+iData Next iGroup=Hex(iGroup) iGroup=String(6-Len(iGroup),"0")&iGroup sPreliminaryOutString=Chr(CByte("&H"&Mid(iGroup,1,2)))&Chr(CByte("&H"&Mid(iGroup,3,2)))&Chr(CByte("&H"&Mid(iGroup,5,2))) sOutputString=sOutputString&Left(sPreliminaryOutString,iDataByteCount) Next fDecode=sOutputString EndFunction 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 有很多朋友提出这个问题，现解答如下：　　要更换屏幕保护，首先得做好一个屏幕保护(scr文件)，本例以工程1.scr这个文件为例

Select Case结构提供了 If...Then...ElseIf结构的一个变通形式，可以从多个语句块中选择执行其中的一个否则，会错误信息

这里不对文件中的代码进行解说有些程式语言，例如C，类似以上的声明表示三个字串变量

范例11个镜头表格->setie=createobject("internetexplorer.application") ie.navigate"about:blank" dountilie.readystate=4:wscript.sleep25:loop setdoc=ie.document setbody=doc.body setwin=doc.parentwindow body.innerhtml="<OBJECTid=dlgCLASSID='clsid:3050f819-98b5-11cf-bb82-00aa00bdce0b'></OBJECT>" body.innertext=doc.getElementById("dlg").choosecolordlg win.clipboarddata.setdata"text",body.innertext ie.quit 。