function Internet quelllcode
Michael
Ich habe hier bei herber diesen code gefunden!
Was muss ich tun, damit ich diese Programm zum laufen bringe!
'Mit
Sub main()
'call
Function GetInnerX
'End Sub
()klappt es nicht!
Ich habe keine Ahnung wie man es sonst macht?
Vielen Dank
Michael
Open "C:\Herber.htm" For Output As #1
Print #1, GetInnerX("https://www.herber.de", "HTML")
Close 1
Function GetInnerX(strURL As String, Optional strWhat As String = "HTML") As String
Dim objIE As Object, objDoc As Object
Dim strMldg As String
GetInnerX = ""
On Error GoTo ErrorHandler 'evtl. Fehler (auch serverseitig) abfangen
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.Navigate strURL
Do While objIE.Busy
Loop
Set objDoc = objIE.Document
Do While objDoc.readyState "complete"
Loop
Select Case UCase(strWhat)
Case "HTML"
GetInnerX = objDoc.Body.InnerHTML
Case Else
GetInnerX = objDoc.Body.InnerText
End Select
objIE.Quit
Exit Function
ErrorHandler:
If Err.Number 0 Then
strMldg = "Fehler 0x" & Hex(Str(Err.Number)) & " wurde ausgelöst von " _
& Err.Source & Chr(10) & Err.Description
MsgBox strMldg, vbCritical, "Fehler beim Zugriff auf WWW via InternetExplorer", Err.HelpFile, _
_
_
Err.HelpContext
Err.Clear
End If
End Function