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


الملفات المرفقة
.rar   WindowsApplication3.rar (الحجم : 71.23 ك ب / التحميلات : 20)
الرد }}}
تم الشكر بواسطة: 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] مشكله رساله خطا Omaro 7 96 24-03-24, 03:46 PM
آخر رد: Omaro
  [سؤال] مشكله كود TRansaction وحقل الترقيم التلقائي 01AHMED 0 109 09-02-24, 10:31 PM
آخر رد: 01AHMED
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 672 14-12-23, 12:07 PM
آخر رد: asmarsou
  [VB.NET] كيف يمكن إخفاء ظهور الشاشة السوداء فى الـــ console AmeenRashed 2 316 15-11-23, 03:51 PM
آخر رد: justforit
  مشكله فى جهاز قراءة الباركود خالد كامل1 1 350 03-11-23, 06:42 AM
آخر رد: Taha Okla
  [VB.NET] امر DataGridView1.Rows.Add يسبب مشكله في الحفظ oody 1 243 26-10-23, 08:27 PM
آخر رد: aljzazy
  [سؤال] حول ظهور النافذة الاولى عند الضغط على Menustrip2 في النافذة الثانية vb.net 2012 mh66 0 244 19-10-23, 09:05 AM
آخر رد: mh66
Exclamation مشكله Devexpress DOX.1 4 435 03-10-23, 04:22 PM
آخر رد: DOX.1

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


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