Question

用VBA可以进行串口通讯吗？如果可以的话，该怎么实现，多谢大侠赐教！！

再请教个问题，在往串口中添加Mscomm控件的时候，提示“无法创建控件，因为它未经正确授权”的提示，这个是因为Mscomm32.ocx注册失败导致的吗？
我之前将Mscomm32.ocx已经放到 C:\Windows\system32目前下，下来在运行中执行Regsvr32 C:\Windows\system32\Mscomm32.ocx，并提示注册成功，但打开注册表后找不到下面的注册信息，HKEY_CLASSES_ROOT\Licenses主键4250E830-6AC2-11cf-8ADB-00AA00C00905内容： kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun，这个是什么原因？重启电脑也没有上面的注册信息。

Answer 1

以两台PC机没旁串行通信为例：

一.将两台PC机串行口的连接（如图）

 

二.建立VB工程
1.在VB窗体添加控件（如图）

2.VB编程：
'PC机串行口用命令按钮启升改动接收/发送VB程序

 

Private Sub Form_Load()
  MSComm1.PortOpen = True  '开启通信控件的端口
End Sub

 

'点击“发送”命令按钮发送数据
Private Sub Command1_Click()
   MSComm1.Output = Text1.Text '将文本框Text1的数据发送至对方
End Sub

'点击“接收”命令按钮接收数据
Private Sub Command2_Click()
   Dim st As String
   st = MSComm1.Input
   Text2.Text = st    吵察判    '将接收到的数据至入文本框Text2
End Sub

 

三.运行

追问

再请教个问题，在往串口中添加Mscomm控件的时候，提示“无法创建控件，因为它未经正确授权”的提示，这个是因为Mscomm32.ocx注册失败导致的吗？

追答

你是否按以下步骤在VB工程中添加串行通信控件：

 

步骤1

 

步骤2

 

 

步骤3

 

 

若按以上步骤操作不能添加MSComm控件，可能是你的VB6版本问题，

你使用的是否VB6企业版？

Answer 2

调用VB的API,实现对Com口的调用

追问

我是菜鸟，麻烦指教下那要该如何实现，越详细越好，谢谢啦！

追答

如果不想做菜鸟, 就要学会用百度
百度 VB 串口通讯