Global $hGui, $sGuiTitle = '11111111111111111111111111111'
Global $hImage1, $iWidth, $iHeight, $iRatio, $iLastWidth, $iLastHeight
Global $aArray[24][2] = [                                                              _
	[ 'http://s17.postimg.org/i98uxtqu7/20141102154515.png', 'Stars4.png'           ]  _
	]


If _FileIsMissing () Then _DownloadPng ()

Func _DownloadPng ()
	ToolTip ( '1111111111111111111111111' & @Crlf, @DesktopWidth/2 +0, 0, $sGuiTitle, 0, 4 )
	DirCreate ( @TempDir & '\Png2' )
	Local $aInetget[UBound ( $aArray )]
;~ 	Local $hTimerInit = TimerInit ()
	For $i = 0 To UBound ( $aArray ) -1
		If Not FileExists ( @TempDir & '\Png2\' & $aArray[$i][1] ) Then
			$aInetget[$i] = InetGet ( $aArray[$i][0], @TempDir & '\Png2\' & $aArray[$i][1], 1+8, 1 )
		EndIf
	Next
	For $i = 0 To UBound ( $aInetget ) -1
		Do
			Sleep ( 5 )
		Until InetGetInfo ( $aInetget[$i], 2 )
		InetClose ( $aInetget[$i] )
	Next
;~ 	ConsoleWrite ( @ScriptLineNumber & ' TimerDiff Downloads : ' & TimerDiff ( $hTimerInit ) & @Crlf )
	ToolTip ( '' )
EndFunc ;==> _DownloadPng ()

Func _Exit ()
	ToolTip ( '' )
	_ImageDispose ( $hImage1 )
	Exit
EndFunc ;==> _Exit

Func _FileIsMissing ()
	For $i = 0 To UBound ( $aArray ) -1
		If Not FileExists ( @TempDir & '\Png2\' & $aArray[$i][1] ) Then Return 1
	Next
EndFunc ;==> _FileIsMissing ()