
Здравствуйте! Я новичок в программировании.
Пытаюсь написать программу которая будет:
1. скачивать картинку из инета,
2. сохранять,
3. конвертировать в заданный размер,
4. сохранять,
5. удалять файл из 2 пункта
6. ждать минуту
7. повторять всё
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Программа", 330, 135, 416, 428)
$Button1 = GUICtrlCreateButton("Старт", 8, 8, 65, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Стоп", 80, 8, 65, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Картинка:", 8, 40, 55, 17)
$foto = GUICtrlCreateInput("", 64, 40, 257, 21) ;ссылка на фото
$Label2 = GUICtrlCreateLabel("Временная папка:", 8, 72, 97, 17)
$temp = GUICtrlCreateInput("", 104, 72, 217, 21) ;ссылка на сохранения
$Label3 = GUICtrlCreateLabel("Конечная папка:", 8, 104, 88, 17)
$finish = GUICtrlCreateInput("", 96, 104, 225, 21) ;ссылка на сохранения конвертированно
$Label4 = GUICtrlCreateLabel("Высота:", 152, 8, 45, 17)
$y = GUICtrlCreateInput("", 200, 8, 33, 21) ;высота
$Label5 = GUICtrlCreateLabel("Ширина:", 240, 8, 46, 17)
$x = GUICtrlCreateInput("", 288, 8, 33, 21) ;ширина
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func __ImageResize($sFile, $sOutput, $iWidth, $iHeight)
Local $hBMP, $hImage1, $hImage2, $hGraphic
_GDIPlus_Startup()
$hBMP = _WinAPI_CreateBitmap($iWidth, $iHeight, 1, 32) ; Create a bitmap (handle)
$hImage1 = _GDIPlus_BitmapCreateFromHBITMAP($hBMP) ; Create a bitmap object from a bitmap handle.
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage1) ; Get the graphic context of the blank bitmap.
$hImage2 = _GDIPlus_ImageLoadFromFile($sFile) ; Load the image you want to resize.
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage2, 0, 0, $iWidth, $iHeight) ;Draw the loaded image to the graphics of the blank bitmap at the size you want.
_GDIPlus_ImageSaveToFile($hImage1, $sOutput)
_GDIPlus_ImageDispose($hImage1)
_GDIPlus_ImageDispose($hImage2)
_GDIPlus_GraphicsDispose($hGraphic)
_WinAPI_DeleteObject($hBMP)
_GDIPlus_Shutdown()
EndFunc ;==>__ImageResize
InetGet($foto, $temp, 1, 1)
__ImageResize($temp, $finish, $y, $x)
Sleep(60000) ;ожижание
Подскажите пожалуйста как настроить кнопки "Старт" и "Стоп" и как написать 5 и 7 пункт.
Старт - запуск всего цикла, Стоп - остановка (для возможности ввода другой информации).
Так же нужна блокировка всех полей для ввода во время работы цикла.