Hi Friedrich,

Basically using the functions in WININET and without the error checking you...

!*** get handle to Internet ***
handleOpen = InternetOpen(address(cstrUserAgent), INTERNET_OPEN_TYPE_DIRECT, 0,0,0)
!*** get handle to File on Internet ***
handleFile = InternetOpenUrl(handleOpen, address(cstrURL), address(cstrNull), -1, INTERNET_FLAG_RELOAD, 0)
!*** pause for half a second ***
!*** without pause only part of the response seems to be gathered ***
sleep(500)
!*** read bytes into buffer ***
result = InternetReadFile(handleFile, address(cstrBuffer), 32000, address(bytesRead))
!*** clean up - closing all handles in reverse order ***
result = InternetCloseHandle(handleFile)
result = InternetCloseHandle(handleOpen)

Graham