File Exist httprequest-Jose

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compile Exe
#Dim All
#Include "httprequest.inc"
 
Function PBMain () As Long
   Local pWHttp As IWinHttpRequest, iResult As Integer, URL$
   pWHttp = NewCom "WinHttp.WinHttpRequest.5.1"
   URL$ = "http://www.powerbasic.com/support/downloads/files/gbsnippets.zip"
   pWHttp.Open "GET", URL$
   pWHttp.Send
   If pWHttp.WaitForResponse(5) Adn pWHttp.Status = 200 Then Function = 1
End Function
 
'gbs_01302
'Date: 05-11-2013                

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm