Einfaches News Skript

Stevenx · 21. Februar 2013

Hey,

da ich für meine Programme immer ein einfaches Skript zum Herausfinden von neuen Versionen benutze, möchte ich es euch nicht vorenthalten

Abrufen von Version:

InetGet("http://www.limesoft-solutions.com/HTRSimple_News.ini","HTRSimple_News.ini",1) ;Hier eure Updates INI
If IniRead( "HTRSimple_News.ini", "News", "Message", "No") <> IniRead("HTRSettings.ini", "News", "Shown", "Yes") Then
_News() ;Die GUI
IniWrite("HTRSettings.ini", "News", "Shown", IniRead("HTRSimple_News.ini", "News", "Message", "Yes"))
EndIf

Die GUI:

Func _News()
$News_GUI = GUICreate("Message", 609, 136, 194, 172)
$Label1 = GUICtrlCreateLabel(IniRead("HTRSimple_News.ini", "News", "Message", "ERROR"), 16, 16, 572, 49)
$OK_BUTTON = GUICtrlCreateButton("OK", 16, 88, 75, 25)
$SHOW_BUTTON = GUICtrlCreateButton("Show", 104, 88, 75, 25)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($News_GUI)
ExitLoop
Case $OK_BUTTON
GUIDelete($News_GUI) ;Schließt die GUI
ExitLoop
Case $SHOW_BUTTON
$URL = IniRead( "HTRSimple_News.ini", "News", "URL", "http://limesoft-solutions.com") ;Zeigt die Website anschließend an
ShellExecute( $URL)
GUIDelete($News_GUI)
ExitLoop
EndSwitch
WEnd

EndFunc

Die INI sollte so ausschauen:

Code

[News]
Message=Text
URL=Website

Natürlich könnte man @error Handler und so einbauen, aber so wird Platz eingespart

Würde mich über Feedback und Kritik freuen,

StevenX

Teilen