回答編集履歴
1
修正
answer
CHANGED
|
@@ -2,17 +2,17 @@
|
|
|
2
2
|
|
|
3
3
|
```VBA
|
|
4
4
|
Sub test()
|
|
5
|
-
|
|
5
|
+
|
|
6
6
|
Proxy = "xxx.xxx.xxx.xxx:yyyyy"
|
|
7
|
-
|
|
8
|
-
With CreateObject("Selenium.ChromeDriver")
|
|
9
|
-
.AddArgument "--proxy-server=" + Proxy
|
|
10
|
-
.Start "chrome"
|
|
11
|
-
|
|
12
|
-
.Get "https://www.cman.jp/network/support/go_access.cgi"
|
|
13
|
-
End With
|
|
14
|
-
Stop
|
|
15
7
|
|
|
8
|
+
Set driver = CreateObject("Selenium.ChromeDriver")
|
|
9
|
+
driver.AddArgument "--proxy-server=" + Proxy
|
|
10
|
+
driver.Start "chrome"
|
|
11
|
+
|
|
12
|
+
driver.Get "https://www.cman.jp/network/support/go_access.cgi"
|
|
13
|
+
|
|
14
|
+
Stop
|
|
15
|
+
|
|
16
16
|
End Sub
|
|
17
17
|
|
|
18
18
|
```
|