Vb.net 2010 使用vb.net从三星galaxy win手机发送短信
如何使用vb.net将手机短信发送到任意号码?我在互联网上搜索过,包括youtube,但似乎我找不到或不知道从哪里开始。在windows中的“电话和调制解调器”中检测到我的CP cant事件…我有一个在visual basic中使用AT命令发送SMS的完美方法 AT命令:用于发送和接收SMS消息、从手机拨打电话的指令,以下是发送消息的示例: 首先: 在顶部写下以下代码: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
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:选择调制解调器抽头,查找端口名,并在应用程序中使用它。