reza moshkel in sourc add flooder kojast vb6

 ws.SendData "<iq id='_xmpp_auth' type='set'><query xmlns='jabber:iq:auth'><username>" & List1.List(0) & "</username><password>" & psw.Text & "</password><resource>freebuzzbuzz</resource></query></iq>"

 Dim aham As String ' string tarif mikonim
        aham = EncodeBase64(StrConv(vbNullChar + & List1.List(0) & + vbNullChar + psw.Text, vbFromUnicode))
        ws.SendData("<auth id='sasl2' xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='PLAIN'>" + aham + "</auth>")

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    On Error GoTo ehem
    Dim reza As String
    Dim add() As String
    Dim ids() As String
    Dim u As Integer
    Dim t As Integer
    ws.GetData(reza)
    reza = Replace(reza, """", "'")
    Text1.Text = reza
    DoEvents()


    If InStr(reza, "<stream:features><starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'></starttls><mechanisms xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><mechanism>DIGEST-MD5</mechanism><mechanism>JIVE-SHAREDSECRET</mechanism><mechanism>PLAIN</mechanism><mechanism>ANONYMOUS</mechanism><mechanism>CRAM-MD5</mechanism></mechanisms><compression xmlns='http://jabber.org/features/compress'><method>zlib</method></compression><auth xmlns='http://jabber.org/features/iq-auth'/></stream:features>") <> 0 Then
        ids = split(text1.text, "#")
        For u = lbound(ids) To ubound(ids)
            Dim aham As String
            aham = EncodeBase64(StrConv(vbNullChar + ids(u) + vbNullChar + psw.Text, vbFromUnicode))
            ws.SendData("<auth id='sasl2' xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='PLAIN'>" + aham + "</auth>")
        Next
    End If


    If InStr(reza, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl'/>") Then
        'inja y list bzar k idiai k on shod bre tu list :| :D(faqat bayad idia ro ba mid left b dast biari :S)
        ws.SendData("<stream:stream to='nchat.ir' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' version='1.0'>")
        ws.SendData("<iq type='set' id='reza'><bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'><resource>" + rec.Text + "</resource></bind></iq>")
    End If

    If InStr(reza, "<bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'>") <> 0 Then
        ws.SendData("<iq type='set' id='reza' ><session xmlns='urn:ietf:params:xml:ns:xmpp-session'/></iq>")
        ws.SendData("<iq type='get' id='aadfa' ><query xmlns='jabber:iq:roster'/></iq>")
    End If
    If InStr(reza, "<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized/></failure>") <> 0 Then

    End If

ehem:
End Sub