« 【株】 2009/02/27(金) ±0 日経△110.49 | トップページ | 【株】 2009/03/02(月) ±0 日経▲288.27 »

【Excel VBA備忘ログ】2009/2/28 ブログ村へトラックバックを送る

自動投稿プログラム「とーこちゃん」で使用中のブログ村へトラックバックを

送る方法をちょっと修正。

準備:トラコミュのトラックバッグ画面URLは予め用意(トラックバックするボタンが並んでいる画面)

1.トラックバック画面を開く

 objIE.navigate (URL)

2.TRタグの中から「直接トラックバックする」と書かれた箇所を検索

 bufはString型、zとfind_posはInteger型

 z = 0 : find_pos = -1

 For Each objA In objIE.document.Body.all.tags("TR")
   buf = Mid(objA.outerHTML, 1, 1024)
   If InStr(1, buf, "直接トラックバックする", vbTextCompare) <> 0 Then
     If InStr(1, objA.innerText, Worksheets("メイン").Cells(1, "A"), vbTextCompare) <> 0 Then
       find_pos = z
     Else
       Exit For
     End If
     z = z + 1
   End If
 Next

2.トラックバックボタンを押す

 最初に見つかったボタン(最も直近の日付)だけを押す。

 If z > 0 And find_pos <> -1 Then
   If z = 1 Then
     objIE.document.all.button1(6).Click
   Else
     objIE.document.all.button1(find_pos).Click

   End If
End If

URLをリスト化しておき、Navigateに順次渡せば複数のトラコミュへ

一度にトラックバックを送信できる(但し、送れるトラコミュは1日に10個まで)

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

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

« 【株】 2009/02/27(金) ±0 日経△110.49 | トップページ | 【株】 2009/03/02(月) ±0 日経▲288.27 »

Excel」カテゴリの記事

コメント

コメントを書く

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

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

トラックバック

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

この記事へのトラックバック一覧です: 【Excel VBA備忘ログ】2009/2/28 ブログ村へトラックバックを送る:

« 【株】 2009/02/27(金) ±0 日経△110.49 | トップページ | 【株】 2009/03/02(月) ±0 日経▲288.27 »

amazon

マイリスト

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