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
Voila le code
pour reactualiser
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Code pour l'envoi des messages
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Quelqu'un pourai m'aider à comprendre mieux?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager