PTIT PROGR POUR ENVOYER DES SMS
cs_Logan
Messages postés
99
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
9 juin 2008
-
13 févr. 2002 à 17:53
JoVB Messages postés 87 Date d'inscription lundi 4 novembre 2002 Statut Membre Dernière intervention 10 mars 2009 - 5 nov. 2002 à 18:56
JoVB Messages postés 87 Date d'inscription lundi 4 novembre 2002 Statut Membre Dernière intervention 10 mars 2009 - 5 nov. 2002 à 18:56
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
https://codes-sources.commentcamarche.net/source/2590-ptit-progr-pour-envoyer-des-sms
5 nov. 2002 à 18:56
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
14 févr. 2002 à 09:12
On oublies et on passe au suivant
13 févr. 2002 à 17:53
Laisse tomber