谁来帮帮我，内容请看帖子(已经改好了）

jiwei79

还是关于把固定电话的来电显示在显示器上显示的问题，现在是在网上搞了个USB猫，接上后用系统里的超级终端在有电话打入时就可以出来电的日期、时间、号码
，但是在网上找了好多用VB做的来电显示程序都无法显示日期、时间、号码，有没有会做这个的，教下我，谢谢了。

jiwei79

已经改好了，太好了，能显示了。

jiwei79

'设置Modem端口
   MSComm1.CommPort = 3   改成3就行了

jiwei79

但是又有问题了，如果接了猫打开程序是没有问题的，但是如果没接猫，打开程序后这句会提示出错：MSComm1.PortOpen = True　无效的端口号
有没有办法搞个通用的，能自动判断电脑接没接猫？

zdingyun

判断下能连接的串口号。

1. Option Explicit
   
2.     Dim a As Integer
   
3.     Dim blnAutoSendFlag As Boolean
   
4.     Dim openFlag As Boolean
   
5. 
   
6. Private Sub Form_Load()
   
7.     MSComm1.Settings = "9600,n,8,1"
   
8.     MSComm1.InputMode = comInputModeBinary      '采用二进制传输
   
9.     MSComm1.InBufferCount = 0   '清空接受缓冲区
   
10.     MSComm1.OutBufferCount = 0  '清空传输缓冲区
    
11.     MSComm1.RThreshold = 1      '产生MSComm事件
    
12.     MSComm1.InBufferSize = 1024
    
13.     Shape1.FillStyle = 0
    
14.     OpenPortNum
    
15. End Sub
    
16. 
    
17. Private Sub OpenPortNum()
    
18.     On Error GoTo uerror
    
19.     For a = 1 To 16
    
20.         MSComm1.CommPort = a
    
21.         MSComm1.PortOpen = True
    
22.         If MSComm1.PortOpen = True Then
    
23.             Print "可用Com号= "; a
    
24.             MSComm1.PortOpen = False
    
25.         End If
    
26.     Next
    
27.     Exit Sub
    
28. uerror:
    
29.     Print "出错或占用Com号= "; a
    
30.     Resume Next
    
31. End Sub
    
32. 
    
33. Private Sub MSComm1_OnComm()
    
34.     Dim bytSj() As Byte
    
35.     Select Case MSComm1.CommEvent
    
36.     Case 2
    
37.         If MSComm1.InBufferCount > 0 Then
    
38.         End If
    
39.         bytSj = MSComm1.Input
    
40. End Sub
    

复制代码

jiwei79

谢谢版主，我明天到单位试下

jiwei79

zdingyun 发表于 2015-6-25 13:36
判断下能连接的串口号。

试了下，1、不管是在猫的端口是打开或不打开的情况下，都不会有提示　2、就算不接上猫，也不会有提示。　好象还是不大行。但也要谢谢版主。