[AccessD] Read contents of Text File form Web Site

You may want to check for an okay recieved error 200 return   which 
indicates your site and url are valid and up and running
otherwise you may get infamous 404 or  400 or 500 .

Darren DICK wrote:

>Gustav is a legend Chacha chacha cha
>Outstanding this is perfect
>
>For anyone who cares
>This is going to be part of any app I deploy.
>The code reads the text file and if the contents of the text file is -1 then
>the
>App stops running
>If the contents of the text file 0 then the app just keeps opening as normal
>
>It is a (simple) method I intend to use to 'stop' users of my software who
>don't pay
>
>I have a special folder on my website for their app for updates etc
>So if they don't pay I also have the special "Have or Have not paid" text
>file in that folder
>
>When they are late paying or refuse to pay I ftp to my website and change
>the contents
>of the text file from 0 to -1. Next time the user loads the app it reads -1
>from the text
>File and halts and alerts the users.
>
>Code is
>     If
>OpenURL("http://www.somedomain.com.au/updates/AppName/PaidOrNot.txt") = "-1"
>Then
>        Msgbox "No pay? - No go", vbGotcha,"Pay or Else"
>    ElseIf
>OpenURL("http://www.somedomain.com.au/updates/AppName/PaidOrNot.txt") = "0"
>Then
>        'Do nothing let the app load
>    End If
>
>Of course this depends on an active internet connection but I can test for
>that in code too
>It is very simple and can be easily 'gotten around' if you know how, but
>most people won't know how
>
>Many many thanks Gustav
>
>Thanks to all the others who replied
>Andy - I'll give you a call in the next day or so to bring you up to speed
>SYWYE
>
>Many thanks
>This list is awesome
>
>Darren
>
> 
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
>Sent: Wednesday, 23 February 2005 4:05 AM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Read contents of Text File form Web Site
>
>Hi Darren and Andy
>
>This line must be uncommented; but I'm not sure what sAgent is, could be
>empty:
>
>  hInet = InternetOpenA(vbNullString, OpenType, vbNullString, vbNullString,
>0)
>
>Then this call reads a file off our web server:
>
>? OpenURL("http://www.cactus.dk/Files/Access2/Acc2Date/ReadMe.txt")
>
>/gustav
>
>
>  
>
>>>>Gustav at cactus.dk 22-02-2005 17:38:01 >>>
>>>>        
>>>>
>Hi Darren and Andy
>
>Here's some code to read the file off the web server using winnet.dll:
>
>Option Compare Database
>Option Explicit
>
>Private Declare Function URLDownloadToFile Lib "urlmon" Alias
>"URLDownloadToFileA" ( _
>  ByVal pCaller As Long, _
>  ByVal szURL As String, _
>  ByVal szFileName As String, _
>  ByVal dwReserved As Long, _
>  ByVal lpfnCB As Long) _
>  As Long
>
>Private Declare Function InternetGetConnectedState Lib "wininet.dll" ( _
>  ByRef lpSFlags As Long, _
>  ByVal dwReserved As Long) _
>  As Long
>  
>  Const INTERNET_CONNECTION_MODEM = 1
>  Const INTERNET_CONNECTION_LAN = 2
>  Const INTERNET_CONNECTION_PROXY = 4
>  Const INTERNET_CONNECTION_MODEM_BUSY = 8
>  Const INTERNET_RAS_INSTALLED = 16
>
>' Atomic clock.
>Private Declare Sub InternetCloseHandle Lib "wininet.dll" ( _
>  ByVal hInet As Long)
>  
>Private Declare Function InternetOpenA Lib "wininet.dll" ( _
>  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 InternetOpenUrlA Lib "wininet.dll" ( _
>  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
>  
>Private Declare Sub InternetReadFile Lib "wininet.dll" ( _
>  ByVal hFile As Long, _
>  ByVal sBuffer As String, _
>  ByVal lNumBytesToRead As Long, _
>  ByRef lNumberOfBytesRead As Long)
>'
>Public Function OpenURL( _
>  ByVal URL As String, _
>  Optional ByVal OpenType As Long) _
>  As String
>  
>  Const IOTPreconfig  As Long = 0
>  Const IOTDirect     As Long = 1
>  Const IOTProxy      As Long = 3
>
>  Const INET_RELOAD = &H80000000
>  
>  Dim hInet As Long
>  Dim hURL As Long
>  Dim Buffer As String * 2048
>  Dim Bytes As Long
>  
>  Select Case OpenType
>    Case IOTPreconfig, IOTDirect, IOTProxy
>      ' OK
>    Case Else
>      Exit Function
>  End Select
>  
>  'Inet-Connection öffnen:
>'  hInet = InternetOpenA("VB-Tec:INET", OpenType, vbNullString,
>vbNullString, 0) '  hInet = InternetOpenA("Cactus:INET", OpenType,
>vbNullString, vbNullString, 0)
>  hURL = InternetOpenUrlA(hInet, URL, vbNullString, 0, INET_RELOAD, 0)
>  
>  'Daten sammeln:
>  Do
>    InternetReadFile hURL, Buffer, Len(Buffer), Bytes
>    If Bytes = 0 Then Exit Do
>    OpenURL = OpenURL & Left$(Buffer, Bytes)
>  Loop
>  
>  'Inet-Connection schließen:
>  InternetCloseHandle hURL
>  InternetCloseHandle hInet
>
>End Function
>
>/gustav
>
>  
>
>>What code do I need to read that text file from the website and return 
>>the Contents of the text file to my dB? Ie the -1 or the Zero?
>>    
>>
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada