質問編集履歴
4
文章変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
特許庁の管理している、特許や商標の検索が出来るwebサイト(https://www.j-platpat.inpit.go.jp/)
|
|
1
|
+
特許庁の管理している、特許や商標の検索が出来るwebサイト([J-PlatPat](https://www.j-platpat.inpit.go.jp/))のテキストボックスに値を入力し、検索ボタンを押す、という処理を、
|
|
2
2
|
Webブラウザ(Firefox)のアドイン機能(iMacros)を使用して行おうとしています。
|
|
3
3
|
|
|
4
4
|
動作としては、テキストボックスに値が入り、検索ボタンも押されているようですが、
|
3
質問文章変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
|
|
1
|
+
特許庁の管理している、特許や商標の検索が出来るwebサイト(https://www.j-platpat.inpit.go.jp/) のテキストボックスに値を入力し、検索ボタンを押す、という処理を、
|
|
2
2
|
Webブラウザ(Firefox)のアドイン機能(iMacros)を使用して行おうとしています。
|
|
3
3
|
|
|
4
4
|
動作としては、テキストボックスに値が入り、検索ボタンも押されているようですが、
|
2
質問文章変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -7,7 +7,7 @@
|
|
|
7
7
|
|
|
8
8
|
テキストをセットしている箇所に誤りがあるのでしょうか？
|
|
9
9
|
|
|
10
|
-
また、アドイン機能で出来ない
|
|
10
|
+
また、アドイン機能で出来ないので、VBSでも試してみましたが、
|
|
11
11
|
こちらも同様の結果(エラー)になりました。
|
|
12
12
|
|
|
13
13
|
iMacros プログラム
|
1
質問の文章変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -7,6 +7,9 @@
|
|
|
7
7
|
|
|
8
8
|
テキストをセットしている箇所に誤りがあるのでしょうか？
|
|
9
9
|
|
|
10
|
+
また、アドイン機能で出来ない時のために、VBSでも作成してみましたが、
|
|
11
|
+
こちらも同様の結果(エラー)になりました。
|
|
12
|
+
|
|
10
13
|
iMacros プログラム
|
|
11
14
|
```ここに言語を入力
|
|
12
15
|
VERSION BUILD=10021450
|
|
@@ -20,4 +23,51 @@
|
|
|
20
23
|
Webページ ソース(一部抜粋)
|
|
21
24
|
```ここに言語を入力
|
|
22
25
|
<input _ngcontent-c7="" id="s01_srchCondtn_txtSimpleSearch" maxlength="200" name="s01_srchCondtn_txtSimpleSearch" type="text" ng-reflect-maxlength="200" ng-reflect-name="s01_srchCondtn_txtSimpleSearch" ng-reflect-model="" placeholder="例1)人工知能 例2)2019-00012X" class="ng-pristine ng-valid ng-touched">
|
|
26
|
+
```
|
|
27
|
+
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
```VBS
|
|
31
|
+
Option Explicit
|
|
32
|
+
|
|
33
|
+
Dim objIE2
|
|
34
|
+
Dim wSLEEP
|
|
35
|
+
|
|
36
|
+
wSLEEP = 200
|
|
37
|
+
|
|
38
|
+
Set objIE2 = WScript.CreateObject("InternetExplorer.Application")
|
|
39
|
+
objIE2.Visible = True
|
|
40
|
+
objIE2.Navigate2 "https://www.j-platpat.inpit.go.jp/"
|
|
41
|
+
|
|
42
|
+
WScript.Sleep wSLEEP
|
|
43
|
+
Dim objShell
|
|
44
|
+
Dim objWindow
|
|
45
|
+
|
|
46
|
+
|
|
47
|
+
Set objShell = CreateObject("Shell.Application")
|
|
48
|
+
|
|
49
|
+
For Each objWindow In objShell.Windows
|
|
50
|
+
|
|
51
|
+
If TypeName(objWindow.document) = "HTMLDocument" Then
|
|
52
|
+
|
|
53
|
+
If Instr(objWindow.Document.Title, "J-PlatPat") > 0 then
|
|
54
|
+
|
|
55
|
+
Set objIE2 = objWindow
|
|
56
|
+
WScript.Sleep wSLEEP
|
|
57
|
+
Exit For
|
|
58
|
+
|
|
59
|
+
End If
|
|
60
|
+
|
|
61
|
+
End If
|
|
62
|
+
|
|
63
|
+
Next
|
|
64
|
+
|
|
65
|
+
WScript.Sleep wSLEEP
|
|
66
|
+
|
|
67
|
+
'ID、パスワードをセット
|
|
68
|
+
objIE2.Document.getElementsByName("s01_srchCondtn_txtSimpleSearch")(0).focus
|
|
69
|
+
objIE2.Document.getElementsByName("s01_srchCondtn_txtSimpleSearch")(0).Value = "test"
|
|
70
|
+
objIE2.Document.getElementsByName("s01_srchBtn_btnSearch")(0).click
|
|
71
|
+
|
|
72
|
+
Set objShell = Nothing
|
|
23
73
|
```
|