如何实现串口模拟键盘???
我现在有一条线,一端是串口,连接到我的电脑上,另一端是PS/2口(键盘口),如何实现我向串口输出某个字符,在另外一台电脑上就能够显示出这个字符呢?????
以下是我做的测试程序,不过在另外一台电脑上显示的都是乱码!!!请各位大虾帮帮忙啊!!!
Option Explicit
Private i As Integer
Private a As Variant
Private byteArray(1) As Byte
Private strSendData As String
Private Sub cmdSend_Click()
strSendData = "61"
For i = 1 To Len(strSendData)
byteArray(i - 1) = CByte(Mid(strSendData, i, 1))
Next
MSComm.Output = byteArray
End Sub
Private Sub Form_Load()
' 保存输入子串的缓冲区
Dim Instring As String
' 使用 COM1。
MSComm.CommPort = 1
' 9600 波特,无奇偶校验,8 位数据,一个停止位。
MSComm.Settings = "9600,N,8,1"
' 当输入占用时,
' 告诉控件读入整个缓冲区。
MSComm.InputLen = 0
' 打开端口。
MSComm.PortOpen = True
' 将 attention 命令送到调制解调器。
MSComm.InputMode = comInputModeBinary
'MSComm.InputMode = comInputModeText
End Sub