« 【株】 2009/07/18 潮時か(ひとりごと) | トップページ | 【株】 21/07/21(火) -3599 日経△256.7 »

【Excel VBA備忘ログ】2009/8/25 ココログめ~

ココログがしょっちゅうログインを求めてくるようになったので

その対策で自動ログインしてみる。

①変数宣言

 objIE As Object

 tags As String

②ログイン後に表示されるべきURLを指定してobjIEを生成しておく

 ex. objIE.navigate ("https://app.f.cocolog-nifty.com/t/app/weblog/post?blog_id=xxxxx")

③ソースからTRタグのみ抽出しておく

④抽出した全TRタグから"@niftyユーザー名/ID"文字列を探す(例ではtagsにコピー)

 ex.  If InStr(1, tags, "@niftyユーザー名/ID", vbTextCompare) <> 0 Then

⑤見つかった場合は以下を実行

 objIE.document.forms(0).Item("username").value = "ユーザーID"
 objIE.document.forms(0).Item("password").value = "パスワード"
 objIE.document.forms(0).Item("remember").Checked = True
 objIE.document.forms(0).Item("loginbtn").Click

にほんブログ村 株ブログ 株日記へ にほんブログ村 株ブログへ にほんブログ村 小遣いブログへ

★★何でも見つかる!Yahoo!ショッピング★★

« 【株】 2009/07/18 潮時か(ひとりごと) | トップページ | 【株】 21/07/21(火) -3599 日経△256.7 »

Excel」カテゴリの記事

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/36872/30617715

この記事へのトラックバック一覧です: 【Excel VBA備忘ログ】2009/8/25 ココログめ~:

« 【株】 2009/07/18 潮時か(ひとりごと) | トップページ | 【株】 21/07/21(火) -3599 日経△256.7 »

amazon

マイリスト

  • 暮らしをおトクにかえていく|ポイントインカム
  • 暮らしをおトクにかえていく|ポイントインカム
  • フルーツメール
無料ブログはココログ