تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حل مشكله ظهور رموز غريبه
#1
في هذا المشروع اقوم بالبحث في جوجل ولكن اذا كان البحث بالغه العربيه يظهر علي هيئه علامه استفهام برجاء التعديل علي المشروع 


الملفات المرفقة
.rar   WindowsApplication3.rar (الحجم : 71.23 ك ب / التحميلات : 10)
الرد
تم الشكر بواسطة: asemshahen5
#2
الاخ اليوم السابع 

سبب الخطأ هو انك لم تقم بتغيير ترميز Encoding النص الموجود في مربع النص عندما ترسله الى محرك البحث
لهذا قمت بعمل وظيفة تقوم بتغيير ترميز النص في مربع النص الى الترميز الصحيح

غير الكود لديك الى التالي:

كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       WebBrowser1.Navigate("https://www.google.com/search?q=" & FixEncoding(TextBox2.Text) + "&oq=&gs_l=")

   End Sub


   Function FixEncoding(txt As String) As String

       Dim b() As Byte = Encoding.UTF8.GetBytes(txt)
       Dim retval As String = UTF8Encoding.Default.GetString(b, 0, b.Length)
       Return retval
   End Function

لاتنسى استيراد فضاء الاسماء التالي:

Imports System.Text
الرد
#3
(05-05-20, 07:37 PM)معاند الحظ كتب : الاخ اليوم السابع 

سبب الخطأ هو انك لم تقم بتغيير ترميز Encoding النص الموجود في مربع النص عندما ترسله الى محرك البحث
لهذا قمت بعمل وظيفة تقوم بتغيير ترميز النص في مربع النص الى الترميز الصحيح

غير الكود لديك الى التالي:

كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       WebBrowser1.Navigate("https://www.google.com/search?q=" & FixEncoding(TextBox2.Text) + "&oq=&gs_l=")

   End Sub


   Function FixEncoding(txt As String) As String

       Dim b() As Byte = Encoding.UTF8.GetBytes(txt)
       Dim retval As String = UTF8Encoding.Default.GetString(b, 0, b.Length)
       Return retval
   End Function

لاتنسى استيراد فضاء الاسماء التالي:

Imports System.Text

شكرا لك اخي ولكن نفس المشكله

(05-05-20, 07:37 PM)معاند الحظ كتب : الاخ اليوم السابع 

سبب الخطأ هو انك لم تقم بتغيير ترميز Encoding النص الموجود في مربع النص عندما ترسله الى محرك البحث
لهذا قمت بعمل وظيفة تقوم بتغيير ترميز النص في مربع النص الى الترميز الصحيح

غير الكود لديك الى التالي:

كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       WebBrowser1.Navigate("https://www.google.com/search?q=" & FixEncoding(TextBox2.Text) + "&oq=&gs_l=")

   End Sub


   Function FixEncoding(txt As String) As String

       Dim b() As Byte = Encoding.UTF8.GetBytes(txt)
       Dim retval As String = UTF8Encoding.Default.GetString(b, 0, b.Length)
       Return retval
   End Function

لاتنسى استيراد فضاء الاسماء التالي:

Imports System.Text
اسف اخي فعلا تم الحل كان الخطأ مني تسلم ايدك يا كبير
الرد
تم الشكر بواسطة: معاند الحظ , asemshahen5 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ظهور رسالة خطأ فى كود إعادة الترقيم التلقائى مصطفى_ظيمة 17 491 منذ 7 ساعة مضت
آخر رد: أبوبكر سويدان
  مشكله في namespace alshandodi 5 76 21-05-20, 06:21 PM
آخر رد: معاند الحظ
  ظهور رسالة خطأ عند إجراء النسخ الاحتياطي لقاعدة البيانات momiana1 0 59 11-05-20, 04:14 AM
آخر رد: momiana1
Rainbow عاجل جدا . مشكله في مشروع و خطأ غريب theend200x 2 230 08-05-20, 03:56 AM
آخر رد: سعود
  مشكلة ظهور رسالة وميض Microsoft .Net Framework Hazem1 0 58 07-05-20, 07:08 PM
آخر رد: Hazem1
  ظهور قفل للفورمات alshandodi 5 133 05-05-20, 01:42 AM
آخر رد: عبدالله الدوسري
  حل مشكله البرنامج لايعمل عندنا تشغيل مهمه علي ChromeDriver مثلا developermedo111 1 101 26-04-20, 02:31 AM
آخر رد: mohamedahmed1
Smile مشكله فى ExecuteNonQuery ارجو المساعده هشام السيد 3 125 21-04-20, 09:03 PM
آخر رد: عبد العزيز البسكري
  مشكله بسيطه بالريجكس حاولت كتير فيها قبل الموضوع اليوم السابع 7 167 19-04-20, 02:08 AM
آخر رد: ابو ليلى
  عندي مشكله لم اعرف ما سببها اليوم السابع 1 122 06-04-20, 09:35 PM
آخر رد: محمد كريّم

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


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