[VB6 ] 自動掃描 comport 的程式

[auk109 (大邪)]

各位大大好..

小弟最近在寫一個GPS資料讀取程式

看到一套很常用的 GPS Viewer 可以自動 Scan Comport

很想也寫出來，但一直有問題..


以下是在網路上找到的一份範例

卻怎樣也 Run不出來

MSComm總是跳出錯誤要求偵錯...

不知道有無辦法像此程式一樣辨認錯誤碼，而不跳出錯誤視窗呢?

請幫我看一下好嗎^^? , 感謝各位大大!!


----
Dim intCom As Integer   'Com最高有16個連接埠
For intCom = 1 To 16
MSComm1.CommPort = intCom
    MSComm1.PortOpen = True
        If Err.Number = 0 Then
            Print "COM-" & intCom & "-開啟正常"
            MSComm1.PortOpen = False
        ElseIf Err.Number = 8002 Then
            Print "COM-" & intCom & "-不存在"
            MSComm1.PortOpen = False
        ElseIf Err.Number = 8005 Then
            Print "COM-" & intCom & "-開啟佔用錯誤"
            MSComm1.PortOpen = False
        Else
            Print "COM-" & intCom & "-狀態錯誤"
            MSComm1.PortOpen = False
        End If
Next

----

--
     /\  \     /\__\     /\__\      科     來      
    /::\  \   /:/ _/_   /:/ _/_     技     自      
   /::\:\__\ /:/_/\__\ /::-"\__\       始  於  墮  
   \/\::/  / \:\/:/  / \;:;-",-"       終      性  
     /:/  /   \::/  /   |:|  |                 ！  
     \/__/     \/__/     \|__|                     

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.127.112.235