Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
<HTML>
<HEAD>
<SCRIPT LANGUAGE="vbscript">
dim u, TempString, i, stStrHTML
'''''''''''''''''''''''''''''''''''''''''''''''''''''
u = 1
strWebsite = Array(0,1)
strWebsite(0) = "www.second-thought.nl"
strWebsite(1) = "www.trf.nl.tt"
''''''''''''''''''''''''''''''''''''''''''''''''''''
for i = 0 to u
If PingSite( strWebsite(i) ) Then
TempString = TempString & "<BR>" & strWebsite(i) & " is online"
Else
TempString = TempString & "<BR>" & strWebsite(i) & " is offline or doesn't exist"
End If
next
Function PingSite( myWebsite )
Dim intStatus, objHTTP
Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
objHTTP.Open "GET", "http://" & myWebsite & "/", False
objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)"
On Error Resume Next
objHTTP.Send
intStatus = objHTTP.Status
On Error Goto 0
If intStatus = 200 Then
PingSite = True
Else
PingSite = False
End If
Set objHTTP = Nothing
End Function
stStrHTML = "<HTML><HEAD><TITLE>On/Offline</TITLE></HEAD><BODY>" & TempString & "</BODY></HTML>"
document.write(StStrHTML)
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>
nou, dan heb je een extra script-taal nodig, want alleen HTML werkt niet.
keuze valt meestal op PHP, maar hier een VBscript:
dan moet je het nog wel een beetje aanpassen. Met het PHPscript kan ik je niet helpen, post anders een vraag op het PHP-subforum.HTML:<HTML> <HEAD> <SCRIPT LANGUAGE="vbscript"> dim u, TempString, i, stStrHTML ''''''''''''''''''''''''''''''''''''''''''''''''''''' u = 1 strWebsite = Array(0,1) strWebsite(0) = "www.second-thought.nl" strWebsite(1) = "www.trf.nl.tt" '''''''''''''''''''''''''''''''''''''''''''''''''''' for i = 0 to u If PingSite( strWebsite(i) ) Then TempString = TempString & "<BR>" & strWebsite(i) & " is online" Else TempString = TempString & "<BR>" & strWebsite(i) & " is offline or doesn't exist" End If next Function PingSite( myWebsite ) Dim intStatus, objHTTP Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" ) objHTTP.Open "GET", "http://" & myWebsite & "/", False objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)" On Error Resume Next objHTTP.Send intStatus = objHTTP.Status On Error Goto 0 If intStatus = 200 Then PingSite = True Else PingSite = False End If Set objHTTP = Nothing End Function stStrHTML = "<HTML><HEAD><TITLE>On/Offline</TITLE></HEAD><BODY>" & TempString & "</BODY></HTML>" document.write(StStrHTML) </SCRIPT> </HEAD> <BODY> </BODY> </HTML>
V.:thumb:
Dit komt omdat html eigenlijk alleen maar een opmaak-taaltje is en verder geen "acties" kan ondernemen.nou, dan heb je een extra script-taal nodig, want alleen HTML werkt niet.
keuze valt meestal op PHP
// Volledige URL naar pagina
$link = "http://www.helpmij.nl/forum/index.php";
if(!fopen($link)) {
// Dit weergeven wanneer de link niet beschikbaar is
echo 'De pagina kan niet worden weergegeven';
}
else {
// Hier de pagina weer laten geven
include($link);
}
Das in PHP niet zo moeilijk. Wat je dus eigenlijk wilt is wanneer de pagina beschikbaar is die weergeven en anders een nette pagina waarin staat dat de webcam offline is.
PHP:// Volledige URL naar pagina $link = "http://www.helpmij.nl/forum/index.php"; if(!fopen($link)) { // Dit weergeven wanneer de link niet beschikbaar is echo 'De pagina kan niet worden weergegeven'; } else { // Hier de pagina weer laten geven include($link); }
met asx werkt dit toch ook gewoon. waarom dan niet met html.
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.