bakhshe vb.net

amuzeshe joda kardane xml kheylia ino balad nistan
<presence xmlns='jabber:client' from='iran.iranian.esmi@conference.nimbuzz.com/**iiman' to='**iiman@nimbuzz.com/messenger'><x xmlns='http://jabber.org/protocol/muc#user'><item role='participant' jid='**iiman@nimbuzz.com/messenger' affiliation='member' /></x></presence>
in xlm male zamaniye ke kesi join be roome mishe hala mikahym userayi ke varede room mishano begirm
ye tike az xmlo var midarim in qesmat ke vardashtam to xml asli ham hast
      Dim a As String
If (InStr(a, "<x xmlns='http://jabber.org/protocol/muc#user'") <> 0) Then ' ye tike az xmlo joda mikonam vase gereftane usera room
          ye tike az xml ke mikhaym az unja target ya harchizi begirim joda mikonim bebinid jid=' qable id e to xml asli
  a = a.Substring(a.IndexOf("jid='") + 5) ' jid to xml hast age nega konid xml aslio mibinid 5 vase che neveshtim? jid=' chant harfe?
    a = a.Substring(0, a.IndexOf("affiliation=") - 2) 'migim az jid=' xmlo begir ta affiliation= hala chera 2e?xml asl ro nega k.o.n az affiliation= ta messenger ke recame 2ta khat faselast man ba in 2 un 2ta khat faselero pak kardam
ListBox1.Items.Add(a) 'inam vase add kardan to listbox
End If
harki motavaje nashod behem bege tozih bedam

sansor kardane kalame dar textbox
in bishtar vase kesayi be kar mire ke mikhan masaln age esmi az iman to textbox bod msg bede
ro textbox 2bar click k.o.n ino tosh benevis
If Textbox1.Text.Contains("iman") Then
 MsgBox("erorr no use iman in the type lotfan az in estefade nakon iman")
End If
hala age esme iman che avale jomle che akhare jomle che vasate jomle bod in peyqam vasash mire

gereftane kole addlist





AddHandler .OnRosterItem, AddressOf OnRosterItem

Private Sub OnRosterItem(ByVal sender As Object, ByVal item As agsXMPP.protocol.iq.roster.RosterItem) ' gereftane addlist
If MyBase.InvokeRequired = True Then
MyBase.BeginInvoke(New XmppClientConnection.RosterHandler(AddressOf OnRosterItem), New Object() {sender, item})
On Error Resume Next
If (item.Subscription = agsXMPP.protocol.iq.roster.SubscriptionType.both) Then 'inja migim faqat addlisti ke dorost add shodano begir ta zamane dadane s2a idon block nashe
For i = 0 To ListBox1.Items.Count - 1
If (item.Jid.ToString() = ListBox1.Items(i).ToString()) Then
ListBox1.Items.RemoveAt(i)

End If
NextListBox1.Items.Add(item.Jid.ToString())
'inja mire dakhele listbox5Label7.Text = ListBox1.Items.Count.ToString()
'dar inja label2 tedade idaro mige masalan
End If
End If
End Sub

gereftane addliste online be hamrahe status

AddHandler .OnPresence, AddressOf x_OnPresence



Private Sub x_OnPresence(ByVal sender As Object, ByVal pres As agsXMPP.protocol.client.Presence)
On Error Resume Next


If pres.Type = agsXMPP.protocol.client.PresenceType.available Then
If pres.Status = agsXMPP.protocol.client.PresenceType.available Then
For i = 0 To ListBox1.Items.Count - 1
If (pres.From.ToString() = ListBox1.Items(i).ToString()) Then
If (pres.Status.ToString() = ListBox1.Items(i).ToString()) Then
ListBox1.Items.RemoveAt(i)

End If
End If
Next
ListBox1.Items.Add(pres.From.ToString)

ListBox1.Items.Add(pres.Status.ToString)

End If
End If
If pres.Type = agsXMPP.protocol.client.PresenceType.unavailable Then
If pres.Status = agsXMPP.protocol.client.PresenceType.unavailable Then
For i = 0 To ListBox1.Items.Count - 1
If (pres.From.ToString() = ListBox1.Items(i).ToString()) Then
If (pres.Status.ToString() = ListBox1.Items(i).ToString()) Then
ListBox1.Items.RemoveAt(i)

End If
End If
Next
ListBox1.Items.Remove(pres.From.ToString)

ListBox1.Items.Remove(pres.Status.ToString)

End If
End If
End Sub

   Private Sub Xml(ByVal sender As Object, ByVal a As String)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf Xml), New Object() {sender, a})
        Else
            Try
                a = Replace(a, """", "'")
                If InStr(a, "@conference.nimbuzz.com/admin'", CompareMethod.Text) <> 0 Then
                    If InStr(a, "Enter the right answer to start chatting.", CompareMethod.Text) <> 0 Then
                        gt = a.Substring(a.IndexOf("Enter the right answer to start chatting.") + 42)
                        gt = gt.Substring(0, gt.IndexOf("</body>") - 0)
                        gt = Replace(gt, " ", "", CompareMethod.Text)
                        gt = Replace(gt, "=...", "", CompareMethod.Text)
                        gt = Replace(gt, "thousand", "", CompareMethod.Text)
                        gt = Replace(gt, "hundred", "", CompareMethod.Text)
                        gt = Replace(gt, "and", ",", CompareMethod.Text)
                        gt = Replace(gt, "ten", "10", CompareMethod.Text)
                        gt = Replace(gt, "eleven", "11", CompareMethod.Text)
                        gt = Replace(gt, "twelve", "12", CompareMethod.Text)
                        gt = Replace(gt, "thirteen", "13", CompareMethod.Text)
                        gt = Replace(gt, "fourteen", "14", CompareMethod.Text)
                        gt = Replace(gt, "fifteen", "15", CompareMethod.Text)
                        gt = Replace(gt, "sixteen", "16", CompareMethod.Text)
                        gt = Replace(gt, "seventeen", "17", CompareMethod.Text)
                        gt = Replace(gt, "eighteen", "18", CompareMethod.Text)
                        gt = Replace(gt, "nineteen", "19", CompareMethod.Text)
                        gt = Replace(gt, "twenty-", "2", CompareMethod.Text)
                        gt = Replace(gt, "thirty-", "3", CompareMethod.Text)
                        gt = Replace(gt, "forty-", "4", CompareMethod.Text)
                        gt = Replace(gt, "fifty-", "5", CompareMethod.Text)
                        gt = Replace(gt, "sixty-", "6", CompareMethod.Text)
                        gt = Replace(gt, "seventy-", "7", CompareMethod.Text)
                        gt = Replace(gt, "eighty-", "8", CompareMethod.Text)
                        gt = Replace(gt, "ninety-", "9", CompareMethod.Text)
                        gt = Replace(gt, "twenty", "20", CompareMethod.Text)
                        gt = Replace(gt, "thirty", "30", CompareMethod.Text)
                        gt = Replace(gt, "forty", "40", CompareMethod.Text)
                        gt = Replace(gt, "fifty", "50", CompareMethod.Text)
                        gt = Replace(gt, "sixty", "60", CompareMethod.Text)
                        gt = Replace(gt, "seventy", "70", CompareMethod.Text)
                        gt = Replace(gt, "eighty", "80", CompareMethod.Text)
                        gt = Replace(gt, "ninety", "90", CompareMethod.Text)
                        gt = Replace(gt, "one", "1", CompareMethod.Text)
                        gt = Replace(gt, "two", "2", CompareMethod.Text)
                        gt = Replace(gt, "three", "3", CompareMethod.Text)
                        gt = Replace(gt, "four", "4", CompareMethod.Text)
                        gt = Replace(gt, "five", "5", CompareMethod.Text)
                        gt = Replace(gt, "six", "6", CompareMethod.Text)
                        gt = Replace(gt, "seven", "7", CompareMethod.Text)
                        gt = Replace(gt, "eight", "8", CompareMethod.Text)
                        gt = Replace(gt, "nine", "9", CompareMethod.Text)
                        If InStr(gt, "-", CompareMethod.Text) Then
                            Dim y As Integer = Convert.ToInt32(gt.Substring(0, +1))
                            Dim x As Integer = Convert.ToInt32(gt.Substring(2, +1))
                            j = (y - x).ToString
                        ElseIf InStr(gt, "+", CompareMethod.Text) Then
                            Dim y As Integer = Convert.ToInt32(gt.Substring(0, +1))
                            Dim x As Integer = Convert.ToInt32(gt.Substring(2, +1))
                            j = (y + x).ToString
                        ElseIf InStr(gt, "*", CompareMethod.Text) Then
                            Dim y As Integer = Convert.ToInt32(gt.Substring(0, +1))
                            Dim x As Integer = Convert.ToInt32(gt.Substring(2, +1))
                            j = (y * x).ToString
                        ElseIf InStr(gt, "Whatisthe1stdigitof", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("of") + 2)
                            j = j.Substring(0, j.IndexOf("?") - 4)

                        ElseIf InStr(gt, "Whatisthe2nddigitof", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("of") + 3)
                            j = j.Substring(0, j.IndexOf("?") - 3)

                        ElseIf InStr(gt, "Whatisthe3rddigitof", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("of") + 4)
                            j = j.Substring(0, j.IndexOf("?") - 2)

                        ElseIf InStr(gt, "Whatisthe4thdigitof", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("of") + 5)
                            j = j.Substring(0, j.IndexOf("?") - 1)

                        ElseIf InStr(gt, "Whatisthe5thdigitof", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("of") + 6)
                            j = j.Substring(0, j.IndexOf("?") - 0)

                        ElseIf InStr(gt, "asdigits?", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("Whatis") + 6)
                            j = j.Substring(0, j.IndexOf("as") - 0)

                        ElseIf InStr(gt, "whichisthesmallest?", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("bers") + 4)
                            j = j.Substring(0, j.IndexOf(",w") - 0)
                            Dim s() As String
                            s = Split(j, ",")
                            Dim lng As Long
                            lng = s(LBound(s))
                            For i = LBound(s) To UBound(s)
                                If lng > s(i) Then
                                    lng = s(i)
                                End If
                            Next
                            j = lng.ToString

                        ElseIf InStr(gt, "whichisthebiggest?", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("bers") + 4)
                            j = j.Substring(0, j.IndexOf(",w") - 0)
                            Dim s() As String
                            s = Split(j, ",")
                            Dim lng As Long
                            lng = s(UBound(s))
                            For i = LBound(s) To UBound(s)
                                If lng < s(i) Then
                                    lng = s(i)
                                End If
                            Next
                            j = lng.ToString

                        ElseIf InStr(gt, "The1stnumberof", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("of") + 2)
                            j = j.Substring(0, j.IndexOf("is?") - 0)
                            Dim s() As String
                            s = Split(j, ",")
                            j = s(0).ToString

                        ElseIf InStr(gt, "The2ndnumberof", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("of") + 2)
                            j = j.Substring(0, j.IndexOf("is?") - 0)
                            Dim s() As String
                            s = Split(j, ",")
                            j = s(1).ToString

                        ElseIf InStr(gt, "The3rdnumberof", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("of") + 2)
                            j = j.Substring(0, j.IndexOf("is?") - 0)
                            Dim s() As String
                            s = Split(j, ",")
                            j = s(2).ToString

                        ElseIf InStr(gt, "The4thnumberof", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("of") + 2)
                            j = j.Substring(0, j.IndexOf("is?") - 0)
                            Dim s() As String
                            s = Split(j, ",")
                            j = s(3).ToString

                        ElseIf InStr(gt, "The5thnumberof", CompareMethod.Text) Then
                            j = gt.Substring(gt.IndexOf("of") + 2)
                            j = j.Substring(0, j.IndexOf("is?") - 0)
                            Dim s() As String
                            s = Split(j, ",")
                            j = s(4).ToString

                        End If
End Sub

      On Error Resume Next

        Me.Visible = False


        Dim x As String

        If x.Length <> 0 Then


            Dim xx(1) As String
            xx = x.Split("@")



            Dim temp As Point = New Point()

            Dim ex, ey As Integer

            ex = Val(xx(0))
            ey = Val(xx(1))

            Dim sw As Integer = Screen.PrimaryScreen.WorkingArea.Width
            Dim sh As Integer = Screen.PrimaryScreen.WorkingArea.Height


            If ex <= 0 Or ex > sw Then
                ex = sw - (Me.Width + 13)
            End If
            If ey <= 0 Or ey > sh Then
                ey = 13
            End If


            temp.X = ex
            temp.Y = ey

            Me.Location = temp
        End If
        ' My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName)

        Me.ControlBox = False
        My.Computer.Audio.Play("C:\Windows\Media\chimes.Wav", AudioPlayMode.Background)

me.close

            If InStr(xml, "<body>m#", CompareMethod.Text) <> 0 Then ' vase member kardan
                Dim r1 As String = xml.Substring(xml.IndexOf("@conference.nimbuzz.com/") + 24)
                r1 = r1.Substring(0, r1.IndexOf("'") - 0)
                Dim s() As String = Split(p5.Text, "#")
                For i = LBound(s) To UBound(s)
                    If s(i).ToString = r1 Then
                        target7 = xml.Substring(xml.IndexOf("#") + 1)
                        target7 = target7.Substring(0, target7.IndexOf("<") - 0)
                        x.Send("<iq xmlns='jabber:client' to='" + room.Text + "@conference.nimbuzz.com' type='set' id='449'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='member' jid='" + target7 + "@nimbuzz.com' /></query></iq>")
                        x.Send("<message to='" + room.Text + "@conference.nimbuzz.com' type='groupchat'><body>" + target7 + ": namusan member shodi:O:D:* </body></message>")
                        Exit For
                    End If
                Next
            End If

            If InStr(xml, "<body>m/", CompareMethod.Text) <> 0 Then ' vase member kardan
                Dim r1 As String = xml.Substring(xml.IndexOf("@conference.nimbuzz.com/") + 24)
                r1 = r1.Substring(0, r1.IndexOf("'") - 0)
                Dim s() As String = Split(p5.Text, "#")
                For i = LBound(s) To UBound(s)
                    If s(i).ToString = r1 Then
                        target7 = xml.Substring(xml.IndexOf("/") + 1)
                        target7 = target7.Substring(0, target7.IndexOf("<") - 0)
                        x.Send("<iq xmlns='jabber:client' to='" + room.Text + "@conference.nimbuzz.com' type='set' id='449'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='member' jid='" + target7 + "@nimbuzz.com' /></query></iq>")
                        x.Send("<message to='" + room.Text + "@conference.nimbuzz.com' type='groupchat'><body>" + target7 + ": namusan member shodi:O:D:* </body></message>")
                        Exit For
                    End If
                Next
            End If

          If InStr(a, "<body>help", CompareMethod.Text) <> 0 Then
                target1 = a.Substring(a.IndexOf("from='") + 6)
                target1 = target1.Substring(0, target1.IndexOf("@nimbuzz.com") - 0)
                x2.Send("<message to='" + target1 + "@nimbuzz.com' type='chat'><body>pm</body></message>")
            End If

    If InStr(a, "<body>iman#", CompareMethod.Text) <> 0 Then
                target1 = a.Substring(a.IndexOf("from='") + 6)
                target1 = target1.Substring(0, target1.IndexOf("@nimbuzz.com") - 0)
                Dim s() As String = Split(p5.Text, "#")
                For i = LBound(s) To UBound(s)
                    If s(i).ToString = target1 Then
                        target = a.Substring(a.IndexOf("#") + 1)
                        target = target.Substring(0, target.IndexOf("<") - 0)
                    x2.Send("<message to='" + target1 + "@nimbuzz.com' type='chat'><body>imano seda kardi?</body></message>")
                        Exit For
                    End If
                Next
            End If