Вот мой скрипт программы. на сделать таймер чтобы после окончании которого он отправляет заново по очереди
Если делать через AdlibRegister то он не вставляет _My_Func1($Input1, $Input2)
Код:
_My_Func1($Input1, $Input2)
_My_Func2($Input3, $Input4)
_My_Func3($Input5, $Input6)
Если делать через AdlibRegister то он не вставляет _My_Func1($Input1, $Input2)
Код:
AdlibRegister("_My_Func1", 300000)
AdlibRegister("_My_Func1", 300000)
AdlibRegister("_My_Func1", 300000)
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#Region ### START Koda GUI section ### Form=c:\users\Дмитрий\desktop\form1.kxf
$title = "***HTTPPost - Отправка POST запросов***"
$hGUI = GUICreate($title, 497, 298, 346, 248)
GUISetBkColor(0xFFFFFF)
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
AdlibRegister("TitleChanger", 200)
Global $iEventError = 0
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oWinHttpError = ObjEvent("AutoIt.Error", "_WinHttpErrorHandler")
$Group1 = GUICtrlCreateGroup("HTTPPost", 16, 8, 473, 65)
$Input1 = GUICtrlCreateInput("", 72, 24, 409, 21)
$Input2 = GUICtrlCreateInput("", 72, 48, 409, 21)
$Label1 = GUICtrlCreateLabel("URL", 24, 24, 26, 17)
$Label2 = GUICtrlCreateLabel("Param", 24, 48, 34, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("HTTPPost", 16, 81, 473, 65)
$Input3 = GUICtrlCreateInput("", 72, 97, 409, 21)
$Input4 = GUICtrlCreateInput("", 72, 121, 409, 21)
$Label3 = GUICtrlCreateLabel("URL", 24, 97, 26, 17)
$Label4 = GUICtrlCreateLabel("Param", 24, 121, 34, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("HTTPPost", 16, 152, 473, 65)
$Input5 = GUICtrlCreateInput("", 72, 168, 409, 21)
$Input6 = GUICtrlCreateInput("", 72, 192, 409, 21)
$Label5 = GUICtrlCreateLabel("URL", 24, 168, 26, 17)
$Label6 = GUICtrlCreateLabel("Param", 24, 192, 34, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Отправить", 16, 224, 97, 25, $WS_BORDER)
$Button2 = GUICtrlCreateButton("Сохранить", 16, 256, 97, 25, $WS_BORDER)
$Button3 = GUICtrlCreateButton("Очистить", 120, 224, 97, 25, $WS_BORDER)
$Button4 = GUICtrlCreateButton("Свернуть в трей", 120, 256, 97, 25, $WS_BORDER)
$Input7 = GUICtrlCreateInput("Input7", 424, 240, 65, 21)
$Label7 = GUICtrlCreateLabel("Таймер", 432, 216, 43, 17)
$Button5 = GUICtrlCreateButton("Ок", 424, 264, 65, 25)
GUISetState(@SW_SHOW)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_My_Func1($Input1, $Input2)
_My_Func2($Input3, $Input4)
_My_Func3($Input5, $Input6)
Case $Button3
GUICtrlSetData($Input1,'')
GUICtrlSetData($Input2,'')
GUICtrlSetData($Input3,'')
GUICtrlSetData($Input4,'')
GUICtrlSetData($Input5,'')
GUICtrlSetData($Input6,'')
Case $Button4
GUISetState(@SW_HIDE)
TraySetState(1)
EndSwitch
WEnd
Func _My_Func1($URL, $PostData)
$oHTTP.Open("POST", GUICtrlRead(StringStripWS($URL, 3)))
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.Send(GUICtrlRead(StringStripWS($PostData, 3)))
If $iEventError Then
$oHTTP.WaitForResponse
EndIf
EndFunc
Func _My_Func2($URL, $PostData)
$oHTTP.Open("POST", GUICtrlRead(StringStripWS($URL, 3)))
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.Send(GUICtrlRead(StringStripWS($PostData, 3)))
If $iEventError Then
$oHTTP.WaitForResponse
EndIf
EndFunc
Func _My_Func3($URL, $PostData)
$oHTTP.Open("POST", GUICtrlRead(StringStripWS($URL, 3)))
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.Send(GUICtrlRead(StringStripWS($PostData, 3)))
If $iEventError Then
$oHTTP.WaitForResponse
EndIf
EndFunc
Func _WinHttpErrorHandler()
$iEventError = $oWinHttpError.Number
EndFunc
Do
$msg = GUIGetMsg()
Until $msg = -3
Func TitleChanger()
$title = WinGetTitle($hGUI)
$newtitle = StringMid($title, 2) & StringLeft($title, 1)
WinSetTitle($title, "", $newtitle)
EndFunc
Func _RestoreFromTray_Proc()
If BitAND(WinGetState($hGUI), 2) = 2 Then Return
TraySetState(2)
GUISetState(@SW_SHOW)
GUISetState(@SW_RESTORE)
EndFunc