tungus1973
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ciphers, учитывая сложность подключения этого сайта, можно, например, проверять конкретный поезд через плагин. К закладке, подключенной по указанному выше способу, создаём простой частный плагин. Например, такой:
------------------------------------------
Sub Wsw_PreProcessPage(Handle, ByRef sMemWeb, ByRef sStatusMessage, ByRef iStatusCode)
Dim sTickets
' Ищем в тексте страницы нужный номер поезда. Если поезд найден...
If InStr(sMemWeb, "class=train-num-0>№ 038А") Then
' ...извлекаем из него информацию о наличии билетов и их цене
sTickets = GetFirstWildcardMatch(sMemWeb, "class=train-num-0>№ 038А*Маршрут движения поезда")
sTickets = GetAllWildcardMatches(sTickets, "<TABLE class=availableSeatsTable*</TABLE>")
' cтроим новую страничку
sMemWeb = "<html><head><title>" + Bookmark_GetProperty(Handle, "name")
sMemWeb = sMemWeb + "</title><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">"
sMemWeb = sMemWeb + "</head><body>Билеты на поезд № 038А на 10.08.2012<BR>" + sTickets + "</body></html>"
' Если поезд не найден, сообщаем об ошибке
Else
sStatusMessage = "Ошибка: Поезд не найден"
iStatusCode = 2
End If
End Sub
------------------------------------------
На выходе после окончания мониторинга получаем сообщение вида:
Билеты на поезд № 038А на 10.08.2012
Купе 94 3595 руб.
Плац 83 1629 руб. |
Всего записей: 97 | Зарегистр. 28-05-2006 | Отправлено: 11:15 02-08-2012 | Исправлено: tungus1973, 11:31 02-08-2012 |
|
