Здравствуйте. Сегодня решил сделать такую программу для личного использования.
У меня есть ошибка в Func'циях не могу исправить. помогите.
Хочу реализовать прогресс бар. Но не умею.
У меня есть ошибка в Func'циях не могу исправить. помогите.
Хочу реализовать прогресс бар. Но не умею.
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Отправка запросов", 533, 532, 350, 110)
GUICtrlCreateGroup("Первый запрос", 0, 0, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Input1 = GUICtrlCreateInput("", 64, 16, 449, 21)
$Input2 = GUICtrlCreateInput("", 64, 40, 449, 21)
$Label1 = GUICtrlCreateLabel("URL", 8, 16, 26, 17)
$Label2 = GUICtrlCreateLabel("Параметр", 8, 40, 55, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Второй запрос", 0, 80, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Label4 = GUICtrlCreateLabel("URL", 8, 103, 26, 17)
$Label3 = GUICtrlCreateLabel("Параметр", 8, 128, 55, 17)
$Input3 = GUICtrlCreateInput("", 64, 96, 449, 21)
$Input4 = GUICtrlCreateInput("", 64, 120, 449, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Третий запрос", 0, 160, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Label5 = GUICtrlCreateLabel("URL", 8, 176, 28, 17)
$Label6 = GUICtrlCreateLabel("Параметр", 8, 200, 55, 17)
$Input5 = GUICtrlCreateInput("", 64, 176, 449, 21)
$Input6 = GUICtrlCreateInput("", 64, 200, 449, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Шестой запрос", 0, 400, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Label7 = GUICtrlCreateLabel("URL", 8, 340, 26, 17)
$Label10 = GUICtrlCreateLabel("Параметр", 8, 364, 55, 17)
$Input7 = GUICtrlCreateInput("", 64, 416, 441, 21)
$Input8 = GUICtrlCreateInput("", 64, 440, 441, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Пятый запрос", 0, 320, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Label8 = GUICtrlCreateLabel("URL", 8, 256, 26, 17)
$Label9 = GUICtrlCreateLabel("Параметр", 8, 284, 55, 17)
$Input9 = GUICtrlCreateInput("", 64, 336, 449, 21)
$Input10 = GUICtrlCreateInput("", 64, 360, 449, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Четвертый запрос", 0, 240, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Label11 = GUICtrlCreateLabel("URL", 8, 420, 26, 17)
$Label12 = GUICtrlCreateLabel("Параметр", 8, 444, 55, 17)
$Input7 = GUICtrlCreateInput("", 64, 256, 449, 21)
$Input8 = GUICtrlCreateInput("", 64, 280, 449, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Progress1 = GUICtrlCreateProgress(200, 480, 305, 33, $WS_BORDER)
$Button1 = GUICtrlCreateButton("Отправить", 8, 480, 89, 33)
$Button2 = GUICtrlCreateButton("Сохранить", 104, 480, 81, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_My_Func1()
_My_Func2()
_My_Func3()
_My_Func4()
_My_Func5()
_My_Func6()
TrayTip('', 'Все запросы отправлениы на сервер.', 5, 1)
Sleep(2000)
EndSwitch
WEnd
Func _My_Func1()
$URL = ""$Input1""
$PostData =""$Input2""
$oHTTP.Open("POST", $URL)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Sleep (5000)
$oHTTP.Send($PostData)
If $iEventError Then
$oHTTP.WaitForResponse
EndIf
EndFunc
Func _My_Func2()
$URL = ""$Input3""
$PostData =""$Input4""
$oHTTP.Open("POST", $URL)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Sleep (5000)
$oHTTP.Send($PostData)
If $iEventError Then
$oHTTP.WaitForResponse
EndIf
EndFunc
Func _My_Func3()
$URL = ""$Input5""
$PostData =""$Input6""
$oHTTP.Open("POST", $URL)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Sleep (5000)
$oHTTP.Send($PostData)
If $iEventError Then
$oHTTP.WaitForResponse
EndIf
EndFunc
Func _My_Func4()
$URL = ""$Input7""
$PostData =""$Input8""
$oHTTP.Open("POST", $URL)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Sleep (5000)
$oHTTP.Send($PostData)
If $iEventError Then
$oHTTP.WaitForResponse
EndIf
EndFunc
Func _My_Func5()
$URL = ""$Input9""
$PostData =""$Input10""
$oHTTP.Open("POST", $URL)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Sleep (5000)
$oHTTP.Send($PostData)
If $iEventError Then
$oHTTP.WaitForResponse
EndIf
EndFunc
Func _My_Func6()
$URL = ""$Input11""
$PostData =""$Input12""
$oHTTP.Open("POST", $URL)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Sleep (5000)
$oHTTP.Send($PostData)
If $iEventError Then
$oHTTP.WaitForResponse
EndIf
EndFunc
Func _WinHttpErrorHandler()
$iEventError = $oWinHttpError.Number
EndFunc