NEW LOGIN CODE AFTER THE LAST SERVER UPDATE

OPEN YOUR VB6,
NEW FORM
CLICK PROJECT AND SELECT THE ADD REFERENCE
BROWSE "MICRO XML V3
AFTER ADDING MICRO XML V3,ADD WINSOCK ALSO.....

NOW IN YOUR FORM,ADD 4 TEXTBOX,2 BUTTON
THE FIRST TEXTBOX,RENAME IT "id",2nd TEXTBOX RENAME IT "pass"3RD TEXTBOX RENAME IT "res"

NOW IN THE FIRST BUTTON RENAME IT "cndlog"
2ND BUTTON RENAME IT "cndout"

ADD 1 WINSOCK IN YOUR FORM AND RENAME IT "swg"

RIGHT CLICK THE MOUSE IN THE WINSOCK ,SELECT THE PROPERTIES

AND PUT THIS IN REMOTEHOST "openfire.nimbuzz.com" IN REMOTEPORT "5222"

ADD 1 LABEL AND RENAME IT "status"

NOW IN 4TH TEXTBOX,MAKE IT MULTI LINE,AND MAKE IT SCROOL TRUE AND RENAME IT "txtpacket"


NOW,RIGHTCLICK IN YOUR MOUSE IN YOUR FORM,

CLICK VIEW CODE

AND PUT THIS CODES...



Private Function EncodeBase64(ByRef data() As Byte) As String
Dim xml As MSXML2.DOMDocument
Dim node As MSXML2.IXMLDOMElement
Set xml = New MSXML2.DOMDocument
Set node = xml.createElement("b64")
node.dataType = "bin.base64"
node.nodeTypedValue = data
EncodeBase64 = node.Text
Set node = Nothing
Set node = Nothing
End Function
'THIS SAMPLE CODES FROM _SYNTAX-ERROR_@N.C
Private Sub cndlog_Click()
swg.Connect
End Sub

Private Sub cndout_Click()
swg.Close
End Sub

Private Sub swg_Connect()
swg.SendData "<stream:stream xmlns='jabber:client' to='nimbuzz.com' version='1.0' xmlns:stream='http://etherx.jabber.org/streams' xml:lang='ar' >"

End Sub


Private Sub swg_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next

Dim uno As String
swg.GetData uno
uno = Replace(uno, """", "'")
txtpacket.Text = uno
DoEvents

If InStr(uno, "<stream:features><starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/><compression xmlns='http://jabber.org/features/compress'><method>zlib</method></compression><mechanisms xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><mechanism>PLAIN</mechanism><mechanism>DIGEST-MD5</mechanism></mechanisms><register xmlns='http://jabber.org/features/iq-register'/></stream:features>") <> 0 Then
Dim ind As String
ind = EncodeBase64(StrConv(vbNullChar + id.Text + vbNullChar + pass.Text, vbFromUnicode))
swg.SendData "<auth id='sasl2' xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='PLAIN'>" + ind + "</auth>"
End If

If InStr(uno, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl'/>") Then

swg.SendData "<stream:stream to='nimbuzz.com' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' version='1.0'><xml version='1.0'></xml>"
swg.SendData "<iq type='set' id='uno'><bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'><resource>" + res.Text + "</resource></bind></iq>"

End If

If InStr(uno, "<iq id='uno' type='result'><bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'>") <> 0 Then
status.Caption = id.Text & " Connected...."
swg.SendData "<iq to='nimbuzz.com' type='set' id='uno'><session xmlns='urn:ietf:params:xml:ns:xmpp-session'/></iq>"
pin = True
End If


If InStr(uno, "<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized/></failure>") <> 0 Then
status.Caption = id.Text & " MALI...."
End If
End Sub




[You must be registered and logged in to see this link.]




IF YOU WANT TO TEST YOUR APPLICATION NOW,SIMPLY CLICKING THE PLAY SIGN IN THE TOP OF YOUR VB6,THEN YOUR APPLICATION SHOW.....

ENJOY YOUR FIRST SOFTWARE,YOU ARE NOW A CODER