Hallo,
ich habe dieses kleine Programm geschrieben:
[autoit]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Path = @ScriptDir & "\wdimg.jpg"
[/autoit][autoit][/autoit][autoit]$Form1 = GUICreate("Form1", 691, 331, 177, 230)
$Button1 = GUICtrlCreateButton("Temperatur", 8, 8, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Luftfeuchte", 8, 40, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Niederschlag", 8, 72, 75, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Windgeschw.", 8, 104, 75, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Windboen", 8, 136, 75, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Sonnenschein", 8, 168, 75, 25, $WS_GROUP)
$Button7 = GUICtrlCreateButton("Luftdruck", 8, 200, 75, 25, $WS_GROUP)
$Pic1 = GUICtrlCreatePic($Path, 88, 8, 592, 312, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Button8 = GUICtrlCreateButton("Aktualisieren", 8, 232, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If FileExists($Path) Then FileDelete($Path)
InetGet("http://www.wetter-haltern.de/wetter/charts/mini_currentt.gif", $Path, 1)
GUICtrlSetImage($Pic1, $Path)
EndSwitch
WEnd
Aus irgendeinem Grund funktioniert die Zeile mit "Case $Button1" nicht.
Weiß jemand warum?
