+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اريد عمل مثل هذا الاتصال (/showthread.php?tid=19012)
اريد عمل مثل هذا الاتصال - 3asfa~mdmra - 29-01-17
سلام عليكم
بعد الصلاة على الحبيب المصطفي
اريد عمل اتصال مثل هكذا
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
وشكراً اروع موقع 
RE: اريد عمل مثل هذا الاتصال - مساعدة - 29-01-17
السلام عليكم
جرب هذا الطريقة
كود :
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 في الأحداث الظاهرة في الكود
تم التعديل
RE: اريد عمل مثل هذا الاتصال - 3asfa~mdmra - 29-01-17
اخي انا طبقت ماذكرت ولكن اريد ان يصبح الاتصال هكذا داخل تكست بوكس الواحد وليس وضع 3 تكست بوكس وانا عملتك ماذكرته ’’ وذكرتلك داخل الكود ماهو المطلوب لتوضيح اكتر
تركت الك مشروع وماهو مطلوب في المرفقات
تركت الك مشروع وماهو مطلوب في المرفقات
RE: اريد عمل مثل هذا الاتصال - مساعدة - 29-01-17
تم التعديل في المشاركة السابقة
RE: اريد عمل مثل هذا الاتصال - 3asfa~mdmra - 29-01-17
شكراً انت روعة