PDA

Vollständige Version anzeigen : Zugangsdaten für Web-Login aus Tabelle


marcusdemny
24.07.2012, 07:51
Hi Gemeinde,

ich habe einen Code für die Anmeldung in drei Webpages.

Bisher muss ich die Logindaten direkt im Code eintragen.

ist es auch möglich die Daten in der Excel-Tablle einzutragen und diese dann in den Code zu übernehmen?

Sub Nowcast()
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://www.xxxxxxxxxx.de/yyyyyyyyy"
objIE.Navigate2 "http://xxxxxxxxxxxxxxxx.com", 2048
objIE.Navigate2 "http://www.weather-consult.com", 2048
Do: Loop Until objIE.Busy = False
Do: Loop Until objIE.Busy = False
Do: Loop Until objIE.document.ReadyState = "complete"
Application.Wait (Now + TimeValue("0:00:08"))
Set objShell = CreateObject("Shell.Application")
For Each win In objShell.Windows
If InStr(1, UCase(win.FullName), "IEXPLORE") > 0 Then
Set doc = win.document
Do: Loop Until doc.ReadyState = "complete"
If InStr(1, win.locationurl, "xxxxxxxxxxxxxx") <> 0 Then
doc.all("username").Value = "xxxxxxxxxxxxxxxxxxxxxxxxx"
doc.all("password").Value = "xxxxxxxxxxxxxx"
doc.all("Submit").Click
ElseIf InStr(1, win.locationurl, "xxxxxxxxxxxxxxxxx") <> 0 Then
doc.all("username").Value = "xxxxxxxxxxxxxx"
doc.all("password").Value = "xxxxxxxxxxxx"
doc.all("login_bt").Click
ElseIf InStr(1, win.locationurl, "xxxxxxxxxxxxxxxxx") <> 0 Then
doc.all("user_name").Value = "xxxxxxxxxx"
doc.all("user_password").Value = "xxxxxxxx"
doc.all("loginButton").Click
End If
End If
Next
Set objIE = Nothing
Application.Wait (Now + TimeValue("0:00:05"))
Application.Quit
End Sub


Danke für Eure Hilfe

EarlFred
24.07.2012, 10:39
Hallo Name?,

sind das etwa Deine echten Zugangsdaten und Adressen im Code? Darf die jeder kennen?

Grüße
EarlFred

marcusdemny
25.07.2012, 07:11
Kann bitte jemand das Thema löschen ich kann nichts mehr bearbeiten

hary
25.07.2012, 07:22
Hallo
Du must dich an den Moderator wenden. Bearbeiten des eigenen Thread ist nur fuer eine bestimmte Zeit moeglich.
gruss hary