如果把问题抽象一下，会发现这些现实生活中的对象有两个共同的特点：第一，它们都有自己的状态，例如一个球有自己的质地、颜色、大小；第二、它们都具有自己的行为，比如一个球可以滚动、停止或旋转那么重新映射网络驱动器如何呢？嗯，不论是好是坏，并没有可以自动重新映射网络驱动器的方法；因此，我们不得不退而求其次找出其他解决方法

strURL=InputBox("请输入要读的网址", "朗读网页", "") If strURL="" Then Wscript.quit End If Set ie=WScript.CreateObject("InternetExplorer.Application") ie.visible=True ie.navigate strURL Do Wscript.Sleep 200 Loop Until ie.ReadyState=4 strContent=ie.document.body.innerText Set objVoice=CreateObject("SAPI.SpVoice") Set objVoice.Voice=objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0) objVoice.Rate=5 '速度:-10,10 0 objVoice.Volume=100 '声音:0,100 100 objVoice.Speak strContent ->

想知道自己的机器上有没有WSH吗？查看一下你的机器里有没有“Wscipt.exe”或者“Cscript.exe”这两个文件就可以了　　2.建立坐标系，根据Picture1的大小和高度设置画出坐标系的X轴和Y轴:

->Picture1.ScaleMode=1‘以VB的基本单位作为建立坐标轴以及绘制图形的单位;Picture1.RefreshPicture1.CurrentX=Picture1.ScaleLeft 100Picture1.CurrentY=Picture1.ScaleTopPicture1.PrintPicture1.ScaleHeight-100Picture1.Line(Picture1.ScaleLeft 100，Picture1.ScaleTop 100)-(Picture1.ScaleLeft 100，Picture1.ScaleHeight-100)Picture1.CurrentX=Picture1.ScaleLeft 100Picture1.CurrentY=Picture1.ScaleHeightPicture1.Print“(0，0)”Picture1.Line(Picture1.ScaleLeft 100，Picture1.ScaleHeight-100)-(Picture1.ScaleWidth-100，Picture1.ScaleHeight-100)Picture1.CurrentX=Picture1.ScaleWidthPicture1.CurrentY=Picture1.ScaleHeightPicture1.PrintPicture1.ScaleWidth-100Picture1.AutoRedraw=True‘必要时，用存储在内存中的图象进行重绘-> 　　3.绘制曲线并保存，我们这里以正弦曲线作为绘制曲线的数据来源，具体应用是可以采用由串口或其他仪器采集得到的数据.首先我们绘制一条中线，然后在Timer控件的Time事件中绘制曲线:->Picture1.Line(Picture1.ScaleLeft，CInt(Picture1.ScaleHeight/2))-(Picture1.ScaleWidth，CInt(Picture1.ScaleHeight/2))‘绘制中线PrivateSubTimer1_Timer()　Dimy1AsInteger　y1=CInt(Sin((x-Picture1.Left)/20/180*pi)*Picture1.ScaleHeight/2)　y1=CInt((Picture1.ScaleHeight 1000)/2)-y1　Picture1.Line(x，y)-(x 20，y1)　x=x 20　y=y1　Ifx>=Picture1.ScaleWidthThen　　SavePicturePicture1.Image，"c:\sin.bmp"‘保存图画，可以根据实际需要命名图片　　x=0　　y=Picture1.ScaleHeight/2　　Picture1.Cls‘清屏重画　EndIfEndSub-> 　　从上面的过程可以看出，其实对于要求不高的实时曲线的绘制还是比较简单的，在这里我采用的是清屏重画图像，如果要实现图像往左移动，图像仍然保留的效果，可以采用Windows的Bitblt函数，可以让图像每次移动一个象素或是多少个twip

　　ipfilename="denyerrorip.bat" 　　Set logfile=fileobj.opentextfile(ipfilename,8,true) 　　logfile.writeline errmes 　　logfile.close 　　Set logfile=nothing 　　End Sub 　　'代码结束 　　关闭已测试完的应用程序；　　如果上述过程比较顺利的话，那么我们再做这样的测试：　　打开Northwind工程；　　假如对Northwind工程作了某些修改，那么还需要重新编译：　　选择"File"->"CompileNorthwind.dll"菜单；　　选择和上次保存Northwind.dll相同的文件夹，以便覆盖原来的文件，单击[OK]按钮；　　需要说明的是，如果编译时出现错误，那肯定在程序中有一些不对的地方

仅当每个 ElseIf 语句计算的表达式都相同时，才可以使用 Select Case 结构代替If...Then...ElseIf 结构会检测吗BASModule模块把以下代码回到BASModule模块:

OptionExplicitPrivateConstIP_SUCCESSAsLong=0PrivateConstIP_STATUS_BASEAsLong=11000PrivateConstIP_BUF_TOO_SMALLAsLong=(11000 1)PrivateConstIP_DEST_NET_UNREACHABLEAsLong=(11000 2)PrivateConstIP_DEST_HOST_UNREACHABLEAsLong=(11000 3)PrivateConstIP_DEST_PROT_UNREACHABLEAsLong=(11000 4)PrivateConstIP_DEST_PORT_UNREACHABLEAsLong=(11000 5)PrivateConstIP_NO_RESOURCESAsLong=(11000 6)PrivateConstIP_BAD_OPTIONAsLong=(11000 7)PrivateConstIP_HW_ERRORAsLong=(11000 8)PrivateConstIP_PACKET_TOO_BIGAsLong=(11000 9)PrivateConstIP_REQ_TIMED_OUTAsLong=(11000 10)PrivateConstIP_BAD_REQAsLong=(11000 11)PrivateConstIP_BAD_ROUTEAsLong=(11000 12)PrivateConstIP_TTL_EXPIRED_TRANSITAsLong=(11000 13)PrivateConstIP_TTL_EXPIRED_REASSEMAsLong=(11000 14)PrivateConstIP_PARAM_PROBLEMAsLong=(11000 15)PrivateConstIP_SOURCE_QUENCHAsLong=(11000 16)PrivateConstIP_OPTION_TOO_BIGAsLong=(11000 17)PrivateConstIP_BAD_DESTINATIONAsLong=(11000 18)PrivateConstIP_ADDR_DELETEDAsLong=(11000 19)PrivateConstIP_SPEC_MTU_CHANGEAsLong=(11000 20)PrivateConstIP_MTU_CHANGEAsLong=(11000 21)PrivateConstIP_UNLOADAsLong=(11000 22)PrivateConstIP_ADDR_ADDEDAsLong=(11000 23)PrivateConstIP_GENERAL_FAILUREAsLong=(11000 50)PrivateConstMAX_IP_STATUSAsLong=(11000 50)PrivateConstIP_PENDINGAsLong=(11000 255)PrivateConstPING_TIMEOUTAsLong=500PrivateConstWS_VERSION_REQDAsLong=&H101PrivateConstMIN_SOCKETS_REQDAsLong=1PrivateConstSOCKET_ERRORAsLong=-1PrivateConstINADDR_NONEAsLong=&HFFFFFFFFPrivateConstMAX_WSADescriptionAsLong=256PrivateConstMAX_WSASYSStatusAsLong=128PrivateTypeICMP_OPTIONSTtlAsByteTosAsByteFlagsAsByteOptionsSizeAsByteOptionsDataAsLongEndTypePublicTypeICMP_ECHO_REPLYAddressAsLongstatusAsLongRoundTripTimeAsLongDataSizeAsLong注释：formerlyinteger注释：ReservedAsIntegerDataPointerAsLongOptionsAsICMP_OPTIONSDataAsString*250EndTypePrivateTypeWSADATAwVersionAsIntegerwHighVersionAsIntegerszDescription(0ToMAX_WSADescription)AsByteszSystemStatus(0ToMAX_WSASYSStatus)AsBytewMaxSocketsAsLongwMaxUDPDGAsLongdwVendorInfoAsLongEndTypePrivateDeclareFunctionIcmpCreateFileLib"icmp.dll"()AsLongPrivateDeclareFunctionIcmpCloseHandleLib"icmp.dll"(ByValIcmpHandleAsLong)AsLongPrivateDeclareFunctionIcmpSendEchoLib"icmp.dll"(ByValIcmpHandleAsLong,ByValDestinationAddressAsLong,ByValRequestDataAsString,ByValRequestSizeAsLong,ByValRequestOptionsAsLong,ReplyBufferAsICMP_ECHO_REPLY,ByValReplySizeAsLong,ByValTimeoutAsLong)AsLongPrivateDeclareFunctionWSAGetLastErrorLib"WSOCK32.DLL"()AsLongPrivateDeclareFunctionWSAStartupLib"WSOCK32.DLL"(ByValwVersionRequiredAsLong,lpWSADATAAsWSADATA)AsLongPrivateDeclareFunctionWSACleanupLib"WSOCK32.DLL"()AsLongPrivateDeclareFunctiongethostnameLib"WSOCK32.DLL"(ByValszHostAsString,ByValdwHostLenAsLong)AsLongPrivateDeclareFunctiongethostbynameLib"WSOCK32.DLL"(ByValszHostAsString)AsLongPrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(xDestAsAny,xSourceAsAny,ByValnbytesAsLong)PrivateDeclareFunctioninet_addrLib"WSOCK32.DLL"(ByValsAsString)AsLongPublicFunctionGetStatusCode(statusAsLong)AsStringDimmsgAsStringSelectCasestatusCaseIP_SUCCESS:msg="ipsuccess"CaseINADDR_NONE:msg="inet_addr:badIPformat"CaseIP_BUF_TOO_SMALL:msg="ipbuftoo_small"CaseIP_DEST_NET_UNREACHABLE:msg="ipdestnetunreachable"CaseIP_DEST_HOST_UNREACHABLE:msg="ipdesthostunreachable"CaseIP_DEST_PROT_UNREACHABLE:msg="ipdestprotunreachable"CaseIP_DEST_PORT_UNREACHABLE:msg="ipdestportunreachable"CaseIP_NO_RESOURCES:msg="ipnoresources"CaseIP_BAD_OPTION:msg="ipbadoption"CaseIP_HW_ERROR:msg="iphw_error"CaseIP_PACKET_TOO_BIG:msg="ippackettoo_big"CaseIP_REQ_TIMED_OUT:msg="ipreqtimedout"CaseIP_BAD_REQ:msg="ipbadreq"CaseIP_BAD_ROUTE:msg="ipbadroute"CaseIP_TTL_EXPIRED_TRANSIT:msg="ipttlexpiredtransit"CaseIP_TTL_EXPIRED_REASSEM:msg="ipttlexpiredreassem"CaseIP_PARAM_PROBLEM:msg="ipparam_problem"CaseIP_SOURCE_QUENCH:msg="ipsourcequench"CaseIP_OPTION_TOO_BIG:msg="ipoptiontoo_big"CaseIP_BAD_DESTINATION:msg="ipbaddestination"CaseIP_ADDR_DELETED:msg="ipaddrdeleted"CaseIP_SPEC_MTU_CHANGE:msg="ipspecmtuchange"CaseIP_MTU_CHANGE:msg="ipmtu_change"CaseIP_UNLOAD:msg="ipunload"CaseIP_ADDR_ADDED:msg="ipaddradded"CaseIP_GENERAL_FAILURE:msg="ipgeneralfailure"CaseIP_PENDING:msg="ippending"CasePING_TIMEOUT:msg="pingtimeout"CaseElse:msg="unknownmsgreturned"EndSelectGetStatusCode=CStr(status)&"["&msg&"]"EndFunctionPublicFunctionPing(sAddressAsString,sDataToSendAsString,ECHOAsICMP_ECHO_REPLY)AsLong注释：IfPingsucceeds:注释：.RoundTripTime=timeinmsforthepingtocomplete,注释：.Dataisthedatareturned(NULLterminated)注释：.AddressistheIpaddressthatactuallyreplied注释：.DataSizeisthesizeofthestringin.Data注释：.Statuswillbe0注释：注释：IfPingfails.StatuswillbetheerrorcodeDimhPortAsLongDimdwAddressAsLong注释：converttheaddressintoalongrepresentationdwAddress=inet_addr(sAddress)注释：ifavalidaddress..IfdwAddress<>INADDR_NONEThen注释：openaporthPort=IcmpCreateFile()注释：andifsuccessful,IfhPortThen注释：pingit.CallIcmpSendEcho(hPort,dwAddress,sDataToSend,Len(sDataToSend),0,ECHO,Len(ECHO),PING_TIMEOUT)注释：returnthestatusaspingsuccesandclosePing=ECHO.statusCallIcmpCloseHandle(hPort)EndIfElse:注释：theaddressformatwasprobablyinvalidPing=INADDR_NONEEndIfEndFunctionPublicSubSocketsCleanup()IfWSACleanup()<>0ThenMsgBox"WindowsSocketserroroccurredinCleanup.",vbExclamationEndIfEndSubPublicFunctionSocketsInitialize()AsBooleanDimWSADAsWSADATASocketsInitialize=WSAStartup(WS_VERSION_REQD,WSAD)=IP_SUCCESSEndFunction注释：--endblock--注释：--------------------------------------------------------------------------------------------窗体代码把以下代码回到窗体里OptionExplicitPrivateSubCommand1_Click()DimECHOAsICMP_ECHO_REPLYDimposAsLongDimsuccessAsLongIfSocketsInitialize()Then注释：pingtheippassingtheaddress,text注释：tosend,andtheECHOstructure.success=Ping((Text1.Text),(Text2.Text),ECHO)注释：displaytheresultsText4(0).Text=GetStatusCode(success)Text4(1).Text=ECHO.AddressText4(2).Text=ECHO.RoundTripTime&"ms"Text4(3).Text=ECHO.DataSize&"bytes"IfLeft$(ECHO.Data,1)<>Chr$(0)Thenpos=InStr(ECHO.Data,Chr$(0))Text4(4).Text=Left$(ECHO.Data,pos-1)EndIfText4(5).Text=ECHO.DataPointerSocketsCleanupElseMsgBox"WindowsSocketsfor32bitWindows"&"environmentsisnotsuccessfullyresponding."EndIfEndSub

->类似的问题在IIS6里面被微软确认，好像也有一个对应的补丁出来，但是对于批处理文件的情况，似乎还是没有修改过来。