Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
 Аватар для makinaru
104 / 47 / 3
Регистрация: 19.03.2013
Сообщений: 448

Следить за изменениями на сайте

24.10.2017, 14:03. Показов 857. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте. Я пока что далек от программирования, но компьютер знаю хорошо.

Очень актуально стал вопрос о поиске\написании программки для того чтобы поймать продукт из интернет сайта в наличии.

Что требуется - есть сайт (в данном случае ЭТОТ).
Знаю что на пару минут, может на пол часа товар появляется на сайте с возможностью добавить его в корзину.

Хочу автоматизировать систему мониторинга, использовав какой либо софт, который будет циклически в определенный промежуток времени считывать или как-нибудь иначе понимать что статус товара "Нет в наличии" изменится, и его можно будет заказать. И уведомить как-либо.

Вариант решения сгодится любой, даже если он предполагает использование обычного кликера (с невозможностью работы на компухтере во время его использования).

Есть у кого какие мысли?)))) Буду рад услышать что нибудь полезное!

UPD. Пока что в моей голове это видится так - программка чекает страничку каждые, скажем, 30 секунд, и если на странице меняется какой либо символ, (или же заданный) - то как нибудь оповестит меня (звук, смс, эмайл и прочее). Топорно - но наверное просто.
UPD2. Если написал не в ту тему - перенаправьте пожалуйста в нужную.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.10.2017, 14:03
Ответы с готовыми решениями:

Следить за изменениями на странице не заходя на неё
Добрый день. Надо часто обходить большое количество страниц (~30 000) и посмотреть на них определенную информацию, сравнить с имеющейся....

Необходимо следить за ошибками на сайте, то есть написать ErrorHandler
Подскажите пожалуйста, необходимо как то следить за ошибками на сайте, тоесть написать ErrorHandler... как это вообще делается? через файл...

Следить за координатой
Узнаю координату и цвет пикселя вот так: GetCursorPos(p); DC := GetWindowDC(0); Panel1.Color := GetPixel(DC, p.X, p.Y); И например...

7
 Аватар для Kogb
367 / 128 / 28
Регистрация: 17.07.2011
Сообщений: 253
Записей в блоге: 1
24.10.2017, 14:15
Цитата Сообщение от makinaru Посмотреть сообщение
программка чекает страничку каждые, скажем, 30 секунд, и если на странице меняется какой либо символ, (или же заданный) - то как нибудь оповестит меня (звук, смс, эмайл и прочее). Топорно - но наверное просто.
Да, именно так, работы минут на 20. Дело за малым - освоить в достаточном объеме VB, или другоя ЯП.
0
 Аватар для makinaru
104 / 47 / 3
Регистрация: 19.03.2013
Сообщений: 448
24.10.2017, 14:22  [ТС]
Цитата Сообщение от Kogb Посмотреть сообщение
Да, именно так, работы минут на 20. Дело за малым - освоить в достаточном объеме VB, или другоя ЯП.
Может есть этому действие какое то общее название? Ну чтоб почитать материал скрипта именно по похожей тематике. Ну то есть не общие сведения о языке с нуля, а конкретно на каких-нибудь хотя бы отдаленно напоминающих мою тему примерах. Даже не могу сформулировать как это могло бы называться.
0
1 / 1 / 0
Регистрация: 21.08.2017
Сообщений: 13
24.10.2017, 14:24
VB парсинг сайта
Можешь в ЛС написать после ознакомления с базовыми статьями. Наработки есть в данном ключе
0
 Аватар для makinaru
104 / 47 / 3
Регистрация: 19.03.2013
Сообщений: 448
24.10.2017, 21:54  [ТС]
Цитата Сообщение от Kogb Посмотреть сообщение
Дело за малым - освоить в достаточном объеме VB, или другоя ЯП.
Цитата Сообщение от esintate Посмотреть сообщение
VB парсинг сайта
Ребят, я вот что нашел, он мне возвращает значение в лейбл1, например слово "Глаза", но фраза "Нет в наличии" для него как то отсутствует. Так же присвоил веббраузеру загружать URL
При открытии программы вываливается штук 10 ошибок сценария (
Типа таких
Кликните здесь для просмотра всего текста


Вот код

Кликните здесь для просмотра всего текста
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        TextBox1.Text = WebBrowser1.Document.Body.InnerText
        Dim a As Integer
        a = TextBox1.Lines.Count - 1
        For x = 0 To a Step 1
            If TextBox1.Lines(x) = "Нет в наличии" Then
                Label1.Text = TextBox1.Lines(x)
            End If
        Next
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
 
    End Sub
End Class
0
1 / 1 / 0
Регистрация: 21.08.2017
Сообщений: 13
24.10.2017, 22:14
Расскажи, по какому принципу требуются действия.
Отслеживаем конкретный товар (с заданным url) или разные?
0
1 / 1 / 0
Регистрация: 21.08.2017
Сообщений: 13
24.10.2017, 22:54
Вот набросал для Excel (весь остальной софт доступен, висит только excel)
Только для конкретного (одного товара)
Цикл проверки доступности:
Если нет в наличии - ожидание 30 секунд, рефреш страницы, проверка
Если товар в наличии - добавляет в корзину, MSGBOX в экселе и открытие файла (в моем случае муз. трек =))
Соответственно URL - нужного товара подставляем в ячейку, в коде меняем трек)

Ну и естественно можно это всё зациклить, если товаров для проверки несколько

Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Parsing_Store()
    Dim IE As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    
    IE.Visible = True
    IE.navigate (Worksheets("Pars").Cells(2, 2))
    
    Do While IE.Busy Or (IE.readyState <> 4): DoEvents: Loop
    
Check_for_avaible:
Set CheckList = IE.document.getElementsByTagName("DIV")
For Each CheckList In CheckList
If CheckList.innerText = "Нет в наличии" Then
Worksheets("Pars").Cells(2, 3) = "Нет в наличии"
Application.Wait (Now + TimeValue("00:00:30"))
IE.Refresh
Do While IE.Busy Or (IE.readyState <> 4): DoEvents: Loop
GoTo Check_for_avaible
End If
If CheckList.innerText = "В корзину" Then
CheckList.Children(0).Click
Worksheets("Pars").Cells(2, 3) = "Товар доступен для заказа и добавлен в корзину"
CreateObject("wscript.shell").Run """" & "C:\Users\User\Desktop\Candidates\L 33 - Karate (Neonlight Remix).mp3" & """"
MsgBox ("Товар доступен для заказа и добавлен в корзину")
Exit Sub
End If
Next CheckList
 
End Sub
Вложения
Тип файла: rar Parsing.rar (192.1 Кб, 8 просмотров)
1
 Аватар для makinaru
104 / 47 / 3
Регистрация: 19.03.2013
Сообщений: 448
25.10.2017, 08:09  [ТС]
Цитата Сообщение от esintate Посмотреть сообщение
Вот набросал для Excel (весь остальной софт доступен, висит только excel)
Да, ты именно все правильно понял, нужно только для одного товара, и да, отлично что запускается какой то файл звуковой. Спасибо большое!

З.Ы. Жму на котейку - запускается ИЕ, в ячейку возвращается "нет в наличии" и ексель не отвечает))
З.Ы2. ИЕ обновляется через заданное время, вроде все как положено!)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.10.2017, 08:09
Помогаю со студенческими работами здесь

Следить за изменением файла
Доброго времени суток! Есть текстовый документ, который изменяется в следствие некоторых событий. Возможно ли написать программу, которая...

Как следить за демоном?
Приветствую всех. Надеюсь, выбрал максимально правильный раздел. Вводная: Как почти все наверняка знают, существует такой...

Следить за областью экрана
Нужна помощь, искал искал так и не нашел может кто подкинет пример или документацию, задача такая берем область 50х50 пикселей например и...

Как следить за ссылками?
Здравствуйте. Недавно упала посещаемость на моем небольшом сайте. Я предположил, что потерялись одна или несколько ссылок на него....

слежения за изменениями в файле
форум большой, поэтому задаю вопрос как есть надо чтобы приложение, например, А открыло файл и следила за тем происходят в нём...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru