Prev: Local to Remote switch for retrieving file ownership in XP
Next: Exporting an Excel Sheet to Outlook
From: Fosco on 17 Nov 2006 21:32
"Fosco" <fake(a)fake.invalid>
> "TDM"
>
> I friend of mine have the same problem with IE 7

Bypassed the IE7+FSO problem with VB6 Print method


Private Sub Form_Load()
Dim IE As Object
Dim X As String

' On Error Resume Next
X = TextFromHTML("www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=511")
' MsgBox X
'Const ForReading = 1, ForWriting = 2

Text = X

Open "Pag511.txt" For Output As #1
Print #1, Text
Close #1
Unload Me
'MsgBox "Fatto"

End Sub

Function TextFromHTML(URL)
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate URL
Do Until IE.readystate = 4: Pause (1): Loop
TextFromHTML = IE.document.body.innerText
'ie.quit
End Function



Private Sub Pause(sec As Single)
Dim t As Single

t = Timer
While Timer <= t + sec
DoEvents
Wend
End Sub

'e la richiami com

'Pause (valore)
'Pause (2) '2 secondi

--
Fosco




First  |  Prev  | 
Pages: 1 2 3
Prev: Local to Remote switch for retrieving file ownership in XP
Next: Exporting an Excel Sheet to Outlook