最初に接続するときに、ブラウザを立ち上げて、ID、パスワードを入力をする必要があり、面倒です。
何か良い、方法は無いでしょうか?
(NTT Communicationsの自動接続ツール以外の方法で)
OS:Snow Leopard、Window Vistaの場合について、ご教授頂ければ幸いです
自動ログインスクリプトはどうですか?
以下のコードをメモ帳などのテキストエディタにコピーし、
拡張子.vbs で保存します。(例)Autologin.vbs
このVBSスクリプトをスタートアップフォルダに入れておけば
PC起動時にNTT CommunicationsのHOT SPOTに接続できます。
以下のURLにファイルを置いておきます。
http://cid-df56e5e5c62da2d4.office.live.com/self.aspx/%e5%85%ac%...
尚、
MemID = "LoginID" の行は実際ログインするIDに""内を書き換えて下さい。
UsrPass = "password" の行は実際のパスワードに""内を書き換えて下さい。
Option Explicit
Dim MemID, UsrPass, objIE
'オブジェクトの作成
Set objIE = CreateObject("InternetExplorer.Application")
'あなたのLoginIDとパスワードを入力してください。
MemID = "LoginID"
UsrPass = "password"
With objIE
.Visible = True
'URL
.Navigate "https://secure.hotspot.ne.jp/member/navi?CID=NCHICS0120&DESTINAT..."
'メニューバーを表示するかどうか。
.MenuBar = True
'ツールバーを表示するかどうか。
.Toolbar = 0
'画面の幅を指定します。
.Width = 800
'画面の高さを調節します。
.Height = 640
'画面が表示しきるまで待ちます。
While .Busy Or .ReadyState <> 4
Wend
'ID とパスワードを入力します。
.document.all.Item("VIRTUAL_MEMBER_ID").Value = MemID
.document.all.Item("PASSWORD").Value = UsrPass
'ボタンを押します。
.document.forms(0).submit
End With
Set objIE = Nothing
http://www.woodensoldier.info/soft/idm.htm
ID Manager
これなんかはいかがですか?
一部、対応しないサイトもありますが、ワンタッチでIDやパスを入力できます。
ごめんなさい、パスワード管理ツールを使用する以外の方法が知りたかったです。
ご回答ありがとうございます。
ごめんなさい、パスワード管理ツールを使用する以外の方法が知りたかったです。
ご回答ありがとうございます。
自動ログインスクリプトはどうですか?
以下のコードをメモ帳などのテキストエディタにコピーし、
拡張子.vbs で保存します。(例)Autologin.vbs
このVBSスクリプトをスタートアップフォルダに入れておけば
PC起動時にNTT CommunicationsのHOT SPOTに接続できます。
以下のURLにファイルを置いておきます。
http://cid-df56e5e5c62da2d4.office.live.com/self.aspx/%e5%85%ac%...
尚、
MemID = "LoginID" の行は実際ログインするIDに""内を書き換えて下さい。
UsrPass = "password" の行は実際のパスワードに""内を書き換えて下さい。
Option Explicit
Dim MemID, UsrPass, objIE
'オブジェクトの作成
Set objIE = CreateObject("InternetExplorer.Application")
'あなたのLoginIDとパスワードを入力してください。
MemID = "LoginID"
UsrPass = "password"
With objIE
.Visible = True
'URL
.Navigate "https://secure.hotspot.ne.jp/member/navi?CID=NCHICS0120&DESTINAT..."
'メニューバーを表示するかどうか。
.MenuBar = True
'ツールバーを表示するかどうか。
.Toolbar = 0
'画面の幅を指定します。
.Width = 800
'画面の高さを調節します。
.Height = 640
'画面が表示しきるまで待ちます。
While .Busy Or .ReadyState <> 4
Wend
'ID とパスワードを入力します。
.document.all.Item("VIRTUAL_MEMBER_ID").Value = MemID
.document.all.Item("PASSWORD").Value = UsrPass
'ボタンを押します。
.document.forms(0).submit
End With
Set objIE = Nothing
すばらしい方法です!ありがとうございます。
すばらしい方法です!ありがとうございます。