Серый форум — AHK: Получение данных со страницы сайта в переменную

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (YMP) — Sat, 07 Jun 2014 13:51:01 +0000

Ну, если нужен универсальный код, то надо узнавать. Странно вообще-то, что там выше cp1252 сработало. Если русские буквы, то должно быть cp1251.

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (serzh82saratov) — Sat, 07 Jun 2014 13:12:10 +0000

Тогда здесь крякозябры Url = http://www.microsoft.com.
Может как то так узнавать кодировку:


Url = http://site.ru/file.txt
Url = http://www.script-coding.com/WSH.html
Url = http://www.microsoft.com
 
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1") 
HTTP.Open("GET", Url) 
HTTP.Send()   

Body := HTTP.ResponseBody
pArr := ComObjValue(Body)
cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr") 

RegexMatch(HTTP.ResponseText, "`nmi).*?)"".*?>", Char)   
Encode := CharSet = "windows-1251" ? "cp1251" : CharSet

MsgBox, % StrGet(pText, cBytes, Encode)

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (tuma4ok) — Sat, 07 Jun 2014 12:30:15 +0000

YMP пишет:

А если так?


HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", "http://site.ru/file.txt")
HTTP.Send()
Body := HTTP.ResponseBody
pArr := ComObjValue(Body)
cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
MsgBox, % StrGet(pText, cBytes, "cp1252")

Ты великолепен! Все работает как надо! Спасибо большое!

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (YMP) — Sat, 07 Jun 2014 12:22:49 +0000

А если так?


HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", "http://site.ru/file.txt")
HTTP.Send()
Body := HTTP.ResponseBody
pArr := ComObjValue(Body)
cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
MsgBox, % StrGet(pText, cBytes, "cp1252")

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (tuma4ok) — Sat, 07 Jun 2014 12:17:29 +0000

Вот такие иероглифы. Если поможет, вот ссылка на файл http://vkontackte.tk/NoDelete/base.php

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (YMP) — Sat, 07 Jun 2014 12:02:27 +0000

tuma4ok пишет:

Ни что из выше сказанных не помогло! Либо ничего нету, либо опять иероглифы.

Какие именно иероглифы? Показать можете?

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (serzh82saratov) — Sat, 07 Jun 2014 11:48:07 +0000

Дело в том, что здесь:


HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", "http://site.ru/file.txt")
HTTP.Send()
MsgBox, % HTTP.ResponseText

у меня нормальные русские буквы.

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (tuma4ok) — Sat, 07 Jun 2014 11:43:49 +0000

Ни что из выше сказанных не помогло! Либо ничего нету, либо опять иероглифы.

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (tuma4ok) — Sat, 07 Jun 2014 11:39:43 +0000

serzh82saratov пишет:

По какой например ссылке.

По такой же.

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (Malcev) — Sat, 07 Jun 2014 11:09:03 +0000

Вот у меня тоже что-то не получается.
Что упустил?

HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", "https://trust-host.ru/")
HTTP.SetRequestHeader("Accept-Language", "ru")
HTTP.SetRequestHeader("Accept-Charset","Windows-1251")
HTTP.setRequestHeader("Content-Language", "ru")
HTTP.setRequestHeader("Content-Charset", "Windows-1251")
HTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded; charset=Windows-1251")
HTTP.Send()
MsgBox, % HTTP.ResponseText

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (YMP) — Sat, 07 Jun 2014 10:09:39 +0000

Проблема в кодировке, видимо. Не знаю, можно ли её как-то явно задать. А "через дыру в заборе" можно так (для кодировки utf-8):


HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", "http://site.ru/file.txt")
HTTP.Send()
Body := HTTP.ResponseBody
pArr := ComObjValue(Body)
cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
MsgBox, % StrGet(pText, cBytes, "utf-8")

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (serzh82saratov) — Sat, 07 Jun 2014 10:02:21 +0000

По какой например ссылке.

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (tuma4ok) — Sat, 07 Jun 2014 09:00:23 +0000

sergeiplugatyr пишет:

HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", "http://site.ru/file.txt")
HTTP.Send()
MsgBox, % HTTP.ResponseText

Спасибо, помогло! Но появился новый вопрос, при получении русских букв, они становятся иероглифами, как это исправить?

Re: AHK: Получение данных со страницы сайта в переменную

null@example.com (sergeiplugatyr) — Fri, 06 Jun 2014 18:48:21 +0000

HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", "http://site.ru/file.txt")
HTTP.Send()
MsgBox, % HTTP.ResponseText

AHK: Получение данных со страницы сайта в переменную

null@example.com (tuma4ok) — Fri, 06 Jun 2014 17:04:45 +0000

Здраствуйте, снова прошу помощи. Скажите пожалуйста как через WinHTTP получить весь текст со страницы в интернете? Ссылка имеет примерно такой вид: site.ru/file.txt, открывается текстовый документ. Напишите пожалуйста исходный код. Заранее спасибо.