Programación vb6: ¿Quién puede darme un ejemplo sencillo del uso de InternetOpen e InternetOpenUrl para descargar páginas web?

Option Explicit

'VB reemplaza el control inet para obtener el código fuente de la página web (soluciona el problema del código incompleto)

Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0

Const pública INTERNET_OPEN_TYPE_DIRECT = 1

Const pública INTERNET_OPEN_TYPE_PROXY = 3

Const pública scUserAgent = "Microsoft Internet Explorer 6.0"

Const pública INTERNET_FLAG_RELOAD = amp;H80000000

Función de declaración pública InternetOpen Lib "wininet.dll" Alias ​​​​"InternetOpenA" (ByVal sAgent como cadena, ByVal lAccessType mientras, ByVal sProxyName como cadena, ByVal sProxyBypass como cadena, ByVal lFlags As Long) As Long

Función de declaración pública 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

Función de declaración pública InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) Como entero

Función de declaración pública InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) como entero

Función pública GetUrlStr(URL) como cadena 'Al llamar, el parámetro URL debe incluir Abrir (scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)

hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)

bDoLoop = True

Mientras bDoLoop

sReadBuffer = vbNullString

bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)

sBuffer = sBuffer amp; Left$(sReadBuffer, lNumberOfBytesRead)

Si no es CBool(lNumberOfBytesRead) Entonces bDoLoop = False

Wend

GetUrlStr = sBuffer

Si hOpenUrl lt;gt; 0 Entonces InternetCloseHandle (hOpenUrl)

Si hOpen lt;gt; 0 Entonces InternetCloseHandle (hOpen)

Finalizar función

p>

Consejos, esto se transfiere. Ha habido algunos cambios en el interior.