自動ログインのVBAを作りたいのですが・・・

最近の書き込み件数：今日 0件、昨日 0件
未読分：7件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#7 2017年12月1日(金)18時27分
From: かじじ

返事削除変更

ジャッカルのメッセージ(#6)への返事

> これはiframeを使っているのかな？
> iframeはセキュリティー上アクセスできなくなったとかあったと思うけど、その対処法がどこかの板で書かれていたような。
>
> 板が多すぎでどこかは不明だけど

iframeで調べてみます。ありがとうございます。

Message#6 2017年11月30日(木)21時02分
From: ジャッカル

返事削除変更

これはiframeを使っているのかな？
iframeはセキュリティー上アクセスできなくなったとかあったと思うけど、その対処法がどこかの板で書かれていたような。

板が多すぎでどこかは不明だけど

> ジャッカルのメッセージ(#4)への返事
>
>
> >> Dim objInpTxt As HTMLTextAreaElement
> >> を削除してみたら？
> 削除したら、エラーは消えました。しかし、「objInpTxtの定義なし」で
> 問題ないのでしょうか？
> Set objInpTxt = objIE.document.getElementsByName("txtLoginId")(0)
> objInpTxt.value = "1234567" <=== ここで　実行時エラー"91"
>
> >> あとjavaとjavascriptはまったく別物だけど、どのことをjavaといってる？
> 失礼しました。javascriptです。
>
> > 'ログインボタンをクリック
> > '*** [ログインへ進む]をクリック
> のあと、IEのDOM Explorerで見てみると下記の※を実行します。まったく想像ですがこのjavascriptの
> 中でログインIDとPWDを入力させる窓を出しているようなので、実際のIDとPWDの受け取りも
> javascriptでやっているのかな？と考えています。それの真偽とログインIDとPWDの渡し方を
> どのように見つけ出すのか？そのアプローチ方法を知りたいです。
>
> <a href="./login/login_new.htm?height=200&width=370" rel="sexylightbox" ><img src="images/btn_login_off.png" class="iepngfix" onClick="JavaScript:document.frmDefault.hdnKushituSearchFlg.value=0;"></a> <<=== ※
>
> </div>
>
> <div id="tit_info">
> <img src="images/tit_info.png" class="iepngfix">
> </div>
>
>
> 
>
> 
> <iframe src="http://www.visual-w.co.jp/_sp_info/info.asp" class="ifr_resize" scrolling="yes" frameborder="0" id="flame"></iframe>
>
>
> </div>
> </body>
> </html>

Message#5 2017年11月27日(月)16時25分
From: かじじ

返事削除変更

ジャッカルのメッセージ(#4)への返事

>> Dim objInpTxt As HTMLTextAreaElement
>> を削除してみたら？
削除したら、エラーは消えました。しかし、「objInpTxtの定義なし」で
問題ないのでしょうか？
Set objInpTxt = objIE.document.getElementsByName("txtLoginId")(0)
objInpTxt.value = "1234567" <=== ここで　実行時エラー"91"

>> あとjavaとjavascriptはまったく別物だけど、どのことをjavaといってる？
失礼しました。javascriptです。

> 'ログインボタンをクリック
> '*** [ログインへ進む]をクリック
のあと、IEのDOM Explorerで見てみると下記の※を実行します。まったく想像ですがこのjavascriptの
中でログインIDとPWDを入力させる窓を出しているようなので、実際のIDとPWDの受け取りも
javascriptでやっているのかな？と考えています。それの真偽とログインIDとPWDの渡し方を
どのように見つけ出すのか？そのアプローチ方法を知りたいです。

<a href="./login/login_new.htm?height=200&width=370" rel="sexylightbox" ><img src="images/btn_login_off.png" class="iepngfix" onClick="JavaScript:document.frmDefault.hdnKushituSearchFlg.value=0;"></a> <<=== ※

</div>

<div id="tit_info">
<img src="images/tit_info.png" class="iepngfix">
</div>




<iframe src="http://www.visual-w.co.jp/_sp_info/info.asp" class="ifr_resize" scrolling="yes" frameborder="0" id="flame"></iframe>

</div>
</body>
</html>

Message#4 2017年11月26日(日)22時42分
From: ジャッカル

返事削除変更

Dim objInpTxt As HTMLTextAreaElement
を削除してみたら？

あとjavaとjavascriptはまったく別物だけど、どのことをjavaといってる？

> ジャッカルのメッセージ(#2)への返事
>
> > CreateObjectでオブジェクトつくってないからじゃない？
> > dimで宣言したからといってobjIEにオブジェクトが作られるわけではない。
> >
>
> かじじです
> 説明不足で申し訳ありません。CreateObjectは下記の通り、実行しています。
>
> 'IE(InternetExplorer)のオブジェクトを作成する
> Set objIE = CreateObject("InternetExplorer.Application")
>
> 'IE(InternetExplorer)を表示する
> objIE.Visible = True
>
> '指定したURLのページをIEで起動する
> objIE.navigate "http://10.51.2.20/spweb/"
>
> Call ieCheck(objIE)
>
> 'ログインボタンをクリック
> '*** [ログインへ進む]をクリック
> Dim objElement As IHTMLElement2
> Dim strTempText As String
>
> For Each objElement In objIE.document.all.tags(tagName:="a")
> strTempText = objElement.getAttribute _
> (strAttributeName:="href")
> Debug.Print strTempText
> If InStr(strTempText, "login_new") > 0 Then
> objElement.Click
> End If
> Next
>
> Call ieCheck(objIE)
>
> Dim objInpTxt As HTMLTextAreaElement
> Set objInpTxt = objIE.document.getElementsByName("txtLoginId")(0)　<==①
> ーーーー
> 　　変数objIEには、txtLoginIdが見つかりません。①の指定の方法が間違っているのか？
> 　　どうアプローチすれば良いのでしょう？気になっているのは、ログインのIDとPWDを
> 　　入力する画面がアニメーションになっていて（スライドして出てくる）、
> 　　javaで書かれているようで、①のような指定はできないのかもとも考えています。
> 　　アドバイスをいただければうれしいです。

Message#3 2017年11月25日(土)09時31分
From: かじじ

返事削除変更

ジャッカルのメッセージ(#2)への返事

> CreateObjectでオブジェクトつくってないからじゃない？
> dimで宣言したからといってobjIEにオブジェクトが作られるわけではない。
>

かじじです
説明不足で申し訳ありません。CreateObjectは下記の通り、実行しています。

'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")

'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページをIEで起動する
objIE.navigate "http://10.51.2.20/spweb/"

Call ieCheck(objIE)

'ログインボタンをクリック
'*** [ログインへ進む]をクリック
Dim objElement As IHTMLElement2
Dim strTempText As String

For Each objElement In objIE.document.all.tags(tagName:="a")
strTempText = objElement.getAttribute _
(strAttributeName:="href")
Debug.Print strTempText
If InStr(strTempText, "login_new") > 0 Then
objElement.Click
End If
Next

Call ieCheck(objIE)

Dim objInpTxt As HTMLTextAreaElement
Set objInpTxt = objIE.document.getElementsByName("txtLoginId")(0)　<==①
ーーーー
　　変数objIEには、txtLoginIdが見つかりません。①の指定の方法が間違っているのか？
　　どうアプローチすれば良いのでしょう？気になっているのは、ログインのIDとPWDを
　　入力する画面がアニメーションになっていて（スライドして出てくる）、
　　javaで書かれているようで、①のような指定はできないのかもとも考えています。
　　アドバイスをいただければうれしいです。

Message#2 2017年11月20日(月)13時15分
From: ジャッカル

返事削除変更

CreateObjectでオブジェクトつくってないからじゃない？
dimで宣言したからといってobjIEにオブジェクトが作られるわけではない。

> 自動ログインのVBAを作成したいのですが、エラー(実行時エラー”91")になってしまいます。対応方法を教えてください。
> <tr>
> <td rowspan="2" width="50"><img src="../images/user.png">
> </td>
> <td width="100" class=""><font class="com_font_moji">　ログインID</font> </td>
> <td width="" class="">
> <input type="text" name="txtLoginId" value=""> <==== ここ
> </td>
> </tr>
>
> <tr>
> <td width="100" class=""><font class="com_font_moji">　パスワード</font> </td>
> <td width="" class="">
> <input type="password" name="txtPassWord"> <==== ここ
> </td>
> </tr>
>
> <tr>
> <td></td><td></td>
> <td align="right">
> <input type="image" src="../images/btn_s_login.gif" border="0" onclick="submit()">
> </td>
> </tr>
> -------
> Dim objIE As InternetExplorer
> Set objInpTxt = objIE.document.getElementsByName("txtLoginId")(0) <== エラー

Message#1 2017年11月20日(月)11時31分
From: かじじ

返事削除変更

自動ログインのVBAを作成したいのですが、エラー(実行時エラー”91")になってしまいます。対応方法を教えてください。
<tr>
<td rowspan="2" width="50"><img src="../images/user.png">
</td>
<td width="100" class=""><font class="com_font_moji">　ログインID</font> </td>
<td width="" class="">
<input type="text" name="txtLoginId" value=""> <==== ここ
</td>
</tr>

<tr>
<td width="100" class=""><font class="com_font_moji">　パスワード</font> </td>
<td width="" class="">
<input type="password" name="txtPassWord"> <==== ここ
</td>
</tr>

<tr>
<td></td><td></td>
<td align="right">
<input type="image" src="../images/btn_s_login.gif" border="0" onclick="submit()">
</td>
</tr>
-------
Dim objIE As InternetExplorer
Set objInpTxt = objIE.document.getElementsByName("txtLoginId")(0) <== エラー