Aide avec serveur GMAIL

Version imprimable

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:
http://img20.imageshack.us/img20/1912/smsmail.jpg

voici une partie mes codes:

Code:

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

22/05/2013, 13h47
ram-0000

Et ?
Quel est le problème ?
22/05/2013, 14h00
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.
22/05/2013, 15h34
prologic

Citation:

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

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

voici mes codes:

Code:

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

22/05/2013, 16h38
ram-0000

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

Code:

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

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

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

code :

Code:

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

22/05/2013, 16h51
ram-0000

Citation:

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 :

Citation:

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
22/05/2013, 17h05
hacker59

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

1 pièce(s) jointe(s)

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:

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:

23/05/2013, 01h05
Rainui

Bonsoir,

Les ID des éléments appelés ne sont pas bon.
23/05/2013, 15h45
hacker59

bonjour,
comment on écrie Rainui.
merci,cordialement
23/05/2013, 16h11
Rainui

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.

comme ceci:

Code:

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?

Probablement plutôt comme cela :

Code:

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")

Citation:
Envoyé par ram-0000
Probablement plutôt comme cela :
Code:

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 ...

23/05/2013, 17h00
hacker59

1 pièce(s) jointe(s)

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.
23/05/2013, 18h22
hacker59

3 pièce(s) jointe(s)

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 :