vb2017(community版)を使っています。
タイマーで処理をするphpファイルをwebbrowserに読み込んでいます。
タイマーで処理してるんで、とめたくないんですが、スクリプトエラーか何かでエラーで止まってしまいます。
エラーでもとめたくないです。
どうすれば良いでしょうか?
vb
1Err.Clear() 2 Try 3 If WebBrowser1.IsBusy = False Or WebBrowser1.ReadyState = WebBrowserReadyState.Loading Then 4 WebBrowser1.Navigate("http://localhost/test.php") 5 ElseIf WebBrowser2.IsBusy = False Or WebBrowser2.ReadyState = WebBrowserReadyState.Loading Then 6 WebBrowser2.Navigate("http://localhost/test.php") 7 ElseIf WebBrowser3.IsBusy = False Or WebBrowser3.ReadyState = WebBrowserReadyState.Loading Then 8 WebBrowser3.Navigate("http://localhost/test.php") 9 ElseIf WebBrowser4.IsBusy = False Or WebBrowser4.ReadyState = WebBrowserReadyState.Loading Then 10 WebBrowser4.Navigate("http://localhost/test.php") 11 ElseIf WebBrowser5.IsBusy = False Or WebBrowser5.ReadyState = WebBrowserReadyState.Loading Then 12 WebBrowser5.Navigate("http://localhost/test.php") 13 ElseIf WebBrowser6.IsBusy = False Or WebBrowser6.ReadyState = WebBrowserReadyState.Loading Then 14 WebBrowser6.Navigate("http://localhost/test.php") 15 ElseIf WebBrowser7.IsBusy = False Or WebBrowser7.ReadyState = WebBrowserReadyState.Loading Then 16 WebBrowser7.Navigate("http://localhost/test.php") 17 ElseIf WebBrowser8.IsBusy = False Or WebBrowser8.ReadyState = WebBrowserReadyState.Loading Then 18 WebBrowser8.Navigate("http://localhost/test.php") 19 Else 20 WebBrowser9.Navigate("http://localhost/test.php") 21 End If 22 Catch comex As COMException 23 Catch ex As Exception 24 Finally 25 Err.Clear() 26 End Try
webbrowser1でスクリプトエラーが発生したらwebbrowser2に移行するか、webbrowser1のスクリプトエラーを解除してwebbrowser1で実行したいです。
上のコードでは、webbowser1でスクリプトエラーがあった場合、またwebbowser1で実行しようとしてbeep音がなってしまいます。
どうすれば良いでしょうか?
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。