Sms sender

Télécharger le projet
Commenter

Description

vous permet d'envoyer un ou des sms sur le reso "proximus" (belgique)
je n'ai po fait attention au design ...

Source / Exemple : 


Private Sub Command1_Click()
sck2.Connect "sms.proximus.be", 80
End Sub

Private Sub lesms_Change()
Label1.Caption = Len(lesms) & " / 128"
End Sub

Private Sub sck2_Connect()
Label1.Caption = "Connecté"
smsform = "prefix=" & Text1.Text & "&suffix=" & Text2.Text & "&smsmessage=" & lesms.Text

sck2.SendData _
 "POST /WMS/ProxiText?smsaction=send&lan=fr&laf=default HTTP/1.1" & vbNewLine & _
 "Host: sms.proximus.be" & vbNewLine & _
 "User-Agent: Lynx/2.8.2rel.1 libwww-FM/2.14" & vbNewLine & _
 "Content-type: application/x-www-form-urlencoded" & vbNewLine & _
 "Content-length: " & Len(smsform) & vbNewLine & vbNewLine & smsform
 
End Sub

Private Sub sck2_DataArrival(ByVal bytesTotal As Long)
sck2.GetData lesdatas, vbString
If InStr(1, lesdatas, "HTTP/1.1 100 Continue") <> 0 Then
Label1.Caption = "Le message a été envoyé avec succès"
sck2.Close
Else
Label1.Caption = "Erreur"
sck2.Close
End If
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.