Keine Ahnung ob das geht: Zugang Internet

Forumthread: Keine Ahnung ob das geht: Zugang Internet

Hallo,
...unsere Firma verwendet einen Server für das Intranet, wo sich die Mitarbeiter anmelden (BenutzerName und Passwort).
Nun habe ich innerhalb einer Userform diese Seite in einem Webbrowser-Element geladen und wollte mal fragen, ob man hier auch die Eingabe der Zugangsdaten einbauen könnte ? Einmal hinterlegt, braucht der ADM sich nicht jedesmal erneut einwählen - solange er Excel offen hat.
Geht sowas ?!
Gruß
Kay
PS: Ich weiß - Datenschutz etc. - wollte einfach nur mal fragen, ob man sowas machen könnte ?

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Allenfalls per SENDKEYS

NoNet
AW: Allenfalls per SENDKEYS

k

Allenfalls per SENDKEYS

25.08.2009 15:32:26

NoNet

Hallo Kay,
das könnte evtl. so funktionieren - wenn beim Öffnen der Startseite direkt das Anmeldefenster und das Loginfeld aktiv ist :

Private Sub UserForm_Activate()
WebBrowser1.Navigate2 "http://eure.intranetseite.com"
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
SendKeys "Anmeldename{Tab}Passwort{Enter}"
End Sub

Evtl. besitzt die Intranetseite für das Loginfeld auch einen "Hotkey" (Accelerator-Key), mit dem das Feld aktiviert werden kann ? Das müsste man dann in die SENDKEYS-Anweisung einbauen.
Aber wie Du schon beschrieben hast : der Datenschutz/Sicherheitsaspekt spricht klar gegen dieses Vorhaben ! Weshalb öffnest Du nicht einen "echten " Browser aus dem UserForm heraus ?
Gruß, NoNet

AW: Allenfalls per SENDKEYS

25.08.2009 17:08:26

Hi,
kam jetzt grad dazu es zu testen:
mit Deiner Version hatte ich nicht den Erfolg - permanetes klicken - aber nichts passierte (aufgehängt).
Vermute aber, es liegt an unserer Intranetseite !
Mit diesem Code (Danke Deiner "Ideengebung") funktioniert es jetzt:

Private Sub WB1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If UF_WB.link.Caption = "VIS-Homepage.de" Then
a = "Benutzername"          ' Hier Verweis auf eine Zelle in der Datei
b = "Passwort"                  ' Hier ebenso mit einem Verweis auf eine Zelle in der Datei
SendKeys a & "{Tab}" & b & "{TAB}"
End If
End Sub

Vielen Dank und Gruß
Kay
PS: Die ADMs sollen nur "unser" Excel-tool nutzen und nicht immer hin und her in den Anwendungen "spazieren". Zudem einige von Ihnen nicht richtig wissen, wie ein PC überhaupt angeht !
Daher bleibe ich halt mit der Anzeige in der Userform.

Beliebteste Forumthreads (12 Monate)

Keine Ahnung ob das geht: Zugang Internet

Forumthread: Keine Ahnung ob das geht: Zugang Internet

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread