vb6 - 在 Visual Basic 6.0 中使用 D-LINK dwm - 156 gsm 调制解调器发送短信

Question

晚安女士/先生

我正在使用 gsm 调制解调器 D-LINK DWM - 156 在 vb 6.0 中发送短信，但它不起作用。请帮我。这是我的代码

Private Sub cmdSend_Click()
On Error Resume Next
    With objcom
        .CommPort = txtPort.Text
        .Settings = "9600,N,8,1"
        .RTSEnable = False
        .DTREnable = False
        .RThreshold = 1
        .SThreshold = 0
        .PortOpen = True
        .Output = "AT" & vbCrLf
        .Output = "AT+CMGF=1" & vbCrLf
        .Output = "AT+CMGS=" & Chr(34) & Trim(txtNumber) & Chr(34) & vbCrLf
        .Output = Trim(txtMsg) & Chr(26)
        Sleep 5000
        .PortOpen = True
    End With
MsgBox ("Message Sent!")
End Sub

提前致谢。

标签： vb6