Aide avec serveur GMAIL

**hacker59** · 22/05/2013, 13h45

bonjour, j'ai créer un programme pour envoyer des mail et SMS mais voila je voudrais envoyer des SMS en connectant sur mon compte mail.
voici en image:

voici une partie mes codes:

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
19
20
21
22
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            Dim smtpServer As New SmtpClient()
            Dim mail As New MailMessage
            smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text & ComboBox1.SelectedItem, TextBox2.Text)
            smtpServer.Port = 587
            smtpServer.Host = ComboBox2.SelectedItem
            smtpServer.EnableSsl = True
            mail.From = New MailAddress(TextBox1.Text & ComboBox1.SelectedItem)
            If RadioButton1.Checked = True Then
                mail.To.Add("33" & TextBox3.Text & "sms@gmailsms.com")
            ElseIf RadioButton2.Checked = True Then
                mail.To.Add(TextBox3.Text)
            End If
            mail.Subject = TextBox4.Text
            mail.Body = TextBox5.Text()
            smtpServer.Send(mail)
            MsgBox("mail a etait envoyer", MsgBoxStyle.OkOnly, "ENVOYER")
        Catch ex As Exception
            MsgBox("Message n'a pas été envoyer" & Err.Description, MsgBoxStyle.OkOnly, "ERREUR")
        End Try
    End Sub

merci,cordialement

**ram-0000** · 22/05/2013, 13h47

Et ?
Quel est le problème ?

**hacker59** · 22/05/2013, 14h00

le probleme c'est pour envoyer un SMS sur mon mobile en connectant sur mon compte GMAIL.

comment on écrire le code par rapport au site GMAIL avec mon programme : https://gmailsms-com.appspot.com/send

merci,cordialement.

**prologic** · 22/05/2013, 15h34

Envoyé par hacker59

le probleme c'est pour envoyer un SMS sur mon mobile en connectant sur mon compte GMAIL.

comment on écrire le code par rapport au site GMAIL avec mon programme : https://gmailsms-com.appspot.com/send

merci,cordialement.

Je ferais pas confiance à ce site... un truc Gmail sans logo google et avec ce design ?

Sinon > http://support.google.com/chat/bin/a...&answer=106015

**hacker59** · 22/05/2013, 16h11

bonjour, j'ai trouver un site qui envois des texto gratuit : http://www.texto-sms-gratuit.com/

voici mes codes:

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
19
20
21
22
23
24
25
If RadioButton1.Checked = True Then
            Dim request As HttpWebRequest
            Dim response As HttpWebResponse = Nothing
            Dim url As String
            Dim Email As String = TextBox1.Text & ComboBox1.SelectedItem
            Dim host As String = "http://www.texto-sms-gratuit.com/"
            Dim originator As String = TextBox3.Text
            Try
 
                url = host + "/api?action=sendmessage&" _
                         & TextBox1.Text & ComboBox1.SelectedItem & WebUtility.HtmlEncode(Email) _
                         & "&recipient=" + WebUtility.HtmlEncode(TextBox3.Text) _
                         & "&messagetype=SMS:TEXT" _
                         & "&messagedata=" + WebUtility.HtmlEncode(TextBox5.Text) _
                         & "&originator=" + WebUtility.HtmlEncode(TextBox3.Text) _
                         & "&serviceprovider=" _
                         & "&responseformat=html"
 
                request = DirectCast(WebRequest.Create(url), HttpWebRequest)
                response = DirectCast(request.GetResponse(), HttpWebResponse)
                MsgBox("Votre SMS a etait envoyer", MsgBoxStyle.OkOnly, "ENVOYER")
            Catch ex As Exception
                MsgBox("Votre SMS n'a pas été envoyer" & Err.Description, MsgBoxStyle.OkOnly, "ERREUR")
            End Try
        End If

Mais voila il m'afficher msgbox (votre sms n'a pas ete envoyer, car le serveur distant a retourné une erreur : (404) introuvable)
pourais ton corriger mon probleme?
merci,cordialement

**ram-0000** · 22/05/2013, 16h38

Où est ce que tu as vu que l'url à utiliser pour envoyer un SMS est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

http://www.texto-sms-gratuit.com/api?action=sendmessage...

Moi je n'ai rien vu de tel dans la FAQ ni sur le site

**hacker59** · 22/05/2013, 16h46

j'ai copier ces codes dans ce cites : http://www.ozekisms.com/index.php?ow...om-vb-sms-http

code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Web
 
Public Class fMain
 
 Private Sub bSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSend.Click
        Dim request As HttpWebRequest
        Dim response As HttpWebResponse = Nothing
        Dim url As String
        Dim username As String
        Dim password As String
        Dim host As String
        Dim originator As String
 
        Try
 
            host = "http://127.0.0.1:9501"
            originator = "06201234567"
            username = "admin"
            password = "abc123"
 
            url = host + "/api?action=sendmessage&" _
                     & "username=" & HttpUtility.UrlEncode(username) _
                     & "&password=" + HttpUtility.UrlEncode(password) _
                     & "&recipient=" + HttpUtility.UrlEncode(tbReceiver.Text) _
                     & "&messagetype=SMS:TEXT" _
                     & "&messagedata=" + HttpUtility.UrlEncode(tbMessage.Text) _
                     & "&originator=" + HttpUtility.UrlEncode(originator) _
                     & "&serviceprovider=GSMModem1" _
                     & "&responseformat=html"
 
            request = DirectCast(WebRequest.Create(url), HttpWebRequest)
 
            response = DirectCast(request.GetResponse(), HttpWebResponse)
 
            MessageBox.Show("Response: " & response.StatusDescription)
 
        Catch ex As Exception
        End Try
    End Sub
End Class

**ram-0000** · 22/05/2013, 16h51

Envoyé par hacker59

j'ai copier ces codes dans ce cites : http://www.ozekisms.com/index.php?ow...om-vb-sms-http

Copier, c'est bien, comprendre, c'est mieux :

Envoyé par OZEKI NG SMS Gateway

The next section of the VB.Net HTTP SMS example code is the composition of the HTTP URL, that will be used to post your SMS message to the SMS Gateway. This URL contains parameters that are specified in the Ozeki HTTP SMS API specification. Note that when you compose this URL you have to URL encode the values. This is necessary to make sure special characters will not break the HTTP specification.

Pour utiliser une gateway SMS, il faut connaitre l'API de celle ci et je n'ai pas vu de description de l'API pour www.texto-sms-gratuit.com

**hacker59** · 22/05/2013, 17h05

comment on fait pour envoyer des SMS sur mobile?
merci,cordialement

**hacker59** · 22/05/2013, 19h27

bonjour, voila j'ai essayer trouver un moyen pour envoyer des SMS par le site :http://www.texto-sms-gratuit.com/

voici mes codes:

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
19
20
21
Public Class Form1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.texto-sms-gratuit.com/")
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
 
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            WebBrowser1.Document.GetElementById("EMAIL").SetAttribute("Value", TextBox1.Text)
            WebBrowser1.Document.GetElementById("NUMERO").SetAttribute("Value", TextBox2.Text)
            WebBrowser1.Document.GetElementById("Message").SetAttribute("Value", TextBox3.Text)
            WebBrowser1.Document.GetElementById("Envoyer").InvokeMember("Click")
        Catch ex As Exception
            MsgBox("Votre SMS a etait envoyer au : " & TextBox2.Text)
        End Try
    End Sub
End Class

j'ai entrer mon e mail + mon numéro + un texte et un fois le clike sur envoyer , j'ai pas message d'erreur mais voila j'ai pas de message sur mon mobile ce que j'ai envoyer , rien il se passe. es ce que il y a un petit probleme avec mes codes par rapport au site.
merci,cordialement
voici en image mon projet:

**Rainui** · 23/05/2013, 01h05

Bonsoir,

Les ID des éléments appelés ne sont pas bon.

**hacker59** · 23/05/2013, 15h45

bonjour,
comment on écrie Rainui.
merci,cordialement

**Rainui** · 23/05/2013, 16h11

Bonjour,

EMAIL=mail
NUMERO=mobile
Message=texte
Envoyer=button_send

Dans votre navigateur internet, activez les outils de développement et vous pourrez voir la structure de la page affichée.

**hacker59** · 23/05/2013, 16h35

comme ceci:

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 Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.1max2sms.com/texto-gratuit.html")
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
 
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            WebBrowser1.Document.GetElementById("EMAIL=mail").SetAttribute("Value", TextBox1.Text)
            WebBrowser1.Document.GetElementById("NUMERO=mobile").SetAttribute("Value", TextBox2.Text)
            WebBrowser1.Document.GetElementById("Message=texte").SetAttribute("Value", TextBox3.Text)
            WebBrowser1.Document.GetElementById("Envoyer=button_send").InvokeMember("Click")
        Catch ex As Exception
            MsgBox("Votre SMS a etait envoyer au : " & TextBox2.Text & vbNewLine & "Votre Message : " & TextBox3.Text)
        End Try
    End Sub

ca fonctionne toujour pas?

**ram-0000** · 23/05/2013, 16h39

Probablement plutôt comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
WebBrowser1.Document.GetElementById("mail").SetAttribute("Value", TextBox1.Text)
WebBrowser1.Document.GetElementById("mobile").SetAttribute("Value", TextBox2.Text)
WebBrowser1.Document.GetElementById("texte").SetAttribute("Value", TextBox3.Text)
WebBrowser1.Document.GetElementById("button_send").InvokeMember("Click")

**Rainui** · 23/05/2013, 16h46

Envoyé par ram-0000

Probablement plutôt comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
WebBrowser1.Document.GetElementById("mail").SetAttribute("Value", TextBox1.Text)
WebBrowser1.Document.GetElementById("mobile").SetAttribute("Value", TextBox2.Text)
WebBrowser1.Document.GetElementById("texte").SetAttribute("Value", TextBox3.Text)
WebBrowser1.Document.GetElementById("button_send").InvokeMember("Click")

Oui comme celà

Désolé je n'ai pas pris le temps de l'expliquer correctement ...

**hacker59** · 23/05/2013, 17h00

Merci de votre réponse mais voila j'ai entrer mon émail+ numéro + un texte , un fois je clique sur envoyer c bon, mais j'ai toujours par reçu ce que j'ai envoyer . pk ça fonctionne toujours pas?
merci,cordialement
voici en image dans pièce joints:
attention émail & numéro c un faux, c pour montrer comment fonctionne mon programme.

**hacker59** · 23/05/2013, 18h22

bon, voila j'ai changer de site et sa fonctionne, mais voila j'ai un petit pour envoyer le message , je connecte avec mon navigateur ,il m'affiche un compteur 10 s et avec mon programme il s'affiche pas.
comment on fait pour afficher le compter.
merci,

voici en image :

Aide avec serveur GMAIL

VB.NET

Discussions similaires

Partager

Partager