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
#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 ###
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
EndSwitch
WEnd
Download ist auch unten angehängt.
)
