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

[Сеть, интернет] Как получить результат работы скрипта с Web страницы ?

V

vaf

Новичок
Сообщения
189
Репутация
2
Добрый день. У меня следующий вопрос. Дана страница, на которой есть блок
Код: 
  <form id="form1" name="form1" method="post" action="">
    <textarea class="f1" id="sin" name="sin" cols="80" rows="10"></textarea>
    

    

    <input name="Submit" type="submit" class="b1" value="Обработать">
  </form>

В textarea вводится текст, нажимается кнопка обработать, после чего на этой же странице выводится уже обработанный текст, который заключен в

Код: 
<div class="syn">
Результат обработки текста
</div>
Вопрос:
можно ли послать запрос содержащийся в textarea через скрипт на autoit и получить обратно обработанный результат ? Можете привести примеры ?

если более конкретно, интересует для адреса см.ниже.

synonym точка savenkoff точка name слеш synonym.пхп
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
vaf,
Попробуйте примерно так.
Код: 
;без проверок на ошибки
;только русские слова
$s_Str = 'муж'

If StringRegExp($s_Str, '[^ЁёА-я]') Then Exit 13
$v_Tmp = StringToASCIIArray($s_Str, 0, -1, 1)
$s_Str = ''
For $i = 0 To UBound($v_Tmp) - 1
	$s_Str &= '%' & Hex($v_Tmp[$i], 2)
Next
$v_Tmp = 'sin=' & $s_Str & '&Submit=%D1%E8%ED%EE%ED%E8%EC%E8%E7%E8%F0%EE%E2%E0%F2%FC'
$s_Str = 'POST /synonym.php HTTP/1.1' & @CRLF
$s_Str &= 'Host: synonym.savenkoff.name' & @CRLF
$s_Str &= 'Content-Type: application/x-www-form-urlencoded' & @CRLF
$s_Str &= 'Content-Length: ' & StringLen($v_Tmp) & @CRLF
$s_Str &= 'Connection: Close' & @CRLF & @CRLF & $v_Tmp
TCPStartup()
$v_Tmp = TCPNameToIP('synonym.savenkoff.name')
$i_Socket = TCPConnect($v_Tmp, 80)
TCPSend($i_Socket, $s_Str)
$s_Str = ''
$v_Tmp = TimerInit()
While TimerDiff($v_Tmp) < 10000
	$s_Str &= TCPRecv($i_Socket, 8192)
	If @error Then ExitLoop
WEnd
TCPCloseSocket($i_Socket)
TCPShutdown()
If $s_Str Then
	$s_Str = StringRegExpReplace($s_Str, '(?s).*?sinonimoz.+?>\h{0,}([ЁёА-я]+?)\h{0,}<.*', '$1')
	If @extended = 1 Then
		ConsoleWrite($s_Str & @LF)
	Else
		ConsoleWrite('Error' & @LF)
	EndIf
Else
	ConsoleWrite('Error' & @LF)
EndIf
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
Dima1337 [Сеть, интернет] Как получить HTML сайта без IE при необходимости ввести логин:пароль? Автоматизация IE и Web-интерфейса 2
I [Сеть, интернет] Получить текст элемента (Яндекс Карты) Автоматизация IE и Web-интерфейса 17
vcomp71 [Сеть, интернет] Билиотека получить список актуальных прокси Стол заказов 3
D [Сеть, интернет] Получить почту (протокол SSL) Автоматизация IE и Web-интерфейса 0
D [Сеть, интернет] Не удается получить данные с сервера с SSL, InetRead() Общие вопросы по AutoIt 2
Похожие темы
[Сеть, интернет] Как получить HTML сайта без IE при необходимости ввести логин:пароль?
[Сеть, интернет] Получить текст элемента (Яндекс Карты)
[Сеть, интернет] Билиотека получить список актуальных прокси
[Сеть, интернет] Получить почту (протокол SSL)
[Сеть, интернет] Не удается получить данные с сервера с SSL, InetRead()
Верх