Bonjour à tous,

Je me trouve face à un problème récurrent, c'est à dire la connexion entre mon programme et un site web.

J'ai besoin de me rendre sur ce site afin d'avoir accès à une multitude d'informations pour ensuite les trier et les ranger dans une DB. L'accès à la DB m'a été refusé donc je ne pense pas avoir d'autre choix que d'utiliser cette méthode.

Après avoir triffouillé un peu toutes les infos trainant sur le net, je m'en remet à vous car je n'ai pas vraiment trouvé ce qu'il me fallait..

J'ai tout de même un début de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
Imports System
Imports System.Net
Imports System.Text
Imports System.Linq
Imports System.Collections.Generic
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        Dim username As String = "*******"
        Dim passwd As String = "*******"
        Dim strUrl As String = "http://customers.liain.fr"
        Dim myWebRequest As HttpWebRequest
        Dim myWebReponse As HttpWebResponse
 
        myWebRequest = CType(WebRequest.Create(strUrl), HttpWebRequest)
        myWebRequest.Credentials = New NetworkCredential(username, passwd)
        myWebRequest.Proxy = New WebProxy("proxout.eiffage.loc:8080", True)
        myWebRequest.Proxy.Credentials = New NetworkCredential("******", "********", "*****")
        myWebRequest.AllowAutoRedirect = True
        myWebRequest.ContentType = "text/html"
        myWebRequest.Method = "POST"
        myWebRequest.Accept = "text/html"
        myWebRequest.PreAuthenticate = True
 
        Dim outStream As Stream
        Dim outData As String
        Dim outDataBytes As Byte()
        outStream = myWebRequest.GetRequestStream()
        outData = Nothing
        outDataBytes = UnicodeEncoding.ASCII.GetBytes(outData)
        outStream.Write(outDataBytes, 0, outDataBytes.Length)
 
        outStream.Close()
        myWebReponse = Nothing
 
        Try
            myWebReponse = myWebRequest.GetResponse()
 
        Catch ex As WebException
            myWebReponse = ex.Response
 
        Catch ex As Exception
            Return
 
        End Try
 
        Dim headers As WebHeaderCollection = myWebReponse.Headers
        For Each header As String In headers.Keys
            Debug.Print("{0}:{1}", header, headers(header))
        Next
 
        Dim inStream As Stream = myWebReponse.GetResponseStream()
        Dim data As Byte() = New Byte(511) {}
        Dim dataLen As Integer = -1
        Do
            dataLen = inStream.Read(data, 0, data.Length)
            MessageBox.Show(UnicodeEncoding.ASCII.GetString(data, 0, dataLen))
 
        Loop While dataLen > 0
 
        inStream.Close()
        myWebReponse.Close()
   End Sub
End Class
Voilà.. en retour il me dit que mes identifiants sont incorrect donc si vous avez une idée

Merci d'avance.