teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

コードの編集

2017/11/11 02:16

投稿

chintao1224
chintao1224

スコア156

title CHANGED
File without changes
body CHANGED
@@ -8,14 +8,36 @@
8
8
  どうすれば良いでしょうか?
9
9
 
10
10
  ```vb
11
- Err.Clear()
11
+ Err.Clear()
12
- Try
12
+ Try
13
- If WebBrowser1.IsBusy = False Then
13
+     If WebBrowser1.IsBusy = False Or WebBrowser1.ReadyState = WebBrowserReadyState.Loading Then
14
- WebBrowser1.Navigate("http://localhost/test.php")
14
+       WebBrowser1.Navigate("http://localhost/test.php")
15
+     ElseIf WebBrowser2.IsBusy = False Or WebBrowser2.ReadyState = WebBrowserReadyState.Loading Then
16
+       WebBrowser2.Navigate("http://localhost/test.php")
17
+     ElseIf WebBrowser3.IsBusy = False Or WebBrowser3.ReadyState = WebBrowserReadyState.Loading Then
18
+       WebBrowser3.Navigate("http://localhost/test.php")
19
+     ElseIf WebBrowser4.IsBusy = False Or WebBrowser4.ReadyState = WebBrowserReadyState.Loading Then
20
+       WebBrowser4.Navigate("http://localhost/test.php")
21
+     ElseIf WebBrowser5.IsBusy = False Or WebBrowser5.ReadyState = WebBrowserReadyState.Loading Then
22
+       WebBrowser5.Navigate("http://localhost/test.php")
23
+     ElseIf WebBrowser6.IsBusy = False Or WebBrowser6.ReadyState = WebBrowserReadyState.Loading Then
24
+       WebBrowser6.Navigate("http://localhost/test.php")
25
+     ElseIf WebBrowser7.IsBusy = False Or WebBrowser7.ReadyState = WebBrowserReadyState.Loading Then
26
+       WebBrowser7.Navigate("http://localhost/test.php")
27
+     ElseIf WebBrowser8.IsBusy = False Or WebBrowser8.ReadyState = WebBrowserReadyState.Loading Then
28
+       WebBrowser8.Navigate("http://localhost/test.php")
29
+     Else
30
+       WebBrowser9.Navigate("http://localhost/test.php")
15
- End If
31
+     End If
16
32
  Catch comex As COMException
17
33
  Catch ex As Exception
18
34
  Finally
19
35
  Err.Clear()
20
36
  End Try
21
- ```
37
+ ```
38
+
39
+ webbrowser1でスクリプトエラーが発生したらwebbrowser2に移行するか、webbrowser1のスクリプトエラーを解除してwebbrowser1で実行したいです。
40
+
41
+ 上のコードでは、webbowser1でスクリプトエラーがあった場合、またwebbowser1で実行しようとしてbeep音がなってしまいます。
42
+
43
+ どうすれば良いでしょうか?