Internetseiten auslesen

**MrMyagi**

Jepp, soll nen Router-Rebooter werden.
Ich hoffe wir können die ganze Sache irgendwie leichter mache, wenn
ich Euch sage, das die Seite immer gleich bleibt.
Der erste Button der gedrückt werden soll sieht im Quelltext so aus:

<DIV id=actionbut><input type="button" name="B1" class="stylebut" onclick=confstart("/html/top_start_passwort.htm") onmouseover=highlight(true) onmouseout=highlight(false) value=">>Konfiguration starten"></DIV>

Wie mache ich es nun, dass dieser gedrückt wird?

mfG, Nico

**MrMyagi**

Keiner eine Idee??

**Fussball-Robby**

Ich hab dir doch im Post #7 schon einige Stichwörter gesagt. Du kannst sie dir ja wenigstens mal angucken

**MrMyagi**

Wie mache ichn das dann zb wenn ich einen Button mit dem Namen B1 drücken will.
Also jetzt nach dem Prinzip wie in #7 beschrieben?

**r29d43**

Also das mit dem javascript und diesem "getElementsByName" führt jetzt event. doch etwas zu weit weg.

Stattdessen versuch es doch z.B. mal mit dieser einfachen (Delphi-)Zeile:

webbrowser1.oleobject.document.forms.item(0).elements.item('B1').click; Leider ist ja der von dir angegebene HTML-Code etwas kurz. Daher kann man auch nicht sehen, auf welcher "forms" dieser Button angesiedelt ist. Ich vermutete jetzt mal "forms.item(0)". Klappts nicht, dann kannst du da (bei forms.item(0)) auch statt der 0 mal eine 1 o. 2 einfügen.

**MrMyagi**

also her is der Quellcode: Es handelt sich um den Button status

<html>
<head>
<title>HTML-Konfiguration</title>
<SCRIPT language="JavaScript" src="/cgi-bin/webcm?getpage=../html/js_top.txt" type="text/JavaScript"></SCRIPT>
<SCRIPT language="JavaScript">

</SCRIPT>
<LINK rel="stylesheet" href="/html/top_style.css" type="text/css">
<STYLE type="text/css">

</STYLE>
</head>
<body onload=chk()>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
<tr>
<td valign="middle" align="center">
<table border="1" cellpadding="0" cellspacing="0" height="484" width="644" background="/html/pic_welcome.jpg">
<tr>
<td valign="top">
[img]/html/pic_welcome_b.gif[/img]
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<form name="F1">
<td width="150" valign="top">

<DIV id=startseite>>>Startseite</DIV></p>

<DIV id=status onclick=gotosite("/html/top_status.htm") onmouseover=rahmen("status",1) onmouseout=rahmen("status",0)>>>Status</DIV></p>

<DIV id=budget onclick=gotosite("/html/top_budget.htm") onmouseover=rahmen("budget",1) onmouseout=rahmen("budget",0)>>>Budget</DIV></p>
</td>

<td valign="top">
<DIV id=cBorderTxt>
<DIV id=cText>

Willkommen im Konfigurationsprogramm!</p>

Das Konfigurationsprogramm wurde für folgende Browser optimiert:</p>

[*]Internet Explorer ab Version 5.5[*]Firefox ab Ver. 0.9 / Mozilla ab Ver. 1.7 / Netscape ab Ver. 7.1[*]Opera ab Version 8</p>
</DIV>
<DIV id=cTextChg>

Die soeben durchgeführte Systemüberprüfung hat ergeben,

dass in Ihrem Browser die Javascript-Funktion deaktiviert ist.</p>

Bitte aktivieren Sie in Ihrem Browser die Javascript-Funktion

und rufen Sie dann das Konfigurationsprogramm erneut auf.

</p>
</DIV>
</DIV>
<DIV id=actionbut><input type="button" name="B1" class="stylebut" onclick=confstart("/html/top_start_passwort.htm") onmouseover=highlight(true) onmouseout=highlight(false) value=">>Konfiguration starten"></DIV>
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>

**r29d43**

Da sich in deinem HTML-Code folgende Zeile

<form name="F1">

befindet, liegt der Button "B1" also auf einer "form" deren Name "F1" ist,
...und ergo müsste die obige Delphi-Zeile daher dann so lauten:

webbrowser1.oleobject.document.forms.item('F1').elements.item('B1').click;

**MrMyagi**

Ok, danke das mit "B1" geht jetzt,
jedoch finde ich keinen passenden Namen zu dem Button Status (status ist es nicht)
Welcher könnte dieser sein?? (quelltext weiter oben)

Edit:
Müsste es nicht normalerweise sogar mit

markieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

begin

webbrowser1.OleObject.getelementbyid('status').click;

end;

gehen, da dies auch in html Quelltext vorkommt:

...function chk(){
document.getElementById("startseite").style.visibi lity = "visible";
document.getElementById("status").style.visibility = "visible";
document.getElementById("budget").style.visibility = "visible";
if (screen.width < 800 || screen.height < 600)...

mfG, Nico

**r29d43**

"status" scheint hier eher nur ein Link zu sein, ...welcher im HTML-Code, wenn die Maus draufclickt, dann per JavaScript aufgerufen wird.

Da die Adressen solcher Links aber meistens eher konstant sind, würde ich die jetzt also zuerst im HTML-Code auslesen und dann einfach per WebBrowser.Navigate dorthin navigieren.

(..kann aber durchaus sein, dass es hier noch bessere Lösungen gibt. Bin hier leider auch nur Laie

)

**MrMyagi**

Zitat:

Da die Adressen solcher Links aber meistens eher konstant sind, würde ich die jetzt also zuerst im HTML-Code auslesen und dann einfach per WebBrowser.Navigate dorthin navigieren.

Japp, hast recht, dort kann ich auch mit navigate hinkommen.
Nun allerdings erscheint dort ein Feld, wo ich normalerweise immer das PW eingebe.
HAb schon alles mögliche versucht mit .value usw jedoch trägt er dort nichts ein
in das Editfeld.
Wie müsste der Code denn dafür aussehen?

Bild(möchte eine Eingabe in das Editfeld machen und hinterher den Button OK klicken):

http://operationsinnlos.op.funpic.de/Bild.JPG

Quellcode von dem Ausschnitt:

<HTML>
<HEAD>
<TITLE>Startseite</TITLE>
<SCRIPT language="JavaScript" src="/html/js_menu.txt" type="text/JavaScript"></SCRIPT>
<SCRIPT language="JavaScript">

</SCRIPT>
<LINK rel="stylesheet" href="/html/style.css" type="text/css">
<STYLE type="text/css">

</STYLE>
</HEAD>
<BODY onLoad="OnLoad()">
<DIV id=c_Frame>
<DIV id=c_border>
<DIV id=c_pfad>Router - Einstieg in die Konfiguration</DIV>

<DIV id=c_titel>Passwort Eingabe</DIV>
<form name="PWD" method="POST" action="/cgi-bin/webcm">
<input type="hidden" name="getpage" value="../html/hcti_startseite.htm" />
<DIV id=c_last>
<table border="0" cellpadding="0" cellspacing="2">
<tr>
<td width="120"><input type="password" class="stylepwd" name="login:command/password" size="12" maxlength="12" /></td>
<td></td>
</tr>
</table>
</DIV>
</form>
<DIV id=c_leer></DIV>
<DIV id=c_foot></DIV>
</DIV>
</DIV>
<DIV id=t_Frame>
<DIV id=t_but1 onclick=stEnd() onmouseover=rahmen(1,1) onmouseout=rahmen(0,1)>Beenden<<</DIV>
<DIV id=t_but2 onclick=stVerg() onmouseover=rahmen(1,2) onmouseout=rahmen(0,2)>Vergessen<<</DIV>
<DIV id=t_but4 onclick=chk_pwd() onmouseover=rahmen(1,4) onmouseout=rahmen(0,4)>>> OK</DIV>
</DIV>
<DIV id=i_Frame>
<DIV id=i_content>

<h2>Passwort Eingabe</h2>

Der Zugang zu den Router - Konfigurationsdaten wird durch ein Passwort geschützt.</p>

Geben Sie das Passwort ein und bestätigen Sie mit OK.</p>

Wenn Sie das Passwort vergessen haben, können Sie innerhalb der ersten 10 Minuten nach einem
Neustart des Routers die Werkseinstellungen wiederherstellen und so das Passwort deaktivieren.</p>
</DIV>
</DIV>
</BODY>
</HTML>

mfG, Nico

Internetseiten auslesen

Re: Internetseiten auslesen

Re: Internetseiten auslesen

Re: Internetseiten auslesen

Re: Internetseiten auslesen

Re: Internetseiten auslesen

Re: Internetseiten auslesen

Re: Internetseiten auslesen

Re: Internetseiten auslesen

Re: Internetseiten auslesen

Re: Internetseiten auslesen

Forumregeln

MrMyagi Registriert seit: 2. Mai 2007 203 Beiträge Delphi 7 Personal	#12 Re: Internetseiten auslesen 8. Jun 2008, 17:40 Keiner eine Idee??
	Zitat

Fussball-Robby Registriert seit: 22. Okt 2007 Ort: Nähe Köln 1.063 Beiträge Delphi 7 Enterprise	#13 Re: Internetseiten auslesen 8. Jun 2008, 18:00 Ich hab dir doch im Post #7 schon einige Stichwörter gesagt. Du kannst sie dir ja wenigstens mal angucken Robert L. Der folgende Satz ist richtig! Der vorherige Satz ist falsch! Paradox
	Zitat

MrMyagi Registriert seit: 2. Mai 2007 203 Beiträge Delphi 7 Personal	#14 Re: Internetseiten auslesen 9. Jun 2008, 15:49 Wie mache ichn das dann zb wenn ich einen Button mit dem Namen B1 drücken will. Also jetzt nach dem Prinzip wie in #7 beschrieben?
	Zitat

r29d43 Registriert seit: 18. Jan 2007 287 Beiträge Delphi 10.4 Sydney	#17 Re: Internetseiten auslesen 9. Jun 2008, 17:00 Da sich in deinem HTML-Code folgende Zeile <form name="F1"> befindet, liegt der Button "B1" also auf einer "form" deren Name "F1" ist, ...und ergo müsste die obige Delphi-Zeile daher dann so lauten: webbrowser1.oleobject.document.forms.item('F1').elements.item('B1').click;
	Zitat