1 pièce(s) jointe(s)
Envoi des messages depuis mon ordinateur
Salut à tous j'ai trouver un tutoriel en VB.net sur internet qui montre comment envoyer un message vers un numéro de téléphone à partir d'un ordinateur que je me suis précipiter à essayer mais lorsque j’exécute le Bouton1 message suivant s'affiche
Pièce jointe 263089
Voila le code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Imports System.ComponentModel
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Dim ports As String() = SerialPort.GetPortNames
Dim port As String
For Each port In ports
ComboBox1.Items.Add(port)
Next port
ComboBox1.SelectedIndex = 0
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub |
pour reactualiser
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
With SerialPort1
.PortName = ComboBox1.Text
.BreakState = 115200
.Parity = Parity.None
.StopBits = StopBits.One
.DataBits = 8
.Handshake = Handshake.RequestToSend
.DtrEnable = True
.RtsEnable = True
.NewLine = vbCrLf
.Open()
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub |
Code pour l'envoi des messages
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
If SerialPort1.IsOpen Then
With SerialPort1
.Write("AT" & vbCrLf)
.Write("AT+CMGF=1" & vbCrLf)
.Write("A+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
.Write(RichTextBox1.Text & Chr(26))
MsgBox("merci")
End With
Else
MsgBox("non")
End If
Catch ex As Exception
End Try
End Sub |
Quelqu'un pourai m'aider à comprendre mieux?
