CODE D EXEMPLE POUR ENVOYER DES SMS EN VISUAL BASIC

Voila le source mais lisez la FAQ pour bien comprendre et le modifier a votre guise !!! 
Après avoir reçu des dixaines et dixaines d'e-mail par semaines....
j'ai décidé d'écrire ces quelques lignes et qui j'éspère pourront répondre a vos
nombreuses questions !!!!!!

ex : Comment faire pour rajouter un provider ? exemple un provider français....

et oui je vais vous l'expliquez le plus simplement du monde, je ne pourrais faire mieux.


///////////////////////////////////////////////////////////////////////////////////////////////////////////////
\\\\\\\\\\Bon le programme fonctionne de la manière suivantes.\\\\\\\\\\\\\\\\\\\
///////////////////////////////////////////////////////////////////////////////////////////////////////////////

il fonctionne comme un formulaire HTML, a part que vous êtes devant un programme VB, mais
il fait les mêmes opérations qu'un simple formulaire Web...
---------------------------------------------
1er méthode pour les néophytes & gros nulles. 
---------------------------------------------

l'idée est donc d'allez sur un site qui permet d'envoyer des sms, de visionner dans le 
code source de la page HTML (celle du formulaire)
Le nom des variables, ex :numéro, préfixe, messages.... 
de savoir si il s'agit d'une action du type POST ou GET. (différence expliquée plus tard)

---------------------------------------------------------------------------
2éme méthode pour les meilleurs ou ceux qui ne veulent pas mourrir idiot.
---------------------------------------------------------------------------
il suffit de créer un petit logiciel qui écoute le port X de votre PC.... (je vous le donne)

bon je m'explique,...
votre browser préférez que fait-il, bein oui il envoye des commandes HTTP (voir protocol www.salemioche.com)
et celui-ci envoye exactement le contenu du fichier qu'il faudra créer...

pour crée le logiciel, vous créer un feuille vb,vous lui rajouter l'objet winsock (ocx) , configurer de telle 
maniére a écouter un port ex : le port 20000. (pour des explications sur l'objet winsock voir le 
MSDN) il n'y a pas plus de 10 ligne de programmation...

*************************** C'est pour cette raison que je vous les donnent.... *******************************
donc créer une form rajouter l'objet winsock 


private sub form_load()
winsock1.LocalPort = 20000  'port d'ecoute choisi
winsock1.Listen             'initialise winsock a l'écoute

end sub

private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
         winsock1.Close
         winsock1.Accept requestID 'accepte la connexion
End Sub

Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim donnee As String
      winsock1(Index).GetData donnee ' recupére les donnee envoyée par le browser
      MsgBox donnee
End Sub

private sub form_unload()
  winsock1.close
end sub







ensuite vous lancer votre browser vous allez sur un site qui permet d'envoyer des SMS
vous allez sur le formulaire....
quand celui-ci est chargé vous allez dans les paramêtres de votre browser (IE ou Netscape) et vous le configuré
avec un connexion internet via réseau local, en résumer vous lui dite
que vous avez un proxy dont l'adresse ip est celle de votre machine, et le port de connexion
est le port que vous écoutez avec le petit logiciel ex port 20000.

ensuite....
vous remplisez votre formulaire Web et vous faite envoyer....
votre petit logiciel devrai alors a ce moment recevoir des donnees du type (si c'est pas le cas retourné a vos claviers....)

********************************
* Si l'action est du type POST *
********************************

POST http://212.68.202.150/sms/process.cfm HTTP/1.0
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, */*
Referer: http://www.b-gsm.com/sms.cfm
Accept-Language: fr-be
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt; Wanadoo BE; KITV4 Wanadoo)
Host: 212.68.202.150
Content-Length: 108
Proxy-Connection: Keep-Alive
Pragma: no-cache
Cookie: CFGLOBALS=HITCOUNT%3D4%23LASTVISIT%3D%7Bts+%272000%2D09%2D05+13%3A52%3A19%27%7D%23TIMECREATED%3D%7Bts+%272000%2D09%2D05+13%3A14%3A44%27%7D%23; CFTOKEN=80004368; CFID=146943

message=SALUT MA BICHE&counter=128&network=32486&number=712062&language=resultsfr&gateid=netbel&Submit=Envoyer





*******************************
* Si l'action est du type GET *
*******************************

GET http://www.b-gsm.com/resultsfr/success.cfm?bodytext=test%20message%20Visit%20www%2Enetbel%2Ebe&fullnumero=32486712062 HTTP/1.0
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, */*
Accept-Language: fr-be
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt; Wanadoo BE; KITV4 Wanadoo)
Host: www.b-gsm.com
Proxy-Connection: Keep-Alive




La différence entre GET ET POST est que le noms des variables et leurs resultats sont pour le GET 
fournie directement par le lien...


Voila le fichier est "quasi" créer, maintenant il vous suffit de le modifier un peu ! 
pour vous permettre de remplir les champs intéressants.



Bon à vos clavier et amusé vous bien.
Attention certain site demande pour s'inscrire,
vous devrez donc peut-être prévoir d'envoyer plusieurs fichiers....




@+ Crevette

Télécharger le zip

27 juin 2005 14:50:28 :

LE PROGRAMME ECRIT COMME TEL NE FONCTIONNERA PAS. IL FAUT LE MODIFIER SELON LE PROVIDER ET LE SITE INTERNET UTILISE...