تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد عمل مثل هذا الاتصال
#1
سلام عليكم
بعد الصلاة على الحبيب المصطفي
اريد عمل اتصال مثل هكذا
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

وشكراً اروع موقع Heart
الرد
تم الشكر بواسطة:
#2
السلام عليكم

جرب هذا الطريقة
كود :
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
اخي انا طبقت ماذكرت ولكن اريد ان يصبح الاتصال هكذا داخل تكست بوكس الواحد وليس وضع 3 تكست بوكس وانا عملتك ماذكرته ’’  وذكرتلك داخل الكود ماهو المطلوب لتوضيح اكتر
تركت الك مشروع وماهو مطلوب في المرفقات



الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 203.67 ك ب / التحميلات : 49)
الرد
تم الشكر بواسطة:
#4
تم التعديل في المشاركة السابقة
الرد
تم الشكر بواسطة: 3asfa~mdmra , 3asfa~mdmra
#5
شكراً انت روعة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد حل لى مشكلة هذا الخطا يظهر لى كثيرااا naderalkeng54 3 84 أمس, 12:02 PM
آخر رد: elgokr
  [VB.NET] اريد مساعدة فى برنامج اصنعة فى الفجول بسك naderalkeng54 4 148 18-09-18, 03:04 PM
آخر رد: naderalkeng54
  ممكن مساعده اريد وضع مواعيد للحجوزات وعند ادخال قيمة وقت معين يعطي رساله بان الوقت ده thementalist 6 126 14-09-18, 08:47 PM
آخر رد: حريف برمجة
  [سؤال] اريد كود Mina Botros 4 162 03-09-18, 07:14 AM
آخر رد: elgokr
  [VB.NET] اريد تظبيط مشروعي الى الافضل ممكن مساعدتي 0theghost0 3 127 03-09-18, 06:16 AM
آخر رد: elgokr
Video [VB.NET] اريد تحميل المُحدد فقط ابو روضة 31 910 03-09-18, 06:12 AM
آخر رد: elgokr
  اريد سورس كود لبرنامج ارسال رسائل sms عبر كمبيوتر بالاتصال بهاتف عبر البلوتوث khalilfox 1 142 18-08-18, 07:51 PM
آخر رد: YousefOkasha
Information [سؤال] اريد حل لمشكلة فتح البرنامج اكثر من مرة بالفيجوال 2008 DK-x 6 426 18-08-18, 07:08 PM
آخر رد: DK-x
Sad [VB.NET] يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم khalilfox 24 1,103 13-08-18, 05:44 AM
آخر رد: elgokr
  اريد مشروع لادارة صلات الجيم ...وطباعة الكروت من فظلكم khalilfox 4 164 07-08-18, 12:46 PM
آخر رد: khalilfox

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم