wshを用いてホームページのリンク先(ログイン先)に行く方法がわかりません

このQ&Aのポイント
  • wshを用いてホームページのリンク先(ログイン先)に行く方法がわかりません
  • ホームページのリンク先に行く方法がわかりません
  • 図書館の自動ログインソースを作りたいが、ログイン画面に入れないのでソースを教えてほしい。
回答を見る
  • ベストアンサー

wshを用いてホームページのリンク先(ログイン先)に行く方法がわかりません

wshを用いて ホームページのリンク先に行く方法がわかりません 図書館の自動ログインソースを作りたいのですが 図書館のトップhttps://www.lib.city.hino.tokyo.jp/licsxp-opac/WOpacMnuTopInitAction.do?hash= には行けたのですが その先のログイン画面には入れません var IE = WScript.CreateObject("InternetExplorer.Application"); IE.Visible = true; IE.Navigate("https://www.lib.city.hino.tokyo.jp/licsxp-opac/WOpacMnuTopInitAction.do?hash="); IE.Navigate("https://www.lib.city.hino.tokyo.jp/licsxp-opac/OpacInitLoginAction.do?subSystemFlag=0"); のようなソースを作ったのですが、エラーが出てしまいます。 ホームのソースに「<a href='#' onclick ="javascript:login()" tabindex="123" >」という文があり そこがポイントだと思うのですがわかりません。 ログインする方法・ソースを教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • yambejp
  • ベストアンサー率51% (3827/7415)
回答No.1

この手の仕組みはよく使いますね。(なにせめんどくさがりやなもんで) ログインの手順を追いかければよいでしょう。 ページが表示されるまえに次の処理にはいれないので、 ページの読み込み中にスリープをいれなくてはなりません。 login.vbs 'ここから '以下の3行をかきかえれば各個人用になります。 USER="test-user" PASSWD="test-pass" URL="h"+"ttps://w"+"ww.lib.city.hino.tokyo.jp/licsxp-opac/OpacInitLoginAction.do?subSystemFlag=0" '掲示板の関係で、URL表示制限があるのでわけてあります。 'もちろんつないでかいても動きます。 Set WSHShell=Wscript.CreateObject("Wscript.Shell") set oIE=Wscript.CreateObject("InternetExplorer.application") oIE.navigate2(URL) oIE.visible=true Do Until oIE.Busy = False WScript.sleep(250) Loop set f=oIE.document.forms(0) if(f IS Nothing) then msgbox ("エラーです") oIE.quit() exit sub end if f.username.value=USER f.j_password.value=PASSWD WshShell.SendKeys "{ENTER}{ENTER}" 'ここまで ログイン後になにか処理があるならつづけてかいていけば オートパイロットになります。

pccampus00
質問者

お礼

ありがとうございます。 自己解決しました

pccampus00
質問者

補足

回答ありがとうございました。 すみません、質問の方法が悪かったです。 URLを指定してもそのページに飛ばす、ホームのページに行ってしまうのでホームからログイン画面があるページに入ろうかと考えたのです。 しかし、ホームからログインがあるページに移動する方法が分からないのですがわかりますでしょうか?

関連するQ&A

  • 図書館のホームページの詳細検索で

    さいたま市図書館のホームページの詳細検索(https://www2.lib.city.saitama.jp/licsxp-opac/WOpacTifSchCmpdDispAction.do)で、以前はiPhonのSafariから検索できたのに、今はページを開いて最初の1回だけ検索できますが、2回目以降は検索ボタンが反応しなくて検索できません。 何か設定でうまくいくのでしょうか? (ちなみにiPhon5を使っています。)

  • mixi vbaでログインしたい

    こんばんは。教えてください。 mixiへ自動ログインするコードを書いているのですが ソースを見ても、”ログインボタンを押す”がわかりません。 ソースの一部は ***************************************************************** <form action="/login.pl" method="post" name="login_form"> <input type="hidden" value="/home.pl" name="next_url" /> <ul class="loginForm"> <li class="inputForm">ログインメールアドレス<br /> <input tabindex="1" size="30" name="email" /></li> <li class="inputForm">パスワード<br /> <input tabindex="2" type="password" name="password" /></li> <li class="autoLogin"><input tabindex="3" type="checkbox" name="sticky" id="auto" /><label for="auto">次回から自動的にログイン</label></li> </ul> <p class="pwReminder"><a href="http://mixi.jp/remind_password.pl">※パスワードを忘れた方はこちら</a></p> <p class="loginButton"><input tabindex="4" type="image" alt="ログイン" src="http://img.mixi.jp/img/basic/logout/btn_login001.gif" /></p> <p class="sslLink01"><a href="https://mixi.jp/">SSL(https)はこちら</a></p> </form> ***************************************************************** です。 これを元に Sub ログイン_mixi() URL = "http://mixi.jp/home.pl" Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate URL objIE.document.Forms(0).item("email").Value = "○○○○○○" objIE.document.Forms(0).item("password").Value = "○○○○" objIE.document.all.sticky.Click End Sub まで出来たのですが、最後のログインボタンをクリックする方法がわかりません。 ログイン以外は、nameの部分を抜き取ればうまく行ったのですが ログインだけはnameがないので、どうしていいのかわかりません。 ご教授よろしくお願い致します。

  • テキストボックスのクッキーを有効にしたい

    IE8を使ってますが、下記のログインページでカード番号を入力する際、クッキーが有効にならず、毎回手で番号を打っています。 https://www.lib.city.yokohama.jp/cgi-bin/Sww5slgi.sh 他のサイトでは普通にクッキーが有効なのに、なぜかこのサイトだけ無効になってしまいます。 図書館の人に聞いてもわからないという回答でした。 有効に設定する方法を教えてください。

  • ie操作 ログインボタンを押せないです

    こんばんは。いつもお世話になっております。 ie操作でうまく行かないので教えてください。 イトーヨーカドーのサイトにログインしたいのですがログインボタンが押下できません。 Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://www.iy-net.jp/" Do While objIE.Busy = True DoEvents Loop objIE.Document.all("userId").Value = ID objIE.Document.all("password").Value = PW objIE.Document.forms(0).submit Set objIE = Nothing End Sub --------------------------------------------------------- だと、 「ハイフンを除く7ケタを半角数字でご入力ください」になってしまいます。 ログインボタンが押せてないのかもしれないけど、よくわかりません。 --------------------------------------------------------- Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://www.iy-net.jp/" Do While objIE.Busy = True DoEvents Loop objIE.Document.all("userId").Value = ID objIE.Document.all("password").Value = PW For i = 0 To objIE.Document.Links.Length - 1 If objIE.Document.Links(i).innerText = "ログイン" Then objIE.Document.Links(i).Click Exit For End If Next i Set objIE = Nothing End Sub --------------------------------------------------------- にすると、 https://www.iy-net.jp/nspc/logininput.do のURLが表示されて会員認証の画面になってしまいます。 だからって objIE.Navigate "https://www.iy-net.jp/" を https://www.iy-net.jp/nspc/logininput.do にして objIE.Document.forms(0).submit すると https://www.iy-net.jp/nspc/searchresult.do のページが表示されて 「再度 TOPページよりログインいただけますようお願い申し上げます。」 になってしまいます。 ログインする方法を教えていただけますか? ご教授よろしくお願いします。

  • WSHでのIE制御について

    現在、WSHにて、メニューバー、ステータスバー、ツールバー、アドレスバーの 無いIEのウインドウを開いています。ソースは以下の通りです。  Set objIE = WScript.CreateObject("InternetExplorer.Application")  objIE.Navigate("http://www.goo.ne.jp")  objIE.MenuBar = False  objIE.StatusBar = False  objIE.ToolBar = False  objIE.AddressBar = False  objIE.Visible = True  Set objIE = nothing  WScript.Quit これで、やりたい事は出来ているのですが、アドレスバーを非表示にした場合、 ウインドウタイトルが、 http://www.goo.ne.jp - goo Microsfot Internet ... と、ページのアドレスが表示されます。 アドレスバーを表示した場合には、 goo Microsfot Internet ... と、アドレスは表示されません。 ここで、質問なのですが、アドレスバーを非表示にしたままで、後者の様に、 タイトルバーにアドレスが表示されない様にする事は可能なのでしょうか?。 以上、よろしくお願いします。

  • 図書館 新宿区利用者カード と江東区の共通貸出カード

    私は東京都中野区在勤 千葉県市川市在住です 下記の URL を見る限りでは条件には当てはまらないのですが 新宿区と江東区の図書館の貸し出しカードを作りたいのですが何か方法はないでしょうか ? 新宿区 http://www.library.shinjuku.tokyo.jp/ 江東区 http://www.city.koto.lg.jp/ac/koto-lib/8629/8630.html 勤務先を変えるとか、住民票を移すなど、難易度の高くない方法でお願いします。 よろしくお願いします。

  • エクセル excelVBA で 自動ログイン

    エクセルvba を使ったシステムトレードをしようと思い 初心者ながらVBAをいじっています. まずはじめにsbi証券に自動ログインをしようとする vbaを作ろうとおもい,インターネットを駆使して コードを書いてみましたが documentメソッドは失敗しましたというエラーがでてしまいます. 自分なりに色々と見返したりしたのですが どこが悪いのかいまいちわかりません. もしよろしければどこが悪いのか指摘していただけないでしょうか? よろしくお願いします. 以下ソース ******************************** Option Explicit Sub test() Dim ie As Object Dim strUserName, strPassword As String strUserName = Range("C5").Value strPassword = Range("C7").Value Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.Navigate "https://k.sbisec.co.jp/bsite/visitor/top.do" IE_Complete ie ' Do While ie.Busy = True '何もしないループ(笑) ' DoEvents ' Loop ie.Document.All.UserName.Value = strUserName 'ユーザー名 ie.Document.All.Password.Value = strPassword 'パスワード ie.Document.All.login.Click 'クリック End Sub Public Sub IE_Complete(ByVal ie As Object) 'IE読み込みが完了するまで待つ Do While ie.Busy = True DoEvents Loop Do While ie.Document.ReadyState <> "complete" DoEvents Loop End Sub

  • ログイン、パスワードをセットしておきたい。

    IEの決められたサイトをよびだし、ログイン、パスワードを自動で固定の文字をセットするVBスクリプトを作成したい。 画面は下記で出ることはわかったのですが宜しくお願いします。 (尚、ツール=>インターネットオプションは対象外です) Set oIE = CreateObject("InternetExplorer.Application") oIE.Visible = True oIE.Navigate "http://wwwX.XXXXXXXX.com/XXXX/" '*** ページがロードされるまで待つ Do While oIE.busy WScript.Sleep(1000) Loop

  • 図書館の検索画面

    http://www.library.city.hachioji.tokyo.jp/hachioji03.htm こちらの図書館(他の図書館でも)などの 蔵書検索画面で、 『一般件名』『個人件名』という検索キーがありますが この二つの意味はなんでしょうか?

  • IE11でゆうちょダイレクトのログインができません

    「http://www.jp-bank.japanpost.jp/」からログイン画面に進むと 「http://www.jp-bank.japanpost.jp/direct/pc/securi …」のところで下のほうに選択画面が出て 「direct.jp-bank.japanpost.jpからU010101SCK_doを開くか、または保存しますか?」とメッセージが出てきて 「ファイルを開く」 「保存」 「キャンセル」 というボタンがついています。 どれを押しても先に進めません。 IEは11でOSはwindows8.1です。 ゆうちょコールセンターに電話しましたが、同様の問い合わせがあるものの、原因がわからないといわれました。 ウィルスソフトを最新のものにしており、ウィルス検査しても問題ありません。 キャッシュとクッキーを削除してIEを再起動しても症状は変わりません。 IEを入れなおそうと思ってもwindows8.1はアンインストールできないようです。 ちなみにchromeで試したところ、「direct.jp-bank.japanpost.jpからU010101SCK_doを開くか、または保存しますか?」の表示も出ず、すんなり「お客さま番号」入力画面になります、¥。 どなたか同様の症状を克服された方はいらっしゃいませんでしょうか?

専門家に質問してみよう