假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读表单画面'表单部分'-------------------------------------------------------------Form.Name="Form1"Caption="Form1"CommandButton.Name=Command2Caption="停止测试"CommandButton.Name=Command1Caption="开始测试"TextBox.Name=Text1MSComm.Name=MSComm1DTREnable=-1'TrueLabel.Name=Label1AutoSize=-1'TrueCaption="欲送出的资料-按下[Enter]送出"Label.Name=Label3BorderStyle=1'单线固定Label.Name=Label2AutoSize=-1'TrueCaption="折返显示"'程式部分'-------------------------------------------------------------OptionExplicit'设一个此表单的区域变数，来作终止读取通讯埠的指标DimbStopAsBoolean'设一个区域变数，来作读取通讯埠的暂存区DimInStringAsStringPrivateSubCommand1_Click()bStop=FalseText1.SetFocusWithMSComm1'设定通讯埠号，可依照您的需求更改.CommPort=2'设定传输速率等，可依照您的需求更改.Settings="14400,N,8,1"'将通讯埠打开.PortOpen=TrueEndWith'假如使用者未按下「停止测试」钮(bStop=False),则继续读取DoWhileNotbStopIfMSComm1.InBufferCountThen'通讯埠中假如有资料的话,则读取进来InString=InString&MSComm1.Input'如果资料中有Chr(13)和Chr(10)的话,则显示出来IfInStr(InString,vbCrLf)ThenLabel3.Caption=Label3.Caption&InStringInString=""'暂时把系统资源让出来给其它的程式使用DoEventsEndIfEndIfDoEventsLoopEndSubPrivateSubCommand2_Click()'按下「停止测试」钮时,把bStop设为「真」(True)'如此程式才会停止等待(或读取)通讯埠所收到的资料bStop=TrueEndSubPrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)bStop=True'把通讯埠关闭,才不会影响其它程式的使用通讯埠MSComm1.PortOpen=FalseEndEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)'当按下[Enter]时,把Text1文字框中的资料送至通讯埠IfKeyAscii=13ThenMSComm1.Output=Text1.Text&vbCrLfText1.Text=""KeyAscii=0EndIfEndSub->

'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 function getHTTPPage(url) dim Http set Http=CreateObject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") set http=nothing if err.number<>0 then err.Clear end function '2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换 Function BytesToBstr(body,Cset) dim objstream set objstream=CreateObject("adodb.stream") objstream.Type=1 objstream.Mode=3 objstream.Open objstream.Write body objstream.Position=0 objstream.Type=2 objstream.Charset=Cset BytesToBstr=objstream.ReadText objstream.Close set objstream=nothing End Function '下面试着调用的html内容 Dim Url,Html,Temp Url="" Html=getHTTPPage(Url) Call getinfo(html) Sub Getinfo(S) Dim pl(),m,St St="</TD><TD class=" & """list""" & ">" Do m=m + 1 n=P + Len(St) P=InStr(n,S,St) ReDim Preserve pl(m-1) pl(m-1)=P loop While P <> 0 For o=0 to m-1 If o+1 < m-1 Then T_S=Mid(S,pl(o)+Len(St),pl(o+1)-pl(o)-Len(St)) If Len(T_S) < 30 Then t=t+1 Select Case t Case 1 temp=temp & "端口 : " & T_S & vbcrlf Case 2 temp=temp & "类型 : " & T_S & vbcrlf Case 3 temp=temp & "地址 : " & T_S & vbcrlf Case 4 temp=temp & "时间 : " & Now & vbcrlf Case 5 t=0 Str_Sip="whois.php?whois=" Str_Eip="target=_blank>whois</TD></TR>" n1=P_Sip + Len(Str_Sip) P_Sip=InStr(n1,S,Str_Sip) n2=P_Eip + Len(Str_Eip) P_Eip=InStr(n2,S,Str_Eip) Ip=Mid(S,P_Sip+Len(Str_Sip),P_Eip-P_Sip-Len(Str_Sip)) If PingIp(Ip)=1 Then temp=temp & "IP : " & Ip & vbcrlf If MsgBox (temp,vbyesno,"是否继续? " )=vbno Then WScript.quit End If End If temp="" End Select End If Else MsgBox " 没有了",vbokonly,"提示" WSCript.quit End If Next End Sub Function PingIp(host) On Error Resume Next strComputer="." strTarget=host Set objWMIService=GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2") Set colPings=objWMIService.ExecQuery _ ("Select * From Win32_PingStatus where Address='" & strTarget & "'") If Err=0 Then Err.Clear For Each objPing in colPings If Err=0 Then Err.Clear If objPing.StatusCode=0 Then PingIp=1 temp=temp & "速度 : " & objPing.ResponseTime & " 毫秒" & vbcrlf 'MsgBox strTarget & " responded to ping." & vbcrlf &_ '"Responding Address: " & objPing.ProtocolAddress & vbcrlf &_ '"Responding Name: " & objPing.ProtocolAddressResolved & vbcrlf &_ '"Bytes Sent: " & objPing.BufferSize & vbcrlf &_ '"Time: " & objPing.ResponseTime & " ms" & vbcrlf &_ '"TTL: " & objPing.ResponseTimeToLive & " seconds" Else PingIp=0 'MsgBox strTarget & " did not respond to ping." &_ '"Status Code: " & objPing.StatusCode End If Else Err.Clear PingIP=0 'MsgBox "Unable to call Win32_PingStatus on " & strComputer & "." End If Next Else Err.Clear PingIp=0 'MsgBox "Unable to call Win32_PingStatus on " & strComputer & "." End If End Function在新建主键时,初始值参数就赋给了该主键的默认值,在新建键值时,初始值参数就成了新建键值的初始数据.而初始值的类型,则是由类型参数决定的.类型主要有以下三种: (1)REG_SZ:字符型.该类型为缺省类型 　　(2)REG_DWORD:双字节型. 　　(3)REG_BINARY:二进制型. 　　以上三种类型第1种和第2种用得最多,第3种类型在某些场合可以用第2种加以替代,这三种类型的赋值方法如下: 　　对于REG_SZ型:直接用字符串赋予,如"text","string"等 　　对于REG_DWORD型和REG_BINARY型则有两种赋值方式 　　i)直接用十进制的数表示，如：0，1等. 　　ii)用十六进制的数表示,如：0x12,0xff等. 看例: 　　3、RegDelete操作详解 　　删除操作RegDelete主要是用来删除注册表中已存在的主键或键值，该操作是一种极其危险的操作，它能将主键或键值毫不留情的在注册表中“砍掉”，无论该键值下面有多重要的数据，它都能畅行无阻，因此在使用该操作时务必小心　　调整好窗体Form的标题、图标、颜色等,然后编译成EXE文件,你就可以在Windows下拥有自己的VCD播放器了

我们通过调用一个IE的对象，这样可以使用其内置的剪贴板元素，将"毕伟伦"这个字符串放进了剪贴板，然后通过Wsh对象来SendKey"^v"粘贴剪贴板内容，这样就能实现vbs自动输入中文字符了该示例的目的在于说明如何声明并调用过程

请检查输入的CD-KEY是否与当前Windows版本相匹配

另外的一种处理方法是：在时间要求高的循环前，将静态变量数值装入动态变量中

请检查系统属性gee假人在搜索的时候不一定两者都知道，但至少要知道其中的一个问题在于第三个参数不是表示从最后第N个字符的位置开始搜索，而是从开始第N个字符开始搜索。