Не отправляет запрос
- Автор темы DarkCrush
- Дата начала
- Статус
Код:
Func _Str($aArray)
local $Edit9, $User
For $ii=1 To $aArray[0]
$key=StringSplit($aArray[$ii],':')
Local $PostData = 'method=voteForFriend&user='&$key[1]&'&sig=83cd024fd5fd1c42f330f8cc1677808d&vote=5&friend_uid='&$User&'key='&$key[2]&'&model_id=1&sex=0'
local $oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open("POST", $GetStr)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Execute('$oHTTP.Send($PostData)')
$oHTTP.WaitForResponse
$Response = $oHTTP.ResponseText
$Edit9=GUICtrlSetData($Edit9, $Response)
Sleep(1000)
Next
EndFunc ;==> _StrВот
они у меня глобальные, я просто подумал так быстрее работать должно 
Добавлено:
Когда убрал из local стало писать
Добавлено:
Сообщение автоматически объединено:
Когда убрал из local стало писать
Код:
: WARNING: $Edit9: possibly used before declaration.
GUICtrlSetData($Edit9,
~~~~~~~~~~~~~~~~~~~~~^
WARNING: $Edit9: declared global in function only. Prefer top of file.
Global $Form7, $Group7, $Group8, $Group9, $fake, $Edit9,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
- 0 error(s), 2 warning(s)
->02:43:38 AU3Check ended.rc:1
==> The requested action with this object has failed.:
$Response13 = $oHTTP.ResponseText
$Response13 = $oHTTP.ResponseText^ ERROR
- Сообщения
- 3,999
- Репутация
- 967
$PostData = 'method=voteForFriend&user=' &$key[1]& '&sig=83cd024fd5fd1c42f330f8cc1677808d&vote=5&friend_uid=' &$User& '&key=' &$key[2]& '&model_id=1&sex=0'
Добавлено:
Добавлено:
Если переменная $Edit9 handle то она по умолчанию глобальная
Добавлено:
Сообщение автоматически объединено:
Код:
Func _Str($aArray)
Local $oHTTP, $PostData
For $ii=1 To $aArray[0]
$key=StringSplit($aArray[$ii],':')
$PostData = 'method=voteForFriend&user=' &$key[1]& '&sig=83cd024fd5fd1c42f330f8cc1677808d&vote=5&friend_uid=' &$User& '&key=' &$key[2]& '&model_id=1&sex=0'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open("POST", $GetStr)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.Send($PostData)
$oHTTP.WaitForResponse
If $oHTTP.Status = 200 Then
$Response = $oHTTP.ResponseText
GUICtrlSetData($Edit9, $Response)
Else
Return SetError(1, 0, $oHTTP.Status)
EndIf
Sleep(1000)
Next
EndFunc ;==> _StrДобавлено:
Сообщение автоматически объединено:
Если переменная $Edit9 handle то она по умолчанию глобальная
Работает, только вопрос, почему вылетает
то с такой ошибкой:
То с такой:
Добавлено:
и почему то при работе не работает кнопка выход***
то с такой ошибкой:
Код:
==> The requested action with this object has failed.:
If $oHTTP.Status = 200 Then
If $oHTTP.Status ^ ERRORТо с такой:
Код:
==> The requested action with this object has failed.:
$oHTTP.Send($PostData)
$oHTTP.Send($PostData)^ ERROR
Сообщение автоматически объединено:
и почему то при работе не работает кнопка выход***
- Сообщения
- 7,790
- Репутация
- 2,322
DarkCrush
Вот здесь Перебор значений в POST запросе есть нечто подобное.
DarkCrush [?]
ИМХО, можно вынести из цикла $oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1') и делать паузу между отправкой запросов около 1 минуты.
Вот здесь Перебор значений в POST запросе есть нечто подобное.
DarkCrush [?]
Пока отрабатывает функция _Str($aArray) кнопка выхода работать не будет.
ИМХО, можно вынести из цикла $oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1') и делать паузу между отправкой запросов около 1 минуты.
И этого никак не изменить?
Еще вопрос как отобразить текст <msg></msg> а не полный полученый запрос, и надо чтобы они появлялись в столбик а не сменяя друг друга. вот мой код
Он почему то отображает весь полученый запрос и всего в 1 строчке, а надо что бы они шли в столбик
Еще вопрос как отобразить текст <msg></msg> а не полный полученый запрос, и надо чтобы они появлялись в столбик а не сменяя друг друга. вот мой код
Код:
$Response = $oHTTP.ResponseText
$Response2= 'Пользователь: ' &$key[1] & StringRegExpReplace($Response, '(?s).*?<msg>(\d+)</msg>?.*', '\1') & @CRLF & @CRLF & _
GUICtrlSetData($Edit9, $Response2)Он почему то отображает весь полученый запрос и всего в 1 строчке, а надо что бы они шли в столбик
- Сообщения
- 3,999
- Репутация
- 967
DarkCrush, не проще вам описать задачу в разделе "Стол заказов"
Как мне сделать что бы Отработанные ИД были в столбик, что нужно дописать?
Код:
$Response = $oHTTP.ResponseText
$Response2= 'Пользователь: ' &$key[1] & StringRegExpReplace($Response, '(?s).*?<msg>(\d+)</msg>?.*', '\1') & @CRLF & @CRLF & _
GUICtrlSetData($Edit9, $Response2)- Сообщения
- 7,790
- Репутация
- 2,322
Наверное где-то так:
Код:
$Response = $oHTTP.ResponseText
$Response2 = GUICtrlRead($Edit9) & 'Пользователь: ' & $key[1] & _
StringRegExpReplace($Response, '(?s).*?<msg>(\d+)</msg>?.*', '\1') & @CRLF
GUICtrlSetData($Edit9, $Response2)Еще надо что бы вместо этого:
Писало это:
Но на мой запрос к <msg><\msg> он не обращает внимания
Добавлено:
С таким запросом вся программа почему то начинает лагать(
Код:
<?xml version="1.0" encoding="UTF-8"?>
<result>
<response>
<code>0</code>
<msg>success vote</msg>
</response>
</result>Писало это:
Код:
Success voteНо на мой запрос к <msg><\msg> он не обращает внимания
Добавлено:
Сообщение автоматически объединено:
Код:
$Response = $oHTTP.ResponseText
$Response2 = GUICtrlRead($Edit9) & 'Пользователь: ' & $key[1] & _
StringRegExpReplace($Response, '(?s).*?<msg>(\d+)</msg>?.*', '\1') & @CRLF
GUICtrlSetData($Edit9, $Response2)С таким запросом вся программа почему то начинает лагать(
- Сообщения
- 7,790
- Репутация
- 2,322
DarkCrush
Поменяйте
PS
В этой теме это мой последний ответ. Мой Вам совет: оформите по правилам тему в Столе заказов.
Поменяйте
Код:
$Response2 = GUICtrlRead($Edit9) & 'Пользователь: ' & $key[1] & _
StringRegExpReplace($Response, '(?s).*?<msg>(\d+)</msg>?.*', '\1') & @CRLF
;на
$Response2 = GUICtrlRead($Edit9) & 'Пользователь: ' & $key[1] & _
StringRegExpReplace($Response, '(?s).*?<msg>(.*?)</msg>?.*', '\1') & @CRLFPS
В этой теме это мой последний ответ. Мой Вам совет: оформите по правилам тему в Столе заказов.
- Статус
