質問編集履歴
1
コードの編集
title
CHANGED
File without changes
|
body
CHANGED
@@ -8,14 +8,36 @@
|
|
8
8
|
どうすれば良いでしょうか?
|
9
9
|
|
10
10
|
```vb
|
11
|
-
|
11
|
+
Err.Clear()
|
12
|
-
|
12
|
+
Try
|
13
|
-
|
13
|
+
If WebBrowser1.IsBusy = False Or WebBrowser1.ReadyState = WebBrowserReadyState.Loading Then
|
14
|
-
|
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
|
-
|
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
|
+
どうすれば良いでしょうか?
|