InternetExplorerとVBScriptでWebページに自動ログインする

元の記事で記載していたVBScriptはいつからか少なくともWindows7端末では動作しなくなっていたので新たにリクエストもあり、WEBサイトに半自動ログイン出来るスクリプトを書きました。

9 Comments

なかもと ひさし

こんにちは。
感謝、感激です。快適になりました。
試行錯誤の結果、
デスクトップ上のファイル実行で成功しました。
ありがとうございました。

pnpk

なかもと ひさしさん
過去のサンプルは動作しなかったので削除して、新しくリクエストのサンプルコードを登録しておきました。
Windows7で動作確認していますが、おそらくWindows10でも動作すると思います。

ちょっと微妙ですが、クリックする対象を探すのにボタンに貼り付けられている画像名で検索して、その要素をクリックするようにしてあります。
今後、ファイル名が変更になったりすると動作しなくなりますので、その時は適宜変更してみてください。

スクリプトはもしかするとコメント欄には貼り付けられない制限あるかもしれません。

最近はIT関係の事をほとんど記載しないブログになっていますが、また遊びに来てくださいね。

なかもと ひさし

重複しているコメントが見つかりました。同じコメントをすでに投稿しているようです。

« 戻る
(涙)

なかもと ひさし

失礼しました。
5行目以降が、記載できません (涙)

なかもと ひさし

Set objShell = WScript.CreateObject(“WScript.Shell”)
objShell.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor”,100000,”REG_DWORD”
Set objIE = CreateObject(“InternetExplorer.Application”)

なかもと ひさし

VBSファイルの書き込みができない。
20行制限かなとも思ったりしたが、
この書き込みはOK

なかもと ひさし

>pnpkさん
こんにちは。
今朝レスついてたので、びっくりです。
気長に待ちます。
Windows10で記載されているURLへのアクセスは出来てます。
ログイン(ボタン押し)が出来ないのです。
ID・パスワードの自動入力、自動ログインにまでたどりつけないでいます。
pnpkさんのメイン環境が今Windowsでは無いのでパッと修正出来ないとのことが気になるところです。
失礼しました、環境、やりたいこと、読み返してみて、反省しました。
よろしくお願いいたします。

pnpk

>なかもと ひさしさん
こんにちは。
10年以上前に書いた内容なので現在利用出来るのかなと思ったら、自分のサンプルスクリプトすら動かないですね。
お使いの環境はWindows10でしょうか。
また、やりたい事は記載されているURLへのアクセスと、ID・パスワードの自動入力、自動ログインという事でよいでしょうか。
自分のメイン環境が今Windowsでは無いのでパッと修正出来ないのですが、気長にお待ちいただけるなら内容確認してみようかとおもいます。

よろしくお願いします。

なかもと ひさし

こんにちは。
悪戦苦闘しております。
助けてください。
https://e-learning.energia.co.jp/inavi/service
ここのサイトに飛んで行って、エラーとなっています。

以下いろいろなサイトを参考にしながらなのですが (笑)
ログイン
ユーザID
パスワード
START
objIE.Document.forms(0).login.Submit() ←ここでエラー
‘objIE.Document.f1.UserID.value = “契約番号”
‘objIE.Document.f1.SoftKeyMode.checked = False
‘objIE.Document.f1.pass.value = “パスワード”
‘objIE.Document.f1.logon.Click

Set WSHShell = WScript.CreateObject(“WScript.Shell”)
WSHShell.AppActivate “Explorer”

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です