Problème d'utilisation avec le control inet
Bonjour,
J'ai la version 5 de Visual Basic sous Vista et j'essaie d'utliser le controle "inet"
Mon objectif est d'automatiser un login vers yahoo (URL:https://login.yahoo.com/)
J'ai essayé plusieurs (de nombreuses) choses sans réussite.
Par exemple:
Code:
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
| sFormData = "username=myname&passwd=helloworld"
sURL="https://login.yahoo.com"
With Inet1
.AccessType = icUseDefault
.URL = sURL
.Protocol = icHTTP
.Execute sURL, "POST", sFormData, sHeader
End With
'
' pour faire court, je n'ai pas mis le code d'attente mais je l'ai bien prévu
'
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Do While Not bDone
sData = sData & vtData
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Loop
'
Open "c:\temp\trying.txt" For Binary Access Write As #1
Put #1, , sData
Close #1 |
et donc quand je regarde le fichier créé, je n'ai rien d'autre que la page html yahoo d'invite au login mais pas de trace de tentative de remplissage des champs utilisateur/mot de passe.
Une petite idée?
(à force d'essayer et d'essayer encore, je finis par ressembler à un écureuil dans sa roue...)
Merci par avance de votre aide.
