Что нового
Автор:
Фильтры

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

madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
CreatoR [?]
при «AutoIt.Error» тоже можно не выводить никакой информаций
Нажмите, чтобы раскрыть...
Честно говоря, я просто привык к Execute, хотя, наверное, более правильно AutoIt.Error. :IL_AutoIt_1:
 
Автор
C

CreatiK

Новичок
Сообщения
93
Репутация
4
Что за ошибка?
hlh.jpg

код кто может подправте если что то не так
Код: 
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Нычки", 269, 230, 192, 124)
GUISetBkColor(0x00FF00)
Global $iEventError = 0
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oWinHttpError = ObjEvent("AutoIt.Error", "_WinHttpErrorHandler")
$sINI = @ScriptDir & '\config.ini'
$bUser11 = IniRead($sINI, "Config", "ryadn", "")
$mUser1 = IniRead($sINI, "Config", "idn", "")
$sUser65 = IniRead($sINI, "Config", "Vid", "")
$id_feika1 = IniRead($sINI, "Config", "idfeika", "")
$auth_feika1 = IniRead($sINI, "Config", "authfeika", "")

$Button1 = GUICtrlCreateButton("Передать нычки", 16, 104, 217, 49, BitOR($BS_MULTILINE,$WS_BORDER,$WS_CLIPSIBLINGS))
$authf = GUICtrlCreateInput($auth_feika1, 16, 8, 217, 21)
$idf = GUICtrlCreateInput($id_feika1, 16, 40, 57, 21)
$idn = GUICtrlCreateInput($mUser1, 500, 40, 57, 21)
$ryad = GUICtrlCreateInput($bUser11, 500, 72, 57, 21)
$Label1 = GUICtrlCreateLabel("by CreAtiK", 32, 168, 182, 43)
GUICtrlSetFont(-1, 30, 400, 0, "Narkisim")
$Label2 = GUICtrlCreateLabel("Ваш id", 88, 72, 59, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("id фейка ", 88, 40, 83, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
                  GUISetState(@SW_DISABLE)
                  $aUsers = StringSplit(GUICtrlRead($idn), ",")
				  $sUsers = StringSplit(GUICtrlRead($ryad), ",")
				  $dUsers = StringSplit(GUICtrlRead($idf), ",")
				  $fUsers = StringSplit(GUICtrlRead($authf), ",")
                  _My_Func($aUsers)
                  GUISetState(@SW_ENABLE)
	EndSwitch
WEnd
Func _My_Func($aUsers)
          $URL = "http://109.234.155.196/prison/universal.php"
			For $i = 1 To $aUsers[0]
              $PostData = _
			  "cid=" & $sUsers [$i] & _
			  "&friend=" &$sUser65 &"&sig=020f34f41496b01af7309dde9c6b0785&user="& $dUsers [$i] & _
			  "&id=" & $aUsers [$i] & _
			  "&key=" & $fUsers [$i] & _
			  "&method=collectionsSendGiftToFriend"
              $oHTTP.Open("POST", $URL)
              $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
              $oHTTP.Send($PostData)
			  If $iEventError Then
              $oHTTP.WaitForResponse
			  EndIf
		  Next
	  EndFunc
	  
Func _WinHttpErrorHandler()
    $iEventError = $oWinHttpError.Number
EndFunc
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
CreatiK
Мне кажется, что у Вас не все массивы имеют одинаковый размер, т.е. не все данные введены в поля ввода, из-за этого и ошибка. Вы в функции используете все четыре массива в цикле и они должны иметь одинаковый размер. Можно или сделать проверку типа
Код: 
;...
Case $Button1
	$aUsers = StringSplit(GUICtrlRead($idn), ",")
	$sUsers = StringSplit(GUICtrlRead($ryad), ",")
	$dUsers = StringSplit(GUICtrlRead($idf), ",")
	$fUsers = StringSplit(GUICtrlRead($authf), ",")
	If $aUsers[0] = $sUsers[0] And $sUsers[0] = $dUsers[0] And $dUsers[0] = $fUsers[0] Then
		GUISetState(@SW_DISABLE)
		_My_Func($aUsers)
		GUISetState(@SW_ENABLE)
	Else
		MsgBox(16, 'Error', 'Вы ввели не все данные')
	EndIf
	;...
Или найти минимальное число из всех нулевых элементов массивов и его использовать в цикле в функции.
 
Автор
C

CreatiK

Новичок
Сообщения
93
Репутация
4
Как сделать чтобы запросы отправлял через секунд 10. а то быстро слишком. Помогите пожалуйста
 
A

ak40u

Знающий
Сообщения
33
Репутация
7
Добавь паузу перед send request: sleep(10000)
 
Автор
C

CreatiK

Новичок
Сообщения
93
Репутация
4
Добрый вечер.
Как сделать что бы из этого списка
Код: 
39513377:4ca91c706faacbecbf3e1cfce2037f0b
39512895:ea43f5d6fc99ca10d7afc7e40e712912
17108939:89422a9e479f0b28f71ba94ef058cf54
39514773:47195158118cfedb033c55a710b80fed
16725204:133f2c2eed09c61abc0bf9410c261cfa
44410425:fff9c752ee7e35889cfdc218dae0b980
46226107:e5f1e6f1464ce243e65f482590be536e
48569627:00b88bffa3a58302af4d02f45bee7a3d
78131395:8b0828181c7f8411287cbf4a5d374a34
64087469:424facacd5880e061733f162d568a804
39513377:4ca91c706faacbecbf3e1cfce2037f0b
39512895:ea43f5d6fc99ca10d7afc7e40e712912
17108939:89422a9e479f0b28f71ba94ef058cf54
39514773:47195158118cfedb033c55a710b80fed
16725204:133f2c2eed09c61abc0bf9410c261cfa
44410425:fff9c752ee7e35889cfdc218dae0b980
46226107:e5f1e6f1464ce243e65f482590be536e
48569627:00b88bffa3a58302af4d02f45bee7a3d
78131395:8b0828181c7f8411287cbf4a5d374a34
60810088:f2401badc4e4b3c46603a9aab579292f
60669262:07f0d593f3639304f8831ebecddf4631
60669307:4b213e33ee821cb521f8432233be2994
60754477:9e8e79dd7ddda6b25e69fd5440df5c98
60669442:f0c93e4514d85bc6f264909629ed9d72
60674866:a4d5580d1fe58d8f3a7635d5851837fb
60840520:8a5bf0fa72c2eab954fa3a5257c7df9e
62512537:849d41f5f92c3652a43600541714e09a
108305459:88db7ccb76c390eab78a7f91a404cc13
101432048:b0f28d6411f53f689cffadb9a56ef9e6
118186291:97e8f4fe10eee2b22db72107f3d97ccb
118188960:9a5079fa25365b610c144a7dc71fba3c
118192466:2845bd9975786561ad361e693349df49
118194232:7382e785a979c8f6815564f18741c87b
74169607:760e43521805bf815b9992db6454ca1a
12002239:736b3638b85c98dfe4035bcd60d66e28
10568832:45b6c69af0db98c0b042f91af62477e6
118140473:9d72295e4deee029a76f4c99ac8c73e9
118156359:bcf64dde21a750a2c99cc645e6380a7d
118157379:9aee1089efda58cbf4cf04788dda1c68
118160840:c1d0feb90ffed7ea61e2be4d6227912d
118359135:bf4c092afc9526dac9ce980beb0d6866
118363914:b89bd6289bfcf0fe8e69d1af02228770
118365128:6df6f493489b159ee35bc949c9530167
118374273:e54a93f7be06d93bd6398258d4c65f56
118376558:12d60d418d185519489ae623b4a08f49
118391258:9166d49c5d9f67903e75d7bb679c2277
118392644:fff7632235d13a3079c4537742be3066
118393707:aade89fbd6d3b54fcfa40d2c025f044f
118402482:7d4a35c73f8d930c0e3bfb851aeb5e2a
118404317:75030b3049526fe7d6ade620c28cd207
118411111:37470dffaf2552de335f5181596286d4
118414512:c03cc239a49b97cf1fdfc5833813cad0
118416814:9414a3fb4dafdc95ac26606d6524386a
118417866:12ef0dcb27a2a91213c73ecc172a7061
118419931:338fa74ecc83d217d672108d3796a388
118421449:79092d59f96fde958f764e94ac0b9d9c
118424090:8af112359d50eafe181a85d060c70094
118425072:be5eaa310754b88163cd24889fc4ee58
118426714:b3c51fb0e6a8b3aa47b4fdeb0f877cbb
118429520:338b2c03d6bd5e3d735d5aee51b13a65
118429957:add23ca6c84d1dd5205bae22e4a0a1a5

Это список id:auth вставлялся
Код: 
Func _My_Func($aUsers)
          $URL = "http://109.234.155.196/prison/universal.php"
            For $i = 1 To $aUsers[0]
              $PostData = _
              "cid=" & $sUsers [$i] & _
              "&friend=" &$sUser65 &"&sig=020f34f41496b01af7309dde9c6b0785&user="& Сюда вставился ид[$i] & _
              "&id=" & $aUsers [$i] & _
              "&key=" & Сюда вставился Auth [$i] & _
              "&method=collectionsSendGiftToFriend"
              $oHTTP.Open("POST", $URL)
              $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
              $oHTTP.Send($PostData)
              If $iEventError Then
              $oHTTP.WaitForResponse
              EndIf
          Next
      EndFunc

не могу разделить текст и вставить подходяшие место
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
CreatiK
Попробуйте так:
Код: 
;#include <Array.au3>
$j = 0
Dim $aID_Auth[$j + 1][2]
$aTemp = StringSplit(StringStripCR(FileRead(@ScriptDir & '\1.txt')), Chr(10))
If Not IsArray($aTemp) Then
	MsgBox(16, 'Error', 'Error')
	Exit
EndIf

For $i = 1 To $aTemp[0]
	If $aTemp[$i] Then
		$j += 1
		ReDim $aID_Auth[$j + 1][2]
		$aTempID_Auth = StringSplit($aTemp[$i], Chr(58))
		If $aTempID_Auth[0] <> 2 Then
			MsgBox(16, 'Error', 'Error')
			Exit
		EndIf
		$aID_Auth[$j][0] = $aTempID_Auth[1]
		$aID_Auth[$j][1] = $aTempID_Auth[2]
	EndIf
Next
$aID_Auth[0][0] = $j
;_ArrayDisplay($aID_Auth)
For $i = 1 To $aID_Auth[0][0]
	MsgBox(64, '№ ' & $i, 'ID: ' & $aID_Auth[$i][0] & @CRLF & 'Auth: ' & $aID_Auth[$i][1])
Next

В файле @ScriptDir & '\1.txt' - Ваш список.
 
Автор
C

CreatiK

Новичок
Сообщения
93
Репутация
4
Чет я не понял куда вставить?
Код: 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 543, 340, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 289, 321)
GUICtrlSetData(-1, "Edit1")
$Button1 = GUICtrlCreateButton("Перебрать", 312, 48, 209, 41)
$Input1 = GUICtrlCreateInput($sUser65, 320, 16, 145, 21)
Global $iEventError = 0
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oWinHttpError = ObjEvent("AutoIt.Error", "_WinHttpErrorHandler")
$sINI = @ScriptDir & '\settings.ini'
$sUser65 = IniRead($sINI, "CONFIG", "Vid", "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button12
			$aUsers = StringSplit(GUICtrlRead($idn), ",")
			$sUsers = StringSplit(GUICtrlRead($ryad), ",")
			_My_Func1($aUsers)
	EndSwitch
WEnd

Func _My_Func($aUsers)
          $URL = "http://109.234.155.196/prison/universal.php"
            For $i = 1 To $aUsers[0]
              $PostData = _
              "cid=" & $sUsers [$i] & _
              "&friend=" &$sUser65 &"&sig=020f34f41496b01af7309dde9c6b0785&user="& Сюда вставился ид[$i] & _
              "&id=" & $aUsers [$i] & _
              "&key=" & Сюда вставился Auth [$i] & _
              "&method=collectionsSendGiftToFriend"
              $oHTTP.Open("POST", $URL)
              $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
              $oHTTP.Send($PostData)
              If $iEventError Then
              $oHTTP.WaitForResponse
              EndIf
          Next
      EndFunc
	
Func _WinHttpErrorHandler()
    $iEventError = $oWinHttpError.Number
EndFunc
 
Автор
C

CreatiK

Новичок
Сообщения
93
Репутация
4
Я хочу что запустил скрипт ввел данные в $Edit1 и нажал перебрать он начал отправлять запросы
 
Автор
C

CreatiK

Новичок
Сообщения
93
Репутация
4
Данные надо что бы вводились вот эти ID:AUTH
Код: 
39513377:4ca91c706faacbecbf3e1cfce2037f0b
39512895:ea43f5d6fc99ca10d7afc7e40e712912
17108939:89422a9e479f0b28f71ba94ef058cf54
39514773:47195158118cfedb033c55a710b80fed
16725204:133f2c2eed09c61abc0bf9410c261cfa
44410425:fff9c752ee7e35889cfdc218dae0b980
46226107:e5f1e6f1464ce243e65f482590be536e
48569627:00b88bffa3a58302af4d02f45bee7a3d
78131395:8b0828181c7f8411287cbf4a5d374a34
64087469:424facacd5880e061733f162d568a804
39513377:4ca91c706faacbecbf3e1cfce2037f0b
39512895:ea43f5d6fc99ca10d7afc7e40e712912
17108939:89422a9e479f0b28f71ba94ef058cf54
39514773:47195158118cfedb033c55a710b80fed
16725204:133f2c2eed09c61abc0bf9410c261cfa
44410425:fff9c752ee7e35889cfdc218dae0b980
46226107:e5f1e6f1464ce243e65f482590be536e
48569627:00b88bffa3a58302af4d02f45bee7a3d
78131395:8b0828181c7f8411287cbf4a5d374a34
60810088:f2401badc4e4b3c46603a9aab579292f
60669262:07f0d593f3639304f8831ebecddf4631
60669307:4b213e33ee821cb521f8432233be2994
60754477:9e8e79dd7ddda6b25e69fd5440df5c98
60669442:f0c93e4514d85bc6f264909629ed9d72
60674866:a4d5580d1fe58d8f3a7635d5851837fb
60840520:8a5bf0fa72c2eab954fa3a5257c7df9e
62512537:849d41f5f92c3652a43600541714e09a
108305459:88db7ccb76c390eab78a7f91a404cc13
101432048:b0f28d6411f53f689cffadb9a56ef9e6
118186291:97e8f4fe10eee2b22db72107f3d97ccb
118188960:9a5079fa25365b610c144a7dc71fba3c
118192466:2845bd9975786561ad361e693349df49
118194232:7382e785a979c8f6815564f18741c87b
74169607:760e43521805bf815b9992db6454ca1a
12002239:736b3638b85c98dfe4035bcd60d66e28
10568832:45b6c69af0db98c0b042f91af62477e6
118140473:9d72295e4deee029a76f4c99ac8c73e9
118156359:bcf64dde21a750a2c99cc645e6380a7d
118157379:9aee1089efda58cbf4cf04788dda1c68
118160840:c1d0feb90ffed7ea61e2be4d6227912d
118359135:bf4c092afc9526dac9ce980beb0d6866
118363914:b89bd6289bfcf0fe8e69d1af02228770
118365128:6df6f493489b159ee35bc949c9530167
118374273:e54a93f7be06d93bd6398258d4c65f56
118376558:12d60d418d185519489ae623b4a08f49
118391258:9166d49c5d9f67903e75d7bb679c2277
118392644:fff7632235d13a3079c4537742be3066
118393707:aade89fbd6d3b54fcfa40d2c025f044f
118402482:7d4a35c73f8d930c0e3bfb851aeb5e2a
118404317:75030b3049526fe7d6ade620c28cd207
118411111:37470dffaf2552de335f5181596286d4
118414512:c03cc239a49b97cf1fdfc5833813cad0
118416814:9414a3fb4dafdc95ac26606d6524386a
118417866:12ef0dcb27a2a91213c73ecc172a7061
118419931:338fa74ecc83d217d672108d3796a388
118421449:79092d59f96fde958f764e94ac0b9d9c
118424090:8af112359d50eafe181a85d060c70094
118425072:be5eaa310754b88163cd24889fc4ee58
118426714:b3c51fb0e6a8b3aa47b4fdeb0f877cbb
118429520:338b2c03d6bd5e3d735d5aee51b13a65
118429957:add23ca6c84d1dd5205bae22e4a0a1a5

И вставлялись в запрос по очереди
Код: 
Func _My_Func($aUsers)
          $URL = "http://109.234.155.196/prison/universal.php"
            For $i = 1 To $aUsers[0]
              $PostData = _
              "cid=" & $sUsers [$i] & _
              "&friend=" &$sUser65 &"&sig=020f34f41496b01af7309dde9c6b0785&user="& Сюда вставился ид[$i] & _
              "&id=" & $aUsers [$i] & _
              "&key=" & Сюда вставился Auth [$i] & _
              "&method=collectionsSendGiftToFriend"
              $oHTTP.Open("POST", $URL)
              $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
              $oHTTP.Send($PostData)
              If $iEventError Then
              $oHTTP.WaitForResponse
              EndIf
          Next
      EndFunc

Раньше делал так и делал много Func
Код: 
id2=3097663
Auth2=6f04c58b44428c95511c898a8835eaa9
id3=4762230
Auth3=5fd4d972c5a84b0b98e8fbfef8582113
id4=19193356
Auth4=516ceb16528f174d2b8ff0337d6c3c87
id5=26410865
Auth5=7b34d7fe5dca82d84c3f9030d2cfdf2b
id6=11850252
Auth6=6fa5cc4daece7cb2a1c3da14c3f74199
id7=8180117
Auth7=c6117c7f87d3ca425e6ff4d24f1022ab
id8=42282756
Auth8=d9205f4b8a609a7f41ca5e25acdf78ae
id9=38733647
Auth9=422f4982691a5b96e593d2c22af3d925
id10=42420887
Auth10=01d9ce4f271226b82de260cc1015bbaf
id11=11666558
Auth11=1569bbb85831be0eb14bded557b6d866
id12=7342002
Auth12=482d27b394e2b1413ce4bbab2f6f08ab
id13=79489463
Auth13=d7ebf22c3d40c9512f350ea3306342e6
id14=1823329
Auth14=859a7e1ed4dc71e362e72c969069c90e
id15=29291128
Auth15=88fa8719f09e129ef8f7e62fbb2c0ef4
id16=5551654
Auth16=2d780c7932854d419850565009a62db7
id17=104977956
Auth17=ad32dae2e8cacfdc7c00273045d8dbe0
id18=15632439
Auth18=c275f51c428752ca84b7880c980695f4
id19=35577559
Auth19=4d3c8d382c899f32980c7c6e4f583c49
Ну так долго вставлять.

Посмотри мой скрипт в вложениях он огромный вот захотел переделать интерфейс и и переделать конфиг в формат ID:AUTH
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
G

Guezt

Продвинутый
Сообщения
335
Репутация
82
CreatiK
OffTopic:
Твои методы безжалостны по отношению к серверу... (подругому это по-моему называется ddos-атака) можно же получить список и выслать его, а не брутить все 210 вариантов на каждый аккаунт которых не один. так что кури в сторону /prison/universal.php?collectionsGetInfo и отсылай конкретно то, что есть не грузи сервер...

так и появляется http://vkontrole.pp.ru/vzlom-prilozenii-vkontakte/turyaga/3338-tyuryaga-peredacha-nychek-vkontakte-bag-chit-vzlom-hak-vkontakte-prilozhenie-vkontroleppru.html - ужас одним словом :smile:

по делу:
Создай файл в директории скрипта fake.txt туда занеси построчно как у тебя id:auth
получится что-то примерно так:

Код: 
Global $fake=FileRead(@ScriptDir&'ake.txt')


Func _My_Func($aUsers)
Local $fakeUser = StringSplit($fake,@CRLF) ; тут разделителем может быть и @CR и @LF зависит от формата файла

; 

Local $ii=1
    $oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
          $URL = "http://109.234.156.250/prison/universal.php?collectionsSendGiftToFriend"
       For $ii=1 To $fakeUser[0] ; перебераем от количества акков
            $key=StringSplit($fakeUser[$ii],':') ; делим каждый акк на id и auth
         For $i = 1 To $aUsers[0] ; тут  нубобрут
         $PostData = _
               "cid=" & $sUsers [$i] & _ 
               "&friend=" &$sUser65 &"&sig=020f34f41496b01af7309dde9c6b0785&user="& $key[1] & _ ; id 
               "&id=" & $aUsers [$i] & _
               "&key=" & $key[2] & _ ; auth
               "&method=collectionsSendGiftToFriend"
              $oHTTP.Open("POST", $URL)
              $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
              $oHTTP.Send($PostData)
              If $iEventError Then
              $oHTTP.WaitForResponse
              EndIf
            Sleep(1000)
          Next
        Sleep(1000)
        Next
      EndFunc


Все эта одна функция вышлет тебе всё что есть на всех id, но еще раз, как совет, научись получать список "нычек" :smile:
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
X Перебор всех значений Регулярные выражения и прочее 4
D Не срабатывает перебор массива после проверки значений при записи в новый массив Общие вопросы по AutoIt 2
Alkantel [Массивы] Перебор значений массива Общие вопросы по AutoIt 4
D [Время, дата] Нужен алгоритм перебора значений переменных для вставки в окно программы Стол заказов 5
V Перебор значений в заданных ограничениях Стол заказов 3
Похожие темы
Перебор всех значений
Не срабатывает перебор массива после проверки значений при записи в новый массив
[Массивы] Перебор значений массива
[Время, дата] Нужен алгоритм перебора значений переменных для вставки в окно программы
Перебор значений в заданных ограничениях
Верх