[3asfa~mdmra]

سلام عليكم

بعد الصلاة على الحبيب المصطفي

اريد عمل اتصال مثل هكذا

username@password@Resource

عبر هذا الكود 

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       emad = New agsXMPP.XmppClientConnection
       With emad
           .Server = "nimbuzz.com"
           .ConnectServer = "o.nimbuzz.com"
           .Open(username.Text, password.Text)
           .Resource = ("textbox3.text")
           .Port = "5222"
           AddHandler .OnClose, AddressOf dc
           AddHandler .OnReadXml, AddressOf Xml1
           AddHandler .OnLogin, AddressOf loged
           AddHandler .OnAuthError, AddressOf wrong
       End With
   End Sub

يعني بدل مااضع

textbox1 = username

textbox2=password

textbox3=Resource

اريد اختصارهم

كتالي داخل تكست بوكس واحد فقط

username@password@Resource

وشكراً اروع موقع

[مساعدة]

السلام عليكم

جرب هذا الطريقة

كود :

Private WithEvents emad As New agsXMPP.XmppClientConnection


Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    routine("username@password@Resource")
End Sub


Private Sub routine(args As String)
    Dim s() As String = args.Split("@")
    emad.Server = "nimbuzz.com"
    emad.ConnectServer = "o.nimbuzz.com"
    emad.Open(s(0), s(1))
    emad.Resource = s(2)
    emad.Port = "5222"
End Sub
Private Sub emad_OnClose(sender As Object) Handles emad.OnClose
    ' OnClose Event
End Sub
Private Sub emad_OnReadXml(sender As Object, xml As String) Handles emad.OnReadXml
    ' OnReadXml Event
End Sub
Private Sub emad_OnLogin(sender As Object) Handles emad.OnLogin
    ' OnLogin Event
End Sub
Private Sub emad_OnAuthError(sender As Object, e As agsXMPP.Xml.Dom.Element) Handles emad.OnAuthError
    ' OnAuthError Event
End Sub

كما ترى تم الاستغناء عن AddHandler وذلك باضافة WithEvents عند تعريف المتغير  emad
ولا تنس تنقل الأكود التي كانت في كل من dc وXml1 وloged وwrong في الأحداث الظاهرة في الكود

---

تم التعديل

[3asfa~mdmra]

اخي انا طبقت ماذكرت ولكن اريد ان يصبح الاتصال هكذا داخل تكست بوكس الواحد وليس وضع 3 تكست بوكس وانا عملتك ماذكرته ’’  وذكرتلك داخل الكود ماهو المطلوب لتوضيح اكتر
تركت الك مشروع وماهو مطلوب في المرفقات

[مساعدة]

تم التعديل في المشاركة السابقة

[3asfa~mdmra]

شكراً انت روعة