# Re: 请高手指导如何抓 MsComm 资料

Posted by 假会 on October 02, 1999 at 09:51:16:

In Reply to: 请高手指导如何抓 MsComm 资料 posted by 搞不懂 on October 01, 1999 at 10:34:51:

: 周边设备 burd 2400,N,8,1 传送为 ASC 文字
: 请问要如何用 vb 抓下来存放于档案内

: 3Q

Sub From_Load()
Dim Instring As String
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.InBufferCount = 0
MSComm1.InputLen = 0
Do
DoEvents
Instring = MSComm1.Input
MsgBox Instring
Loop Until MSComm1.Input = Chr(27)
End Sub

懂了吧 !

Follow Ups:

- Re: 还能再快吗? jason_kang 12:47:43 10/11/99 (0)