-
Hab schon alles bei Google durchsucht...alles unbefriedigend.
Das hier kommt dem ganzen schonmal sehr nahe:
Option Explicit
Private Sub Command1_Click()
On Error GoTo ErrHANDLER
Dim SiteHTML As String
Inet1.Cancel
Inet1.Protocol = icHTTP 'Hier was anderes, wenn
'kein WWW-Server
Inet1.AccessType = icDirect 'Hier was anderes,
'wenn du ne Firewall hast, keine Ahnung wie das geht
SiteHTML = Inet1.OpenURL(Trim$(Text1), icString) 'Seite laden
Text2 = SiteHTML
Exit Sub
ErrHANDLER:
Inet1.Cancel
MsgBox "ERROR: " & Err.Description, vbCritical
Exit Sub
End Sub
Allerdings weis ich nicht, wo ich dort überhaupt die URL einfügen muss...
-
Stichworte
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln