Программно авторизоваться в ICQ

Module Module1
 
    Sub Main()
 
        Dim email As String = "mail@mail.ru"
        Dim Pass As String = "Password"
 
        Dim SiteSTR As String = "http://login.vk.com/?act=login&email=" & email & "&pass=" & Pass & "&expire=&vk="
        Console.WriteLine((New System.Net.WebClient).DownloadString(SiteSTR))
        Console.ReadLine()
    End Sub
 
End Module

Public Class Form1
    Public WithEvents icq As New vbicq4.vbicq4  'создаем объект движка
    'делегирование события ошибки 
    Delegate Sub ErrDelegate(ByVal d As String)
    'делегирование события приема сообщения 
    Delegate Sub MsgDelegate(ByVal u As String, ByVal m As String)
    'делегирование события соединения 
    Delegate Sub OnConDelegate()
 
    'Кнопка "Подключить"
    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button1.Click
        icq.UIN = TextBox1.Text         'задаем uin
        icq.pass = TextBox2.Text        'задаем пароль
        icq.connect()                   'подключаемся
        TextBox3.Text = "Подключаемся..." & vbCrLf
    End Sub
 
    'Кнопка отправить:
    Private Sub Button2_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button2.Click
        If icq.KeepAlive Then   'проверрим, в сети ли мы
            'если да - отправим сообщение:
            icq.SendMessage(TextBox4.Text, TextBox5.Text)
            'Выведем текст в чат
            TextBox3.Text &= "Моя говорить " & TextBox4.Text & ": " & _
                            TextBox5.Text & vbCrLf
            'очистим поле сообщения
            TextBox5.Text = ""
        Else
            TextBox3.Text &= "Вы не в сети" & vbCrLf
        End If
    End Sub
 
    'Если зашли в асю
    Private Sub icq_onConnect() Handles icq.onConnect
        'Проверяем на ошибку доступа из разных потоков:
        If InvokeRequired Then
            Me.BeginInvoke(New OnConDelegate(AddressOf icq_onConnect))
            Exit Sub
        End If
        'Напишем что мы в сети
        TextBox3.Text &= "В сети!" & vbCrLf
    End Sub
 
    'Если нас выкинуло:
    Private Sub icq_onDisconnect() Handles icq.onDisconnect
        'Проверяем на ошибку доступа из разных потоков:
        If InvokeRequired Then
            Me.BeginInvoke(New OnConDelegate(AddressOf icq_onDisconnect))
            Exit Sub
        End If
        'Напишем что мы в сети
        TextBox3.Text &= "Вылетели" & vbCrLf
    End Sub
 
    'если произошла ошибка:
    Private Sub icq_onError(ByVal Description As String) Handles icq.onError
        'Проверяем на ошибку доступа из разных потоков:
        If InvokeRequired Then
            Me.BeginInvoke(New ErrDelegate(AddressOf icq_onError), Description)
            Exit Sub
        End If
        'Выводим текст ошибки
        TextBox3.Text &= "Ошибка: " & Description & vbCrLf
    End Sub
 
    'Если пришло сообщение:
    Private Sub icq_onMessage(ByVal uin As String, _
                              ByVal message As String) Handles icq.onMessage
        'Проверяем на ошибку доступа из разных потоков:
        If InvokeRequired Then
            Me.BeginInvoke(New MsgDelegate(AddressOf icq_onMessage), _
                           New Object() {uin, message})
            Exit Sub
        End If
        'Печатаем сообщение:
        TextBox3.Text &= uin & ": " & message & vbCrLf
    End Sub
 
End Class