Website-Check - Ein kleines Tool für Windows

CreepSore

Voraus gesagt:
Ich bin im Bereich AutoIT neu und dies ist eines meiner bis jetzt erstellten Programme.

Es handelt sich um ein Programm dass einen Website-Status anzeigt.
Bis jetzt funktioniert es nur mit http:// am Anfang. Dies werde ich aber bald Fixen. ( Hab auch schon einen Plan wie )

Die jetzige Version ist die Beta 3.0
Ja eigentlich kann man sowas kleines nicht Beta nennen aber trotztem^^
Hier der Code ( Als Spoiler da bei mir der AutoIT Code irgendwie nicht funktioniert zurzeit

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_Res_Description=by CreepSore x3
#AutoIt3Wrapper_Res_Fileversion=2.0.0.0
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Internet Check", 357, 101, 192, 124)
GUISetBkColor(0x00FF00)
$Input1 = GUICtrlCreateInput("https://google.at", 0, 0, 353, 21)
$Button1 = GUICtrlCreateButton("Check", 0, 24, 353, 25)
$Progress1 = GUICtrlCreateProgress(0, 48, 353, 25)
$Label1 = GUICtrlCreateLabel("by CreepSoreLP", 0, 80, 81, 17)
$Radio1 = GUICtrlCreateCheckbox("Website öffnen, falls gefunden", 88, 80, 169, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Radio = GUICtrlRead ( $Radio1 )
If $Radio = 1 Then
$URL = GUICtrlRead ( $Input1 )
For $i = 0 To 100 Step 5
Sleep ( 100 )
GUICtrlSetData ( $Progress1, $i )
Next
If NOT (_INetGetSource ($URL) = "") Then
MsgBox ( 1, "Bericht", "Die Website ist" & @CRLF & "O" & @CRLF & "N" & @CRLF & "L" & @CRLF & "I" & @CRLF & "N" & @CRLF & "E" & @CRLF & "Website wird aufgerufen..." )
_IECreate ( $URL )
Else
MsgBox ( 1, "Bericht", "Die Website ist offline" )
EndIf
Else
$URL = GUICtrlRead ( $Input1 )
For $i = 0 To 100 Step 5
Sleep ( 100 )
GUICtrlSetData ( $Progress1, $i )
Next
If NOT (_INetGetSource ($URL) = "") Then
MsgBox ( 1, "Bericht", "Die Website ist" & @CRLF & "O" & @CRLF & "N" & @CRLF & "L" & @CRLF & "I" & @CRLF & "N" & @CRLF & "E" )
Else
MsgBox ( 1, "Bericht", "Die Website ist offline" )
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

Download ist auch unten angehängt.

**BugFix**

Bischen viel Aufwand um die Verfügbarkeit einer Website zu prüfen - und zu umständlich. Kennst du den Befehl Ping?
Kannst den Host per Inputbox eingeben, braucht keine extra GUI.

Spoiler anzeigen

[autoit]

$host = 'http://www.autoit.de'
$ping = Ping($host)
If @error Then
$sError = 'unbekannter Fehler'
Switch @error
Case 1
$sError = 'Host ist offline'
Case 2
$sError = 'Host nicht erreichbar'
Case 3
$sError = 'Falsche Adresse'
EndSwitch
MsgBox(0, 'Fehler', $sError)
Else
MsgBox(0, 'OK', 'Website ist online')
EndIf

[/autoit]

**chesstiger**

Naja. Mein PC ist auch online, und per Ping erreichbar... Trotzdem läuft nicht zwangsläufig ein HTTP-Server.

**BugFix**

Zitat von chesstiger

Naja. Mein PC ist auch online, und per Ping erreichbar... Trotzdem läuft nicht zwangsläufig ein HTTP-Server.

Das ist Haarspalterei. Du wirst ja wohl nicht versuchen dich mit einem Host zu verbinden, auf dem gar kein http-Server läuft. (..obwohl, chess - dir traue ich so manches zu )

**chesstiger**

Und wenn nur apache2 oder nginx oder IIS oder was auch immer für ein Webserver sich selbst abgeschossen hat?
Oder für Wartungsarbeiten beendet wurde?

Der Host ist weiterhin erreichbar - die Website nicht.

CreepSore

Ah ja per Ping könnte ichs auch machen. Nur wette ich dass es dann Leute gibt die es als DDos Programm benutzen, dass mein Programm wenigstens Teilweise verhindert. ( Progress Bar )

F4R

Ich bezweifle das man mit einem 32 Byte Ping eine Seite DDosen kann

name22

Mit einem AutoIt Programm, das lediglich einen Ping Befehl ausführt lässt sich keine DDoS Attacke durchführen, aus mehreren Gründen... Über das Thema muss hier gar nicht weiter diskutiert werden.

**chesstiger**

a)
Der Windows-Ping ist 32 Byte lang.
Ping wird ausgeführt für google.de mit 32 Bytes Daten
Da AutoIt sich auf Win32 verlässt, wird Ping ebenso 32 Byte versenden.

b)
Der Witz ist: Der Server antwortet auf jeden 32 Byte Ping ebenso mit einem 32 Byte Pong. Und tendenziell hat so ein Server dann doch mehr Rechen- und Netzwerkleistung als der heimische Rechenknecht/Router... Demnach müsste man sich damit eher selber Schach Matt setzen.
Das ist jetzt nur theoretisch durchgespielt... Keine Ahnung, ob man sich dabei wirklich selbst Matt setzt.