soft nevisa bian to ( help plz )

Private Sub ws_Connect()
'inja sube on connecte socketemune
ws.SendData "<stream:stream to='nchat.ir' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' version='1.0'>"
End Sub


Private Sub ws_DataArrival(ByVal bytesTotal As Long)
If InStr(getdata, "<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


Dim profile As String
 profile = EncodeBase64(StrConv(vbNullChar + id + vbNullChar + pw, vbFromUnicode))
 ws.SendData "<auth id='sasl2' xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='PLAIN'>" & profile & "</auth>"

' inja xml authenticating ersal mishe
 End If

If InStr(getdata, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl'/>") Then
ws.SendData "<iq type='set' id='dark'><bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'><resource>freebuzz</resource></bind></iq>"

'inja resource bind mishe
End If

If InStr(getdata, "<bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'>") <> 0 Then
ws.SendData "<iq to='nchat.ir' type='set' id='dark'><session xmlns='urn:ietf:params:xml:ns:xmpp-session'/></iq>"

' inja id login mishe

End If

If InStr(getdata, "<not-authorized/></failure>") <> 0 Then
' vaqti ke id login nashe error biad
end if
end sub