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

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

24.10.2017, 14:03. Показов 844. Ответов 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
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru