RECUPERER UNE COMBOBOX D'INTERNET

Dim Url As String
Dim Analyze As String
Dim Test3, num, N As Integer
Dim c As Long
Dim Test, cboSettings, cboName, Nam As String

Private Sub cmdTest_Click()
'Num est le nombre de caracteres qui vont etre lus avec Mid$
num = 10000
'On met qqchose dans Nam pour la boucle de la sub Read()
Nam = "something"
'On recup l'URL
Url = txtURL.Text
'On recupere la source
Analyze = Inet1.OpenURL(Url)
'On rearrange le code en supprimant les retours a la ligne les triple et doubles _
 espaces et sur en decolant les balises
Analyze = Replace(Analyze, Chr(10), "", 1, -1, 0)
Analyze = Replace(Analyze, Chr(13), "", 1, -1, 0)
Analyze = Replace(Analyze, Chr(11), "", 1, -1, 0)
Analyze = Replace(Analyze, Chr(12), "", 1, -1, 0)
Analyze = Replace(Analyze, Chr(9), "", 1, -1, 0)
Analyze = Replace(Analyze, Chr(8), "", 1, -1, 0)
Analyze = Replace(Analyze, "><", "> <", 1, -1, 0)
Analyze = Replace(Analyze, "   ", " ", 1, -1, 0)
Analyze = Replace(Analyze, "  ", " ", 1, -1, 0)
'On analyse la source
'On se "deplace dans la source jusqu'a trouver <select ( qui est le debut de la _
 combobox HTML )
Test = InStr(1, Analyze, "<select")
'cboSettings contient les "num" caracteres apres select
cboSettings1 = Mid(Analyze, Test, num)
'Apres on se deplace dans cboSettings pour trouver le nom de la combobox _
 et on ajoute 6 qui correspnd au nombres de caracteres contenus dans _
 ' name=" '
Test3 = InStr(1, cboSettings1, "name") + 6
'Ici on lit le nom de la cbobox
cboSettings = Mid(cboSettings1, Test3, num)
'La on cherche la derniere ' " ' qui indique la fin du nom de la cbobox
Test3 = InStr(1, cboSettings, Chr(34)) - 1
'Et ensuite on enregistre sont nom
cboName = Left(cboSettings, Test3)
'On l'affiche
lblCboName.Caption = cboName
'Ensuite on se deplace jusqu'a la premiere balise option qui indique la premiere _
 entree de la cbobox
Test = InStr(Test3, cboSettings, "<option")
'On cherche ou la balise se ferme
Test = InStr(Test, cboSettings, ">")
'On enregistre Test dans N pour pouvoir travailler avec
N = Test
Call Read
i = 0
'Avec cette boucle on se deplace a chaque fois jusqu'a l'autre balise
'"i" sert d'une sorte d'index pour la comboBox
Do Until i = 100000
    Test2 = InStr((N - 2), cboSettings, "</option")
    'S'il n'y a plus de balise on enleve la derniere entree de la combobox _
     qui est vide a cause de la boucle , et on sort de la sub .Sinon on sort _
     de la balise "</option>" en ajoutant 9 et on va a l'autre "<option>" _
     Et on appel Read() pour enregistrer la valeure
    If Test2 <> 0 Then Test2 = Test2 + 9 Else cboStolen.RemoveItem i: Exit Sub
    Test = InStr(Test2, cboSettings, ">")
    N = Test
    Call Read
    i = i + 1
Loop
End Sub

Private Sub Read()
'Name semble etre utilise par vb donc se sera Nam et on la vide
Nam = ""
'On recommence jusqu'a l'ouverture d'une balise
Do Until Char = "<"
'N est defini en fonction de Test
N = N + 1
'On lit l'entree caractere par caractere
Char = Mid(cboSettings, N, 1)
If Char <> "<" And Char <> Chr(10) And Char <> Chr(13) And Char <> Chr(8) And Char <> Chr(9) Then Nam = Nam & Char
Loop
'On ajoute l'entree a la comboBox
If Nam <> "" Then cboStolen.AddItem Nam
End Sub