Announcement

**tody** · 16.11.2007, 14:27

Hallo Helmut,
Ich w�rde sagen du musst ein cookie schreiben wenn sich der benutzer einloggt.
dann beim PageLoad musst du �berpr�fen ob das cookie vorhanden ist und die Daten aus dem cookie auslesen und damit automatisch einloggen!

Denke so wird das gemacht, habe das aber selbst auch noch nicht gemacht...

**Helmut Windecker** · 21.11.2007, 12:18

Hallo tody,

danke f�r Deine Antwort. Aber mein Problem ist es nicht, Benutzername/Passwort vorzuhalten, sondern sie in die Eingabefelder des Formulars einzutragen, nachdem aus dem Intranet die entsprechende Seite des Internet-Portals geladen wurde.

**Helmut Windecker** · 02.12.2007, 15:13

Hallo,

nachdem es bis jetzt keine L�sung gibt

, versuche ich das Problem nochmal darzustellen:

Gesucht ist eine L�sung, die dem Nutzer Zugriff auf ein Internetportal
(z.B. entwicklerforum) bietet. Dabei steht der automatisierte Login im Vordergrund: Die Zugangsdaten sollen nicht durch den Nutzer verwaltet werden, sondern in einer Datenbank hinterlegt und beim Login
vom Intranet-Portal automatisch an z.B. das �entwicklerforum� �bergeben werden. Der Login-Vorgang wird durch den Mausklick im Intranet-Portal auf den Link in z.B. das �entwicklerforum� ausgel�st.
Die Frage ist also, wie kann ich per Programm Benutzername und Passwort auf der Startseite des �entwicklerforum� eintragen.

Helmut

P.S.:

Es geht nat�rlich nicht wirklich um das �entwicklerforum�, sondern um verschiedene B2B-Portale, in die sich die Mitarbeiter aus dem Intranetportal heraus automatisch einloggen k�nnen sollen.

**Andreas Kosch** · 05.12.2007, 08:58

Hallo,

Die Frage ist also, wie kann ich per Programm Benutzername und Passwort auf der Startseite des „entwicklerforum“ eintragen

es ist sehr lange her, dass ich so etwas gemacht habe. Daher habe ich auch nur ein Beispiel f�r Borland Delphi "am Lager". Das technische Prinzip ist jedoch sprachunabhg�nig:

IHTMLElementCollection aufz�hlen lassen.
Wenn das �ber den Namen erkennbare Eingabefeld "vorbeikommt", dort �ber die Value-Eigenschaft den Text eintragen.
�ber die Click-Methode des Submit-Buttons das ausgef�llte Webformular abschicken.

<%@ LANGUAGE="VBScript"%> 
<%Response.Expires = 0%> 
<html> 
<head> 
<meta http-equiv="Content-Language"
content="de"> 
<meta http-equiv="Content-Type"
content="text/html; charset=windows-1252"> 
<meta name="GENERATOR"
content="Microsoft FrontPage 4.0"> 
<meta name="ProgId"
content="FrontPage.Editor.Document"> 
<title>Automatisches Ausf�llen von
Formularen</title> 
</head> 
<body> 
<% Application("WebFormVar&quot

= Now %> 
<h1>Automatisches
Ausf�llen von Formularen</h1> 
� Andreas Kosch 2000 
<form method="POST"
action="WebFormTest2.asp"
name="WebFormName"> 
Name: 
<input type="text"
name="T1"
size="20"> 
<input type="submit"
value="Abschicken"
name="B1"> 
<input type="reset"
value="Zur�cksetzen"
name="B2"> 
</form> 
</body> 
</html> 
 
procedure TForm1.ToolButtonFillClick(Sender: TObject); 
var 
  aHTMLDoc : IHTMLDocument2; 
  vWebForm : OleVariant; 
  aEC      : IHTMLElementCollection; 
  i        : Integer; 
  vControl : OleVariant; 
begin 
  if not VarIsEmpty(WebBrowser1.Document) then 
  begin 
    aHTMLDoc := WebBrowser1.Document as IHTMlDocument2; 
    vWebForm := aHTMLDoc.Forms.Item('WebFormName',
0); 
    aEC := IDispatch(vWebForm.all) as
IHTMLElementCollection; 
    for i := 0 to aEC.Length - 1 do 
    begin 
      vControl := aEC.Item(i, 0); 
      if not VarIsEmpty(vControl) and
vControl.isTextEdit then 
      begin 
        Memo1.Lines.Add(Format('TagName:
%s; Name: %s; Value: %s', 
        &n bsp;       &nbs p;      
[vControl.TagName, vControl.Name, vControl.Value])); 
        // Text in
das Eingabefeld eintragen 
        if vControl.Name =
'T1' then 
        &n bsp; vControl.Value :=
'Testeintrag'; 
        //
Abschicken-Button automatisch ausl�sen 
        if vControl.Name =
'B1' then 
        &n bsp; vControl.Click; 
      end; 
    end; 
  end; 
end;

Announcement

Automatisch Einloggen

Automatisch Einloggen

Comment

Comment

Comment

Comment