Code:
Option Explicit
Private Declare Function InternetOpen Lib "wininet" 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 InternetCloseHandle Lib "wininet" (ByRef hInet As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet" 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
Private Const UserAgent = "Frodo Testing **** :)"
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const INTERNET_FLAG_RELOAD = &H80000000
Private Sub Main()
Dim ourUrl As String
Dim hOpen As Long
Dim hFile As Long
ourUrl = "http://localhost:37635/FPCOMMAND?FND=SEARCHDUMPARTIST&ITEM=stones"
hOpen = InternetOpen(UserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
hFile = InternetOpenUrl(hOpen, ourUrl, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
InternetCloseHandle hFile
InternetCloseHandle hOpen
End Sub
Bookmarks