Problème

Créez un programme d’application Windows Form dans Visual Basic.Net qui permettra aux utilisateurs d’envoyer des notifications SMS.

La description

Ce didacticiel permettra à l’utilisateur de saisir son message dans la zone de texte et le numéro de contact d’un destinataire dans une autre zone de texte. Le message contenu dans la zone de texte est envoyé au numéro de contact du destinataire une fois que vous avez cliqué sur le bouton d’envoi.

Avant le didacticiel, les éléments suivants sont nécessaires pour démarrer:

• Microsoft Visual Studio 2008 – Ci-dessus
• Clé haut débit / modem USB

Le tutoriel commence ici:

1. Insérez la clé haut débit / le modem USB dans le port USB
2. Ouvrez Microsoft Visual Studio 2012
3. Sélectionnez un nouveau projet dans le menu Fichier.
4. Sélectionnez Visual Basic, Application Windows Form, puis cliquez sur OK.
5. Nous devons concevoir notre formulaire par les contrôles suivants:

• 2 Étiquettes – étiquettes pour la zone de texte Numéro de téléphone et la zone de texte Message
• 2 Zone de texte – zones de texte pour le numéro de téléphone et le message.
• 2 Bouton de commande – 1 bouton pour envoyer le message au destinataire et 1 bouton pour annuler / fermer le formulaire
• 2 Étiquette de bande d’état – étiquette indiquant l’état du port

6. Nous nommerons également nos contrôles de formulaire de cette manière:

• txtPhoneNumber est le nom de la zone de texte pour le numéro de téléphone
• txtMessage est le nom de la zone de texte pour les messages
• cmdSend est le nom du bouton d’envoi
• cmdCancel est le nom du bouton pour Annuler
• ToolStripStatusLabel1 est le nom du premier StatusStripLabel
• ToolStripStatusLabel2 est le nom du deuxième StatusStripLabel

7. C’est ainsi que nous concevons le formulaire. (N’hésitez pas à mettre en page le vôtre)

Figure 1. Conception du formulaire

8. Double-cliquez sur le formulaire de la fenêtre et collez le code suivant ci-dessous.

Codez ici

Imports System.Management
Imports System.Threading
Imports System.IO.Ports
Imports System.IO
Public Class Form1
    Public Function ModemsConnected() As String
        Dim modems As String = ""
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "rootCIMV2", _
                "Select * from Win32_POTSModem")
            For Each queryobj As ManagementObject In searcher.Get()
                If queryobj("Status") = "OK" Then
                    modems = modems & queryobj("AttachedTo") & "-" & queryobj("Description") & "***"
                End If
            Next
        Catch ex As Exception
        End Try
        Return modems
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            Dim ports2() As String
            ports2 = Split(ModemsConnected(), "***")
            For i As Integer = 0 To ports2.Length - 2
                Dim port_des As String = (ports2(i))
                Dim gg As String = port_des
                gg = Trim(Mid(port_des, 1, 5))
                Dim cleanstring As String = Replace(gg, "-", "")
                With SerialPort1
                    .PortName = cleanstring
                    .BaudRate = 115200
                    .Parity = Parity.None
                    .StopBits = StopBits.One
                    .DataBits = 8
                    .Handshake = Handshake.RequestToSend
                    .DtrEnable = True
                    .RtsEnable = True
                    .NewLine = vbCrLf
                    .Open()
                    ToolStripStatusLabel2.Text = "Connected."
                    ToolStripStatusLabel2.ForeColor = Color.Green
                End With
            Next
        Catch ex As Exception
            ToolStripStatusLabel2.Text = "Disconnected."
            ToolStripStatusLabel2.ForeColor = Color.Red
        End Try
    End Sub

Code de fin

Explication du code:

Le code ci-dessus chargera et connectera la connexion à partir de la clé haut débit / modem USB, et peut également mettre à jour automatiquement le port pour la connexion entre l’appareil et la clé haut débit / modem USB. Il modifie également l’apparence de ToolStripStatusLabel2 pour indiquer si le périphérique est connecté.

9. Double-cliquez sur le bouton Annuler et collez le code suivant.

Codez ici

Private Sub cmdCancel_Click(sender As Object, e As EventArgs) Handles cmdCancel.Click
        Me.Dispose()
End Sub

Code de fin

Explication du code:

Le code ci-dessus effacera tout le contenu et quittera le formulaire.

10. Double-cliquez sur le bouton Envoyer et collez le code suivant.

Codez ici

Private Sub cmdSend_Click(sender As Object, e As EventArgs) Handles cmdSend.Click
        Try
            If SerialPort1.IsOpen Then
                With SerialPort1
                    .Write("AT" & vbCrLf)
                    .Write("AT+CMGF=1" & vbCrLf)
                    .Write("AT+CMGS=" & Chr(34) & txtPhoneNumber.Text & Chr(34) & vbCrLf)
                    .Write("[THIS IS SYSTEM GENERATED PLEASE DO NOT REPLY!]" & Environment.NewLine & txtMessage.Text & Chr(26))
                End With
            Else
                MsgBox("Broadband is not Connected!", MsgBoxStyle.Exclamation, "Error")
                txtMessage.Focus()
            End If
        Catch ex As Exception
            txtMessage.Focus()
        End Try
    End Sub

Code de fin

Explication du code:

Le code enverra le message contenu dans la zone de texte txtMessage au numéro de contact contenu dans la zone de texte txtPhoneNumber. Il peut également indiquer si l’appareil est connecté à la clé haut débit / au modem USB.

Conclusion:

Ces extraits de code dans vb.net vous permettront d’envoyer un texte à n’importe quel numéro de téléphone tant que le haut débit a une charge ou un solde. L’application de ce code peut également être utilisée pour générer des réponses automatiques telles que la demande de note et autres. Le projet et le code source sont disponibles pour téléchargement et vous pouvez le modifier en fonction de vos préférences et exigences.

Auteur:

Nom: Charlie Devera
Adresse électronique: [email protected]

Téléchargement gratuit du code source (expéditeur de SMS et notification dans VB.Net)

Vous pouvez visiter notre Facebook page pour plus d’informations, demandes de renseignements et commentaires.

Louer notre équipe pour faire le projet.

commentaires

commentaires