0

これはこのウェブサイトでの最初の質問です。重要な詳細を見逃している場合はお知らせください。事前に感謝します。

Web サイトにアクセスし、ユーザーが入力したフォームから結果をダウンロードするように求められました。ウェブサイトはユーザー名/パスワードを要求し、受け入れられると、いくつかの回答を生成するために使用されるいくつかの質問.

私はこの分野に慣れていないので、簡単な Windows フォームをセットアップして、Web サイトをいじくり回して物事を取り上げようとしました。問題の Web サイトを表示するために、Web ブラウザー コントロールとボタンを使用しました。

コントロールを介して Web サイトを表示しようとすると、スクリプト エラーが発生し、何も読み込まれません。IE がエラーなしで処理できる特定のプラグインがフォームにないのではないかと推測しています。とにかく、これらが何であるかを特定し、次に何をすべきかを理解することはできますか? 私は困惑しています。

スクリプト エラーは次のとおりです。

どちらも、ページでスクリプトを実行し続けるかどうかを尋ねてきます。しかし、それは IE で動作し、なぜ私のコントロールがそれほど異なるのかわかりません。実際には正常に機能するユーザー名とパスワードを要求しますが、次のステップでエラーが発生します。

必要に応じて、スクリーンショットまたはウェブサイトのソース HTML からの抜粋を提供できます。

ありがとう、

私のコードは次のとおりです。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'WebBrowser1.ScriptErrorsSuppressed = True
    WebBrowser1.Navigate("http://website.com")
    'WebBrowser1.Navigate("http://www.google.com")
End Sub
4

1 に答える 1

0

Noseratio に感謝します。

私が得ていたエラーは、いくつかの XML/Java/その他の機能が斜めになっていることに関連しているように見えましたが、実際には、私の webbrowser コントロールが ie 7.0 を使用していたためでした。

私は強制的にie 9を使用しましたが、すべてがうまくいきました。したがって、上記の例を使用して、基本的に次のようなことを行いました。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'WebBrowser1.ScriptErrorsSuppressed = True
    BrowserUpdate()
    WebBrowser1.Navigate("http://website.com")
    'WebBrowser1.Navigate("http://www.google.com")
End Sub

Sub BrowserUpdate()
        Try

            Dim IEVAlue As String = 9000 ' can be: 9999 , 9000, 8888, 8000, 7000    
            Dim targetApplication As String = Process.GetCurrentProcess.ToString & ".exe"
            Dim localMachine As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine
            Dim parentKeyLocation As String = "SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl"
            Dim keyName As String = "FEATURE_BROWSER_EMULATION"
            Dim subKey As Microsoft.Win32.RegistryKey = localMachine.CreateSubKey(parentKeyLocation & "\" & keyName)
            subKey.SetValue(targetApplication, IEVAlue, Microsoft.Win32.RegistryValueKind.DWord)

        Catch ex As Exception
            'Blah blah here
        End Try

    End Sub
于 2013-08-29T13:38:14.593 に答える