fяєєβυzz ιd Łσgιή αмυzєsнє αήd sσяςє vβ.ήєт βY ers4n@ήC

Imports agsXMPP
Imports agsXMPP.Xml.Dom

Public Class Form1
    Dim a As agsXMPP.XmppClientConnection

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form.CheckForIllegalCrossThreadCalls = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = New agsXMPP.XmppClientConnection With {.Server = "nimbuzz.com", .ConnectServer = "o.nimbuzz.com", .Status = TextBox4.Text, .Show = protocol.client.ShowType.dnd}
        a.Open(TextBox1.Text, TextBox2.Text, TextBox3.Text)
        AddHandler a.OnLogin, AddressOf login
        AddHandler a.OnAuthError, AddressOf failed
        AddHandler a.OnClose, AddressOf dc
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        a.Close()
    End Sub

    Private Sub failed(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element)
        TextBox1.BackColor = Color.Red
        TextBox2.BackColor = Color.Red
        TextBox3.BackColor = Color.Red
    End Sub
    Private Sub dc(ByVal sender As Object)
        TextBox1.BackColor = Color.Yellow
        TextBox2.BackColor = Color.Yellow
        TextBox3.BackColor = Color.Yellow
    End Sub
    Private Sub login(ByVal sender As Object)
        TextBox1.BackColor = Color.Green
        TextBox2.BackColor = Color.Green
        TextBox3.BackColor = Color.Green
    End Sub
End Class