使用vb.net发送来自三星galaxy win celphone的短信

时间:2014-08-18 07:24:39

标签: vb.net-2010

如何使用vb.net从您的手机发送短信到任意号码?我已经搜索了包括youtube在内的互联网,但似乎我找不到或无法弄清楚从哪里开始。在Windows中的“手机和调制解调器”中检测到我的CP cant事件...

2 个答案:

答案 0 :(得分:0)

我有一个完美的方法,使用AT命令在Visual Basic中发送短信。

AT-commands:指示您可以通过它发送和接收SMS消息,通过手机拨打电话,这是发送消息的示例:

首先: 将此代码写在顶部:

Imports System.IO.Ports
Imports System.IO

其次:

将此代码写入表单的公共类:

Dim SerialPort As New System.IO.Ports.SerialPort()
Dim CR As String

第三

创建一个textBox(TextmsgTextBox)来写入文本消息,并使用TextBox2(MobileNumberTextBox)输入手机号码,并将Button(SendBUT)发送给发送消息。

并在按钮点击事件中编写此代码。

 If SerialPort.IsOpen Then
        SerialPort.Close()
    End If
 SerialPort.PortName = COM4
    SerialPort.BaudRate = 9600
    SerialPort.Parity = Parity.None
    SerialPort.StopBits = StopBits.One
    SerialPort.DataBits = 8
    SerialPort.Handshake = Handshake.RequestToSend
    SerialPort.DtrEnable = True
    SerialPort.RtsEnable = True
    SerialPort.NewLine = vbCrLf
    Dim message As String
    message = MsgRichTextBox.Text
    SerialPort.Open()
    If SerialPort.IsOpen() Then
        SerialPort.Write("AT" & vbCrLf)
        SerialPort.Write("AT+CMGF=1" & vbCrLf)
        SerialPort.Write("AT+CMGS=" & Chr(34) & phoneNumBox.Text & Chr(34) & vbCrLf)
        SerialPort.Write(message & Chr(26))
        SentPicture.Visible = True
        SentLabel.Visible = True
        SentTimer.Start()
    Else
        MsgBox("Port not available")
    End If

我希望我的答案对你有用。

答案 1 :(得分:0)

重要提示

端口值随时间变化,从计算机变为另一个。

我将向您展示如何通过图片了解设备的端口值。

1:从控制面板进入设备管理器。

enter image description here

2:右键单击设备,然后选择“属性”。 enter image description here

3:选择调制解调器点击,查找端口名称,并在您的应用程序中使用它。 enter image description here