مشكلة في متصفح الويب على VB.NET أثناء تحميل خريطة جوجل


أهلاً!
يوم جيد للجميع.

أحاول فتح خرائط جوجل باستخدام التحكم WebBrowser في VB.Net في Visual Studio 2017.

هنا هو رمز بسيط.

Private Sub txtSearc_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSearch.KeyDown
        If e.KeyCode = Keys.Enter Then
            Try
                Dim queryaddress As New System.Text.StringBuilder
                queryaddress.Append("https://www.google.com/maps?q=")
                If txtSearch.Text <> "" Then
                    queryaddress.Append(txtSearch.Text + "," & "+")
                End If

                browser_.ScriptErrorsSuppressed = True
                browser_.Navigate(queryaddress.ToString())

            Catch ex As Exception
                Exit Sub
            End Try
        End If
End Sub

ولكن عندما أقوم بتحميل الموقع، يعرض عنصر تحكم WebBrowser الصفحة لبضع ثوانٍ ثم يختفي الموقع، ويظهر عنصر التحكم خطأ “قم بتحديث متصفحك لاستخدام خرائط Google”

إذا كان أي شخص يستطيع أن يساعدني في الخطأ الذي أفعله هنا، سأكون ممتنًا.

مع الشكر و التقدير:
Muhammad Asim Mughal

ما حاولت:

Private Sub txtSearc_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSearch.KeyDown
        If e.KeyCode = Keys.Enter Then
            Try
                Dim queryaddress As New System.Text.StringBuilder
                queryaddress.Append("https://www.google.com/maps?q=")
                If txtSearch.Text <> "" Then
                    queryaddress.Append(txtSearch.Text + "," & "+")
                End If

                browser_.ScriptErrorsSuppressed = True
                browser_.Navigate(queryaddress.ToString())

            Catch ex As Exception
                Exit Sub
            End Try
        End If
    End Sub

الحل 1

ال WebBrowser التحكم في تضمين مثيل لبرنامج Internet Explorer الذي توقف منذ فترة طويلة في التطبيق الخاص بك.

والأسوأ من ذلك، ما لم تقم بتعديل السجل على كل جهاز يتم تشغيل تطبيقك عليه، فإن هذا المثيل سيكون عالقًا في وضع العرض IE7، مما يعني أن جميع مواقع الويب الحديثة تقريبًا ستفشل في التحميل.

تحتاج إلى تحديث التعليمات البرمجية الخاصة بك لاستخدام عنصر تحكم متصفح حديث بدلاً من ذلك – على سبيل المثال، عرض الويب2[^] أو سيفشارب[^].

コメント

タイトルとURLをコピーしました