Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
 Аватар для smay
3 / 3 / 5
Регистрация: 07.12.2013
Сообщений: 189

Отследить вход пользователя на какой-либо сайт

21.12.2013, 16:19. Показов 3327. Ответов 29
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вообщем, хочу создать программу, а вот как делать не знаю. Ее смысл будет таков: когда человек вконтакте онлайн, вызывается MsgBox с текстом "Online". Возможно ли это средствами vb.net?
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.12.2013, 16:19
Ответы с готовыми решениями:

Как сделать вход на сайт пользователя и админа?
скажем у меня есть форма входи ) ну там 2 textBox и кнопка, вводишь логин и пароль и заходишь на сайт и когда переходишь по другим...

Как скрыть какой-либо контент от незарегистрированного пользователя?
Всем привет, при регистрации столкнулся с проблемой что, мне нужно как то скрывать поля формы если пользователь авторизован,и скрывать сам...

Какой командой в bat-файле запускать что-либо от имени другого пользователя?
не подскажите какой командой в бат файле запускать что либо от имени другово пользователя

29
 Аватар для smay
3 / 3 / 5
Регистрация: 07.12.2013
Сообщений: 189
22.12.2013, 17:59  [ТС]
Студворк — интернет-сервис помощи студентам
edward_freedom, спасибо тебе большое, все конечно работает, но не совсем так) Смысл в том, что она будет проверять онлайн человека каждые 30 секунд, и если он онлайн - вылетает MsgBox
0
Форумчанин.NET
 Аватар для AeroWhite
556 / 427 / 64
Регистрация: 12.02.2013
Сообщений: 834
22.12.2013, 18:04
Размещаем код из кнопки в таймер и готово
0
 Аватар для smay
3 / 3 / 5
Регистрация: 07.12.2013
Сообщений: 189
22.12.2013, 18:25  [ТС]
AeroWhite, не все так просто) тут надо сделать так, что бы оно всплывало именно когда он онлайн.
0
 Аватар для edward_freedom
1569 / 1448 / 303
Регистрация: 01.10.2011
Сообщений: 2,636
22.12.2013, 18:33
smay, Все просто, сравни текст, возращенный с сервера, если онлайн выведи сообщение, в чем трудность?
0
 Аватар для smay
3 / 3 / 5
Регистрация: 07.12.2013
Сообщений: 189
22.12.2013, 20:48  [ТС]
edward_freedom, в том что я плохо еще понимаю этот код :С. Можно пожалуйста целый код(полностью сделанный)?
0
 Аватар для edward_freedom
1569 / 1448 / 303
Регистрация: 01.10.2011
Сообщений: 2,636
22.12.2013, 20:54
smay, Вот и повод почитать литературу. Я вам помог, но делать все за вас не буду
1
Почетный модератор
 Аватар для Памирыч
23253 / 9167 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
22.12.2013, 20:58
Лучший ответ Сообщение было отмечено как решение

Решение

smay, беда в том, что не зная азов вы ставите перед собой нетривиальные задачи.

Если Вам нужно просто готовую программу - тогда Ок, а если хотите и сами что-то уметь - будет полезнее разбивать цель на множество элементарных составляющих и постить уже эти задачки/вопросы, пусть они хоть трижды будут простыми, здешние ребята еще никому в помощи не отказывали, все объяснят и помогут разобраться.

Просто совет.
3
 Аватар для smay
3 / 3 / 5
Регистрация: 07.12.2013
Сообщений: 189
22.12.2013, 21:06  [ТС]
Памирыч, довольно часто прошу с комментариями, так я хоть как то разбираюсь. У меня скорей все наоборот - вижу готовый код, все разбираю и изучаю, и потом уже делаю свой. Но без комментариев я разобратся не могу...
0
Заблокирован
22.12.2013, 21:58
1) На самом деле, достаточно проверить, содержит ли строка с html-кодом страницы построку со словом Online и окружающими тэгами.
А с парсингом и регулярками Вас только увели в сторону.
Хотя то, что Вы не хотите залезть в гугл, напрячь мозги или тупо потыкать точки около объектов и переменных (спасибо подсказкам IntelliSense), тоже плохо.
Вот окончательный пример. Уж здесь наверно даже последний хэллоуворлдщик разберётся.
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Imports System.Net
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim html As String
        Using client As New WebClient
            client.Encoding = System.Text.Encoding.UTF8
            html = client.DownloadString("http://vk.com/id235287444")
        End Using
 
        If html.IndexOf("...искомая строка в html-коде...") > -1 Then
            MsgBox("Онлайн")
        Else
            MsgBox("Оффлайн")
        End If
    End Sub
End Class
2) Литературу читать не нужно.
Она только путает и требует больших усилий при чтении, а у Вас с усидчивостью и так не блестяще.
1
1652 / 716 / 47
Регистрация: 11.03.2012
Сообщений: 1,855
Записей в блоге: 1
22.12.2013, 23:23
Водяной Змей, такая же идейка возникла потом ведь это проще на много.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.12.2013, 23:23

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

При переходе на какой-либо сайт, автоматически перенаправляет на стартовую
Доброго времени суток! Прошу помочь с одной проблемой - после запуска любого браузера и перехода на сайт через несколько минут...

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

При попытке зайти на какой либо сайт выдает ошибку ERR_SSL_PROTOCOL_ERROR
При попытке зайти на какой либо сайт выдает ошибку указанную в заголовке.Если долго обновлять страницу прогружает ее но наполовину.Картинки...

Есть ли в хаскеле готовая монада, которая, получая на вход либо один элемент либо их список, конкатенирует это в себе
Добрый день. Есть ли в хаскеле готовая монада, которая может получать на вход либо один элемент либо их список и конкатенировать это в...


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

Или воспользуйтесь поиском по форуму:
30
Ответ Создать тему
Новые блоги и статьи
Генератор паролей (вариант №4)
Maks 01.11.2026
После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков | 1 l I;. . .
Генератор паролей (вариант №3)
Maks 30.10.2026
Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .
Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени)
zorxor 30.10.2026
Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .
За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ)
zorxor 30.10.2026
Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .
Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени)
zorxor 30.10.2026
Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .
Генератор паролей (вариант №2)
Maks 30.10.2026
Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .
Генератор паролей (вариант №1)
Maks 29.10.2026
Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .
Установка ChatGPT (Codex) на Windows без использования Microsoft Store
Fabien159 28.10.2026
Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru