Перебор значений в POST запросе

CreatiK · 24 Ноя 2010

Есть идейка одна нужен перебор значений от сюда

Код:

$sUser = GUICtrlCreateInput("1947563,2509647,2618554,3097663,3534437,3739558,3765649,4260810,5216618,6561141,7342002,7660186,8859117,8918426,9615226,10045565,12370060,12379629,12892815,13317540,13986010,14879491,15060031,15466987,16042276,16237582,18250266,19150750,19193356,19766462,20063546,23452094,23841619,23872367,24973443,26154556,27339914,27935567,28885689,30379875,35852609,35977649,37940254,39558400,42282756,42420887,45400139,45598667,48215933,51332703,53769659,54602758,55647675,55762972,56065781,56777454,59522509,59575446,60740576,60839276,61815104,62131500,63372193,63573320,70230821,70787022,71264488,71970784,72660488,74595847,74940172,78794708,79489463,80444887,80565192,83919961,85736812,86993671,88366549,88740150,90445916,91258948,94824916,96529062,96536583,99315631,99457187,100236635,105844937,106873676", 16, 8, 529, 21)

Код:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 559, 156, 192, 124)
$sUser = GUICtrlCreateInput("1947563,2509647,2618554,3097663,3534437,3739558,3765649,4260810,5216618,6561141,7342002,7660186,8859117,8918426,9615226,10045565,12370060,12379629,12892815,13317540,13986010,14879491,15060031,15466987,16042276,16237582,18250266,19150750,19193356,19766462,20063546,23452094,23841619,23872367,24973443,26154556,27339914,27935567,28885689,30379875,35852609,35977649,37940254,39558400,42282756,42420887,45400139,45598667,48215933,51332703,53769659,54602758,55647675,55762972,56065781,56777454,59522509,59575446,60740576,60839276,61815104,62131500,63372193,63573320,70230821,70787022,71264488,71970784,72660488,74595847,74940172,78794708,79489463,80444887,80565192,83919961,85736812,86993671,88366549,88740150,90445916,91258948,94824916,96529062,96536583,99315631,99457187,100236635,105844937,106873676", 16, 8, 529, 21)
$btn = GUICtrlCreateButton("Начать перебирать", 152, 64, 233, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button
				GUISetState(@SW_DISABLE)
				$sMoney = _My_Func()
				GUISetState(@SW_ENABLE)
	EndSwitch
WEnd
Func _My_Func1()
	$Host = "109.234.155.196"
	$File = "/prison/universal.php?voteForFriend"
	$URL = "http://" & $Host & $File
	$PostData = "vote=5&friend%5Fuid=57292995&model%5Fid=1&sig=d775294b5d63ae140d7c3563f3ff81dc&sex=0&key=f91bca177f94e848e4d763332fbfd836&user="&$sUser&"&username=%D0%90%D0%BD%D0%B4%D1%80%D0%B5%D0%B9%20%D0%A0%D1%8B%D0%BD%D0%B4%D0%B8%D0%BD&method=voteForFriend"
	$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
	$oHTTP.Open("POST", $URL)
	$oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
	$oHTTP.Send($PostData)
	$oHTTP.WaitForResponse
	$Response = $oHTTP.ResponseText
EndFunc   ;==>_My_Func

Сбда по очереди

Код:

$PostData = "vote=5&friend%5Fuid=57292995&model%5Fid=1&sig=d775294b5d63ae140d7c3563f3ff81dc&sex=0&key=f91bca177f94e848e4d763332fbfd836&user="&$sUser&"&username=%D0%90%D0%BD%D0%B4%D1%80%D0%B5%D0%B9%20%D0%A0%D1%8B%D0%BD%D0%B4%D0%B8%D0%BD&method=voteForFriend"

CreatoR · 24 Ноя 2010

Как то так:

Код:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oWinHttpError = ObjEvent("AutoIt.Error", "_WinHttpErrorHandler")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 559, 156, 192, 124)
$nUser = GUICtrlCreateInput("1947563,2509647,2618554,3097663,3534437,3739558,3765649,4260810,5216618,6561141,7342002,7660186,8859117,8918426,9615226,10045565,12370060,12379629,12892815,13317540,13986010,14879491,15060031,15466987,16042276,16237582,18250266,19150750,19193356,19766462,20063546,23452094,23841619,23872367,24973443,26154556,27339914,27935567,28885689,30379875,35852609,35977649,37940254,39558400,42282756,42420887,45400139,45598667,48215933,51332703,53769659,54602758,55647675,55762972,56065781,56777454,59522509,59575446,60740576,60839276,61815104,62131500,63372193,63573320,70230821,70787022,71264488,71970784,72660488,74595847,74940172,78794708,79489463,80444887,80565192,83919961,85736812,86993671,88366549,88740150,90445916,91258948,94824916,96529062,96536583,99315631,99457187,100236635,105844937,106873676", 16, 8, 529, 21)
$btn = GUICtrlCreateButton("Начать перебирать", 152, 64, 233, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btn
            GUISetState(@SW_DISABLE)
            
            $aUsers = StringSplit(GUICtrlRead($nUser), ",")
            
            For $i = 1 To $aUsers[0]
                $sMoney = _My_Func($aUsers[$i])
            Next
            
            GUISetState(@SW_ENABLE)
    EndSwitch
WEnd

Func _My_Func($iUser)
    $Host = "109.234.155.196"
    $File = "/prison/universal.php?voteForFriend"
    $URL = "http://" & $Host & $File
   
    $PostData = _
        "vote=5&friend%5Fuid=57292995&model%5Fid=1&sig=d775294b5d63ae140d7c3563f3ff81dc&sex=0&key=f91bca177f94e848e4d763332fbfd836&user=" & $iUser & _
        "&username=%D0%90%D0%BD%D0%B4%D1%80%D0%B5%D0%B9%20%D0%A0%D1%8B%D0%BD%D0%B4%D0%B8%D0%BD&method=voteForFriend"
    
    $oHTTP.Open("POST", $URL)
    $oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
    $oHTTP.Send($PostData)
    $oHTTP.WaitForResponse
    Return $oHTTP.ResponseText
EndFunc

Func _WinHttpErrorHandler()
	Msgbox(16, "AutoItCOM Test","We intercepted a COM Error !"      & @CRLF  & @CRLF & _
             "err.description is: "    & @TAB & $oWinHttpError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oWinHttpError.windescription & @CRLF & _
             "err.number is: "         & @TAB & Hex($oWinHttpError.number, 8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oWinHttpError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oWinHttpError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oWinHttpError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oWinHttpError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oWinHttpError.helpcontext _
            )
EndFunc

CreatiK · 24 Ноя 2010

а че за ошибка

CreatoR · 24 Ноя 2010

CreatiK [?]

че за ошибка

Ошибка объекта. Возможно это из за постоянного (пере)создания объектов, поправил.

CreatiK · 25 Ноя 2010

CreatoR сказал(а):

Как то так:

Код:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oWinHttpError = ObjEvent("AutoIt.Error", "_WinHttpErrorHandler")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 559, 156, 192, 124)
$nUser = GUICtrlCreateInput("1947563,2509647,2618554,3097663,3534437,3739558,3765649,4260810,5216618,6561141,7342002,7660186,8859117,8918426,9615226,10045565,12370060,12379629,12892815,13317540,13986010,14879491,15060031,15466987,16042276,16237582,18250266,19150750,19193356,19766462,20063546,23452094,23841619,23872367,24973443,26154556,27339914,27935567,28885689,30379875,35852609,35977649,37940254,39558400,42282756,42420887,45400139,45598667,48215933,51332703,53769659,54602758,55647675,55762972,56065781,56777454,59522509,59575446,60740576,60839276,61815104,62131500,63372193,63573320,70230821,70787022,71264488,71970784,72660488,74595847,74940172,78794708,79489463,80444887,80565192,83919961,85736812,86993671,88366549,88740150,90445916,91258948,94824916,96529062,96536583,99315631,99457187,100236635,105844937,106873676", 16, 8, 529, 21)
$btn = GUICtrlCreateButton("Начать перебирать", 152, 64, 233, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btn
            GUISetState(@SW_DISABLE)
            
            $aUsers = StringSplit(GUICtrlRead($nUser), ",")
            
            For $i = 1 To $aUsers[0]
                $sMoney = _My_Func($aUsers[$i])
            Next
            
            GUISetState(@SW_ENABLE)
    EndSwitch
WEnd

Func _My_Func($iUser)
    $Host = "109.234.155.196"
    $File = "/prison/universal.php?voteForFriend"
    $URL = "http://" & $Host & $File
   
    $PostData = _
        "vote=5&friend%5Fuid=57292995&model%5Fid=1&sig=d775294b5d63ae140d7c3563f3ff81dc&sex=0&key=f91bca177f94e848e4d763332fbfd836&user=" & $iUser & _
        "&username=%D0%90%D0%BD%D0%B4%D1%80%D0%B5%D0%B9%20%D0%A0%D1%8B%D0%BD%D0%B4%D0%B8%D0%BD&method=voteForFriend"
    
    $oHTTP.Open("POST", $URL)
    $oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
    $oHTTP.Send($PostData)
    $oHTTP.WaitForResponse
    Return $oHTTP.ResponseText
EndFunc

Func _WinHttpErrorHandler()
	Msgbox(16, "AutoItCOM Test","We intercepted a COM Error !"      & @CRLF  & @CRLF & _
             "err.description is: "    & @TAB & $oWinHttpError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oWinHttpError.windescription & @CRLF & _
             "err.number is: "         & @TAB & Hex($oWinHttpError.number, 8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oWinHttpError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oWinHttpError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oWinHttpError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oWinHttpError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oWinHttpError.helpcontext _
            )
EndFunc

Не работает вообще запросы перестал отправлять

CreatoR · 25 Ноя 2010

CreatiK [?]

Не работает

Тогда приведи полный рабочий пример, тот что в начале темы тоже нерабочий.

CreatiK · 25 Ноя 2010

Код:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$sINI = @ScriptDir & '\config.ini'
$User = IniRead($sINI, "Config", "id", "")
$Form1 = GUICreate("Качалка для друзей", 559, 156, 192, 124)
$nUser = GUICtrlCreateInput("1947563,2509647,2618554,3097663,3534437,3739558,3765649,4260810,5216618,6561141,7342002,7660186,8859117,8918426,9615226,10045565,12370060,12379629,12892815,13317540,13986010,14879491,15060031,15466987,16042276,16237582,18250266,19150750,19193356,19766462,20063546,23452094,23841619,23872367,24973443,26154556,27339914,27935567,28885689,30379875,35852609,35977649,37940254,39558400,42282756,42420887,45400139,45598667,48215933,51332703,53769659,54602758,55647675,55762972,56065781,56777454,59522509,59575446,60740576,60839276,61815104,62131500,63372193,63573320,70230821,70787022,71264488,71970784,72660488,74595847,74940172,78794708,79489463,80444887,80565192,83919961,85736812,86993671,88366549,88740150,90445916,91258948,94824916,96529062,96536583,99315631,99457187,100236635,105844937,106873676", 16, 8, 529, 21)
$btn = GUICtrlCreateButton("Начать Качать друзей", 152, 64, 233, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
   
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btn
            GUISetState(@SW_DISABLE)
           
            $aUsers = StringSplit(GUICtrlRead($nUser), ",")
           
            For $i = 1 To $aUsers[0]
                $sMoney = _My_Func($aUsers[$i])
            Next
           
            GUISetState(@SW_ENABLE)
    EndSwitch
WEnd

Func _My_Func($iUser)
    $Host = "109.234.155.196"
    $File = "/prison/universal.php?voteForFriend"
    $URL = "http://" & $Host & $File
   
    $PostData = _
        "vote=5&friend%5Fuid=" & $iUser & _
		"&model%5Fid=1&sig=d775294b5d63ae140d7c3563f3ff81dc&sex=0&key=f91bca177f94e848e4d763332fbfd836&user=57292995&username=%D0%90%D0%BD%D0%B4%D1%80%D0%B5%D0%B9%20%D0%A0%D1%8B%D0%BD%D0%B4%D0%B8%D0%BD&method=voteForFriend"
   
    $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
    $oHTTP.Open("POST", $URL)
    $oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
    $oHTTP.Send($PostData)
	Sleep(300)
EndFunc

Вот рабочий пример только он виснет и ошибку выдает

madmasles · 25 Ноя 2010

CreatiK [?]

только он виснет и ошибку выдает

У вас _My_Func($iUser) обрезанная, она ничего не возвращает.

CreatiK · 25 Ноя 2010

madmasles
Как исправить мне не надо чтобы возращала мне надо отправил запрос мне не надо ждать ответа от сервера

CreatoR · 25 Ноя 2010

CreatiK [?]

Вот рабочий пример только он виснет и ошибку выдает

Парадокс. Он рабочий но виснет и ошибку выдаёт... тогда что в нём рабочего? :-\

А так:

Код:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oWinHttpError = ObjEvent("AutoIt.Error", "_WinHttpErrorHandler")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 559, 156, 192, 124)
$nUser = GUICtrlCreateInput("1947563,2509647,2618554,3097663,3534437,3739558,3765649,4260810,5216618,6561141,7342002,7660186,8859117,8918426,9615226,10045565,12370060,12379629,12892815,13317540,13986010,14879491,15060031,15466987,16042276,16237582,18250266,19150750,19193356,19766462,20063546,23452094,23841619,23872367,24973443,26154556,27339914,27935567,28885689,30379875,35852609,35977649,37940254,39558400,42282756,42420887,45400139,45598667,48215933,51332703,53769659,54602758,55647675,55762972,56065781,56777454,59522509,59575446,60740576,60839276,61815104,62131500,63372193,63573320,70230821,70787022,71264488,71970784,72660488,74595847,74940172,78794708,79489463,80444887,80565192,83919961,85736812,86993671,88366549,88740150,90445916,91258948,94824916,96529062,96536583,99315631,99457187,100236635,105844937,106873676", 16, 8, 529, 21)
$btn = GUICtrlCreateButton("Начать перебирать", 152, 64, 233, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()

	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $btn
			GUISetState(@SW_DISABLE)

			$aUsers = StringSplit(GUICtrlRead($nUser), ",")
			_My_Func($aUsers)
			
			GUISetState(@SW_ENABLE)
	EndSwitch
WEnd

Func _My_Func($aUsers)
    $Host = "109.234.155.196"
    $File = "/prison/universal.php?voteForFriend"
    $URL = "http://" & $Host & $File
    
    For $i = 1 To $aUsers[0]
        $PostData = _
            "vote=5&friend%5Fuid=57292995&model%5Fid=1&sig=d775294b5d63ae140d7c3563f3ff81dc&sex=0&key=f91bca177f94e848e4d763332fbfd836&user=" & $aUsers[$i] & _
            "&username=%D0%90%D0%BD%D0%B4%D1%80%D0%B5%D0%B9%20%D0%A0%D1%8B%D0%BD%D0%B4%D0%B8%D0%BD&method=voteForFriend"
		
		$oHTTP.Open("POST", $URL)
		$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
		$oHTTP.Send($PostData)
		$oHTTP.WaitForResponse
    Next
EndFunc

Func _WinHttpErrorHandler()
	MsgBox(16, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
			"err.description is: " & @TAB & $oWinHttpError.description & @CRLF & _
			"err.windescription:" & @TAB & $oWinHttpError.windescription & @CRLF & _
			"err.number is: " & @TAB & Hex($oWinHttpError.number, 8) & @CRLF & _
			"err.lastdllerror is: " & @TAB & $oWinHttpError.lastdllerror & @CRLF & _
			"err.scriptline is: " & @TAB & $oWinHttpError.scriptline & @CRLF & _
			"err.source is: " & @TAB & $oWinHttpError.source & @CRLF & _
			"err.helpfile is: " & @TAB & $oWinHttpError.helpfile & @CRLF & _
			"err.helpcontext is: " & @TAB & $oWinHttpError.helpcontext _
			)
EndFunc

если выдаёт ошибку, то хотелось бы посмотреть на неё (скрин).

XpycT · 25 Ноя 2010

CreatoR
Ваш скрипт будет отсылать $PostData только для последнего значение из массива $aUsers :whistle:

CreatoR · 25 Ноя 2010

XpycT [?]

скрипт будет отсылать $PostData только для последнего значение из массива $aUsers

Упс :whistle:
Поправил.

madmasles · 25 Ноя 2010

CreatoR
Ошибку выдает:

CreatoR · 25 Ноя 2010

madmasles [?]

Ошибку выдает

Ну видиму нужно дожидаться отправки запроса, поправил.

madmasles · 25 Ноя 2010

У меня только так работает. Если паузу между запросами делать меньше, то вылазят ошибки. Видимо это специфика сервера:

Код:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oWinHttpError = ObjEvent("AutoIt.Error", "_WinHttpErrorHandler")

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 559, 156, 192, 124)
$nUser = GUICtrlCreateInput("1947563,2509647,2618554,3097663,3534437,3739558,3765649,4260810,5216618,6561141,7342002,7660186,8859117,8918426,9615226,10045565,12370060,12379629,12892815,13317540,13986010,14879491,15060031,15466987,16042276,16237582,18250266,19150750,19193356,19766462,20063546,23452094,23841619,23872367,24973443,26154556,27339914,27935567,28885689,30379875,35852609,35977649,37940254,39558400,42282756,42420887,45400139,45598667,48215933,51332703,53769659,54602758,55647675,55762972,56065781,56777454,59522509,59575446,60740576,60839276,61815104,62131500,63372193,63573320,70230821,70787022,71264488,71970784,72660488,74595847,74940172,78794708,79489463,80444887,80565192,83919961,85736812,86993671,88366549,88740150,90445916,91258948,94824916,96529062,96536583,99315631,99457187,100236635,105844937,106873676", 16, 8, 529, 21)
$btn = GUICtrlCreateButton("Начать перебирать", 152, 64, 233, 49)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()

	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $btn

			GUISetState(@SW_DISABLE)
			GUISetState(@SW_MINIMIZE)
			$aUsers = StringSplit(GUICtrlRead($nUser), ",")
			_My_Func($aUsers)
			GUISetState(@SW_RESTORE)
			GUISetState(@SW_ENABLE)
	EndSwitch
WEnd

Func _My_Func($aUsers)
	$Host = "109.234.155.196"
	$File = "/prison/universal.php?voteForFriend"
	$URL = "http://" & $Host & $File
	$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
	For $i = 1 To $aUsers[0]
		;$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
		$PostData = _
				"vote=5&friend%5Fuid=57292995&model%5Fid=1&sig=d775294b5d63ae140d7c3563f3ff81dc&sex=0&key=f91bca177f94e848e4d763332fbfd836&user=" & $aUsers[$i] & _
				"&username=%D0%90%D0%BD%D0%B4%D1%80%D0%B5%D0%B9%20%D0%A0%D1%8B%D0%BD%D0%B4%D0%B8%D0%BD&method=voteForFriend"
		ToolTip($i & ' - ' & $aUsers[$i] & ' - Send', 0, 0)
		$oHTTP.Open("POST", $URL)
		$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
		Execute('$oHTTP.Send($PostData)')
		If (@error) Or ($oHTTP.Status <> 200) Then
			ToolTip($i & ' - ' & $aUsers[$i] & ' - Error', 0, 0)
		Else
			$oHTTP.WaitForResponse
			ToolTip($i & ' - ' & $aUsers[$i] & ' - OK', 0, 0)
		EndIf
		If $i <> $aUsers[0] Then
			Sleep(60000)
		EndIf
		;$oHTTP = 0
	Next
EndFunc   ;==>_My_Func

Func _WinHttpErrorHandler()
	MsgBox(16, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
			"err.description is: " & @TAB & $oWinHttpError.description & @CRLF & _
			"err.windescription:" & @TAB & $oWinHttpError.windescription & @CRLF & _
			"err.number is: " & @TAB & Hex($oWinHttpError.number, 8) & @CRLF & _
			"err.lastdllerror is: " & @TAB & $oWinHttpError.lastdllerror & @CRLF & _
			"err.scriptline is: " & @TAB & $oWinHttpError.scriptline & @CRLF & _
			"err.source is: " & @TAB & $oWinHttpError.source & @CRLF & _
			"err.helpfile is: " & @TAB & $oWinHttpError.helpfile & @CRLF & _
			"err.helpcontext is: " & @TAB & $oWinHttpError.helpcontext, _
			5)
EndFunc   ;==>_WinHttpErrorHandler

CreatoR · 25 Ноя 2010

madmasles [?]

У меня только так работает

А почему через Execute?

madmasles · 25 Ноя 2010

CreatoR [?]

А почему через Execute?

Обработка ошибок при получении html - кода.
С тех пор этим способом и пользуюсь. Ни разу не подводил. :smile:

CreatoR · 25 Ноя 2010

madmasles [?]

С тех пор этим способом и пользуюсь

Я не вижу в чём различие, выполняется по сути тот же код.

madmasles · 26 Ноя 2010

CreatoR [?]

Я не вижу в чём различие, выполняется по сути тот же код.

Я сейчас проверял различные варианты. Получил следующее.
Если не использовать ни Execute, ни AutoIt.Error, то в случае ошибки скрипт вылетает.
Можно использовать или Execute, или AutoIt.Error, тогда скрипт работает дальше.
На мой взгляд, Execute проще и не выводит дополнительной информации, от которой конечному пользователю никакой пользы.
Итог: в моем коде можно убрать или одно, или другое, работает и так, и так.
:IL_AutoIt_1:

CreatoR · 26 Ноя 2010

madmasles [?]

Execute проще и не выводит дополнительной информации

Ну и при «AutoIt.Error» тоже можно не выводить никакой информаций, можно делать так:

Код:

Global $iEventError = 0

...

$oHTTP.Send($PostData)
If $iEventError Then ...

...

Func _WinHttpErrorHandler()
    $iEventError = $oWinHttpError.Number
EndFunc

Автор темы	Похожие темы	Форум	Ответы	Дата
X	Перебор всех значений	Регулярные выражения и прочее	4	12 Фев 2021
D	Не срабатывает перебор массива после проверки значений при записи в новый массив	Общие вопросы по AutoIt	2	8 Авг 2020
	[Массивы] Перебор значений массива	Общие вопросы по AutoIt	4	9 Окт 2018
D	[Время, дата] Нужен алгоритм перебора значений переменных для вставки в окно программы	Стол заказов	5	26 Июн 2016
V	Перебор значений в заданных ограничениях	Стол заказов	3	12 Дек 2010

Перебор значений в POST запросе

Новичок

Must AutoIt!

Новичок

Must AutoIt!

Новичок

Must AutoIt!

Новичок

Модератор

Новичок

Must AutoIt!

Скриптер

Must AutoIt!

Модератор

Must AutoIt!

Модератор

Must AutoIt!

Модератор

Must AutoIt!

Модератор

Must AutoIt!