help socket b4a

slm bax
in bakhsh kheyli lazem bod  
agha man to b4a 1socket tarif kardam
ba 1done AsyncStreams

Code:

Dim test As Socket
 Dim AStreams As AsyncStreams
   Dim buff1() As Byte
   Dim buff2() As Byte

Code:

Sub Button1_Click
 test.Initialize("test")
 test.Connect("o.nimbuzz.com",5222,100000)
End Sub
Sub test_Connected(Connected As Boolean)As Boolean
   If Connected = True Then
      AStreams.Initialize(test.InputStream,test.OutputStream,"Astreams")
  buff1 = "<stream:stream xmlns='jabber:client' to='nimbuzz.com' version='1.0' xmlns:stream='http://etherx.jabber.org/streams' xml:lang='en' >"
  buff2 = "<iq type='set' xml:lang='en' id='NLgn' to='nimbuzz.com'><query xmlns='jabber:iq:auth'><username>id</username><password>pass</password><resource>res</resource></query></iq>"
  AStreams.Write(buff1)
  AStreams.Write(buff2)
   End If
End Sub

vali error mide  
ta haminjasham fosil shodam ta neveshtam  
ye komak konid zahamatam hadar nare  
meci  

Code:

#Region  Project Attributes
   #ApplicationLabel: B4A Example
   #VersionCode: 1
   #VersionName:
   'SupportedOrientations possible values: unspecified, landscape or portrait.
   #SupportedOrientations: unspecified
   #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
   #FullScreen: False
   #IncludeTitle: True
#End Region

Sub Process_Globals
    Dim x As AsyncStreams
    Dim sk As Socket
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
End Sub

Sub Activity_Resume
   
End Sub

Sub Activity_Pause (UserClosed As Boolean)
   
End Sub
Sub Button1_Click
   sk.Initialize("sk")
    sk.Connect("o.nimbuzz.com",5222,5000)
End Sub
Sub sk_Connected(Connected As Boolean)As Boolean
 If Connected = True Then
      x.Initialize(sk.InputStream,sk.OutputStream,"x")
        If x.IsInitialized = False Then Return
        Dim buffer() As Byte
        buffer = "<stream:stream xmlns='jabber:client' to='nimbuzz.com' version='1.0' xmlns:stream='http://etherx.jabber.org/streams' xml:lang='ar' >".GetBytes("UTF8")
        x.Write(buffer)
        Dim buffer1() As Byte
        Dim str As String = Chr(0) & "id" & Chr(0) & "psw" & ""
        Dim str1 As String = "<auth id='sasl2' xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='PLAIN'>" & str & "</auth>"
        buffer = str1.GetBytes("UTF8")
        x.Write(buffer1)
  Else
      ToastMessageShow("cnt",True)
  End If
End Sub
Sub Server_NewConnection (Successful As Boolean, NewSocket As Socket)
    If Successful Then
        ToastMessageShow("Connected", False)
        sk = NewSocket
        x.InitializePrefix(sk.InputStream, False, sk.OutputStream, "x")
    Else
        ToastMessageShow(LastException.Message, True)
    End If
End Sub
Sub AStreams_NewData (Buffer() As Byte)
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
       Log(msg)
   If msg.Contains("<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl'/>") Then
       ToastMessageShow("Logined",False)
   End If
   If msg.Contains("<not-authorized/>") Then
      ToastMessageShow("Wrong",False)
   End If
End Sub
Sub AStreams_Error
    ToastMessageShow(LastException.Message, True)
End Sub


rnostafa wrote:shoma codet taqriban droste ama xmlai k estefade krdi eshtebast
bad shoma vase connect kamel niaz b data ariyal dari k xmla ro daryaft kni

in y nemuneast

tu qesmate new_data bayad y seri xml send beshe ta login kamel beshe

Code:

#Region  Project Attributes
 #ApplicationLabel: B4A Example
 #VersionCode: 1
 #VersionName:
 'SupportedOrientations possible values: unspecified, landscape or portrait.
 #SupportedOrientations: unspecified
 #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
 #FullScreen: False
 #IncludeTitle: True
#End Region

Sub Process_Globals
    Dim x As AsyncStreams
    Dim sk As Socket
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
End Sub

Sub Activity_Resume
    
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    
End Sub
Sub Button1_Click
 sk.Initialize("sk")
    sk.Connect("o.nimbuzz.com",5222,5000)
End Sub
Sub sk_Connected(Connected As Boolean)As Boolean
 If Connected = True Then
      x.Initialize(sk.InputStream,sk.OutputStream,"x")
        If x.IsInitialized = False Then Return
        Dim buffer() As Byte
        buffer = "<stream:stream xmlns='jabber:client' to='nimbuzz.com' version='1.0' xmlns:stream='http://etherx.jabber.org/streams' xml:lang='ar' >".GetBytes("UTF8")
        x.Write(buffer)
        Dim buffer1() As Byte
        Dim str As String = Chr(0) & "id" & Chr(0) & "psw" & ""
        Dim str1 As String = "<auth id='sasl2' xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='PLAIN'>" & str & "</auth>"
        buffer = str1.GetBytes("UTF8")
        x.Write(buffer1)
   Else
      ToastMessageShow("cnt",True)
   End If
End Sub
Sub Server_NewConnection (Successful As Boolean, NewSocket As Socket)
    If Successful Then
        ToastMessageShow("Connected", False)
        sk = NewSocket
        x.InitializePrefix(sk.InputStream, False, sk.OutputStream, "x")
    Else
        ToastMessageShow(LastException.Message, True)
    End If
End Sub
Sub AStreams_NewData (Buffer() As Byte)
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    Log(msg)
 If msg.Contains("<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl'/>") Then
    ToastMessageShow("Logined",False)
 End If
 If msg.Contains("<not-authorized/>") Then
 ToastMessageShow("Wrong",False)
 End If
End Sub
Sub AStreams_Error
    ToastMessageShow(LastException.Message, True)
End Sub


Code:

Sub x_NewData (Buffer() As Byte)
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    Log(msg)
   msg = msg.Replace("""", "'")
 If msg.Contains("<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl'/>") Then
    ToastMessageShow("Logined",False)
 End If
 If msg.Contains("<not-authorized/>") Then
 ToastMessageShow("Wrong",False)
 End If
End Sub

mbpersian wrote:

douste golam
hanuz kheyli kaar dare o motmaen baash ba in cod b nim connect nmishe.
behet pishnhaad miknm haddeaksar yek hafte sabr kon ta age shod libesho aamade konam ya age nashod source login be nim ro mizaram tu hamin forum.

aliqolami wrote:

mbpersian wrote:

douste golam
hanuz kheyli kaar dare o motmaen baash ba in cod b nim connect nmishe.
behet pishnhaad miknm haddeaksar yek hafte sabr kon ta age shod libesho aamade konam ya age nashod source login be nim ro mizaram tu hamin forum.

dash hanoz proje ro nazashti ?

imanking wrote:

kare khasi nadare yekam zahmat bekesh vase karet natonesti topic bede nake ta didi in chiz nmishe zart topic bedi:D
projei ke mostafa dad chek kon bade login nimbuzz chexmlaye dgi mikhad yekish set resource yeki get addlist kolan 3 ya 4ta xml  dg mikhad to ba bom on sho xml consolo va kon xmlayi ke nisto ja sazi kon hamin kolan 5mine

rnostafa wrote:

http://up.ehem.ir/uploads/1407087714191.rar
moshkel y kalame bud
inam project

aliqolami wrote:to khode cod nevisish neveshte idi psw