Что нового

[Автоматизация] отправка данных из списка

andreitrane

Новичок
Сообщения
141
Репутация
3
сделал программу для выполнения срочняков на фейках в тюряге, вроде сделал все правильно, но результат нулевой, выполняется только на первом фейке из списка, а остальные пропускаются, но все же лог нормально отображает разделение фейков... непример если в конце поставить
Код:
GUICtrlSetData($srlogedit, "id"& $ID[1] &" - выполнено"& @CRLF, @CRLF)

то в нужном порядке показывает выполненный айди, а если поставить так
Код:
GUICtrlSetData($srlogedit, "id"& $ID[2] &" - выполнено"& @CRLF, @CRLF)

то так же в правильном порядке показыает аутх, но все равно прочму то прога функцию не выполняет... что надо исправить?
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <ButtonConstants.au3>
#Region ### START Koda GUI section ### Form=
$srform = GUICreate("Срочняки v1.1", 486, 358, 184, 240)
GUISetBkColor(0xFFFF00)
$startsrbtn = GUICtrlCreateButton("Выполнить", 328, 8, 105, 41)
$Group1 = GUICtrlCreateGroup("id:auth", 8, 0, 289, 321)
$fake_edit = GUICtrlCreateEdit("", 16, 16, 273, 297, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$srlogedit = GUICtrlCreateEdit("", 304, 48, 177, 273, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
$Label1 = GUICtrlCreateLabel("by andreitrane (maniakk)", 304, 328, 173, 26)
GUICtrlSetFont(-1, 12, 400, 0, "Matura MT Script Capitals")
GUICtrlSetColor(-1, 0x000000)
$newfakesbtn = GUICtrlCreateButton("Из файла", 16, 328, 97, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $newfakesbtn
			$text = FileOpenDialog("Указать файл", @WorkingDir & "", "Любой (*.txt)", 1 + 4 )
        $Read = FileRead($text)
        GUICtrlSetData($fake_edit,$Read)
		Case $startsrbtn
			_startsr()

	EndSwitch
WEnd

Func _startsr()
	$i = GUICtrlRead($fake_edit)
	$fake = StringSplit($i, @LF)
	$ii = 1
	for $ii = 1 to $fake[0]
	$ID = StringSplit($fake[$ii], ":")
	$URL = "http://109.234.155.198/prison/universal.php?sendPresent"
            $PostData = "present%5Fid=3&user="& $ID[1] &"&key="& $ID[2] &"&sig=18e31e27a618dd2b2a6bb85921b5541c&recipients=127964220%2C90860572%2C115123216%2C106965530%2C112837336%2C114205321&method=sendPresent"
            $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
			Sleep(1000)
			$URL = "http://109.234.155.198/prison/universal.php?voteForFriend"
            $PostData = "vote=5&model%5Fid=1&username=Zhyk.ru&sig=fd42e6a512b610dcaff59af25ba2b736&key="& $ID[2] &"&sex=0&friend%5Fuid=48667677&user="& $ID[1] &"&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
			Sleep(1000)
			$URL = "http://109.234.156.250/prison/universal.php?getAllBuildingsRewards"
            $PostData = "sig=b858ff4bb6396bfa6a8ebec70d586566&user="& $ID[1] &"&key="& $ID[2] &"&method=getAllBuildingsRewards"
            $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
			Sleep(1000)
			$URL = "http://109.234.156.250/prison/universal.php?office"
            $PostData = "method=office&key="& $ID[2] &"&getidea=5&user="& $ID[1] &"&sig=940e212c740281e8482bcc4102865d6d"
            $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
			Sleep(1000)
			$URL = "http://109.234.155.198/prison/universal.php?challengeToDuel"
            $PostData = "enemy=48667677&key="& $ID[2] &"&sig=7e9456cbb7de72614e89d33e9e6b8542&user="& $ID[1] &"&method=challengeToDuel"
            $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
			Sleep(1000)
			$URL = "http://109.234.155.198/prison/universal.php?challengeToDuel"
            $PostData = "enemy=48667677&key="& $ID[2] &"&sig=7e9456cbb7de72614e89d33e9e6b8542&user="& $ID[1] &"&method=challengeToDuel"
            $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
			GUICtrlSetData($srlogedit, "id"& $ID[1] &" - выполнено"& @CRLF, @CRLF)
			Sleep(1000)
		Next
		GUICtrlSetData($srlogedit, "срочняки выполнены"& @CRLF, @CRLF)
			MsgBox(0, "срочняки", "срочняки выполнены))")
			EndFunc
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
думается мне что твой код требует перемещения в раздел ботоводов.
 
Автор
A

andreitrane

Новичок
Сообщения
141
Репутация
3
думается мне что твой код требует перемещения в раздел ботоводов
так вроде же здесь раздел где спрашиваешь и тебе отвечают? я просто не знаю в чем тут ошибка...
 
Автор
A

andreitrane

Новичок
Сообщения
141
Репутация
3
все дело в строчке
Код:
$fake = StringSplit($i, @LF)

если включить чарли и ловить запросы, то можно увидеть что со строчкой @LF сервер отвечает <result>0<\result>, со строчкой @CR - первый фейк проходит, а на остальные фейки сервер так же отвечает <result>0<\result>, ну а если же поставить @CRLF, то первый фейк проходит удачно, но потом выдает ошибку и вылетает... с комбинациями @LF & @LF, @LF &@CR, @CR & @CR, @CR & @LF тоже или сразу не отвечает, или первый фейк нормально проходит а на остальные сервер не отвечает, или первый фейк проходит и вылетает ошибка... кто может сказать что делать??? или надо комбинировать @CRLF, @CR и @LF??

ответьте пожалуйста, срочно надо
 
Верх