ホームElectric Guitar InternetExplorerとVBScriptでWebページに自動ログインする 2007/3/4 日曜日2017/12/8 金曜日 元の記事で記載していたVBScriptはいつからか少なくともWindows7端末では動作しなくなっていたので新たにリクエストもあり、ＷＥＢサイトに半自動ログイン出来るスクリプトを書きました。 9 COMMENTS なかもと ひさし 2017/12/10 日曜日 こんにちは。 感謝、感激です。快適になりました。 試行錯誤の結果、 デスクトップ上のファイル実行で成功しました。 ありがとうございました。 pnpk 2017/12/8 金曜日 なかもと ひさしさん 過去のサンプルは動作しなかったので削除して、新しくリクエストのサンプルコードを登録しておきました。 Windows7で動作確認していますが、おそらくWindows10でも動作すると思います。 ちょっと微妙ですが、クリックする対象を探すのにボタンに貼り付けられている画像名で検索して、その要素をクリックするようにしてあります。 今後、ファイル名が変更になったりすると動作しなくなりますので、その時は適宜変更してみてください。 スクリプトはもしかするとコメント欄には貼り付けられない制限あるかもしれません。 最近はＩＴ関係の事をほとんど記載しないブログになっていますが、また遊びに来てくださいね。 なかもと ひさし 2017/12/4 月曜日 重複しているコメントが見つかりました。同じコメントをすでに投稿しているようです。 « 戻る （涙） なかもと ひさし 2017/12/4 月曜日 失礼しました。 ５行目以降が、記載できません （涙） なかもと ひさし 2017/12/4 月曜日 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”) なかもと ひさし 2017/12/4 月曜日 VBSファイルの書き込みができない。 ２０行制限かなとも思ったりしたが、 この書き込みはOK なかもと ひさし 2017/12/4 月曜日 ＞ｐｎｐｋさん こんにちは。 今朝レスついてたので、びっくりです。 気長に待ちます。 Windows10で記載されているＵＲＬへのアクセスは出来てます。 ログイン（ボタン押し）が出来ないのです。 ＩＤ・パスワードの自動入力、自動ログインにまでたどりつけないでいます。 ｐｎｐｋさんのメイン環境が今Windowsでは無いのでパッと修正出来ないとのことが気になるところです。 失礼しました、環境、やりたいこと、読み返してみて、反省しました。 よろしくお願いいたします。 pnpk 2017/12/4 月曜日 >なかもと ひさしさん こんにちは。 10年以上前に書いた内容なので現在利用出来るのかなと思ったら、自分のサンプルスクリプトすら動かないですね。 お使いの環境はWindows10でしょうか。 また、やりたい事は記載されているＵＲＬへのアクセスと、ＩＤ・パスワードの自動入力、自動ログインという事でよいでしょうか。 自分のメイン環境が今Windowsでは無いのでパッと修正出来ないのですが、気長にお待ちいただけるなら内容確認してみようかとおもいます。 よろしくお願いします。 なかもと ひさし 2017/12/3 日曜日 こんにちは。 悪戦苦闘しております。 助けてください。 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” コメントを残すメールアドレスが公開されることはありません。 ※ が付いている欄は必須項目ですコメント ※ 名前 ※ メール ※ サイト Δ
pnpk 2017/12/8 金曜日 なかもと ひさしさん 過去のサンプルは動作しなかったので削除して、新しくリクエストのサンプルコードを登録しておきました。 Windows7で動作確認していますが、おそらくWindows10でも動作すると思います。 ちょっと微妙ですが、クリックする対象を探すのにボタンに貼り付けられている画像名で検索して、その要素をクリックするようにしてあります。 今後、ファイル名が変更になったりすると動作しなくなりますので、その時は適宜変更してみてください。 スクリプトはもしかするとコメント欄には貼り付けられない制限あるかもしれません。 最近はＩＴ関係の事をほとんど記載しないブログになっていますが、また遊びに来てくださいね。
なかもと ひさし 2017/12/4 月曜日 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”)
なかもと ひさし 2017/12/4 月曜日 ＞ｐｎｐｋさん こんにちは。 今朝レスついてたので、びっくりです。 気長に待ちます。 Windows10で記載されているＵＲＬへのアクセスは出来てます。 ログイン（ボタン押し）が出来ないのです。 ＩＤ・パスワードの自動入力、自動ログインにまでたどりつけないでいます。 ｐｎｐｋさんのメイン環境が今Windowsでは無いのでパッと修正出来ないとのことが気になるところです。 失礼しました、環境、やりたいこと、読み返してみて、反省しました。 よろしくお願いいたします。
pnpk 2017/12/4 月曜日 >なかもと ひさしさん こんにちは。 10年以上前に書いた内容なので現在利用出来るのかなと思ったら、自分のサンプルスクリプトすら動かないですね。 お使いの環境はWindows10でしょうか。 また、やりたい事は記載されているＵＲＬへのアクセスと、ＩＤ・パスワードの自動入力、自動ログインという事でよいでしょうか。 自分のメイン環境が今Windowsでは無いのでパッと修正出来ないのですが、気長にお待ちいただけるなら内容確認してみようかとおもいます。 よろしくお願いします。
なかもと ひさし 2017/12/3 日曜日 こんにちは。 悪戦苦闘しております。 助けてください。 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”
こんにちは。
感謝、感激です。快適になりました。
試行錯誤の結果、
デスクトップ上のファイル実行で成功しました。
ありがとうございました。
なかもと ひさしさん
過去のサンプルは動作しなかったので削除して、新しくリクエストのサンプルコードを登録しておきました。
Windows7で動作確認していますが、おそらくWindows10でも動作すると思います。
ちょっと微妙ですが、クリックする対象を探すのにボタンに貼り付けられている画像名で検索して、その要素をクリックするようにしてあります。
今後、ファイル名が変更になったりすると動作しなくなりますので、その時は適宜変更してみてください。
スクリプトはもしかするとコメント欄には貼り付けられない制限あるかもしれません。
最近はＩＴ関係の事をほとんど記載しないブログになっていますが、また遊びに来てくださいね。
重複しているコメントが見つかりました。同じコメントをすでに投稿しているようです。
« 戻る
（涙）
失礼しました。
５行目以降が、記載できません （涙）
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ファイルの書き込みができない。
２０行制限かなとも思ったりしたが、
この書き込みはOK
＞ｐｎｐｋさん
こんにちは。
今朝レスついてたので、びっくりです。
気長に待ちます。
Windows10で記載されているＵＲＬへのアクセスは出来てます。
ログイン（ボタン押し）が出来ないのです。
ＩＤ・パスワードの自動入力、自動ログインにまでたどりつけないでいます。
ｐｎｐｋさんのメイン環境が今Windowsでは無いのでパッと修正出来ないとのことが気になるところです。
失礼しました、環境、やりたいこと、読み返してみて、反省しました。
よろしくお願いいたします。
>なかもと ひさしさん
こんにちは。
10年以上前に書いた内容なので現在利用出来るのかなと思ったら、自分のサンプルスクリプトすら動かないですね。
お使いの環境はWindows10でしょうか。
また、やりたい事は記載されているＵＲＬへのアクセスと、ＩＤ・パスワードの自動入力、自動ログインという事でよいでしょうか。
自分のメイン環境が今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”