all froom

Imports agsXMPP
Imports agsXMPP.Xml.Dom
Imports agsXMPP.protocol.client
Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Web
Imports System.Xml
Imports System.Threading
Imports System.Xml.XmlText
Imports System.Runtime.CompilerServices
Imports Google.API.Search
Public Class Form1
    Public Shared meti As agsXMPP.XmppClientConnection
    Public graber As New agsXMPP.XmppClientConnection()
    Dim joke, pc, mob, love, music, pic, ios, fall As String()
    Dim buffer As New StringBuilder
    Private a As Integer
    Private b As Boolean
    Private c As Integer
    Dim d As Integer
    Dim targetroom, targetuser, msgfrom, Profile, usereLOL, lbl1, messager As String
    Dim request As HttpWebRequest
    Dim itm As ListViewItem
    Dim ehem As Thread
    Dim keyw As String
    Dim str1 As String = ""
    Dim str2 As String = ""
    Dim getSince As Boolean = False
    Dim userSearch As Boolean = False
    Dim strNworldSessID As String = ""
    Private Sub gsearch()
        Dim clinet As GwebSearchClient = New GwebSearchClient()
        Dim results As IList(Of IWebResult) = clinet.Search(keyw, 15)
        For Each result As IWebResult In results
            RichTextBox1.Text += " Title : " + result.Title + vbNewLine
            RichTextBox1.Text += " Url : " + result.Url + vbNewLine
            RichTextBox1.Text += " ------ " + vbNewLine
            Thread.Sleep(20)
        Next
    End Sub
    Private Sub loaddata()
        If File.Exists("Goodzilla Data.db") Then
            Dim XmlRdr As New XmlTextReader("Goodzilla Data.db")
            XmlRdr.Read()
            While Not XmlRdr.EOF
                If XmlRdr.MoveToContent() = XmlNodeType.Element Then
                    Select Case XmlRdr.Name
                        Case "textBox1"
                            user.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox2"
                            psw.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox3"
                            res.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox4"
                            sts.Text = XmlRdr.ReadElementString()
                            Exit Select
                            '
                        Case "textBox5"
                            txtlove.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox6"
                            txtjoke.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox7"
                            txtmusic.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox8"
                            txtpic.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox9"
                            txtpc.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox10"
                            txtmob.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox11"
                            txtios.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox12"
                            txtfall.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox13"
                            cname.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox14"
                            cversion.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox15"
                            cos.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox16"
                            spy.Text = XmlRdr.ReadElementString()
                            Exit Select
                        Case "textBox17"
                            pswspy.Text = XmlRdr.ReadElementString()
                            Exit Select
                            '
                        Case "richTextBox1"
                            Monitor.Text = XmlRdr.ReadElementString()
                            Exit Select
                            '
                        Case "Ch1"
                            aaar.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch2"
                            arad.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch3"
                            lb.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch4"
                            jb.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch5"
                            fb.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch6"
                            mb.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch7"
                            pb.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch8"
                            ps.Checked = XmlRdr.ReadElementString()
                            Exit Select
                            '
                        Case "Ch9"
                            ms.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch10"
                            ioss.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch11"
                            aan.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch12"
                            multists.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch13"
                            gs.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch14"
                            lc.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch15"
                            nnm.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch16"
                            sfb.Checked = XmlRdr.ReadElementString()
                            Exit Select
                            '
                        Case "Ch17"
                            sdi.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch18"
                            sad.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch19"
                            saad.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch20"
                            sjb.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch21"
                            ss2a.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch22"
                            sah.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch23"
                            gp.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch24"
                            us.Checked = XmlRdr.ReadElementString()
                            Exit Select
                            '
                        Case "Ch25"
                            gru.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch26"
                            gus.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case "Ch28"
                            acmi.Checked = XmlRdr.ReadElementString()
                            Exit Select
                        Case Else
                            XmlRdr.Read()
                            Exit Select
                    End Select
                Else
                    XmlRdr.Read()
                    Notii.ShowBalloonTip(1000, "Goodzilla Private Bot", "Data Base Loaded !", ToolTipIcon.Info)
                End If
            End While
            If True Then
                XmlRdr.Close()
            End If
        End If
    End Sub
    Private Sub savedata()
        Try
            Dim XmlWrt As New XmlTextWriter("Goodzilla Data.db", System.Text.Encoding.UTF8)
            XmlWrt.Formatting = Formatting.Indented
            XmlWrt.WriteStartDocument()
            XmlWrt.WriteStartElement("Configuration")
            XmlWrt.WriteStartElement("Main")
            XmlWrt.WriteElementString("textBox1", user.Text)
            XmlWrt.WriteElementString("textBox2", psw.Text)
            XmlWrt.WriteElementString("textBox3", res.Text)
            XmlWrt.WriteElementString("textBox4", sts.Text)
            XmlWrt.WriteElementString("textBox5", txtlove.Text)
            XmlWrt.WriteElementString("textBox6", txtjoke.Text)
            XmlWrt.WriteElementString("textBox7", txtmusic.Text)
            XmlWrt.WriteElementString("textBox8", txtpic.Text)
            XmlWrt.WriteElementString("textBox9", txtpc.Text)
            XmlWrt.WriteElementString("textBox10", txtmob.Text)
            XmlWrt.WriteElementString("textBox11", txtfall.Text)
            XmlWrt.WriteElementString("textBox12", txtios.Text)
            XmlWrt.WriteElementString("textBox13", cname.Text)
            XmlWrt.WriteElementString("textBox14", cversion.Text)
            XmlWrt.WriteElementString("textBox15", cos.Text)
            XmlWrt.WriteElementString("textBox16", spy.Text)
            XmlWrt.WriteElementString("textBox17", pswspy.Text)
            XmlWrt.WriteElementString("richTextBox1", Monitor.Text)
            XmlWrt.WriteElementString("Ch1", aaar.Checked.ToString())
            XmlWrt.WriteElementString("Ch2", arad.Checked.ToString())
            XmlWrt.WriteElementString("Ch3", lb.Checked.ToString())
            XmlWrt.WriteElementString("Ch4", jb.Checked.ToString())
            XmlWrt.WriteElementString("Ch5", fb.Checked.ToString())
            XmlWrt.WriteElementString("Ch6", mb.Checked.ToString())
            XmlWrt.WriteElementString("Ch7", pb.Checked.ToString())
            XmlWrt.WriteElementString("Ch8", ps.Checked.ToString())
            XmlWrt.WriteElementString("Ch9", ms.Checked.ToString())
            XmlWrt.WriteElementString("Ch10", ioss.Checked.ToString())
            XmlWrt.WriteElementString("Ch11", aan.Checked.ToString())
            XmlWrt.WriteElementString("Ch12", multists.Checked.ToString())
            XmlWrt.WriteElementString("Ch13", gs.Checked.ToString())
            XmlWrt.WriteElementString("Ch14", lc.Checked.ToString())
            XmlWrt.WriteElementString("Ch15", nnm.Checked.ToString())
            XmlWrt.WriteElementString("Ch16", sfb.Checked.ToString())
            XmlWrt.WriteElementString("Ch17", sdi.Checked.ToString())
            XmlWrt.WriteElementString("Ch18", sad.Checked.ToString())
            XmlWrt.WriteElementString("Ch19", saad.Checked.ToString())
            XmlWrt.WriteElementString("Ch20", sjb.Checked.ToString())
            XmlWrt.WriteElementString("Ch21", ss2a.Checked.ToString())
            XmlWrt.WriteElementString("Ch22", sah.Checked.ToString())
            XmlWrt.WriteElementString("Ch23", gp.Checked.ToString())
            XmlWrt.WriteElementString("Ch24", us.Checked.ToString())
            XmlWrt.WriteElementString("Ch25", gru.Checked.ToString())
            XmlWrt.WriteElementString("Ch26", gus.Checked.ToString())
            XmlWrt.WriteElementString("Ch27", acmi.Checked.ToString())
            '
            XmlWrt.WriteElementString("Numric", Numeric.Value.ToString())
            XmlWrt.WriteEndElement()
            XmlWrt.WriteEndDocument()
            XmlWrt.Close()
        Catch
        End Try
    End Sub
    Private Sub logingrabber()
        Dim rnd As New Random
        With graber
            .Server = "nimbuzz.com"
            .ConnectServer = "o.nimbuzz.com"
            .Username = spy.Text
            .Password = pswspy.Text
            .Resource = "Goodzilla_Private_Bot_" + Convert.ToString(rnd.Next(0, 10000))
            .Open()
            AddHandler .OnLogin, AddressOf login1
            AddHandler .OnAuthError, AddressOf wrong1
        End With
    End Sub
    Private Sub wrong1(ByVal sender As Object, e As agsXMPP.Xml.Dom.Element)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New XmppElementHandler(AddressOf wrong1), New Object() {sender, e})
        Else
            spy.BackColor = Color.Red
            pswspy.BackColor = Color.Red
            spy.Enabled = True
            pswspy.Enabled = True
        End If
    End Sub
    Private Sub login1(ByVal sender As Object)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New ObjectHandler(AddressOf login1), New Object() {sender})
        Else
            spy.BackColor = Color.Green
            pswspy.BackColor = Color.Green
            spy.Enabled = False
            pswspy.Enabled = False
            graber.Send("<presence to='" + targetroom + "@conference.nimbuzz.com/" + spy.Text + "' xml:lang='en'><x xmlns='http://jabber.org/protocol/muc'></x></presence>")
        End If
    End Sub
    Private Sub Pro_MouseDown(sender As Object, e As MouseEventArgs) Handles Pro.MouseDown
        b = True
        a = e.X
        c = e.Y
    End Sub
    Private Sub Pro_MouseMove(sender As Object, e As MouseEventArgs) Handles Pro.MouseMove
        If b Then
            Me.Left = (Me.Left + e.X) - a
            Me.Top = (Me.Top + e.Y) - c
        End If
    End Sub
    Private Sub Pro_MouseUp(sender As Object, e As MouseEventArgs) Handles Pro.MouseUp
        b = False
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Notii.ShowBalloonTip(1000, "Goodzilla Private Bot", "Coded By Saltanat@Nimbuzz.Com", ToolTipIcon.Info)
        loaddata()
        l1.Enabled = False
        l2.Enabled = False
        l3.Enabled = False
        l4.Enabled = False
        l5.Enabled = False
        l6.Enabled = False
        l7.Enabled = False
        l8.Enabled = False
        l9.Enabled = False
        l10.Enabled = False
        l11.Enabled = False
        l12.Enabled = False
        l13.Enabled = False
        l14.Enabled = False
        l15.Enabled = False
        l16.Enabled = False
        l17.Enabled = False
        l18.Enabled = False
        l19.Enabled = False
        l20.Enabled = False
        l21.Enabled = False
        l22.Enabled = False
        l23.Enabled = False
        l24.Enabled = False
        l25.Enabled = False
        l26.Enabled = False
        l27.Enabled = False
        l28.Enabled = False
        l29.Enabled = False
        l30.Enabled = False
        l31.Enabled = False
        l32.Enabled = False
        l33.Enabled = False
        l34.Enabled = False
        l35.Enabled = False
        l36.Enabled = False
        l37.Enabled = False
        l38.Enabled = False
        l39.Enabled = False
        l40.Enabled = False
        l41.Enabled = False
        l42.Enabled = False
        l43.Enabled = False
        l44.Enabled = False
        l45.Enabled = False
        l46.Enabled = False
        l47.Enabled = False
        l49.Enabled = False
        l51.Enabled = False
        l50.Enabled = False
        l48.Enabled = False
        l52.Enabled = False
        l53.Enabled = False
        l54.Enabled = False
        l55.Enabled = False
        l56.Enabled = False
        l57.Enabled = False
        l58.Enabled = False
        l59.Enabled = False
        l60.Enabled = False
        l61.Enabled = False
        Form.CheckForIllegalCrossThreadCalls = False
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim open As New OpenFileDialog
        open.Filter = "Text Files (*.txt)|*.txt"
        open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
        If open.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim myfile As String = open.FileName
        Dim reader As New System.IO.StreamReader(myfile)
        While reader.Peek() >= 0
            Dim item As String = reader.ReadLine
            If Not String.IsNullOrEmpty(item.Trim) Then txtlove.AppendText(item)
        End While
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim open As New OpenFileDialog
        open.Filter = "Text Files (*.txt)|*.txt"
        open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
        If open.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim myfile As String = open.FileName
        Dim reader As New System.IO.StreamReader(myfile)
        While reader.Peek() >= 0
            Dim item As String = reader.ReadLine
            If Not String.IsNullOrEmpty(item.Trim) Then txtjoke.AppendText(item)
        End While
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim open As New OpenFileDialog
        open.Filter = "Text Files (*.txt)|*.txt"
        open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
        If open.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim myfile As String = open.FileName
        Dim reader As New System.IO.StreamReader(myfile)
        While reader.Peek() >= 0
            Dim item As String = reader.ReadLine
            If Not String.IsNullOrEmpty(item.Trim) Then txtmusic.AppendText(item)
        End While
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        Dim open As New OpenFileDialog
        open.Filter = "Text Files (*.txt)|*.txt"
        open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
        If open.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim myfile As String = open.FileName
        Dim reader As New System.IO.StreamReader(myfile)
        While reader.Peek() >= 0
            Dim item As String = reader.ReadLine
            If Not String.IsNullOrEmpty(item.Trim) Then txtpc.AppendText(item)
        End While
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Dim open As New OpenFileDialog
        open.Filter = "Text Files (*.txt)|*.txt"
        open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
        If open.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim myfile As String = open.FileName
        Dim reader As New System.IO.StreamReader(myfile)
        While reader.Peek() >= 0
            Dim item As String = reader.ReadLine
            If Not String.IsNullOrEmpty(item.Trim) Then txtmob.AppendText(item)
        End While
    End Sub
    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
        Dim open As New OpenFileDialog
        open.Filter = "Text Files (*.txt)|*.txt"
        open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
        If open.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim myfile As String = open.FileName
        Dim reader As New System.IO.StreamReader(myfile)
        While reader.Peek() >= 0
            Dim item As String = reader.ReadLine
            If Not String.IsNullOrEmpty(item.Trim) Then txtios.AppendText(item)
        End While
    End Sub
    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
        Dim open As New OpenFileDialog
        open.Filter = "Text Files (*.txt)|*.txt"
        open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
        If open.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim myfile As String = open.FileName
        Dim reader As New System.IO.StreamReader(myfile)
        While reader.Peek() >= 0
            Dim item As String = reader.ReadLine
            If Not String.IsNullOrEmpty(item.Trim) Then txtfall.AppendText(item)
        End While
    End Sub
    Private Sub txtlove_TextChanged(sender As Object, e As EventArgs) Handles txtlove.TextChanged
        Dim loves As String() = txtlove.Text.Split("#")
        l11.Text = "Love Text : " + loves.Length.ToString()
    End Sub
    Private Sub txtjoke_TextChanged(sender As Object, e As EventArgs) Handles txtjoke.TextChanged
        Dim jokes As String() = txtjoke.Text.Split("#")
        l12.Text = "Joke Text : " + jokes.Length.ToString()
    End Sub
    Private Sub txtmusic_TextChanged(sender As Object, e As EventArgs) Handles txtmusic.TextChanged
        Dim musics As String() = txtmusic.Text.Split("#")
        l13.Text = "Musics Text : " + musics.Length.ToString()
    End Sub
    Private Sub txtpic_TextChanged(sender As Object, e As EventArgs) Handles txtpic.TextChanged
        Dim pic As String() = txtpic.Text.Split("#")
        l14.Text = "Pictures Text : " + pic.Length.ToString()
    End Sub
    Private Sub txtpc_TextChanged(sender As Object, e As EventArgs) Handles txtpc.TextChanged
        Dim pc As String() = txtpc.Text.Split("#")
        l15.Text = "Pc Softwares Text : " + pc.Length.ToString()
    End Sub
    Private Sub txtmob_TextChanged(sender As Object, e As EventArgs) Handles txtmob.TextChanged
        Dim mob As String() = txtmob.Text.Split("#")
        l16.Text = "Mobile Softwares Text : " + mob.Length.ToString()
    End Sub
    Private Sub txtios_TextChanged(sender As Object, e As EventArgs) Handles txtios.TextChanged
        Dim ios As String() = txtios.Text.Split("#")
        l17.Text = "IOS Softwares Text : " + ios.Length.ToString()
    End Sub
    Private Sub txtfall_TextChanged(sender As Object, e As EventArgs) Handles txtfall.TextChanged
        Dim fal As String() = txtfall.Text.Split("#")
        l18.Text = "Fall Text : " + fal.Length.ToString()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        txtlove.Clear()
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        txtjoke.Clear()
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        txtmusic.Clear()
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        txtpic.Clear()
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        txtpc.Clear()
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        txtmob.Clear()
    End Sub
    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        txtios.Clear()
    End Sub
    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        txtfall.Clear()
    End Sub
    Private Sub bg_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bg.DoWork
        meti = New XmppClientConnection()
        With meti
            .Server = "nimbuzz.com"
            .ConnectServer = "o.nimbuzz.com"
            .Username = user.Text
            .Resource = res.Text
            .Password = psw.Text
            .Open()
            AddHandler .OnLogin, AddressOf login
            AddHandler .OnAuthError, AddressOf wrong
            AddHandler .OnClose, AddressOf dc
            AddHandler .OnIq, AddressOf client
            AddHandler .OnMessage, AddressOf chat
            AddHandler .OnPresence, AddressOf addreq
            AddHandler .OnRosterStart, AddressOf start
            AddHandler .OnRosterItem, AddressOf addlist
            AddHandler .OnRosterEnd, AddressOf endd
            AddHandler .OnReadXml, AddressOf Xml1
            AddHandler .OnReadXml, AddressOf Xml2
            AddHandler .OnMessage, AddressOf OnMessage
        End With
    End Sub
    '
    Private Sub Xml2(sender As Object, xml As String)
        If (MyBase.InvokeRequired) Then
            BeginInvoke(New XmlHandler(AddressOf Xml2), New Object() {sender, xml})
            Return
        End If
        xml = xml.Replace("""", "'")
        If Not Strings.InStr(xml, "meran_nWorld_mF", CompareMethod.Text) = 0 Then
            strNworldSessID = getSession(xml)
        End If
    End Sub
    Private Function getSession(ByVal xml As String) As String
        Dim str1X As String = ""
        Dim strNworldURL As String = xml.Substring(xml.IndexOf("token'>") + 7)
        strNworldURL = strNworldURL.Substring(0, strNworldURL.IndexOf("</") - 0).Replace("amp;", "")
        Dim request As HttpWebRequest = CType(WebRequest.Create(strNworldURL), HttpWebRequest)
        Dim response As HttpWebResponse = CType(request.GetResponse, HttpWebResponse)
        str1X = request.Address.ToString
        str1X = str1X.Substring(str1X.IndexOf("PHPSESSID=") + 10)
        Return str1X
    End Function
    Sub SendTokenXml()
        meti.Send("<iq xmlns='jabber:client' type='get' id='meran_nWorld_mF' to='token.nimbuzz.com'><query xmlns='nimbuzz:token'><type>shop</type><branch>J2ME</branch><version><major>2</major><minor>1</minor></version><category /></query></iq>")
    End Sub
    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Try
            If Not strNworldSessID = "" Then
                If userSearch Then
                    Dim request As HttpWebRequest = CType(WebRequest.Create("http://shop.nimbuzz.com/search?PHPSESSID=" + strNworldSessID + "&search=" + HttpUtility.UrlEncode(str2) + "&search-btn=Search"), HttpWebRequest)
                    Dim res As HttpWebResponse = CType(request.GetResponse, HttpWebResponse)
                    Dim strResponse As String = New System.IO.StreamReader(res.GetResponseStream).ReadToEnd()
                    If strResponse.Contains("Session Expired") Then
                        SendTokenXml()
                    Else
                        Dim strUsers() As String = strResponse.Split("<")
                        Dim listUserSearcherL As List(Of String) = New List(Of String)
                        Dim i As Integer = 0
                        For i = 0 To strUsers.Length - 1
                            If (Strings.InStr(strUsers(i), "getAvatar", CompareMethod.Text) <> 0) Then
                                Dim strUs As String = strUsers(i).Substring(strUsers(i).IndexOf("jid=") + 4)
                                strUs = strUs.Substring(0, (strUs.IndexOf("@") - 0))
                                listUserSearcherL.Add(HttpUtility.UrlDecode(strUs))
                            End If
                        Next
                        Dim str2XX As String = ""
                        For Each myXString As String In listUserSearcherL
                            str2XX = str2XX + myXString + Environment.NewLine
                        Next
                        meti.Send(New agsXMPP.protocol.client.Message(New Jid(str1), MessageType.chat, str2XX))
                        listUserSearcherL.Clear()
                        str2XX = ""
                    End If
                End If
                If getSince Then
                    Dim request As HttpWebRequest = CType(WebRequest.Create("http://shop.nimbuzz.com/social/contact?user=" + HttpUtility.UrlEncode(str2) + "&list=profile&PHPSESSID=" + strNworldSessID), HttpWebRequest)
                    Dim res As HttpWebResponse = CType(request.GetResponse, HttpWebResponse)
                    Dim strResponse As String = New System.IO.StreamReader(res.GetResponseStream).ReadToEnd()
                    If strResponse.Contains("Session Expired") Then
                        SendTokenXml()
                    Else
                        Dim text As String = strResponse.Substring((strResponse.IndexOf("user since") + 53))
                        text = text.Substring(0, text.IndexOf("</strong></td>") - 0)
                        meti.Send(New agsXMPP.protocol.client.Message(New Jid(str1), MessageType.chat, text))
                    End If
                End If
            End If
        Catch ex As Exception

        End Try
    End Sub
    Private Sub OnMessage(sender As Object, msg As Message)
        If (MyBase.InvokeRequired) Then
            BeginInvoke(New MessageHandler(AddressOf OnMessage), New Object() {sender, msg})
            Return
        End If
        Try
            If gus.Checked = True Then
                If msg.Body.ToLower().StartsWith("t/") Then
                    str1 = msg.From.Bare
                    str2 = msg.Body.Remove(0, 2)
                    getSince = True
                    userSearch = False
                    BackgroundWorker1.RunWorkerAsync()
                End If
                If us.Checked = True Then
                    If msg.Body.ToLower().StartsWith("s/") Then
                        str1 = msg.From.Bare
                        str2 = msg.Body.Remove(0, 2)
                        getSince = False
                        userSearch = True
                        BackgroundWorker1.RunWorkerAsync()
                    End If
                End If
            End If
        Catch ex As Exception
        End Try
    End Sub

    '
    Private Sub addreq(ByVal sender As Object, prs As Presence)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New PresenceHandler(AddressOf addreq), New Object() {sender, prs})
        Else
            If aaar.Checked = True Then
                If prs.Type = PresenceType.subscribe Then
                    DirectCast(sender, XmppClientConnection).Send("<presence to='" + prs.From.ToString() + "' type='subscribed' />")
                    DirectCast(sender, XmppClientConnection).Send("<presence to='" + prs.From.ToString() + "' type='subscribe' />")
                End If
                If prs.Type = PresenceType.subscribed Then
                    DirectCast(sender, XmppClientConnection).Send("<presence to='" + prs.From.ToString() + "' type='subscribe' />")
                End If
            End If
        End If
    End Sub
    Private Sub Xml1(snd As Object, xml As String)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New XmlHandler(AddressOf Xml1), New Object() {snd, xml})
        Else
            xml = Replace(xml, """", "'")
            If ((Strings.InStr(xml, "<value>http://jabber.org/protocol/profile</value>", CompareMethod.Binary) <> 0)) Then
                Dim PRo As String = xml
                Profile = ""
                If (Strings.InStr(PRo, "'status'", CompareMethod.Binary) <> 0) Then
                    Dim prSTS As String = PRo.Substring(PRo.IndexOf("<field var='status'") + 1)
                    prSTS = prSTS.Substring(0, prSTS.IndexOf("</") - 0)
                    Dim stSKH As String = prSTS.Substring(prSTS.IndexOf(">") + 2)
                    Dim STS As String = stSKH.Substring(stSKH.IndexOf(">") + 1)
                    Profile += "Personal Message : " + STS + vbNewLine
                End If
                If (Strings.InStr(PRo, "'nickname'", CompareMethod.Binary) <> 0) Then
                    Dim prSTS1 As String = PRo.Substring(PRo.IndexOf("<field var='nickname'") + 1)
                    prSTS1 = prSTS1.Substring(0, prSTS1.IndexOf("</") - 0)
                    Dim stSKH1 As String = prSTS1.Substring(prSTS1.IndexOf(">") + 2)
                    Dim Nick As String = stSKH1.Substring(stSKH1.IndexOf(">") + 1)
                    Profile += "Nick Name : " + Nick + vbNewLine
                End If
                If (Strings.InStr(PRo, "'street'", CompareMethod.Binary) <> 0) Then
                    Dim prSTS1 As String = PRo.Substring(PRo.IndexOf("<field var='street'") + 1)
                    prSTS1 = prSTS1.Substring(0, prSTS1.IndexOf("</") - 0)
                    Dim stSKH1 As String = prSTS1.Substring(prSTS1.IndexOf(">") + 2)
                    Dim street As String = stSKH1.Substring(stSKH1.IndexOf(">") + 1)
                    Profile += "Street : " + street + vbNewLine
                End If
                If (Strings.InStr(PRo, "'locality'", CompareMethod.Binary) <> 0) Then
                    Dim prSTS1 As String = PRo.Substring(PRo.IndexOf("<field var='locality'") + 1)
                    prSTS1 = prSTS1.Substring(0, prSTS1.IndexOf("</") - 0)
                    Dim stSKH1 As String = prSTS1.Substring(prSTS1.IndexOf(">") + 2)
                    Dim local As String = stSKH1.Substring(stSKH1.IndexOf(">") + 1)
                    Profile += "Locality : " + local + vbNewLine
                End If
                If (Strings.InStr(PRo, "'country'", CompareMethod.Binary) <> 0) Then
                    Dim prSTS1 As String = PRo.Substring(PRo.IndexOf("<field var='country'") + 1)
                    prSTS1 = prSTS1.Substring(0, prSTS1.IndexOf("</") - 0)
                    Dim stSKH1 As String = prSTS1.Substring(prSTS1.IndexOf(">") + 2)
                    Dim con As String = stSKH1.Substring(stSKH1.IndexOf(">") + 1)
                    Profile += "Country : " + con + vbNewLine
                End If
                If (Strings.InStr(PRo, "'username'", CompareMethod.Binary) <> 0) Then
                    Dim prSTS1 As String = PRo.Substring(PRo.IndexOf("<field var='username'") + 1)
                    prSTS1 = prSTS1.Substring(0, prSTS1.IndexOf("</") - 0)
                    Dim stSKH1 As String = prSTS1.Substring(prSTS1.IndexOf(">") + 2)
                    Dim user As String = stSKH1.Substring(stSKH1.IndexOf(">") + 1)
                    Profile += "Username : " + user + vbNewLine
                    meti.Send(New agsXMPP.protocol.client.Message(New Jid(msgfrom), MessageType.chat, Profile))
                    Profile = Nothing
                    msgfrom = Nothing
                    Thread.Sleep(30)
                End If
            End If
        End If
    End Sub
    Private Sub start(ByVal sender As Object)
        On Error Resume Next
        ListView1.BeginUpdate()
    End Sub
    Private Sub endd(ByVal sender As Object)
        ListView1.EndUpdate()
    End Sub
    Private Sub addlist(ByVal sender As Object, ByVal item As agsXMPP.protocol.iq.roster.RosterItem)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New XmppClientConnection.RosterHandler(AddressOf addlist), New Object() {sender, item})

        Else
            On Error Resume Next
            Dim arr(2) As String
            If (item.Subscription = agsXMPP.protocol.iq.roster.SubscriptionType.both) Then
                For i = 0 To ListView1.Items.Count - 1
                    If (item.Jid.ToString() = ListView1.Items(i).ToString()) Then
                        ListView1.Items.RemoveAt(i)
                    End If
                Next
                arr(0) = item.Jid.User.ToString()
                arr(1) = ""
                itm = New ListViewItem(arr)
                itm.BackColor = Color.Red
                ListView1.Items.Add(itm)
                l10.Text = "Contacts List : " + ListView1.Items.Count.ToString()
                ListView1.Items.RemoveAt(user.Text)
                For i = 0 To ListBox1.Items.Count - 1
                    If (item.Jid.ToString() = ListBox1.Items(i).ToString()) Then
                        ListBox1.Items.RemoveAt(i)
                    End If
                Next
                ListBox1.Items.Add(item.Jid.User.ToString())
                Thread.Sleep(20)
            End If
        End If
    End Sub
    Private Sub chat(ByVal sender As Object, msg As Message)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New MessageHandler(AddressOf chat), New Object() {sender, msg})
        Else
            On Error Resume Next
            If msg.Type = MessageType.chat AndAlso msg.HasTag("body") Then
                Monitor.AppendText(msg.From.User + "  :  " + msg.Body.ToString() + "  [" + DateAndTime.Now.ToLongTimeString() + "]" + vbNewLine)
                If jb.Checked = True Then
                    If msg.Body.ToLower() = "j" Or msg.Body.ToLower() = "joke" Or msg.Body.ToLower() = "ج" Or msg.Body.ToLower() = "جوک" Then
                        Dim rnd As New Random
                        joke = txtjoke.Text.Split("#")
                        Dim ms1 As String = joke(rnd.Next(joke.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                ''''''''''''''
                If lb.Checked = True Then
                    If msg.Body.ToLower() = "l" Or msg.Body.ToLower() = "love" Or msg.Body.ToLower() = "ل" Or msg.Body.ToLower() = "لاو" Then
                        Dim rnd As New Random
                        love = txtlove.Text.Split("#")
                        Dim ms1 As String = love(rnd.Next(love.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                '''''''''''''
                If fb.Checked = True Then
                    If msg.Body.ToLower() = "f" Or msg.Body.ToLower() = "fall" Or msg.Body.ToLower() = "ف" Or msg.Body.ToLower() = "فال" Then
                        Dim rnd As New Random
                        fall = txtfall.Text.Split("#")
                        Dim ms1 As String = fall(rnd.Next(fall.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                ''''''''''''''
                If mb.Checked = True Then
                    If msg.Body.ToLower() = "m" Or msg.Body.ToLower() = "music" Or msg.Body.ToLower() = "م" Or msg.Body.ToLower() = "موزیک" Then
                        Dim rnd As New Random
                        music = txtmusic.Text.Split("#")
                        Dim ms1 As String = music(rnd.Next(music.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                '''''''''''''
                If pb.Checked = True Then
                    If msg.Body.ToLower() = "p" Or msg.Body.ToLower() = "pic" Or msg.Body.ToLower() = "ع" Or msg.Body.ToLower() = "عکس" Then
                        Dim rnd As New Random
                        pic = txtpic.Text.Split("#")
                        Dim ms1 As String = pic(rnd.Next(pic.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                '''''''''''''
                If ps.Checked = True Then
                    If msg.Body.ToLower() = "pc" Or msg.Body.ToLower() = "pc soft" Or msg.Body.ToLower() = "پی سی" Or msg.Body.ToLower() = "کامپیوتر" Then
                        Dim rnd As New Random
                        pc = txtpc.Text.Split("#")
                        Dim ms1 As String = pc(rnd.Next(pc.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                '''''''''''''
                If ioss.Checked = True Then
                    If msg.Body.ToLower() = "ios" Or msg.Body.ToLower() = "ios soft" Or msg.Body.ToLower() = "ای او اس" Or msg.Body.ToLower() = "برنامه ios" Then
                        Dim rnd As New Random
                        ios = txtios.Text.Split("#")
                        Dim ms1 As String = ios(rnd.Next(ios.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                ''''''''''''
                If mb.Checked = True Then
                    If msg.Body.ToLower() = "mob" Or msg.Body.ToLower() = "mobile" Or msg.Body.ToLower() = "soft mob" Or msg.Body.ToLower() = "موبایل" Then
                        Dim rnd As New Random
                        mob = txtmob.Text.Split("#")
                        Dim ms1 As String = mob(rnd.Next(mob.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                '''''''''''''''''''
                If msg.Body.ToLower().StartsWith("yav/") Then
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Yahoo Avatar : " + (msg.Body.Replace("yav/", "")) + "" + vbNewLine + "http://img.msg.yahoo.com/avatar.php?yids=" + (msg.Body.ToLower().Replace("yav/", ""))))
                End If
                If msg.Body.ToLower().StartsWith("fav/") Then
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "FaceBook Avatar : " + (msg.Body.Replace("fav/", "")) + "" + vbNewLine + "http://graph.facebook.com/" + (msg.Body.ToLower().Replace("fav/", "")) + "/picture"))
                End If
                If msg.Body.ToLower().StartsWith("tav/") Then
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Twitter Avatar : " + (msg.Body.Replace("tav/", "")) + "" + vbNewLine + "http://twitavatar.appspot.com/" + (msg.Body.ToLower().Replace("tav/", "")) + ".jpg"))
                End If
                If msg.Body.ToLower().StartsWith("nav/") Then
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Nimbuzz Avatar : " + (msg.Body.Replace("nav/", "")) + "" + vbNewLine + "http://avatar.nimbuzz.com/getAvatar?jid=" + (msg.Body.ToLower().Replace("nav/", "")) + "@nimbuzz.com"))
                End If
                If msg.Body.ToLower() = "time" Or msg.Body.ToLower() = "زمان" Then
                    Dim dat As DateTime
                    dat = DateTime.Now
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Current Time :" + vbNewLine + "" + dat))
                End If
                '''''''''''''
                If aan.Checked = True Then
                    For i = 0 To anslist.Rows.Count - 1
                        If msg.Body.ToLower() = anslist.Rows(i).Cells(0).Value.ToString() Then
                            Dim result As String = anslist.Rows(i).Cells(1).Value.ToString()
                            meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, result))
                            Thread.Sleep(1000)
                        End If
                    Next
                End If
                '''''''''''''
                If gs.Checked = True Then
                    If msg.Body.ToLower().StartsWith("gs/") Then
                        keyw = msg.Body.ToLower().Replace("gs/", "")
                        gsearch()
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, RichTextBox1.Text))
                        RichTextBox1.Clear()
                    End If
                End If
                '''''''''''

                ''''''''''''
                If nnm.Checked = True Then
                    If msg.Body.ToLower().StartsWith("nick/") Then
                        Dim nic As String = msg.Body.ToLower().Replace("nick/", "")
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Nick Names For : " + nic + vbNewLine + vbNewLine + "←◙◦☺☼" + nic + "☼☺◦◙→" + vbNewLine + "★ϟ★ϟ★" + nic + "★ϟ★ϟ★" + vbNewLine + "☼∩☼∩☼" + nic + "☼∩☼∩☼" + vbNewLine + "▄ █ ▄ █ ▓" + nic + "▓ █ ▄ █ ▄" + vbNewLine + "●๋•ミ★" + nic + "★彡●๋●" + vbNewLine + "→✘▓▓" + nic + "▓▓✘←" + vbNewLine + "ॐ♥♜♛" + nic + "♜♚♥ॐ" + vbNewLine + "₡₪↯♥" + nic + "♥↯₪₡" + vbNewLine + "═◦∞☆" + nic + "☆∞◦═" + vbNewLine + "▀▄▀▄▀▄" + nic + "▄▀▄▀▄▀" + vbNewLine + "•°¯`••" + nic + "••´¯°•" + vbNewLine + "§.•´¨'°÷•..×" + nic + "×,.•´¨'°÷•..§" + vbNewLine + "◄█◙◙█▀" + nic + "▀█◙◙█►" + vbNewLine + "♫ ♪♪" + nic + "♪♪ ♫" + vbNewLine + "╞☺♀▓▒░►♣♠" + nic + "♠♣◄░▒▓♀☺╡" + vbNewLine + "←(☻_.•°``°•" + nic + "•°``°•._☻)→" + vbNewLine + "╔════" + nic + "════╗" + vbNewLine + "♥•°``°•♥" + nic + "♥•°``°•♥" + vbNewLine + "║═☻◘‼↔" + nic + "↔‼◘☻═║" + vbNewLine))
                    End If
                End If
                '''''''''''
                If gru.Checked = True Then
                    If msg.Body.ToLower().StartsWith("gru/") Then
                        logingrabber()
                        targetuser = msg.From.User
                        targetroom = msg.Body.ToLower().Replace("gru/", "")
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Please Wait ... !!!"))
                    End If
                End If
                '''''''''''

                ''''''''''
                If lc.Checked = True Then
                    If msg.Body.ToLower().StartsWith("love/") Then
                        Dim rnd As New Random
                        Dim st As String = Convert.ToString(rnd.Next(10, 100))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Meghdare Eshghe Beyne " + msg.Body.ToLower().Replace("love/", "").Replace("/", " Va ") + " " + st + " % Mibashad ."))
                    End If
                End If
                ''''''''''
                If gp.Checked = True Then
                    If msg.Body.ToLower().StartsWith("p/") Then
                        msgfrom = msg.From.ToString()
                        meti.Send("<iq to='" + msg.Body.Replace("p/", "") + "@nimbuzz.com' type='get' id='amirslr'><query xmlns='http://jabber.org/protocol/profile'/></iq>")
                    End If
                End If
                ''''''''''''
                If msg.Body.ToLower().StartsWith("code/") Then
                    Dim capa As String = msg.Body.ToLower().Replace("code/", "")
                    graber.Send("<message to='" + targetroom + "@conference.nimbuzz.com' type='groupchat'><body>" + capa + "</body></message>")
                End If
                ''''''''''''''
                If msg.Body.ToLower() = "help" Then
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, txthelp1.Text))
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, txthelp2.Text))
                End If
                ''''''''''''''
                If msg.Body.ToLower().StartsWith("anti/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If saad.Checked = True Then
                        If g.Length = 6 Then
                            Dim adver As New AntiAdvertiser
                            adver.LoginAntiAdvertiser(g(1), g(2), g(3), g(4), g(5), msg.From.User)
                        End If
                    End If
                End If
                ''''''''''''''
                If msg.Body.ToLower().StartsWith("advertise/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If sad.Checked = True Then
                        If g.Length = 6 Then
                            Dim adver As New Advertiser
                            adver.LoginAdvertiser(g(1), g(2), g(3), g(4), g(5), msg.From.User)
                        End If
                    End If
                End If
                ''''''''''''''
                If msg.Body.ToLower().StartsWith("full/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If sfb.Checked = True Then
                        If g.Length = 6 Then
                            Dim full As New FullBoter
                            full.LoginFullBot(g(1), g(2), g(3), g(4), g(5), msg.From.User)
                        End If
                    End If
                End If
                '''''''''''''
                If msg.Body.ToLower().StartsWith("pro/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If sah.Checked = True Then
                        If g.Length = 7 Then
                            Dim prot As New Protector
                            prot.LoginProtector(g(1), g(2), g(3), g(4), g(5), g(6), msg.From.User)
                        End If
                    End If
                End If
                '''''''''''''
                If msg.Body.ToLower().StartsWith("dead/") Then
                    If sdi.Checked = True Then
                        Dim k As String() = msg.Body.ToLower().Split("/")
                        Dim dead As New Deader
                        dead.LoginDead(k(1), k(2), k(3), k(4), msg.From.User)
                    End If
                End If

                ''''''''''''
                If msg.Body.ToLower().StartsWith("s2a/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If ss2a.Checked = True Then
                        If g.Length = 6 Then
                            Dim se As New S2A
                            se.LoginS2A(g(1), g(2), g(3), g(4), g(5), msg.From.User)
                        End If
                    End If
                End If
                '''''''''''''
                If msg.Body.ToLower().StartsWith("joke/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If sjb.Checked = True Then
                        If g.Length = 5 Then
                            Dim joko As New Joker
                            joko.LoginJoker(g(1), g(2), g(3), g(4), msg.From.User)
                        End If
                    End If
                End If
                '''''''''''''
            End If
            For i = 0 To masters.Rows.Count - 1
                If msg.From.User = masters.Rows(i).Cells(0).Value.ToString() Then
                    ''LOVE BOT
                    If msg.Body.ToLower() = "lb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Love Bot Active !"))
                        lb.Checked = True
                    End If
                    If msg.Body.ToLower() = "lb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Love Bot Deactive !"))
                        lb.Checked = False
                    End If
                    ''JOKE BOT
                    If msg.Body.ToLower() = "jb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Joke Bot Active !"))
                        jb.Checked = True
                    End If
                    If msg.Body.ToLower() = "jb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Joke Bot Deactive !"))
                        jb.Checked = False
                    End If
                    ''FALL BOT
                    If msg.Body.ToLower() = "fb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Fall Bot Active !"))
                        fb.Checked = True
                    End If
                    If msg.Body.ToLower() = "fb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Fall Bot Deactive !"))
                        fb.Checked = False
                    End If
                    ''MUSIC BOT
                    If msg.Body.ToLower() = "mb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Music Bot Active !"))
                        mb.Checked = True
                    End If
                    If msg.Body.ToLower() = "mb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Music Bot Deactive !"))
                        mb.Checked = False
                    End If
                    ''PICTURE BOT
                    If msg.Body.ToLower() = "pb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Picture Bot Active !"))
                        pb.Checked = True
                    End If
                    If msg.Body.ToLower() = "pb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Picture Bot Deactive !"))
                        pb.Checked = False
                    End If
                    ''PC SOFTWARES
                    If msg.Body.ToLower() = "ps/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "PC Softwares Bot Active !"))
                        ps.Checked = True
                    End If
                    If msg.Body.ToLower() = "ps/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Pc Softwares Bot Deactive !"))
                        ps.Checked = False
                    End If
                    ''MOBILE SOFTWARES
                    If msg.Body.ToLower() = "ms/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Mobile Softwares Bot Active !"))
                        ms.Checked = True
                    End If
                    If msg.Body.ToLower() = "ms/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Mobile Softwares Bot Deactive !"))
                        ms.Checked = False
                    End If
                    ''IOS SOFTWARES
                    If msg.Body.ToLower() = "ios/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "IOS Softwares Bot Active !"))
                        ioss.Checked = True
                    End If
                    If msg.Body.ToLower() = "ios/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "IOS Softwares Bot Deactive !"))
                        ioss.Checked = False
                    End If
                    ''AUTO ANSWER
                    If msg.Body.ToLower() = "aa/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Auto Answer Bot Active !"))
                        aan.Checked = True
                    End If
                    If msg.Body.ToLower() = "aa/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Auto Answer Bot Deactive !"))
                        aan.Checked = False
                    End If
                    ''MULTI STATUS
                    If msg.Body.ToLower() = "stc/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Multi Status Active !"))
                        multists.Checked = True
                    End If
                    If msg.Body.ToLower() = "stc/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Multi Status Deactive !"))
                        multists.Checked = False
                    End If
                    ''GOOGLE SEARCH
                    If msg.Body.ToLower() = "go/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Google Search Bot Active !"))
                        gs.Checked = True
                    End If
                    If msg.Body.ToLower() = "go/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Google Search Bot Deactive !"))
                        gs.Checked = False
                    End If
                    ''LOVE COUNTER
                    If msg.Body.ToLower() = "lc/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Love Counter Bot Active !"))
                        lc.Checked = True
                    End If
                    If msg.Body.ToLower() = "lc/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Love Counter Bot Deactive !"))
                        lc.Checked = False
                    End If
                    ''NICK NAME MAKER
                    If msg.Body.ToLower() = "nnm/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Nick Name Maker Bot Active !"))
                        nnm.Checked = True
                    End If
                    If msg.Body.ToLower() = "nnm/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Nick Name Maker Bot Deactive !"))
                        nnm.Checked = False
                    End If
                    ''SERVER FULLBOT
                    If msg.Body.ToLower() = "sfb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server FullBot Joiner Active !"))
                        sfb.Checked = True
                    End If
                    If msg.Body.ToLower() = "sfb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server FullBot Joiner Deactive !"))
                        sfb.Checked = False
                    End If
                    ''SERVER DEAD ID
                    If msg.Body.ToLower() = "sdi/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Dead ID Joiner Active !"))
                        sdi.Checked = True
                    End If
                    If msg.Body.ToLower() = "sdi/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Dead ID Joiner Deactive !"))
                        sdi.Checked = False
                    End If
                    ''SERVER ADVERTISER
                    If msg.Body.ToLower() = "sad/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Advertiser Joiner Active !"))
                        sad.Checked = True
                    End If
                    If msg.Body.ToLower() = "sad/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Advertiser Joiner Deactive !"))
                        sad.Checked = False
                    End If
                    ''SERVER ANTI ADVERTISER
                    If msg.Body.ToLower() = "saad/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Anti Advertiser Joiner Active !"))
                        saad.Checked = True
                    End If
                    If msg.Body.ToLower() = "saad/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Anti Advertiser Joiner Deactive !"))
                        saad.Checked = False
                    End If
                    ''SERVER JOKEBOT
                    If msg.Body.ToLower() = "sjb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server JokeBot Joiner Active !"))
                        sjb.Checked = True
                    End If
                    If msg.Body.ToLower() = "sjb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server JokeBot Joiner Deactive !"))
                        sjb.Checked = False
                    End If
                    ''SERVER S2A
                    If msg.Body.ToLower() = "ss2a/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server S2A Sender Active !"))
                        ss2a.Checked = True
                    End If
                    If msg.Body.ToLower() = "ss2a/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server S2A Sender Deactive !"))
                        ss2a.Checked = False
                    End If
                    ''SERVER ACCOUNT PROTECTOR
                    If msg.Body.ToLower() = "sap/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Account Protector Active !"))
                        sah.Checked = True
                    End If
                    If msg.Body.ToLower() = "sap/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Account Protector Deactive !"))
                        sah.Checked = False
                    End If
                    ''GET PROFILE
                    If msg.Body.ToLower() = "gp/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Profile Grabber Bot Active !"))
                        gp.Checked = True
                    End If
                    If msg.Body.ToLower() = "gp/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Profile Grabber Bot Deactive !"))
                        gp.Checked = False
                    End If
                    ''USER SEARCHER
                    If msg.Body.ToLower() = "us/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "User Searcher Bot Active !"))
                        us.Checked = True
                    End If
                    If msg.Body.ToLower() = "us/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "User Searcher Bot Deactive !"))
                        us.Checked = False
                    End If
                    ''GET ROOM USERS
                    If msg.Body.ToLower() = "getu/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Get Room Users Bot Active !"))
                        gru.Checked = True
                    End If
                    If msg.Body.ToLower() = "getu/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Get Room Users Bot Deactive !"))
                        gru.Checked = False
                    End If
                    ''GET USER SINCE
                    If msg.Body.ToLower() = "gus/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Get User Since Bot Active !"))
                        gus.Checked = True
                    End If
                    If msg.Body.ToLower() = "gus/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Get User Since Bot Deactive !"))
                        gus.Checked = False
                    End If
                    ''S2A TO BOT ADDLIST
                    If msg.Body.ToLower().StartsWith("Send/") Then
                        Dim t As String() = msg.Body.ToLower().Split("/")
                        txtsubject.Text = t(1)
                        txttext.Text = t(2)
                        Button16.PerformClick()
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "S2A To My Addlist Sended !"))
                        txtsubject.Clear()
                        txttext.Clear()
                    End If
                    ''VIEW MONITOR
                    If msg.Body.ToLower() = "view/mo" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, Monitor.Text))
                    End If
                    ''GET ROOM USERS ID
                    If msg.Body.ToLower().StartsWith("setid/") Then
                        Dim t As String = msg.Body.ToLower().Replace("setid/", "")
                        spy.Text = t
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Spy ID For Get Room Users Has Been Changed To : " + spy.Text))
                    End If
                    ''GET ROOM USERS PW
                    If msg.Body.ToLower().StartsWith("setpw/") Then
                        Dim t As String = msg.Body.ToLower().Replace("setpw/", "")
                        pswspy.Text = t
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Password Of Spy ID For Get Room Users Has Been Changed To : " + pswspy.Text))
                    End If
                    ''CLENIT VERSION
                    If msg.Body.ToLower().StartsWith("cname/") Then
                        Dim t As String = msg.Body.ToLower().Replace("cname/", "")
                        cname.Text = t
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Client Version Name Has Been Changed To : " + cname.Text))
                    End If
                    If msg.Body.ToLower().StartsWith("cver/") Then
                        Dim t As String = msg.Body.ToLower().Replace("cver/", "")
                        cversion.Text = t
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Client Version Has Been Changed To : " + cversion.Text))
                    End If
                    If msg.Body.ToLower().StartsWith("cos/") Then
                        Dim t As String = msg.Body.ToLower().Replace("cos/", "")
                        cos.Text = t
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Client Version OS Has Been Changed To : " + cos.Text))
                    End If
                    ''AUTO ACCEPT ADD
                    If msg.Body.ToLower() = "aaar/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Auto Accept Add Request Active !"))
                        aaar.Checked = True
                    End If
                    If msg.Body.ToLower() = "aaar/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Auto Accept Add Request Deactive !"))
                        aaar.Checked = False
                    End If
                    If msg.Body.ToLower() = "rem help" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, Form2.TextBox1.Text))
                    End If
                    If msg.Body.ToLower().StartsWith("chgwlc/") Then
                        Dim mk As String = msg.Body.ToLower().Replace("chgwlc/", "")
                        txtwlc.Text = mk
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Welcome Message Has Been Changed To : " + vbNewLine + "" + mk))
                    End If
                End If
            Next
        End If
    End Sub
    Private Sub client(ByVal sender As Object, iq As IQ)
        If (iq.Query IsNot Nothing) AndAlso (iq.Query.GetType() = GetType(agsXMPP.protocol.iq.version.Version)) Then
            Dim query As agsXMPP.protocol.iq.version.Version = DirectCast(iq.Query, agsXMPP.protocol.iq.version.Version)
            If iq.Type = IqType.get Then
                iq.SwitchDirection()
                iq.Type = IqType.result
                query.Name = cname.Text
                query.Ver = cversion.Text
                query.Os = cos.Text
                meti.Send(iq)
            End If
        End If
    End Sub
    Private Sub dc(ByVal sender As Object)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New ObjectHandler(AddressOf dc), New Object() {sender})
        Else
            user.BackColor = Color.Yellow
            psw.BackColor = Color.Yellow
            res.BackColor = Color.Yellow
            user.Enabled = True
            psw.Enabled = True
            res.Enabled = True
            ListView1.Items.Clear()
            If arad.Checked = True Then
                meti = New XmppClientConnection()
                With meti
                    .Server = "nimbuzz.com"
                    .ConnectServer = "o.nimbuzz.com"
                    .Username = user.Text
                    .Resource = res.Text
                    .Password = psw.Text
                    .Open()
                    AddHandler .OnLogin, AddressOf login
                    AddHandler .OnAuthError, AddressOf wrong
                    AddHandler .OnClose, AddressOf dc
                    AddHandler .OnIq, AddressOf client
                    AddHandler .OnMessage, AddressOf chat
                    AddHandler .OnPresence, AddressOf addreq
                    AddHandler .OnRosterStart, AddressOf start
                    AddHandler .OnRosterItem, AddressOf addlist
                    AddHandler .OnRosterEnd, AddressOf endd
                    AddHandler .OnReadXml, AddressOf Xml1
                    AddHandler .OnReadXml, AddressOf Xml2
                    AddHandler .OnMessage, AddressOf OnMessage
                End With
            End If
        End If
    End Sub
    Private Sub wrong(ByVal sender As Object, e As agsXMPP.Xml.Dom.Element)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New XmppElementHandler(AddressOf wrong), New Object() {sender, e})
        Else
            user.BackColor = Color.Red
            psw.BackColor = Color.Red
            res.BackColor = Color.Red
            user.Enabled = True
            psw.Enabled = True
            res.Enabled = True
        End If
    End Sub
    Private Sub login(ByVal sender As Object)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New ObjectHandler(AddressOf login), New Object() {sender})
        Else
            user.BackColor = Color.Green
            psw.BackColor = Color.Green
            res.BackColor = Color.Green
            user.Enabled = False
            psw.Enabled = False
            res.Enabled = False
            Timer2.Start()
            Timer3.Start()
            Timer1.Start()
            SendTokenXml()
            Timer4.Interval = (1000 * 60) * 30
            Timer4.Enabled = True
        End If
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If multists.Checked = True Then
            Timer1.Enabled = True
            d = Convert.ToInt32(Numeric.Value.ToString())
            Timer1.Interval = d * 1000
            Dim r As String() = Status.Text.Split("#")
            Dim rnd As New Random
            Dim result As String = r(rnd.Next(r.Length))
            meti.Status = result.ToString()
            meti.SendMyPresence()
        Else
            Timer1.Enabled = False
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        bg.RunWorkerAsync()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If meti.Authenticated = True Then
            meti.Close()
        End If
    End Sub
    Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
        savedata()
    End Sub
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Dim d As Integer
        If acmi.Checked = True Then
            Timer1.Enabled = True
            d = Convert.ToInt32(TextBox1.Text.ToString())
            Timer2.Interval = d * 3600000
        Else
            Timer1.Enabled = False
        End If
    End Sub
    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        meti.Send("<iq to='nimbuzz.com' type='get' id='Meti'><ping xmlns='urnmpping' /></iq>")
    End Sub
    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
        ehem = New Thread(AddressOf x)
        ehem.Start()
    End Sub
    Private Sub x()
        On Error Resume Next
        For i = 0 To ListBox1.Items.Count - 1
            meti.Send(New agsXMPP.protocol.client.Message(ListBox1.Items(i).ToString() + "@nimbuzz.com", MessageType.chat, txttext.Text, txtsubject.Text))
            Thread.Sleep(5)
        Next
        Notii.ShowBalloonTip(800, "Send To All Sended", "Sending Send To All Succesfully Completed !", ToolTipIcon.Info)
    End Sub
    Private Sub FreeForChatToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FreeForChatToolStripMenuItem.Click
        meti.Send("<presence><show>chat</show><priority>50</priority><c xmlns='http://jabber.org/protocol/caps' node='http://psi-dev.googlecode.com/caps' ver='0.15' ext='ca cs cv e-time ep-notify-2 html last-act mr sxe whiteboard'/></presence>")
    End Sub
    Private Sub NotAvailableToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NotAvailableToolStripMenuItem.Click
        meti.Send("<presence><show>xa</show><priority>30</priority><c xmlns='http://jabber.org/protocol/caps' node='http://psi-dev.googlecode.com/caps' ver='0.15' ext='ca cs cv e-time ep-notify-2 html last-act mr sxe whiteboard'/></presence>")
    End Sub
    Private Sub OnlineToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OnlineToolStripMenuItem.Click
        meti.Send("<presence><priority>50</priority><c xmlns='http://jabber.org/protocol/caps' node='http://psi-dev.googlecode.com/caps' ver='0.15' ext='ca cs cv e-time ep-notify-2 html last-act mr sxe whiteboard'/></presence>")
    End Sub
    Private Sub AwayToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AwayToolStripMenuItem.Click
        meti.Send("<presence><show>away</show><priority>40</priority><c xmlns='http://jabber.org/protocol/caps' node='http://psi-dev.googlecode.com/caps' ver='0.15' ext='ca cs cv e-time ep-notify-2 html last-act mr sxe whiteboard'/></presence>")
    End Sub
    Private Sub BusyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BusyToolStripMenuItem.Click
        meti.Send("<presence><show>dnd</show><priority>20</priority><c xmlns='http://jabber.org/protocol/caps' node='http://psi-dev.googlecode.com/caps' ver='0.15' ext='ca cs cv e-time ep-notify-2 html last-act mr sxe whiteboard'/></presence>")
    End Sub
    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
        loaddata()
    End Sub
    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        SendTokenXml()
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        Monitor.Clear()
    End Sub
    Private Sub GoToFireBuzzToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GoToFireBuzzToolStripMenuItem.Click
        Process.Start("www.firebuzz.ir")
    End Sub
    Private Sub MinimizeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimizeToolStripMenuItem.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub
    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub
    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
        MessageBox.Show("Goodzilla Private Bot - Version One" + vbNewLine + "This Is A Full Private Bot With 8 Server Bots And A Lot Of Features.This Is Just Version One And Version Two have A PowerFull New Options.Enjoy It !", "Saltanat@Nmbuzz.Com", MessageBoxButtons.OK)
    End Sub
    Private Sub HelpToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HelpToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub user_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles user.TextChanged

    End Sub
End Class