[اليوم السابع]

في هذا المشروع اقوم بالبحث في جوجل ولكن اذا كان البحث بالغه العربيه يظهر علي هيئه علامه استفهام برجاء التعديل علي المشروع 

[معاند الحظ]

الاخ اليوم السابع 

سبب الخطأ هو انك لم تقم بتغيير ترميز 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

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

---

(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

اسف اخي فعلا تم الحل كان الخطأ مني تسلم ايدك يا كبير