Hallo zusammen,
gibt es eine Möglichkeit den folgenden Code irgendwie zu ergänzen, so dass ich der entsprechenden Homepage (meine eigene) eine Informationen (Zahl, Buchstaben) übermitteln kann?
Bspw. den User Agent ändern/ergänzen oder ähnliches?
Ich möchte je Besucher diese Information später einsehen können.
Sub Webcrawler()
Dim IEApp As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.navigate "entsprechende URL"
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.document.ReadyState = "complete"
End Sub
Viele Grüße
Jan
|