Private Const UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; .NET CLR 1.1.4322)"
'InternetOpenA
Private Declare Function InternetOpen Lib "wininet.dll" Alias _
"InternetOpenA" (ByVal lpszCallerName As String, _
ByVal dwAccessType As Long, ByVal lpszProxyName As String, _
ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long
'InternetConnectA
Private Declare Function InternetConnect Lib "wininet.dll" Alias _
"InternetConnectA" (ByVal hInternetSession As Long, _
ByVal lpszServerName As String, ByVal nProxyPort As Integer, _
ByVal lpszUsername As String, ByVal lpszPassword As String, _
ByVal dwService As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
'HttpQueryInfo
Private Declare Function HttpQueryInfo Lib "wininet.dll" Alias _
"HttpQueryInfoA" (ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, _
ByVal sBuffer As Any, ByRef lBufferLength As Long, ByRef lIndex As Long) As Integer
'InternetOpenUrlA
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
'InternetReadFile
Private Declare Function InternetReadFile Lib "wininet.dll" _
(ByVal hFile As Long, ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
'HttpOpenRequest
Private Declare Function HttpOpenRequest Lib "wininet.dll" Alias _
"HttpOpenRequestA" (ByVal hInternetSession As Long, ByVal lpszVerb As String, _
ByVal lpszObjectName As String, ByVal lpszVersion As String, ByVal lpszReferer As String, _
ByVal lpszAcceptTypes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
'HttpSendRequest
Private Declare Function HttpSendRequest Lib "wininet.dll" Alias _
"HttpSendRequestA" (ByVal hHttpRequest As Long, ByVal sHeaders As String, _
ByVal lHeadersLength As Long, ByVal sOptional As String, ByVal lOptionalLength As Long) As Boolean
'InternetCloseHandle
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInternetHandle As Long) As Boolean
'HttpAddRequestHeaders
Private Declare Function HttpAddRequestHeaders Lib "wininet.dll" Alias _
"HttpAddRequestHeadersA" (ByVal hHttpRequest As Long, ByVal sHeaders As String, _
ByVal lHeadersLength As Long, ByVal lModifiers As Long) As Integer
