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

Узнай цену своей работы

Формулировка задачи:

Вообщем, хочу создать программу, а вот как делать не знаю. Ее смысл будет таков: когда человек вконтакте онлайн, вызывается MsgBox с текстом "Online". Возможно ли это средствами vb.net?

Решение задачи: «Отследить вход пользователя на какой-либо сайт»

textual
Листинг программы
Public Function Post(ByRef send As String)
        Dim html As String
        Using client As New WebClient
            client.Encoding = System.Text.Encoding.UTF8
            html = client.DownloadString(send)
        End Using
        Return html
    End Function
 
    Private Function GetOnline(ByRef _url As String) As String
        Return New Regex("<div class=" + Chr(34) + "pp_last_activity" + Chr(34) + ">(.*?)</div>").Match(_url).Groups(1).Value
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(GetOnline(Post("http://vk.com/id235287444")))
    End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы