aval az hame
(1)Form ya hamon project misazim
winsock register o Download mikonim
va bad register mikonim
che jori hala Winsock o ezafe konim be Visual basic
1: Mirim to project > Add Refrence > Browse
2: Entekhab Winsock Path
3: Click Okay
hala baiad ina ro ezafe konim
1: import 3 textboxes to the form
2: import 3 labels to the form
3: import 1 listbox to the form
4: import 2 buttons to the form
Toll ah ro rename mikonim
textbox1 Rename To txtid
textbox2 Rename To txtpw
textbox3 Rename To txtrs
va text hasho ham taghir midim
button1 Change text To Start
button2 Change text to Stop
label1 change text to nimbuzz id
label2 change text to nimbuzz pw
label3 change text to resource
hala roye icon Winsock Double Click mikonim
hala dg nobate cod e
Code:
Imports System.Windows.Forms
Imports System.Windows.Forms.Application
Imports AxMSWinsockLib.AxWinsock
Imports AxMSWinsockLib.AxWinsockEventMulticaster
Imports AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent
Imports AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent
Imports AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent
Imports AxMSWinsockLib.DMSWinsockControlEvents_SendProgressEvent
Imports MSWinsockLib.ErrorConstants
Imports MSWinsockLib.ProtocolConstants
Imports MSWinsockLib.StateConstants
Mirim to winsock Data Arrival Event
bad in Code zir o qarar midim
Code:
Dim GettingXml As Byte()
AxWinsock1.GetData(GettingXml)
Dim s As String = System.Text.Encoding.UTF8.GetString(GettingXml)
s = Replace(s, """", "'")
DoEvents()
'''''
If InStr(s, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl'/>") Then
Dim Stream2() As Byte = System.Text.Encoding.UTF8.GetBytes("<stream:stream xmlns='jabber:client' to='nimbuzz.com' version='1.0' xmlns:stream='http://etherx.jabber.org/streams' xml:lang='en' >")
Dim RSsend() As Byte = System.Text.Encoding.UTF8.GetBytes("<iq id='jcl_1' type='set'><bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'><resource>" & txtrs.Text & "</resource></bind></iq>")
Dim CheckOk() As Byte = System.Text.Encoding.UTF8.GetBytes("<iq id='jcl_2' type='set'><session xmlns='urn:ietf:params:xml:ns:xmpp-session'/></iq>")
AxWinsock1.SendData(Stream2)
AxWinsock1.SendData(RSsend)
AxWinsock1.SendData(CheckOk)
ListBox1.Items.Add("Login To " & txtid.Text & " = Succeed")
End If
If InStr(s, "<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized/></failure>") Then
ListBox1.Items.Add("Login To " & txtid.Text & " = Failed")
End If
Button 1 Code ( Start button )
Double Click Roye code area va Code zir o qarar midim toosh
Code:
AxWinsock1.Close()
AxWinsock1.RemoteHost = ("openfire.nimbuzz.com")
AxWinsock1.RemotePort = 5222
AxWinsock1.Connect()
Button 2 Code ( Stop or close Button )
Code:
AxWinsock1.Close()
ListBox1.Items.Clear()
Hala
clid F5 ro mizanim
bade id o pw ro vared mikonim
Roye start click mikonim
Download Sample Source And winsock
Source Code :
[url= [You must be registered and logged in to see this link.]
Winsock Register
Download
(1)Form ya hamon project misazim
winsock register o Download mikonim
va bad register mikonim
che jori hala Winsock o ezafe konim be Visual basic
1: Mirim to project > Add Refrence > Browse
2: Entekhab Winsock Path
3: Click Okay
hala baiad ina ro ezafe konim
1: import 3 textboxes to the form
2: import 3 labels to the form
3: import 1 listbox to the form
4: import 2 buttons to the form
Toll ah ro rename mikonim
textbox1 Rename To txtid
textbox2 Rename To txtpw
textbox3 Rename To txtrs
va text hasho ham taghir midim
button1 Change text To Start
button2 Change text to Stop
label1 change text to nimbuzz id
label2 change text to nimbuzz pw
label3 change text to resource
hala roye icon Winsock Double Click mikonim
hala dg nobate cod e
Code:
Imports System.Windows.Forms
Imports System.Windows.Forms.Application
Imports AxMSWinsockLib.AxWinsock
Imports AxMSWinsockLib.AxWinsockEventMulticaster
Imports AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent
Imports AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent
Imports AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent
Imports AxMSWinsockLib.DMSWinsockControlEvents_SendProgressEvent
Imports MSWinsockLib.ErrorConstants
Imports MSWinsockLib.ProtocolConstants
Imports MSWinsockLib.StateConstants
Mirim to winsock Data Arrival Event
bad in Code zir o qarar midim
Code:
Dim GettingXml As Byte()
AxWinsock1.GetData(GettingXml)
Dim s As String = System.Text.Encoding.UTF8.GetString(GettingXml)
s = Replace(s, """", "'")
DoEvents()
'''''
If InStr(s, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl'/>") Then
Dim Stream2() As Byte = System.Text.Encoding.UTF8.GetBytes("<stream:stream xmlns='jabber:client' to='nimbuzz.com' version='1.0' xmlns:stream='http://etherx.jabber.org/streams' xml:lang='en' >")
Dim RSsend() As Byte = System.Text.Encoding.UTF8.GetBytes("<iq id='jcl_1' type='set'><bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'><resource>" & txtrs.Text & "</resource></bind></iq>")
Dim CheckOk() As Byte = System.Text.Encoding.UTF8.GetBytes("<iq id='jcl_2' type='set'><session xmlns='urn:ietf:params:xml:ns:xmpp-session'/></iq>")
AxWinsock1.SendData(Stream2)
AxWinsock1.SendData(RSsend)
AxWinsock1.SendData(CheckOk)
ListBox1.Items.Add("Login To " & txtid.Text & " = Succeed")
End If
If InStr(s, "<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized/></failure>") Then
ListBox1.Items.Add("Login To " & txtid.Text & " = Failed")
End If
Button 1 Code ( Start button )
Double Click Roye code area va Code zir o qarar midim toosh
Code:
AxWinsock1.Close()
AxWinsock1.RemoteHost = ("openfire.nimbuzz.com")
AxWinsock1.RemotePort = 5222
AxWinsock1.Connect()
Button 2 Code ( Stop or close Button )
Code:
AxWinsock1.Close()
ListBox1.Items.Clear()
Hala
clid F5 ro mizanim
bade id o pw ro vared mikonim
Roye start click mikonim
Download Sample Source And winsock
Source Code :
[url= [You must be registered and logged in to see this link.]
Winsock Register
Download