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 !
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, ...
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
On oublies et on passe au suivant
Laisse tomber
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.