Private Sub Read_wwwPage(webPage As String, tempFile As String)
Dim b() As Byte
dim ff as FreeFile
'Cancela operacoes em curso (se existir alguma)
'tens que ter este controlo também no FORM. Chama-se Inet!!!
Inet1.Cancel
'Protocolo a usar
Inet1.Protocol = icHTTP
'Página a salvar (vem como parametro de entrada da funcao!)
Inet1.URL = webPage
'Salva a página para ao array
b() = Inet1.OpenURL(, icByteArray)
'Aloca numero de ficheiro livre
ff = FreeFile
'Cria o ficheiro temporário para salvar a página (vem como parametro de entrada da funcao!)
Open tempFile For Binary Access Write As #ff
Put #ff, , b()
Close #ff
'agora podes abrir o ficheiro e procurar a linha que queres
'Aloca numero de ficheiro livre
ff = FreeFile
'abre o ficheiro
open tempFile for input as #ff
''''''''''''''''''''''''''' PROCURA A LINHA QUE QUERES AUI ''''''''''''''''''''''''''''
''' SE for SEMPRE A MESMA LINHA PODES FAZER UM LOOP ATE CHEGAR A ELA E DEPOIS LE-LA '''
'enquanto nao atingir o fim do ficheiro mostra uma box com o conteúdo de cada linha do ficheiro
while not EOF(#ff)
line input #ff, strFile
msgbox strFile
while end
'precisas deste controlo no form. neste caso so te mostra a ultima linha do
'ficheiro(pq o loop vai até ao fim, mas podes alrear o loop para te mostrar a
'que quiseres!
textbox1.text = strFile
'fecha o ficheiro
close #ff
End Sub
