Home › 2002C › WebPage Ripper
Advertisement
2002C Internet/ HTML #11805

WebPage Ripper

Kevin Pirkl
★★★★★
4.8 · Download: 2,341

Pull down web pages the right way using wininet.dll from within VB. I needed a quick and dirty way to pull down a web page and the inet control doesnt distribute among its other problems.

AI

Riepilogo AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Codice sorgente
original-source 
Public Function GetURL(strURLToGet As String) As String
Dim iRetVal  As Integer
Dim bRetVal  As Integer
Dim sBuffer  As Variant
Dim sReadBuffer As String * 32767
Dim bDoLoop  As Boolean
Dim sStatus  As String
Dim lBytesRead As Long
Dim lBytesTotal As Long
Dim lBufferLength As Long
Dim sBuffer2 As Long
Dim lpdwError As Long
Dim lpszBuffer As String
Dim lpdwBufferLength As Long
sBuffer = ""
sBuffer2 = 0
lBufferLength = 4
hInternetSession = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
If hInternetSession > 0 Then
 iRetVal = InternetQueryOption(hInternetSession, INTERNET_OPTION_CONNECT_TIMEOUT, sBuffer2, lBufferLength)
 iRetVal = InternetSetOption(hInternetSession, INTERNET_OPTION_CONNECT_TIMEOUT, 2000, 4)
 iRetVal = InternetQueryOption(hInternetSession, INTERNET_OPTION_CONNECT_TIMEOUT, sBuffer2, lBufferLength)
 
 iRetVal = InternetSetOption(hInternetSession, INTERNET_OPTION_RECEIVE_TIMEOUT, 4000, 4)
 
 iRetVal = InternetQueryOption(hInternetSession, INTERNET_OPTION_RECEIVE_TIMEOUT, sBuffer2, lBufferLength)
 
 iRetVal = InternetSetOption(hInternetSession, INTERNET_OPTION_SEND_TIMEOUT, 4000, 4)
 iRetVal = InternetQueryOption(hInternetSession, INTERNET_OPTION_SEND_TIMEOUT, sBuffer2, lBufferLength)
 
 iRetVal = InternetSetOption(hInternetSession, INTERNET_OPTION_CONNECT_RETRIES, 1, 4)
 iRetVal = InternetQueryOption(hInternetSession, INTERNET_OPTION_CONNECT_RETRIES, sBuffer2, lBufferLength)
 
 iRetVal = InternetSetOption(hInternetSession, INTERNET_OPTION_DATA_SEND_TIMEOUT, 4000, 4)
 iRetVal = InternetQueryOption(hInternetSession, INTERNET_OPTION_DATA_SEND_TIMEOUT, sBuffer2, lBufferLength)
 
 iRetVal = InternetSetOption(hInternetSession, INTERNET_OPTION_DATA_RECEIVE_TIMEOUT, 4000, 4)
 iRetVal = InternetQueryOption(hInternetSession, INTERNET_OPTION_DATA_RECEIVE_TIMEOUT, sBuffer2, lBufferLength)
 hUrlFile = InternetOpenUrl(hInternetSession, strURLToGet, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
 If hUrlFile > 0 Then
  
  iRetVal = InternetSetOption(hUrlFile, INTERNET_OPTION_CONNECT_TIMEOUT, 2000, 4)
  
  bDoLoop = True
  While bDoLoop
   
   sReadBuffer = Space(32767)
   lBytesRead = 0
   
   bDoLoop = InternetReadFile(hUrlFile, sReadBuffer, Len(sReadBuffer), lBytesRead)
  
   lBytesTotal = lBytesTotal + lBytesRead
   
   sBuffer = sBuffer & Left$(sReadBuffer, lBytesRead)
   
   If Not CBool(lBytesRead) Then bDoLoop = False
  Wend
  
 End If
End If
InternetCloseHandle (hUrlFile)
InternetCloseHandle (hInternetSession)
hInternetSession = 0
hUrlFile = 0
GetURL = sBuffer
End Function
Commenti originali (3)
Recuperato da Wayback Machine