Ciao Morfeo , non ti consiglio di usare il componente inet , bensi le api di windows.
La logica che ti consiglio di seguire è questa :
1) costruire l'url valido che punta alla pagina lottomatica
2) salvare in locale la pagina html attraverso la funzione DownloadFile (che ti ho allegato)
3) fare il parsing della pagina html salvata in locale per leggere i numeri dell'estrazione
4) far tornare un array che contenga i numeri dell'estrazione corrente letta dal parsing della pagina html
5) usare l'array per alimentarei tuoi campi testo
Ora ti allego le funzioni necessarie per la dichiarazione delle funzioni utili per scaricare un file html
puntato da un url in locale.
Inserisci nel tuo progetto un modulo e incolla quello che ti ho postato.
L'url da costruire per accedere alla pagina lottomatica è composto da
un indirizzo base e un parametro che poi è la data.
E si presenta cosi :
sUrlBase = "http://www.lottomaticaitalia.it/lotto/estrazioni/estrazioni_dettaglio.do?dataConcorso=" & "2009-11-19"
Quindi prima costruisci l'url in base alal data che vuoi e poi lo scarichi
in locale per leggerlo.
Puoi farlo con la funzione che ti ho allegato che si usa cosi
Codice:
If DownloadFile(sUrl , "c:\Estrazione.html", "") Then
' qui va lanciata la procedura che legge il file scaricato in locale
' e fa tornare un array con i numeri delle estrazioni
' call LeggiEstrazione (aRetNumeri()) ' una funzione tipo questa dove aRetNumeri() potrebbe essere dichiarto con Redim aRetNumeri(1 to 11 , 1 to 5) as integer
End If
Per aprire un file e leggerlo si usano le funzioni di input output , non so se sai gia usarle
se no chiedi pure , non sono complicate.
Codice:
' DA INSERIRE NEL MODULO BAS
' *** download from url
'*********************************************
Private Declare Function IsValidURL Lib "URLMON.DLL" (ByVal pbc As Long, ByVal szURL As String, ByVal dwReserved As Long) As Long
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
Function DownloadFile(URL As String, LocalFilename As String, sRetErr As String) As Boolean
Dim lngRetVal As Long
If IsGoodURL(URL) Then
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then
DownloadFile = True
Else
sRetErr = "Errore " & lngRetVal
End If
Else
sRetErr = "Indirizzo non valido"
End If
End Function
Function IsGoodURL(ByVal sUrl As String) As Boolean
'The IsValidURL always expects a UNICODE string, but whenever
'VB calls an API function, it converts the strings to ANSI strings.
'That's why we're going to use a trick here. Before calling the function,
'We're going to convert the unicode string to unicode so we get a double
'unicode string.
'Before VB calls the API function, it converts our double unicode string
'to a normal unicode string; exactely what IsValidURL is expecting.
sUrl = StrConv(sUrl, vbUnicode)
'Now call the function
IsGoodURL = (IsValidURL(ByVal 0&, sUrl, 0) = 0)
End Function
