救命！关于moden的问题

Question

我见过一个控件可以。我会放到主页上的。
http://nowcan.yeah.net

Answer 1

Private Sub Command1_Click()
     '(1) 打 开/ 关 闭 端 口MSComm1.PortOpen = Not MSComm1.PortOpen
End SubPrivate Sub Command3_Click()
MSComm1.Output = "ATEOVO&C1&D2X4M1L1QOSO=OS7=10\r″ + Chr(13)"
Text1.Text = MSComm1.Input
End SubPrivate Sub Form_Load()
MSComm1.PortOpen = Not MSComm1.PortOpen
Text1.Text = MSComm1.Input
End SubPrivate Sub MSComm1_OnComm()
 comin = MSComm1.Input
   zcl = Right$(comin, 1)
   MsgBox zcl
End SubPrivate Sub Timer1_Timer()
     Dim Buffer As Variant
     Buffer = LTrim(MSComm1.Input) '获 得 Modem的 响 应 信 息
     If InStr(Buffer, "RING") > 0 Then
     'MsgBox "振 铃 " '如 果 是 振 铃 则 显 示 振 铃
    MSComm1.Output = "at h1 " + Chr(13)
    End If
        
    End Sub里面包含你要的功能,不过你得挑出来

Answer 2

TO NOWCAN
怎么没有见到控件