تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة ريبورت فيور مع vb.net 17 عمور2016 0 48 15-08-22, 04:31 PM
آخر رد: عمور2016
  [سؤال] عندي مشكلة رسالة موقفة المشروع تماما عمور2016 3 130 13-08-22, 02:25 PM
آخر رد: عمور2016
Sad [VB.NET] مشكلة عندي في عرض تقارير كريستال ريبورت بجهاز العميل golden man 0 118 04-08-22, 11:06 PM
آخر رد: golden man
  مشكلة تنصيب سيكول سيرفر حماده ممدوح البحيرى 1 129 04-08-22, 02:05 AM
آخر رد: Jounior_P
  مشكلة فى تنصيب sql حماده ممدوح البحيرى 1 631 02-08-22, 12:11 AM
آخر رد: حماده ممدوح البحيرى
  ماهي طريقة تحويل الصور إلى pdf ؟ جيولوجي مبتدئ 6 274 30-07-22, 02:24 AM
آخر رد: جيولوجي مبتدئ
  مشكلة الاتصال مع الاكسسز فقط مع محسوب نيمو 2 158 27-07-22, 01:35 AM
آخر رد: نيمو
  مشكلة في تنفبذ الكود mohamedassim 8 392 07-07-22, 12:26 AM
آخر رد: أبو خالد الشكري
  مشكلة في الكومبو بوكس mohamedassim 0 198 06-07-22, 11:38 PM
آخر رد: mohamedassim
  [VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو محمد اسماعيل 5 1,526 30-06-22, 08:29 PM
آخر رد: alessam4pro

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


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