自動ログインのVBAを作りたいのですが・・・ 削除
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で書かれているようで、@のような指定はできないのかもとも考えています。 アドバイスをいただければうれしいです。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。