code:

---

 
break on 

$zipcode='32505','32308','32615','32209','33701','33614','32801','33901','33407','33309','33166'


$Form 		= CreateObject("Kixtart.Form")
$Form.FontName 	= "arial"
$Form.FontSize 	= 9
$Form.Size 	= 320,250

$Area01		= $Form.Button("Area01",5,5,50,25)	$Area01.onClick	= "ShowPic(1)"
$Area02		= $Form.Button("Area02",55,5,50,25)	$Area02.onClick	= "ShowPic(2)"
$Area03		= $Form.Button("Area03",105,5,50,25)	$Area03.onClick	= "ShowPic(3)"
$Area04		= $Form.Button("Area04",155,5,50,25)	$Area04.onClick	= "ShowPic(4)"
$Area05		= $Form.Button("Area05",205,5,50,25)	$Area05.onClick	= "ShowPic(5)"
$Area06		= $Form.Button("Area06",255,5,50,25)	$Area06.onClick	= "ShowPic(6)"
$Area07		= $Form.Button("Area07",5,30,50,25)	$Area07.onClick	= "ShowPic(7)"
$Area08		= $Form.Button("Area08",55,30,50,25)	$Area08.onClick	= "ShowPic(8)"
$Area09		= $Form.Button("Area09",105,30,50,25)	$Area09.onClick	= "ShowPic(9)"
$Area10		= $Form.Button("Area10",155,30,50,25)	$Area10.onClick	= "ShowPic(10)"
$Area11		= $Form.Button("Area11",205,30,50,25)	$Area11.onClick	= "ShowPic(11)"
$Area00		= $Form.Button("Area00",255,30,50,25)	$Area00.onClick	= "ShowPic(12)"


$pbox = $form.picturebox('',20,70,270,140)

$Form.Center
$Form.Show
While $Form.Visible
 $=Execute($Form.DoEvents)
Loop

Exit 1

Function ShowPic($area)
	$zip=$zipcode[$area-1]
	ftpget("http://oap.weather.com/fcgi-bin/oap/generate_magnet?loc_id=$zip","%temp%\$zip.jpg")
	del "%temp%\$zip.bmp"
	shell 'c:\djpeg.exe -bmp "%temp%\$zip.jpg"'
	$pbox.picture="%temp%\$zip.bmp"
	$pbox.refresh
	endfunction

Function FTPget($sURL, $sTargetFile, optional $sUser, optional $sPass)
	Dim $oFTP, $oStream
	$sUser=""+$sUser
	$oFTP = CreateObject("Microsoft.XMLHTTP")
	if @error 	$ftpget=1 	exit 1 	endif
	$oStream = CreateObject("ADODB.Stream")
	if @error 	$ftpget=2 	exit 2 	endif
	if $sUser
		$oFTP.Open("GET", $sURL, not 1, $sUser, $sPass)
	else
		$oFTP.Open("GET", $sURL, not 1)
		endif
	if @error 	$ftpget=3 	exit 3 	endif
	$oFTP.Send
	$oStream.Type = 1
	$oStream.Mode = 3
	$oStream.open
	$oStream.Write($oFTP.responseBody)
	if @error 	$ftpget=4 	exit 4 	endif
	$oStream.SaveToFile($sTargetFile, 2)
	if @error 	$ftpget=5 	exit 5 	endif
	$oStream.Close
	EndFunction


 

---