PTIT PROGR POUR ENVOYER DES SMS

Signaler
Messages postés
99
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
9 juin 2008
-
Messages postés
87
Date d'inscription
lundi 4 novembre 2002
Statut
Membre
Dernière intervention
10 mars 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2590-ptit-progr-pour-envoyer-des-sms

Messages postés
87
Date d'inscription
lundi 4 novembre 2002
Statut
Membre
Dernière intervention
10 mars 2009

Je suis contant qu'un Suisse se lance la dedans pask moi j'y arrive pas !
Mais il manque quelques fichiers dans ton Zip! Sinon J'ai un erreure quand Winsock recoit pour la 2ème fois des donnés (dans da) et le prog plante !

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim da As String
Winsock1.GetData da
Let da = Left(da, 137)
Let da = Right(da, 40)
Select Case da
Case "http://freesms.bluewin.ch/confirm_f.html"
MsgBox "Le message a été envoyé !", vbInformation, "Confirmation"
Case "http://freesms.bluewin.ch/wrongnumber_f."
MsgBox "Le numéro est faux ! Vérifier et réessayer!", vbCritical, "Erreur !"
End Select
End Sub

Et les msgbox ne marchent pas! pask blueWin à changer de serveur !

Peut tu m'aider stp Merci ... Un Suisse
Messages postés
61
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
18 novembre 2005

c normal ke le programme marche pas ??? et la prochaine fois, met le .vbp, pas que la source, ca éviteras d'avois un fichier de log à cause de l'icone, ...

On oublies et on passe au suivant
Messages postés
99
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
9 juin 2008

De la merde. Seul les prefix suisse sont autorisés. En plus, tu ne fais que passer pas un site WEB.

Laisse tomber