Soyez le premier à donner votre avis sur cette source.
Vue 9 817 fois - Téléchargée 1 045 fois
Dim Port As Integer Dim Codes As String Dim Login As String Dim Password As String Login = "votre_login" Password = "votre_password" Port = 80 'port HTTP Codes = Encoder(Login & ":" & Password) 'La fonction Encoder est une fonction à développer (cryptage Base64). 'Si les codes d'accès sont déjà connus, vous pouvez simplement utiliser un convertisseur par exemple à cette adresse : 'http://yansanmo.no-ip.org/contenu/?id=214 'Rappel : le code doit être encrypté sous la forme de Login:Mot_de_passe ''''''''''PREMIER CAS : CONNEXION A UN ROUTEUR'''''''''' Dim Adresse_IP As String Adresse_IP = "192.168.0.1" 'IP de votre routeur, à modifier selon le cas. Winsock.Connect Adresse_IP, Port Private Sub Winsock_Connect() Text1.Text = "" Winsock.SendData "GET / HTTP/1.1" & vbCrLf & "User-Agent: Navigateur" & vbCrLf & _ 'nom du navigateur client (facultatif :) ) "Host: " & Adresse_IP & vbCrLf & "Authorization: Basic " & Codes & vbCrLf & vbCrLf 'envoi des codes cryptés, plus double retour chariot End Sub Private Sub Winsock_DataArrival(ByVal bytesTotal As Long) Dim data As String Winsock.GetData data Text1.Text = Text1.Text + data 'data contient donc le code source. End Sub ''''''''''SECOND CAS : CONNEXION A UN SERVEUR WEB'''''''''' Dim Serveur As String Serveur = "www.machin.com" 'Adresse du site Winsock.Connect Serveur, Port Private Sub Winsock_Connect() Dim Page As String Page = "http://www.machin.com/page.html/" 'avec le slash final Winsock.SendData "GET " & Page & " HTTP/1.0" & vbCrLf & _ 'demande de récupération d'information + définition du protocole ainsi que sa version "User-Agent: Navigateur" & vbCrLf & _ 'nom du navigateur client (facultatif :) ) "Accept: */*" & vbCrLf & "Accept: text/html" & vbCrLf & _ 'type de données acceptées "Authorization: Basic " & Codes & vbCrLf & vbCrLf 'envoi des codes cryptés, plus double retour chariot End Sub Private Sub Winsock_DataArrival(ByVal bytesTotal As Long) Dim data As String Winsock.GetData data Text1.Text = Text1.Text + data 'data contient donc le code source. End Sub ''''''''''''''''''''
4 juin 2007 à 14:08
Thank's a lot
GZ
11 juil. 2006 à 14:10
Pour ce qui est de la gestion des paquets oui j'aurais pu faire un
Text1.Text = Text1.Text + data
L'en-tête Host m'a été données par Fiddler et j'ai vu que ça marchait.. Donc je change pas une équipe qui gagne ! :)
Pour finir, je ne vois pas ce que je peux rajouter pour que ma source soit davantage complète...
11 juil. 2006 à 11:53
Trop d' à peu-près.
Les Data_Arrival() sont pas bon parce qu'ils acceptent bien les paquets mais au bout du compte on ne se retrouve qu' avec le dernier.
Pourquoi le premier est HTTP /1.0 et le second HTTP 1.1 ? Gardes 1.1 pour les deux, on est en 2006.
Toujours côté RFC2616, spécifier le Host n'a strictement rien à voir avec le routeur: l'info Host est exclusivement destinée au système HTTP du serveur ça n' a rien à voir avec le client qui a un routeur.
Le "double retour charriot" est en réalité un double CRLF. Ce n'est pas pour respecter les normes réseau mais pour se conformer au protocole HTTP.
Je sais c'est difficile à accepter toutes ces remarques c'est juste pour éviter de transmettre et véhiculer des informations erronées.
Il faudrait revoir tout ça et pourquoi pas déposer une source complète qui soit testable juste pour vérifier que ça marche.
Bonne prog l' ami
10 juil. 2006 à 20:08
10 juil. 2006 à 20:06
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.