Источник веб-страницы загрузки VB6
Существует ли путь в VB6 для загрузки источника веб-страниц на строку или Текстовое поле? Например, в VB.Net класс WebClient позволяет Вам делать настолько использующий.DownloadString ("google.com"), как я могу сделать то же в vb6?
Примечание: Я хотел бы избегать использования WebBrowser.
4 ответа
Я не очень разбираюсь в VB6, но в VBA...
Dim objHttp As Object, strURL as string, strText as string
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
strURL = "http://www.yoursite.com/"
objHttp.Open "GET", strURL, False
objHttp.setRequestHeader "User-Agent", _
"Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHttp.Send ("")
strText = objHttp.responseText
Set objHttp = NothingСуществует малоизвестный способ сделать это с помощью собственного VB6, используя метод AsyncRead объектов UserControl и UserDocument - нет необходимости в вызовах API. Вы даже можете сделать это асинхронно, если хотите.
Вот отличное объяснение и код VB6 для нескольких одновременных загрузок от известного гуру VB6 Карла Петерсона .
Вы вернули меня на много лет назад. Для этого есть полезный вызов Windows API:
Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Вы можете использовать функцию URLDownloadToFile, а затем прочитать загруженный файл в строку или текстовое поле.
Пример кода: http://vbnet.mvps.org/index.html?code/internet/urldownloadtofilenocache.htm