$1 = 0
If Not FileExists ( @DesktopDir & "\ICheck" ) Then
DirCreate ( @DesktopDir & "\ICheck" )
EndIf
If FileExists ( @DesktopDir & "\ICheck\ICheck.ini" ) Then
$inetsite = IniRead ( @DesktopDir & "\ICheck\ICheck.ini", "Einstellungen", "Internetseite", 0 )
EndIf
If Not FileExists ( @DesktopDir & "\ICheck\ICheck.ini" ) Then
$inetsite = InputBox ( "Internetadresse", "Gib die Internetadresse ein." )
If $inetsite = "" Then
MsgBox ( 16, "Fehler", "Bitte etwas eingeben!" )
Exit
EndIf
IniWrite ( @DesktopDir & "\ICheck\ICheck.ini", "Einstellungen", "Internetseite", $inetsite )
EndIf
If FileExists ( @DesktopDir & "\ICheck\ICheck.txt" ) Then
FileDelete ( @DesktopDir & "\ICheck\ICheck.txt" )
EndIf
While 1
$text = InetRead ( $inetsite )
If $1 = 0 Then
FileWrite ( @DesktopDir & "\ICheck\ICheck.txt", $text )
$1 = 1
EndIf
$checktxt = FileRead ( @DesktopDir & "\ICheck\ICheck.txt" )
If Not $checktxt = $text Then
MsgBox ( 32, "Information", $inetsite & " wurde aktualisiert." )
$question = MsgBox ( 4, "Frage", $inetsite & " Öffnen?" )
If $question = 6 Then
ShellExecute( $inetsite )
EndIf
Exit
EndIf
WEnd
Dieser Script geht nicht.Ich kann auf der jeweiligen Seite soviel wie ich will ändern.Es kommt keine Meldung ![]()