Нужна функция GetURL

[0xy]

В смысле, писать самому лениво, ибо наверняка баян.
Function GetURL$ (HttpURL$)
Нужна просто строка с ответом HTTP - сервера.

[Joo]

Наверное и искать тоже лениво?

[0xy]

Да поискал малёха... Средствами Wininet? Как-то громоздко.
Пока сделал так:

Код: Выделить всё

Function GetURL$(URL$)
Dim fHandle&, fName$
fName = Environ("temp") & "\" & Hex(Timer) & ".tmp"
GetURL = Hex(URLDownloadToFile(0, URL, fName, 0, 0))
If GetURL = "0" And Dir(fName) > "" Then
    fHandle = FreeFile
    Open fName For Binary Access Read Shared As fHandle
    GetURL = Input(LOF(fHandle), fHandle)
    Close fHandle
    Kill fName
End If
End Function

Но может есть столь же простой способ, но без временного файла?

[alibek]

WinHTTP, MSXML, MSHTML.

[0xy]

alibek
Парсинг HTML мне пока не нужен: достаточно файлов txt.
А winhttp в своей винде я не нашел, так что тоже не вариант.

Скмньте, плииз, описание всех параметров URLDownloadToFile.
А еще лучше--всех функций urlmon.
В частности, интересует, URLDownloadA

[Viper]

А MSDN отменили в связи с новым годом или лениво посмотреть?

[iGrok]

А winhttp в своей винде я не нашел, так что тоже не вариант.

Может, искал плохо? Он есть начиная с w2k / nt4.0+ie5.01.
У тебя ME или 98я что ли?

http://msdn.microsoft.com/en-us/library/aa384273.aspx

[alibek]

alibek
Парсинг HTML мне пока не нужен: достаточно файлов txt.

Я ничего про парсинг HTML не говорил.

[0xy]

А winhttp в своей винде я не нашел, так что тоже не вариант.

У тебя ME или 98я что ли?

Так точно!

Еще раз прошу ткнуть меня носом в нужное место (MSDN):

Скмньте, плииз, описание всех параметров URLDownloadToFile.
А еще лучше--всех функций urlmon.
В частности, интересует, URLDownloadA