Online login per VBA

15/02/2011 - 21:43 von Axel Ahrens | Report spam
Hallo,

ich möchte mich per VBA aus Excel in den geschlossenen Bereich eines
Portals einloggen. Könnt Ihr mir hier bei Code behilflich sein ?

vielen Dank

Axel
 

Lesen sie die antworten

#1 Michael Schwimmer
15/02/2011 - 23:11 | Warnen spam
Hallo Axel,

Am Tue, 15 Feb 2011 12:43:38 -0800 (PST) schrieb Axel Ahrens:

Hallo,

ich möchte mich per VBA aus Excel in den geschlossenen Bereich eines
Portals einloggen. Könnt Ihr mir hier bei Code behilflich sein ?



FollowUp To de.comp.office-pakete.ms-office.excel, da die aktuelle Gruppe
ein Auslaufmodell ist.

Was heißt bei dir einloggen? Auf einen FTP-Server, auf einer HTML-Seite?

Hier etwas Code zu Letzterem:

Sub test()
Dim objIE As Object
Dim strSource As String
Dim objElement As Object

Set objIE = CreateObject("InternetExplorer.Application")

With objIE

' Zum Testen, spàter entfernen
.Visible = True

.Navigate2 _
"http://www.irgendwo.de/admidio/adm_....php"

Do While (.Busy Or .readyState <> 4)
Loop

Application.Wait Now + TimeSerial(0, 0, 2)

' *Zum Suchen der relevanten Elemente, Block spàter entfernen
For Each objElement In .document.Forms(0)
With objElement
Debug.Print .Name & " " & .nodename & " " & .Type
End With
Next
' Ergebnis im Direktbereich
' plg_usr_login_name INPUT text
' plg_usr_password INPUT password
' plg_auto_login INPUT checkbox
' Button submit
' *Bis hierhin entfernen

With .document.Forms(0)

' Vereinsverwaltung Admidio
.Elements("plg_usr_login_name").Value = "Benutzername"
.Elements("plg_usr_password").Value = "Passwort"


.submit
End With

Do While (.Busy Or .readyState <> 4)
Loop

Application.Wait Now + TimeSerial(0, 0, 2)

strSource = .document.body.innertext
strSource = .document.body.innerhtml

.Quit

End With

MsgBox strSource

End Sub

Viele Grüße
Michael

Ähnliche fragen