Discussion :

[maryo]

Salut les développeurs,
j'aimerais vous demander si vous connaissez une façon pour accéder au contenu d'une page web (un texte) avec VB6? en fait je fait une petite application sur VB6 dans laquelle je doit effectuer un contrôle lors du clique sur le bouton servant à ouvrir la page web : s'il est écrit (dans cette page), par exemple, le mot "error", le logiciel affiche un message d'erreur.
j'espère avoir su m'exprimer.
je vous remercie.

[OhMonBato]

Bonjour,
il y a peut etre des solutions plus élégantes mais tu peux toujours stocker le contenu html dans une variable texte et chercher la string "error" dans cette variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim StrHtm As String
Dim i As Long
StrHtm = Inet1.OpenURL("<a href="www.monsite.com/" target="_blank">http://www.monsite.com/</a>", icString)
i = Instr(StrHtm, "Error")
if i then
  'Le mot "Error" a été trouvé
End IF

[ucfoutu]

Bonjour,

Le code pour ce faire sans fichier temporaire est donné en exemple sur All-API pour la fonction InternetOpen de la librairie wininet de l"Api de Windows.

[maryo]

bonjour,

Merci OhMonBato pour le code
mais lors de la compilation ça beug sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

StrHtm = Inet1.OpenURL("<a href="www.monsite.com/" target="_blank">http://www.monsite.com/</a>", icString)

en fait je n'ai pa compris la façon dont il écrit le lien

----

ucfoutu, j'ai trouvé ce code sur internet :

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
 
 
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Const INTERNET_OPEN_TYPE_PRECONFIG As Long = &H0
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Public Function DownloadSource(ByVal Url As String, ByVal UserAgent As String) As String
  Dim hOpen As Long
  Dim hOpenUrl As Long
  Dim sReadBuffer As String * 1024
  Dim lNumberOfBytesRead As Long
  Dim sBuffer As String
  hOpen = InternetOpen(UserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  hOpenUrl = InternetOpenUrl(hOpen, Url, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
  Do
    sReadBuffer = vbNullString
    Call InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
    sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
    DoEvents
  Loop While lNumberOfBytesRead > 0
  If Not hOpenUrl = 0 Then Call InternetCloseHandle(hOpenUrl)
  If Not hOpen = 0 Then Call InternetCloseHandle(hOpen)
  DownloadSource = sBuffer
End Function

est ce que vous parlez bien de ça?

[ucfoutu]

est ce que vous parlez bien de ça?

Oui, mais ce que tu montres n'est pas complet (la fonction essentielle est là mais pas la manière de l'appeler). J'en déduis que tu l'as trouvé ailleurs que là où j'en ai signalé la présence ===>> fais donc une recherche avec google et le mot ALL-API.

Tiens : http://allapi.mentalis.org/agnet/apiguide.shtml

[OhMonBato]

Une erreur de copier/coller...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim StrHtm As String
Dim i As Long
StrHtm = Inet1.OpenURL("Adresse du site", icString)
i = InStr(StrHtm, "Error")
If i Then
  'Le mot "Error" a été trouvé
End If