- ベストアンサー
プログラム作成の勉強方法とは?
- プログラムの作り方を学びたい初心者のための勉強方法を紹介します。
- エクセルやCSVに入力された複数のIDやパスワードを使って特定のサイトに自動ログインするプログラムを作る方法を解説します。
- 簡単でパソコンへの負担を軽くするプログラム作りのコツをお伝えします。
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
プログラムが実行されると インタネットエクスプローラーが起動します。 >objIE.Navigate "・・・ の部分です。 GooIDとパスワードが入ります。 ログインボタンが押されます(クリック)。 手動で操作する手順をプログラムに記述したのですがね。
その他の回答 (2)
- hallo-2007
- ベストアンサー率41% (888/2115)
あらま~ >試してみたのですが、画面が全く変わらないので、成功しているのかがわかりません。 ですか? objIE.Navigate "https://login.mail.goo.ne.jp/id/authn/LoginStart … の部分がうまく張り付かないようですね。 マイページのサイトをIEで開いて、URLを貼り付けなおしてみてください。 >プログラムの勉強方法を教えて下さい。 とにかく、どの言語を勉強したいの決める必要があります。 エクセルのVBAはOfficeがインストールされていれば、だれでも使えます。 http://excelvba.pc-users.net/ などで勉強してみてください。 わからないことがあれば質問するとすぐに回答がつきます。 そのほかにVBSという方法もあります。これもWindowsがインストールされていれば すぐに使えます。 メモ帳を開いて Dim WshShell Dim objIE Dim x Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "https://login.mail.goo.ne.jp/id/authn/LoginStart?Site=oshiete.goo.ne.jp&Success=http%3A%2F%2Fc.oshiete.goo.ne.jp%2Fexternalauthentication%3Fjump_to%3Dhttps%253A%252F%252Fc.oshiete.goo.ne.jp%252Fmypage.php3" Do Until objIE.Busy = False WScript.sleep(250) Loop objIE.Document.getElementsByName("uname")(0).Value = "GooID" objIE.Document.getElementsByName("pass")(0).Value = "パスワード" objIE.Document.getElementsByName("Submit3")(0).Click Set objIE = Nothing を貼り付け、拡張子を.vbsという名前にして、デスクトップに保存してみてください。
- hallo-2007
- ベストアンサー率41% (888/2115)
一例です、エクセルのVBAを使ってこのサイトのマイページにログインする プログラムを作ってみました。 エクセルの新規ファイルを作成 A1セルに このサイト登録されている gooID B1セルに パスワードを入れていきます。 Alt+F11でVBエディターが起動しますので Sub ボタン1_Click() Dim WshShell Dim objIE Dim x 'IEオブジェクトを作成します Set objIE = CreateObject("InternetExplorer.Application") '(1)指定したURLを表示します objIE.Navigate "https://login.mail.goo.ne.jp/id/authn/LoginStart?Site=oshiete.goo.ne.jp&Success=http%3A%2F%2Fc.oshiete.goo.ne.jp%2Fexternalauthentication%3Fjump_to%3Dhttps%253A%252F%252Fc.oshiete.goo.ne.jp%252Fmypage.php3" 'ページの読み込みが終わるまでココでグルグル回る While objIE.ReadyState <> 4 Or objIE.Busy = True DoEvents Wend objIE.Document.getElementsByName("uname")(0).Value = Range("A1").Value objIE.Document.getElementsByName("pass")(0).Value = Range("B1").Value objIE.Document.getElementsByName("Submit3")(0).Click Set objIE = Nothing End Sub を貼り付けて閉じます。 Alt+F8で作成したマクロを選択して実行してみてください。
お礼
お礼が遅くなりまして、申し訳ございません。 マクロの情報ありがとうございました。 試してみたのですが、画面が全く変わらないので、成功しているのかがわかりません。 マクロで使えそうなのが、分かりましたので、いろいろ勉強してみます。 ありがとうございました。
お礼
う~ん、URLを表示してやっても、両方共何の表示もされないです。 やり方がおかしいのか、それとも表示されないのが正常なのか?わからないです・・・ やっぱりど素人が何もわからない状態でやるのは厳しそうなので、超基礎的なところから勉強してみます。 ありがとうございました。