SILENT WARRIOR GROUP
───▄▀▀▀▄▄▄▄▄▄▄▀▀▀▄───
───█▒▒░░░░░░░░░▒▒█───
────█░░█░░░░░█░░█────
─▄▄──█░░░▀█▀░░░█──▄▄─
█░░█─▀▄░░░░░░░▄▀─█░░█
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
█░░╦─╦╔╗╦─╔╗╔╗╔╦╗╔╗░░█
█░░║║║╠─║─║─║║║║║╠─░░█
█░░╚╩╝╚╝╚╝╚╝╚╝╩─╩╚╝░░█
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█


Welcome to S.W.G forum

Login or Register to see all hidden links
Log in

I forgot my password

Latest topics
» MY NEW SITE
Sat Jul 02, 2016 7:27 am by _syntax-error_

» TO ALL SILENT WARRIOR MEMBERS,
Sat Feb 07, 2015 7:16 pm by _syntax-error_

» نكات للبيع
Fri Oct 10, 2014 2:11 am by نكات للبيع

» Skull 20x Auto Fast f!(_)(_)d 2015
Sun Apr 06, 2014 12:29 pm by hacer_ali.star

» Nimbuzz IM using Jabber.dll Source
Mon Mar 24, 2014 9:05 pm by -pa3ck-

» V-Chat Messenger
Mon Mar 24, 2014 7:22 pm by -pa3ck-

» Mobile Server Available 24/7 Online Service Feel Free For Use
Sun Mar 09, 2014 6:14 pm by pithu-karam

» NEW Room Auto Gifting b@t
Tue Mar 04, 2014 1:03 am by shabeer5116

» NEW Room Auto Gifting b@t
Tue Mar 04, 2014 1:03 am by shabeer5116

Top posting users this week

Top posting users this month

S.W.G VISITORS

NEW LOGIN CODE AFTER THE LAST SERVER UPDATE

View previous topic View next topic Go down

NEW LOGIN CODE AFTER THE LAST SERVER UPDATE

Post  Admin on Sat Oct 20, 2012 3:33 am

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 cheers cheers cheers cheers
avatar
Admin
Admin

Posts : 243
Join date : 2012-01-18
Age : 41
Location : PHIL / KSA

View user profile http://silent-warrior-group.forumarabia.com

Back to top Go down

View previous topic View next topic Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum