Thema: Delphi Internetseiten auslesen

Einzelnen Beitrag anzeigen

MrMyagi

Registriert seit: 2. Mai 2007
203 Beiträge
 
Delphi 7 Personal
 
#16

Re: Internetseiten auslesen

  Alt 9. Jun 2008, 16:49
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">
<!--
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){
document.getElementById("cTextChg").innerHTML = "

Die soeben durchgef&uuml;hrte System&uuml;berpr&uuml;fung hat ergeben,
" +
"dass ihr Bildschirm nicht die minimal erforderliche Auflösung hat.</p>" +
"

Bitte stellen Sie mindestens eine Auflösung von 800x600 Pixeln ein
" +
"und rufen Sie dann das Konfigurationsprogramm erneut auf.
" +
"
</p>";
}
else{
document.getElementById("cTextChg").innerHTML = "

Für die erfolgreiche Konfiguration Ihres Routers empfehlen wir " +
"Ihnen dringend die Verwendung eines der oben aufgeführten Browser!
" +
"
</p>";
document.getElementById("actionbut").style.visibil ity = "visible";
}
}
//-->
</SCRIPT>
<LINK rel="stylesheet" href="/html/top_style.css" type="text/css">
<STYLE type="text/css">
<!--
#startseite {color:#FFFFFF; background-color:#E20074; border-color: #FFFFFF;}
#status {color: #666666; background-color:#EEEEEE; border-color: #666666;}
#budget {color: #666666; background-color:#EEEEEE; cursor: pointer; cursor: hand; border-color: #666666;}
//-->
</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>&gt;&gt;Startseite</DIV></p>


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


<DIV id=budget onclick=gotosite("/html/top_budget.htm") onmouseover=rahmen("budget",1) onmouseout=rahmen("budget",0)>&gt;&gt;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&uuml;hrte System&uuml;berpr&uuml;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="&gt;&gt;Konfiguration starten"></DIV>
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
  Mit Zitat antworten Zitat