Help: Как считать данные с Web-Страницы

[6a6auKa]

Как можно считать данные с Web-Страницы, т.е. определённый участок
текста или ещё что-нить?

[ALX_2002]

Вариантов навалом
1) Через API - UrlDownloadToFile
2) Через XmlHttp
3) Через InternetExplorer.Application
4) Через функции компонента Activex - AsyncRead
и ещё много разных вариантов

Смотря какая задача

[6a6auKa]

Ну допустим если на странице присутствует такой-то текст, то прога выполняет такое-то действие

[Хакер]

Через WinHTTP; я считаю - оптимальный вариант.

[6a6auKa]

А можно по-подробнее?

[Хакер]

http://msdn2.microsoft.com/en-us/library/ms909365.aspx

[6a6auKa]

Ничё не понял... мне надо хотябы вывести значение из Web-страницы на экран (на Label), а значение постоянно меняется.
Просто скажите команду, весь поиск перерыл, ничего похожего не нашёл...

[Хакер]

Команду? Спартак!

There are no commands in the Visual Basic 6. Информации, которую можно найти перейдя по ссылке, более чем достаточно.

[Lumen]

Хакер
Зенит - Чемпион!!!

ЗЫ: Сорри за флуд...

[t116]

6a6auKa
Поройся в кирпичах. Там есть класс для скачивания файлов с Интернета.

[Saturn.65]

Как можно считать данные с Web-Страницы, т.е. определённый участок
текста или ещё что-нить?

Вопрос довольно расплывчатый. Нужно знать, какой именно участок.
Как ты будешь команды писать?
Command1_Click =" считать определенный участок"?
Вот код, чтоб сохранить web страницу на диск. Может из этого что можно сделать?

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

'Расположите на форме элемент CommandButton.
Private 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
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Command1_Click()
DownloadFile "http://sharig.webzone.ru", "c:\sharig_webzone_ru.htm"
End Sub


[ALX_2002]

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


Dim XmlHttp

Set XmlHttp = CreateObject("Microsoft.XmlHttp")

Xmlhttp.Open "GET","http://www.mail.ru",False

XmlHttp.Send

if XmlHttp.Status = 200 Then

   Dim HTMLDocument
   Set HTMLDocument = CreateObject("HTMLFile")
   HTMLDocument.Clear
   HTMLDocument.Open
   HTMLDocument.write XmlHttp.ResponseText

   For Each Element in HTMLDocument.all.tags("TABLE")
      if Element.ClassName = "frame" Then
         Msgbox Element.innertext      
      End if
   Next

Else
   MsgBox XmlHttp.Status & ":" & XmlHttp.StatusText,vbCritical,"Не удалось загрузить страницу"
End if


Ну вот пример наваял на скорую руку - с mail.ru дёргает данные из таблиц с курсами, погодой и т.п ( загрузив страницу, перебирает таблицы с классом frame )

Код упрощён до минимума - так что разобраться проблем не буит я думаю

[6a6auKa]

ALX_2002
спасибо большое! Очень помог!!

[6a6auKa]

Ещё раз спасибо, а как сделать так чтобы считывал разные теги и
выводил разные сообщения, т.е. если произошла ошибка, там к примеру
неверный логин пароль, программа считала страницу и вывела в Label
инфу, а если заход был удачным, то считать другие теги и вывести
другую инфу. Вот кусок моего кода, но он НЕ РАБОТАЕТ:

For Each Element In Ie.Document.All.tags("p", "div")
If Element.ClassName = "err" Then
LabelMain.Caption = "Неверный логин/пароль"
Exit Sub
End If
If Element.ClassName = "hint" Then
LabelMain.Caption = "Добро пожаловать"
Exit Sub
End If
Next

Так же пробовал и разбивать отдельно "p" и "div".. результат, при ошибке данные выдаёт, а при удачном заходе - ноль эмоций