Автор Тема: Программа для отправки запросов на сервер  (Прочитано 10884 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн CreatiK [?]

  • Новичок
  • *
  • Сообщений: 93
  • Репутация: 4
  • Пол: Мужской
    • Награды
Здравствуйте. Сегодня решил сделать такую программу для личного использования.
У меня есть ошибка в Func'циях не могу исправить. помогите.
Хочу реализовать прогресс бар. Но не умею.
Код: AutoIt [Выделить]
#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


Русское сообщество AutoIt

Программа для отправки запросов на сервер
« Отправлен: Декабрь 29, 2010, 19:12:05 »

Оффлайн Garrett [?]

  • Глобальный модератор
  • *
  • Сообщений: 3999
  • Репутация: 963
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Программа для отправки запросов на сервер
« Ответ #1, Отправлен: Декабрь 29, 2010, 23:14:29 »
CreatiK  [?]
Цитировать
Хочу реализовать прогресс бар. Но не умею.
Учитесь!  :)
Не боги горшки обжигают!
Для начала, вам нужно почитать форум, внимательно, и справку по Autoit!

CreatiK  [?]
Цитировать
Помогите почему выдает ошибку?
Потому, что вы хотите всё и сразу, а такого в жизни не бывает  ;) (ничего личного, и без обид)
К тому же "Помогите, почему выдает ошибку?" вопрос сравнимый с вопросом "Почему колёса не крутятся?"
Ответ на такие вопросы один: А кто его знает!  ;)
Вот вам пример, пробуйте.
Код: AutoIt [Выделить]
#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

« Последнее редактирование: Декабрь 30, 2010, 00:26:51 от Garrett »

Скорблю и помню.




Оффлайн CreatiK [?]

  • Новичок
  • *
  • Сообщений: 93

  • Автор темы
  • Репутация: 4
  • Пол: Мужской
    • Награды
Re: Программа для отправки запросов на сервер
« Ответ #2, Отправлен: Декабрь 29, 2010, 23:24:12 »
Твой пример почему то запросы не отправил на сервер.

Русское сообщество AutoIt

Re: Программа для отправки запросов на сервер
« Ответ #2 Отправлен: Декабрь 29, 2010, 23:24:12 »

Оффлайн Garrett [?]

  • Глобальный модератор
  • *
  • Сообщений: 3999
  • Репутация: 963
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Программа для отправки запросов на сервер
« Ответ #3, Отправлен: Декабрь 29, 2010, 23:30:43 »
CreatiK  [?]
Цитировать
Твой пример почему то запросы не отправил на сервер.
Люди конечно в скором будущем станут телепатами (так утверждают учёные мужи) но, к сожалению, я уже в пролёте.   :(

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

Оффлайн CreatiK [?]

  • Новичок
  • *
  • Сообщений: 93

  • Автор темы
  • Репутация: 4
  • Пол: Мужской
    • Награды
Re: Программа для отправки запросов на сервер
« Ответ #4, Отправлен: Декабрь 29, 2010, 23:42:47 »
Извиняюсь за не полный данные :whistle:

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

Пример одной функции
Код: AutoIt [Выделить]
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


Русское сообщество AutoIt

Re: Программа для отправки запросов на сервер
« Ответ #4 Отправлен: Декабрь 29, 2010, 23:42:47 »

Оффлайн Guezt Gutsy [?]

  • Продвинутый
  • ***
  • Сообщений: 335
  • Репутация: 81
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Программа для отправки запросов на сервер
« Ответ #5, Отправлен: Декабрь 30, 2010, 00:03:45 »

Func _My_Func25()
           $URL = "http://109.234.155.196/prison/universal.php"
             

потому что $URL = "http://109.234.155.196/prison/universal.php?voteForFriend"
а вообще да, без обид, прочти хотя бы на раз справку, а то ты зашел спросил тебе все сделали а ты By СreatiK - некрасиво :)

Оффлайн Garrett [?]

  • Глобальный модератор
  • *
  • Сообщений: 3999
  • Репутация: 963
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Программа для отправки запросов на сервер
« Ответ #6, Отправлен: Декабрь 30, 2010, 00:04:43 »
Попробуйте декодировать данные перед отправкой
$PostData ='vote=5&friend_Fuid=57292995&model_Fid=1&sig=d775294b5d63ae140d7c3563f3ff81dc&sex=0&key="&$auth_feika1&"&user="&$id_feika1&"&username=имя фамилия&method=voteForFriend'

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

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

Оффлайн CreatiK [?]

  • Новичок
  • *
  • Сообщений: 93

  • Автор темы
  • Репутация: 4
  • Пол: Мужской
    • Награды
Re: Программа для отправки запросов на сервер
« Ответ #7, Отправлен: Декабрь 30, 2010, 00:13:55 »
С ковычкими я давно разобрался. Как мне сделать чтобы
$PostData = GUICtrlRead(StringStripWS($Input1, 3))
Он читал эти параметры с $Input1.


Русское сообщество AutoIt

Re: Программа для отправки запросов на сервер
« Ответ #7 Отправлен: Декабрь 30, 2010, 00:13:55 »

Оффлайн Garrett [?]

  • Глобальный модератор
  • *
  • Сообщений: 3999
  • Репутация: 963
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Программа для отправки запросов на сервер
« Ответ #8, Отправлен: Декабрь 30, 2010, 00:21:46 »
Guezt Gutsy  [?]
Цитировать
а вообще да, без обид, прочти хотя бы на раз справку, а то ты зашел спросил тебе все сделали а ты By СreatiK - некрасиво
Нет, вы всё не так понимаете! By СreatiK на это мне  :Censored: Просто вы приводите пример и даже не подозреваете, почему он не работает, а это значить, что вы не имеете представления о программирование. Я прав?
И в место того чтобы начать вникать в суть вещей, и стараться самому понять (тем более что есть форум и справка) вы просто просите написать всё за вас. Ну, тогда хотя бы поделитесь своими планами, что вы хотите, как вы хотите и т.д.
Однако что мы имеем:
CreatiK  [?]
Цитировать
Здравствуйте. Сегодня решил сделать такую программу для личного использования
Ну что же, хорошее дело!
Цитировать
У меня есть ошибка в Func'циях не могу исправить.
Поможем!
CreatiK  [?]
Цитировать
Но не умею.
Научим!

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

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

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

Вы понимаете, в чём суть?! :)


Добавлено: Декабрь 30, 2010, 00:25:24
CreatiK  [?]
Цитировать
Он читал эти параметры с $Input1
Я же вам написал:
Код: AutoIt [Выделить]
_My_Func1($Input1, $Input2)
;~ ...
Func _My_Func1($URL, $PostData)
    $oHTTP.Open("POST", GUICtrlRead(StringStripWS($URL, 3)))
;~      ...
    $oHTTP.Send(GUICtrlRead(StringStripWS($PostData, 3))
;~      ...
EndFunc




Добавлено: Декабрь 30, 2010, 00:27:40
Извиняюсь. Опечатку поправил.


Добавлено: Декабрь 30, 2010, 00:33:30
Guezt Gutsy Извиняюсь, это не вам :rofl:
Устал на работе, что-то не внимателен под вечер!  ;D
Но всё же изречения свои оставлю, чтобы были, если вы не против :)
« Последнее редактирование: Декабрь 30, 2010, 00:33:46 от Garrett, Причина: Объединение сообщений »

Оффлайн Guezt Gutsy [?]

  • Продвинутый
  • ***
  • Сообщений: 335
  • Репутация: 81
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0

Оффлайн Garrett [?]

  • Глобальный модератор
  • *
  • Сообщений: 3999
  • Репутация: 963
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Программа для отправки запросов на сервер
« Ответ #10, Отправлен: Декабрь 30, 2010, 01:06:32 »
Guezt Gutsy
Ну, человек интересуется.
Форум для этого и создан! :)
Тут дело в другом, "хочу то, не знаю что", а напрягаться не охота, даже чтобы написать, что конкретно нужно! :)

Русское сообщество AutoIt

Re: Программа для отправки запросов на сервер
« Ответ #10 Отправлен: Декабрь 30, 2010, 01:06:32 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
3 Ответов
6104 Просмотров
Последний ответ Февраль 07, 2015, 13:38:04
от kristow13
3 Ответов
3252 Просмотров
Последний ответ Апрель 09, 2011, 19:06:23
от firex
0 Ответов
3234 Просмотров
Последний ответ Июль 06, 2012, 09:55:23
от madmasles
5 Ответов
3739 Просмотров
Последний ответ Сентябрь 30, 2012, 22:26:34
от madmasles
8 Ответов
5745 Просмотров
Последний ответ Сентябрь 22, 2013, 18:30:35
от urrya
1 Ответов
1022 Просмотров
Последний ответ Январь 27, 2015, 03:18:45
от ivanius
1 Ответов
3213 Просмотров
Последний ответ Февраль 24, 2015, 18:04:22
от CreatoR
29 Ответов
7933 Просмотров
Последний ответ Ноябрь 02, 2015, 20:58:19
от veretragna
1 Ответов
567 Просмотров
Последний ответ Сентябрь 30, 2017, 21:54:52
от Garrett
0 Ответов
470 Просмотров
Последний ответ Апрель 16, 2019, 08:27:39
от Yriy_07