WebBrowser : Lire le code source d'une page Internet
1 réponse
gbonamy
Bonjour,
J'utilise VB6 et le controle WebBrowser pour faire apparaitre une page
Internet dont j'ai besoin de récupérer le code HTML.
Or lorsque je simule un clic droit pour faire apparaitre le menu textuel et
choisir l'option Afficher la source, rien ne se produit
Y-a-t'il une autre méthode pour parvenir au but recherché ?
Merci d'avance pour votre aide.
gbonamy
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Christian Hugoud
Et voili....
Hope this helps
Christian
Public Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Integer Public 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 Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long Public Declare Function InternetReadFile2 Lib "wininet.dll" Alias "InternetReadFile" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal lNumBytesToRead As Long, dwNumberOfBytesRead As Long) As Integer Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Long
Public Const ERROR_NO_MORE_FILES = 18 Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0 Public Const INTERNET_INVALID_PORT_NUMBER = 0 Public Const INTERNET_SERVICE_FTP = 1 Public Const FTP_TRANSFER_TYPE_BINARY = &H2 Public Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Function GetFileFromInternet(ByVal URL As String, ByRef BackString$) As Boolean
Dim Buffer As String * 256 Dim info As String Dim NombreOctets As Long Dim ValRet As Long
Do ValRet = InternetReadFile2(hUrlFile, Buffer, Len(Buffer), NombreOctets) If NombreOctets > 0 Then info = info & Buffer DoEvents Loop Until NombreOctets = 0 BackString = info
"gbonamy" a écrit dans le message de news: 45b6f11d$0$29531$
Bonjour, J'utilise VB6 et le controle WebBrowser pour faire apparaitre une page Internet dont j'ai besoin de récupérer le code HTML. Or lorsque je simule un clic droit pour faire apparaitre le menu textuel et choisir l'option Afficher la source, rien ne se produit Y-a-t'il une autre méthode pour parvenir au but recherché ? Merci d'avance pour votre aide. gbonamy
Et voili....
Hope this helps
Christian
Public Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias
"DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Integer
Public 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
Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias
"InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String,
ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As
Long, ByVal dwContext As Long) As Long
Public Declare Function InternetReadFile2 Lib "wininet.dll" Alias
"InternetReadFile" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal
lNumBytesToRead As Long, dwNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet
As Long) As Long
Public Const ERROR_NO_MORE_FILES = 18
Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_INVALID_PORT_NUMBER = 0
Public Const INTERNET_SERVICE_FTP = 1
Public Const FTP_TRANSFER_TYPE_BINARY = &H2
Public Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Function GetFileFromInternet(ByVal URL As String, ByRef BackString$)
As Boolean
Dim Buffer As String * 256
Dim info As String
Dim NombreOctets As Long
Dim ValRet As Long
Do
ValRet = InternetReadFile2(hUrlFile, Buffer, Len(Buffer),
NombreOctets)
If NombreOctets > 0 Then info = info & Buffer
DoEvents
Loop Until NombreOctets = 0
BackString = info
"gbonamy" <gbonamy@free.fr> a écrit dans le message de news:
45b6f11d$0$29531$426a74cc@news.free.fr...
Bonjour,
J'utilise VB6 et le controle WebBrowser pour faire apparaitre une page
Internet dont j'ai besoin de récupérer le code HTML.
Or lorsque je simule un clic droit pour faire apparaitre le menu textuel
et choisir l'option Afficher la source, rien ne se produit
Y-a-t'il une autre méthode pour parvenir au but recherché ?
Merci d'avance pour votre aide.
gbonamy
Public Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Integer Public 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 Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long Public Declare Function InternetReadFile2 Lib "wininet.dll" Alias "InternetReadFile" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal lNumBytesToRead As Long, dwNumberOfBytesRead As Long) As Integer Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Long
Public Const ERROR_NO_MORE_FILES = 18 Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0 Public Const INTERNET_INVALID_PORT_NUMBER = 0 Public Const INTERNET_SERVICE_FTP = 1 Public Const FTP_TRANSFER_TYPE_BINARY = &H2 Public Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Function GetFileFromInternet(ByVal URL As String, ByRef BackString$) As Boolean
Dim Buffer As String * 256 Dim info As String Dim NombreOctets As Long Dim ValRet As Long
Do ValRet = InternetReadFile2(hUrlFile, Buffer, Len(Buffer), NombreOctets) If NombreOctets > 0 Then info = info & Buffer DoEvents Loop Until NombreOctets = 0 BackString = info
"gbonamy" a écrit dans le message de news: 45b6f11d$0$29531$
Bonjour, J'utilise VB6 et le controle WebBrowser pour faire apparaitre une page Internet dont j'ai besoin de récupérer le code HTML. Or lorsque je simule un clic droit pour faire apparaitre le menu textuel et choisir l'option Afficher la source, rien ne se produit Y-a-t'il une autre méthode pour parvenir au but recherché ? Merci d'avance pour votre aide. gbonamy