質問編集履歴
2
「その場合」を追記
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
ログインボタンをクリックしたいがname属性やid属性が無いため
|
1
|
+
ログインボタンをクリックしたいがname属性やid属性が無いためその場合のコードが解りません
|
test
CHANGED
File without changes
|
1
「サイトにあるログインボタンの名前が解りません」から「ログインボタンをクリックしたいがname属性やid属性が無いためクリックするコードが解りません」に変更。
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
|
1
|
+
ログインボタンをクリックしたいがname属性やid属性が無いためクリックするコードが解りません
|
test
CHANGED
@@ -19,3 +19,35 @@
|
|
19
19
|
|
20
20
|
|
21
21
|
ご教示いただける方 宜しくお願いします。
|
22
|
+
|
23
|
+
|
24
|
+
|
25
|
+
=====================================================
|
26
|
+
|
27
|
+
※9/25追記
|
28
|
+
|
29
|
+
下記コードでは新規タブとして開いてしまい、サイト側でエラーになり開けませんでした。
|
30
|
+
|
31
|
+
|
32
|
+
|
33
|
+
Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備
|
34
|
+
|
35
|
+
Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット
|
36
|
+
|
37
|
+
|
38
|
+
|
39
|
+
htmlDoc.getElementsByName("username")(0).Value = strUsername 'name="username"にユーザー名を入力
|
40
|
+
|
41
|
+
htmlDoc.getElementsByName("password")(0).Value = strPassword 'name="password"にパスワードを入力
|
42
|
+
|
43
|
+
|
44
|
+
|
45
|
+
|
46
|
+
|
47
|
+
htmlDoc.forms(0).submit
|
48
|
+
|
49
|
+
|
50
|
+
|
51
|
+
|
52
|
+
|
53
|
+
End Sub
|