تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في تحويل كود من c# الى vb.net
#1
السلام عليكم , قمت بتحويل برنامج من c# الى vb.net ولكن واجهت مشكلة في أحد الاسطر أتمنى منكم مساعدتي في حلها وشكراً


هذا النص الاصلي

كود :
       private void Prec(object sender, Presence p)
       {
           {
               {
                   if (InvokeRequired)
                       BeginInvoke(new agsXMPP.protocol.client.PresenceHandler(Prec), new object[] { sender, p });
                   else
                   {
                       if (checkBox2.Checked == true)
                       {
                           if (p.Type == agsXMPP.protocol.client.PresenceType.subscribe)
                           {

                               x.Send("<presence to=\"" + p.From + "\" type=\"subscribed\" />" +
                                   "<presence to=\"" + p.From + "\" type=\"subscribe\" />");
                               x.Send("<message to=\"" + p.From + "\" type=\"chat\"><body>" + textBox5.Text + "</body></message>");
                           }
                       }
                   }
               }
           }
       }
           void cnt_OnMessage1(object sender, agsXMPP.protocol.client.Message Msg)
       {
           if (InvokeRequired)
               BeginInvoke(new agsXMPP.protocol.client.MessageHandler(cnt_OnMessage1), new object[] { sender, Msg });
           else
           {
               if (Msg.Body.ToLower().StartsWith(textBox6.Text))
               {
                   x.Send("<message to=\"" + Msg.From + "\" type=\"chat\"><body> You Are Member </body></message>");
                   x.Send("<iq to='" + textBox4.Text + "@conference.nimbuzz.com' type='set' id='ChatBuzz'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='member' jid='" + Msg.From.Resource + "@nimbuzz.com'/></query></iq>");
                   x.Send("<message id='mir_141' to='" + textBox4.Text + "@conference.nimbuzz.com' type='groupchat'><body>" + Msg.From.Resource + "  You Are Member</body></message>");
               }
           }
       }


هذا الكود لدي بعد تحويله الى vb



كود :
Class SurroundingClass
   Private Sub Prec(ByVal sender As Object, ByVal p As Presence)
       If True Then

           If True Then

               If InvokeRequired Then
                   BeginInvoke(New agsXMPP.protocol.client.PresenceHandler(AddressOf Prec), New Object() {sender, p})
               Else

                   If checkBox2.Checked = True Then

                       If p.Type = agsXMPP.protocol.client.PresenceType.subscribe Then
                           x.Send("<presence to=""" & p.From & """ type=""subscribed"" />" & "<presence to=""" + p.From & """ type=""subscribe"" />")
                           x.Send("<message to=""" & p.From & """ type=""chat""><body>" + textBox5.Text & "</body></message>")
                       End If
                   End If
               End If
           End If
       End If
   End Sub

   Private Sub cnt_OnMessage1(ByVal sender As Object, ByVal Msg As agsXMPP.protocol.client.Message)
       If InvokeRequired Then
           BeginInvoke(New agsXMPP.protocol.client.MessageHandler(AddressOf cnt_OnMessage1), New Object() {sender, Msg})
       Else

           If Msg.Body.ToLower().StartsWith(textBox6.Text) Then
               x.Send("<message to=""" & Msg.From & """ type=""chat""><body> You Are Member </body></message>")
               x.Send("<iq to='" & textBox4.Text & "@conference.nimbuzz.com' type='set' id='ChatBuzz'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='member' jid='" + Msg.From.Resource & "@nimbuzz.com'/></query></iq>")
               x.Send("<message id='mir_141' to='" & textBox4.Text & "@conference.nimbuzz.com' type='groupchat'><body>" + Msg.From.Resource & "  You Are Member</body></message>")
           End If
       End If
   End Sub
End Class


وهذا رابط المشروع كامل 
الْحَمْدُ لِلَّهِ حَمْدًا كَثِيرًا طَيِّبًا مُبَارَكًا فِيهِ

رَبِّي أَرْزُقْنِي مُسْتَقْبَلاً أَجَمَلَ مِمَّا تَمَنَّيْتُ

وَاَجْعَل لِي فِيْ هَذِهِ الدُّنْيَا - أُنَاساً يَدْعُونَ لِي بَعْدَ أَنْ أَغِيْب

حسابي في تلكرام

 
الرد
تم الشكر بواسطة: bidaya , ابو روضة , ابو روضة , ابراهيم ايبو
#2
جرب اخي الكريم 
اتمنى ما تلقى خلل هذه المرة


الملفات المرفقة
.rar   ChatBuzZ Source.rar (الحجم : 218.17 ك ب / التحميلات : 12)
الرد
#3
(17-05-21, 09:47 PM)bidaya كتب :
جرب اخي الكريم 
اتمنى ما تلقى خلل هذه المرة

جزاك الله خيراً أخي واشكرك من أعماق قلبي  Heart
الْحَمْدُ لِلَّهِ حَمْدًا كَثِيرًا طَيِّبًا مُبَارَكًا فِيهِ

رَبِّي أَرْزُقْنِي مُسْتَقْبَلاً أَجَمَلَ مِمَّا تَمَنَّيْتُ

وَاَجْعَل لِي فِيْ هَذِهِ الدُّنْيَا - أُنَاساً يَدْعُونَ لِي بَعْدَ أَنْ أَغِيْب

حسابي في تلكرام

 
الرد
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو , bidaya , bidaya


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تشغيل البرنامج علاء الكبابي 3 215 08-06-21, 03:42 PM
آخر رد: علاء الكبابي
  مشكلة في استعلام عن سجل موجود والتعديل عليه عبدالكريم برشدان 8 311 01-06-21, 05:19 AM
آخر رد: عبدالكريم برشدان
  [VB.NET] مشكلة بالكريستال لا يريد التنصيب AhmedNagib 7 393 30-05-21, 11:39 PM
آخر رد: ابو انس
Sad مشكلة عدم دقة توقيت التايمر أسعد 14 777 27-05-21, 03:32 AM
آخر رد: معاند الحظ
  [VB.NET] تحويل pdf الى صورة بدون استخدام الاكروبات بأستخدام adobe reader العادى فقط AhmedNagib 0 118 25-05-21, 12:38 AM
آخر رد: AhmedNagib
  تحويل كود من c# الى vb.net aldery 2 192 24-05-21, 08:39 PM
آخر رد: aldery
  [VB.NET] مشكلة في برنامج vb.net aliabdullah 3 321 13-05-21, 10:19 AM
آخر رد: Fantastico
  [VB.NET] تحويل منتج إلى عمود بقاعدو بيانات أكسس ADAM12 4 434 26-04-21, 05:05 PM
آخر رد: ADAM12
  مشكلة عندالتعامل مع (My.Application.CommandLineArgs) عبدالله الصافي 12 925 21-04-21, 03:17 PM
آخر رد: عبدالله الصافي
  مشكلة تحديث برنامجي عن تحزيمه ببرنامج Smart Install Maker alfaiz678 2 304 18-04-21, 12:42 PM
آخر رد: alfaiz678

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


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