質問編集履歴

4

文章変更

2020/02/06 06:23

投稿

kyon-net
kyon-net

スコア7

test CHANGED
File without changes
test 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
 
3
3
  Webブラウザ(Firefox)のアドイン機能(iMacros)を使用して行おうとしています。
4
4
 

3

質問文章変更

2020/02/06 06:22

投稿

kyon-net
kyon-net

スコア7

test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,4 @@
1
- 現在るwebサイトのテキストボックスに値を入力し、検索ボタンを押す、という処理を、
1
+ 特許庁の管理している特許や商標の検索が出来るwebサイト(https://www.j-platpat.inpit.go.jp/) のテキストボックスに値を入力し、検索ボタンを押す、という処理を、
2
2
 
3
3
  Webブラウザ(Firefox)のアドイン機能(iMacros)を使用して行おうとしています。
4
4
 

2

質問文章変更

2020/02/06 06:21

投稿

kyon-net
kyon-net

スコア7

test CHANGED
File without changes
test CHANGED
@@ -16,7 +16,7 @@
16
16
 
17
17
 
18
18
 
19
- また、アドイン機能で出来ないために、VBSでも作成してみましたが、
19
+ また、アドイン機能で出来ないの、VBSでもしてみましたが、
20
20
 
21
21
  こちらも同様の結果(エラー)になりました。
22
22
 

1

質問の文章変更

2020/02/06 05:03

投稿

kyon-net
kyon-net

スコア7

test CHANGED
File without changes
test CHANGED
@@ -13,6 +13,12 @@
13
13
 
14
14
 
15
15
  テキストをセットしている箇所に誤りがあるのでしょうか?
16
+
17
+
18
+
19
+ また、アドイン機能で出来ない時のために、VBSでも作成してみましたが、
20
+
21
+ こちらも同様の結果(エラー)になりました。
16
22
 
17
23
 
18
24
 
@@ -43,3 +49,97 @@
43
49
  <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">
44
50
 
45
51
  ```
52
+
53
+
54
+
55
+
56
+
57
+
58
+
59
+ ```VBS
60
+
61
+ Option Explicit
62
+
63
+
64
+
65
+ Dim objIE2
66
+
67
+ Dim wSLEEP
68
+
69
+
70
+
71
+ wSLEEP = 200
72
+
73
+
74
+
75
+ Set objIE2 = WScript.CreateObject("InternetExplorer.Application")
76
+
77
+ objIE2.Visible = True
78
+
79
+ objIE2.Navigate2 "https://www.j-platpat.inpit.go.jp/"
80
+
81
+
82
+
83
+ WScript.Sleep wSLEEP
84
+
85
+ Dim objShell
86
+
87
+ Dim objWindow
88
+
89
+
90
+
91
+
92
+
93
+ Set objShell = CreateObject("Shell.Application")
94
+
95
+
96
+
97
+ For Each objWindow In objShell.Windows
98
+
99
+
100
+
101
+ If TypeName(objWindow.document) = "HTMLDocument" Then
102
+
103
+
104
+
105
+ If Instr(objWindow.Document.Title, "J-PlatPat") > 0 then
106
+
107
+
108
+
109
+ Set objIE2 = objWindow
110
+
111
+ WScript.Sleep wSLEEP
112
+
113
+ Exit For
114
+
115
+
116
+
117
+ End If
118
+
119
+
120
+
121
+ End If
122
+
123
+
124
+
125
+ Next
126
+
127
+
128
+
129
+ WScript.Sleep wSLEEP
130
+
131
+
132
+
133
+ 'ID、パスワードをセット
134
+
135
+ objIE2.Document.getElementsByName("s01_srchCondtn_txtSimpleSearch")(0).focus
136
+
137
+ objIE2.Document.getElementsByName("s01_srchCondtn_txtSimpleSearch")(0).Value = "test"
138
+
139
+ objIE2.Document.getElementsByName("s01_srchBtn_btnSearch")(0).click
140
+
141
+
142
+
143
+ Set objShell = Nothing
144
+
145
+ ```