Vb.net 2010 使用vb.net从三星galaxy win手机发送短信

Vb.net 2010 使用vb.net从三星galaxy win手机发送短信,vb.net-2010,Vb.net 2010,如何使用vb.net将手机短信发送到任意号码?我在互联网上搜索过,包括youtube,但似乎我找不到或不知道从哪里开始。在windows中的“电话和调制解调器”中检测到我的CP cant事件…我有一个在visual basic中使用AT命令发送SMS的完美方法 AT命令:用于发送和接收SMS消息、从手机拨打电话的指令,以下是发送消息的示例: 首先: 在顶部写下以下代码: Imports System.IO.Ports Imports System.IO 第二: 在表单的公共类中编写此代码: D

如何使用vb.net将手机短信发送到任意号码?我在互联网上搜索过,包括youtube,但似乎我找不到或不知道从哪里开始。在windows中的“电话和调制解调器”中检测到我的CP cant事件…

我有一个在visual basic中使用AT命令发送SMS的完美方法

AT命令:用于发送和接收SMS消息、从手机拨打电话的指令,以下是发送消息的示例:

首先: 在顶部写下以下代码:

Imports System.IO.Ports
Imports System.IO
第二:

在表单的公共类中编写此代码:

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

创建一个文本框(TextmsgTextBox)来编写文本消息,创建一个TextBox2(MobileNumberTextBox)来输入手机号码,创建一个按钮(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:从控制面板进入设备管理器

2:右键单击设备,然后选择属性。

3:选择调制解调器抽头,查找端口名,并在应用程序中使用它。