Что нового

Программа для отправки запросов на сервер

CreatiK

Новичок
Сообщения
93
Репутация
4
Здравствуйте. Сегодня решил сделать такую программу для личного использования.
У меня есть ошибка в Func'циях не могу исправить. помогите.
Хочу реализовать прогресс бар. Но не умею.
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Отправка запросов", 533, 532, 350, 110)

GUICtrlCreateGroup("Первый запрос", 0, 0, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Input1 = GUICtrlCreateInput("", 64, 16, 449, 21)
$Input2 = GUICtrlCreateInput("", 64, 40, 449, 21)
$Label1 = GUICtrlCreateLabel("URL", 8, 16, 26, 17)
$Label2 = GUICtrlCreateLabel("Параметр", 8, 40, 55, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUICtrlCreateGroup("Второй запрос", 0, 80, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Label4 = GUICtrlCreateLabel("URL", 8, 103, 26, 17)
$Label3 = GUICtrlCreateLabel("Параметр", 8, 128, 55, 17)
$Input3 = GUICtrlCreateInput("", 64, 96, 449, 21)
$Input4 = GUICtrlCreateInput("", 64, 120, 449, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUICtrlCreateGroup("Третий запрос", 0, 160, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Label5 = GUICtrlCreateLabel("URL", 8, 176, 28, 17)
$Label6 = GUICtrlCreateLabel("Параметр", 8, 200, 55, 17)
$Input5 = GUICtrlCreateInput("", 64, 176, 449, 21)
$Input6 = GUICtrlCreateInput("", 64, 200, 449, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUICtrlCreateGroup("Шестой запрос", 0, 400, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Label7 = GUICtrlCreateLabel("URL", 8, 340, 26, 17)
$Label10 = GUICtrlCreateLabel("Параметр", 8, 364, 55, 17)
$Input7 = GUICtrlCreateInput("", 64, 416, 441, 21)
$Input8 = GUICtrlCreateInput("", 64, 440, 441, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUICtrlCreateGroup("Пятый запрос", 0, 320, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Label8 = GUICtrlCreateLabel("URL", 8, 256, 26, 17)
$Label9 = GUICtrlCreateLabel("Параметр", 8, 284, 55, 17)
$Input9 = GUICtrlCreateInput("", 64, 336, 449, 21)
$Input10 = GUICtrlCreateInput("", 64, 360, 449, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUICtrlCreateGroup("Четвертый запрос", 0, 240, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Label11 = GUICtrlCreateLabel("URL", 8, 420, 26, 17)
$Label12 = GUICtrlCreateLabel("Параметр", 8, 444, 55, 17)
$Input7 = GUICtrlCreateInput("", 64, 256, 449, 21)
$Input8 = GUICtrlCreateInput("", 64, 280, 449, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Progress1 = GUICtrlCreateProgress(200, 480, 305, 33, $WS_BORDER)
$Button1 = GUICtrlCreateButton("Отправить", 8, 480, 89, 33)
$Button2 = GUICtrlCreateButton("Сохранить", 104, 480, 81, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			_My_Func1()
            _My_Func2()
            _My_Func3()
			_My_Func4()
            _My_Func5()
            _My_Func6()
			TrayTip('', 'Все запросы отправлениы на сервер.', 5, 1)
			Sleep(2000)
	EndSwitch
WEnd

Func _My_Func1()
		$URL = ""$Input1""
		$PostData =""$Input2""
		$oHTTP.Open("POST", $URL)
		$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
		Sleep (5000)
		$oHTTP.Send($PostData)
		If $iEventError Then
			$oHTTP.WaitForResponse
		EndIf
EndFunc

Func _My_Func2()
		$URL = ""$Input3""
		$PostData =""$Input4""
		$oHTTP.Open("POST", $URL)
		$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
		Sleep (5000)
		$oHTTP.Send($PostData)
		If $iEventError Then
			$oHTTP.WaitForResponse
		EndIf
EndFunc

Func _My_Func3()
		$URL = ""$Input5""
		$PostData =""$Input6""
		$oHTTP.Open("POST", $URL)
		$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
		Sleep (5000)
		$oHTTP.Send($PostData)
		If $iEventError Then
			$oHTTP.WaitForResponse
		EndIf
EndFunc

Func _My_Func4()
		$URL = ""$Input7""
		$PostData =""$Input8""
		$oHTTP.Open("POST", $URL)
		$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
		Sleep (5000)
		$oHTTP.Send($PostData)
		If $iEventError Then
			$oHTTP.WaitForResponse
		EndIf
EndFunc

Func _My_Func5()
		$URL = ""$Input9""
		$PostData =""$Input10""
		$oHTTP.Open("POST", $URL)
        $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
		Sleep (5000)
		$oHTTP.Send($PostData)
		If $iEventError Then
			$oHTTP.WaitForResponse
		EndIf
EndFunc

Func _My_Func6()
		$URL = ""$Input11""
		$PostData =""$Input12""
		$oHTTP.Open("POST", $URL)
		$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
		Sleep (5000)
		$oHTTP.Send($PostData)
		If $iEventError Then
			$oHTTP.WaitForResponse
		EndIf
EndFunc
  
Func _WinHttpErrorHandler()
    $iEventError = $oWinHttpError.Number
EndFunc
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
CreatiK [?]
Хочу реализовать прогресс бар. Но не умею.
Учитесь! :smile:
Не боги горшки обжигают!
Для начала, вам нужно почитать форум, внимательно, и справку по Autoit!

CreatiK [?]
Помогите почему выдает ошибку?
Потому, что вы хотите всё и сразу, а такого в жизни не бывает ;) (ничего личного, и без обид)
К тому же "Помогите, почему выдает ошибку?" вопрос сравнимый с вопросом "Почему колёса не крутятся?"
Ответ на такие вопросы один: А кто его знает! ;)
Вот вам пример, пробуйте.
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $oHTTP = ObjCreate("Msxml2.ServerXMLHTTP.3.0")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Отправка запросов", 533, 132, 350, 110)
GUICtrlCreateGroup("Первый запрос", 0, 0, 529, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER,$BS_FLAT,$WS_TABSTOP,$WS_CLIPSIBLINGS))
$Input1 = GUICtrlCreateInput("http://autoit-script.ru", 64, 16, 449, 21)
$Input2 = GUICtrlCreateInput("", 64, 40, 449, 21)
$Label1 = GUICtrlCreateLabel("URL", 8, 16, 26, 17)
$Label2 = GUICtrlCreateLabel("Параметр", 8, 40, 55, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Progress1 = GUICtrlCreateProgress(200, 90, 305, 33, $WS_BORDER)
$Button1 = GUICtrlCreateButton("Отправить", 8, 90, 89, 33)
$Button2 = GUICtrlCreateButton("Сохранить", 104, 90, 81, 33)
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)
            TrayTip('', 'Все запросы отправлениы на сервер.', 5, 1)
            Sleep(250)
			Exit
    EndSwitch
WEnd

Func _My_Func1($URL, $PostData)
	
        $oHTTP.Open("POST", GUICtrlRead(StringStripWS($URL, 3)))
		$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
		$oHTTP.SetRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)")
		$oHTTP.SetRequestHeader("Accept", "text/html")
		$oHTTP.SetRequestHeader("Accept_Charset", "utf-8")	
		$oHTTP.SetRequestHeader("Accept-Encoding", "identity")
		$oHTTP.SetRequestHeader("Accept_Language", "en-us")
		$oHTTP.SetRequestHeader("Connection", "Keep-Alive")
		$oHTTP.Send(GUICtrlRead(StringStripWS($PostData, 3)))
		While ($oHTTP.readyState <> 4)
			$oHTTP.waitForResponse = 1000
		Wend
		
EndFunc
 
Автор
C

CreatiK

Новичок
Сообщения
93
Репутация
4
Твой пример почему то запросы не отправил на сервер.
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
CreatiK [?]
Твой пример почему то запросы не отправил на сервер.
Люди конечно в скором будущем станут телепатами (так утверждают учёные мужи) но, к сожалению, я уже в пролёте. :(

Какие запросы?
Куда отправить?
Какие данные?
Что требуется получить?
и т.д. и т.д.
В студию, пожалуйста! :smile:
 
Автор
C

CreatiK

Новичок
Сообщения
93
Репутация
4
Извиняюсь за не полный данные :whistle:

Отправка запросов в интернет на сервер игры в контакте.

Пример одной функции
Код:
Func _My_Func25()
			  $URL = "http://109.234.155.196/prison/universal.php"
              $PostData ="vote=5&friend%5Fuid=57292995&model%5Fid=1&sig=d775294b5d63ae140d7c3563f3ff81dc&sex=0&key="&$auth_feika1&"&user="&$id_feika1&"&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")
			  Sleep (5000)
              $oHTTP.Send($PostData)
              If $iEventError Then
              $oHTTP.WaitForResponse
              EndIf
EndFunc
 

Guezt

Продвинутый
Сообщения
335
Репутация
81
CreatiK сказал(а):
Код:
Func _My_Func25()
           $URL = "http://109.234.155.196/prison/universal.php"
потому что
Код:
$URL = "http://109.234.155.196/prison/universal.php?voteForFriend"
а вообще да, без обид, прочти хотя бы на раз справку, а то ты зашел спросил тебе все сделали а ты By СreatiK - некрасиво :smile:
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
Попробуйте декодировать данные перед отправкой
[box]
$PostData ='vote=5&friend_Fuid=57292995&model_Fid=1&sig=d775294b5d63ae140d7c3563f3ff81dc&sex=0&key="&$auth_feika1&"&user="&$id_feika1&"&username=имя фамилия&method=voteForFriend'[/box]

В итоге, как я понял вы должны проголосовать?!

P.S. Если у вас встречаются в строке двойные кавычки, то предпочтительнее обрамлять строку в одинарные кавычки!
Пример: $PostData = 'тра-ля, "ля-ля-ля"'
 
Автор
C

CreatiK

Новичок
Сообщения
93
Репутация
4
С ковычкими я давно разобрался. Как мне сделать чтобы
Код:
$PostData = GUICtrlRead(StringStripWS($Input1, 3))
Он читал эти параметры с $Input1.
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
Guezt Gutsy [?]
а вообще да, без обид, прочти хотя бы на раз справку, а то ты зашел спросил тебе все сделали а ты By СreatiK - некрасиво
Нет, вы всё не так понимаете! By СreatiK на это мне :Censored: Просто вы приводите пример и даже не подозреваете, почему он не работает, а это значить, что вы не имеете представления о программирование. Я прав?
И в место того чтобы начать вникать в суть вещей, и стараться самому понять (тем более что есть форум и справка) вы просто просите написать всё за вас. Ну, тогда хотя бы поделитесь своими планами, что вы хотите, как вы хотите и т.д.
Однако что мы имеем:
CreatiK [?]
Здравствуйте. Сегодня решил сделать такую программу для личного использования
Ну что же, хорошее дело!
У меня есть ошибка в Func'циях не могу исправить.
Поможем!
CreatiK [?]
Научим!

И главное, что же вы всё-таки хотите?! Вот в чём суть!

На форуме молчание!

Второй пост:
[?]
Помогите, почему выдает ошибку?
Вы понимаете, в чём суть?! :smile:


Добавлено:
Сообщение автоматически объединено:

CreatiK [?]
Он читал эти параметры с $Input1
Я же вам написал:
Код:
_My_Func1($Input1, $Input2)
;~ ...
Func _My_Func1($URL, $PostData)
	$oHTTP.Open("POST", GUICtrlRead(StringStripWS($URL, 3)))
;~ 		...
	$oHTTP.Send(GUICtrlRead(StringStripWS($PostData, 3))
;~ 		...
EndFunc




Добавлено:
Сообщение автоматически объединено:

Извиняюсь. Опечатку поправил.


Добавлено:
Сообщение автоматически объединено:

Guezt Gutsy Извиняюсь, это не вам :rofl:
Устал на работе, что-то не внимателен под вечер! ;D
Но всё же изречения свои оставлю, чтобы были, если вы не против :smile:
 

Guezt

Продвинутый
Сообщения
335
Репутация
81
Garrett
http://autoit-script.ru/index.php/topic,3214.0.html

http://vkontrole.pp.ru/vzlom-prilozenii-vkontakte/turyaga/3338-tyuryaga-peredacha-nychek-vkontakte-bag-chit-vzlom-hak-vkontakte-prilozhenie-vkontroleppru.html

ранее:
http://autoit-script.ru/index.php/topic,3179.0.html

...как то так, да простят меня модераторы за оффтоп...
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
Guezt Gutsy
Ну, человек интересуется.
Форум для этого и создан! :smile:
Тут дело в другом, "хочу то, не знаю что", а напрягаться не охота, даже чтобы написать, что конкретно нужно! :smile:
 
Верх