[Сеть, интернет] Генератор HTTP запросов

[misha497]

AutoIt: 3.3.6.1
Версия: 1.01
Категория: Сеть
Описание: Данная программа позволяет переводить HTTP заголовки полученные из тких снифферов как WinHTTP или HTTPfox в удобный для AUTOIT вид.

Код:

Спойлер

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#Region ### START Koda GUI section ### Form=c:\users\migog222\desktop\koda_1.7.2.0\forms\http to udf.kxf
$Form1_1 = GUICreate("", 611, 407, 222, 149)
$Edit1 = GUICtrlCreateEdit("", 16, 8, 561, 177)
GUICtrlSetData(-1, '(Request-Line)	GET /suggest-ya.cgi?v=3&callback=jsonp1308913238166&part=%D0%BD%D1%80%D0%BA&lr=&yu=9227468251308811075 HTTP/1.1'&@crlf&'Host	suggest.yandex.ru'&@crlf&'User-Agent	Mozilla/5.0 (Windows NT 6.1; rv:5.0) Gecko/20100101 Firefox/5.0 YB/5.2.3'&@crlf&'Accept	text/javascript, application/javascript, */*'&@crlf&'Accept-Language	ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3'&@crlf&'Accept-Encoding	gzip, deflate'&@crlf&'Accept-Charset	windows-1251,utf-8;q=0.7,*;q=0.7'&@crlf&'Connection	keep-alive'&@crlf&'Content-Type	application/x-www-form-urlencoded'&@crlf&'X-Requested-With	XMLHttpRequest'&@crlf&'Referer	http://suggest.yandex.ru/jquery-1-4-2.crossframeajax.html'&@crlf&'Cookie	yandexuid=9227468251308811075')
GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKHCENTER+$GUI_DOCKVCENTER+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlSetTip(-1, "Сюда вводим HTTP запрос.")
$Edit2 = GUICtrlCreateEdit("", 16, 224, 561, 161)
GUICtrlSetData(-1, "Edit2")
GUICtrlSetTip(-1, "Сдесь получаем готовый ответ")
GUICtrlSetData($Edit2,'Здесь будет код AUTOIT полученный в результате обработки')
$Button1 = GUICtrlCreateButton("Parse", 24, 192, 113, 25, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 152, 192, 105, 21)
GUICtrlSetData($Input1,'	')
GUICtrlSetTip(-1, "Сюда вводим разделитель.")
$Button2 = GUICtrlCreateButton("clip put", 272, 192, 89, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
Dim $Form1_1_AccelTable[1][2] = [["^c", $Button2]]
GUISetAccelerators($Form1_1_AccelTable)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1

	$Text = GUICtrlRead($Edit1)
	$Delim = Guictrlread($Input1)
	$First = stringregexp($Text,'(.*)'&$Delim,3)
	$Second = stringregexp($Text,$Delim&'(.*)',3)
$i = 0
Dim $Vichlop[Ubound($First)]
do
$Text = StringstripWS(StringStripCR('$oHTTP.SetRequestHeader("'&$First[$i]&'","'&$Second[$i]&'")'),1)
	$Vichlop[$i] =$Text&@CRLF
	$i+=1
Until $i = Ubound($second)

_Arrayadd($Vichlop,"$oHTTP.send('')"&@CRLF)
_Arrayadd($Vichlop,"$oHTTP.WaitFoRresponse"&@CRLF)
_Arrayadd($Vichlop,"$resp = $oHTTP.ResponseText"&@CRLF)
_Arrayadd($Vichlop,'$Headers = $oHTTP.GetAllResponseHeaders'&@CRLF)
$Text = _ArrayToString($Vichlop,'')

GUICtrlSetData($Edit2,$Text)
Case $Button2
	ClipPut(GUICtrlRead($Edit2))
EndSwitch

WEnd

Файл: EXE

Снимок:


История версий:

v1.01
* Первый релиз.

Источник: autoit-script.ru
Автор(ы): misha497

 

[Garrett]

misha497
Если это у вас программа, то оформите тему согласно правилам обязательного оформления публикаций, и я перенесу её в раздел "Примеры и рабочие проекты"
С уважением, Модератор раздела.

 

[joiner]

при нажатии кнопки Parse появляется ошибка - Array variable subscript badly formatted

 

[misha497]

Александр. - Поправил. Теперь скрипт идет вместе с примером.
Garett. - ок. описание изменил. Так нормально, или нужно еще что-то добавить?

 

[Garrett]

OffTopic:
misha497
Маленький совет. Когда делаете screenshot, удерживайте клавишу Alt, в этом случае у вас будет аккуратный снимок активного окна. Далее можно обработать в Photoshop`е и сохранить для Web.