楽天ブログのトラックバックを一括削除、WSHとHTMLのGUI活用例

楽天ブログのトラックバックを一括削除、WSHとHTMLのGUI活用例

一括削除のボタンはあるのだが、こいつが効かない
個別削除を繰り返すvbsを作りました
xxx.vbsの名前でファイルを作りソースをテキストエディタなどで以下をコピー
そのファイルのダブルクリックで一括削除できます
トラックバック一覧が複数ページになる場合は想定していません
そのうち複数もできるようにします
こちらは表示中のIEの画面を操作するためのVBのソースを生成の適用例です。若干WSH用に修正してます。指定内容を変えたいときは操作コードを出力して、下記のソースを修正してください
■Windows/XP,IE6で動作確認済み
■使いかた
1.拡張子.vbsで適当なファイルを作成する
2.このvbsファイルをエディタで開く
3.下記ソーズをコピー、上記で開いた.vbsのファイルに貼り付ける
4.保存・終了する
5.このvbsファイルを実行（ダブルクリック）
6.トラックバックの削除が開始されます

■ソース

Dim objIE0
Dim objIE1
Dim s
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
 If TypeName(Window.Document) = "HTMLDocument" Then
  if Window.Document.url="https://my.plaza.rakuten.co.jp/index.phtml?func=diary&act=trackback" then
   Set objIE0 = Window '対象URLが表示→その画面を使う
   win_s=true
   exit for
  end if
 end if
next
if win_s=false then '対象URLが非表示→新しく画面を開く
 Set objIE0 = CreateObject("InternetExplorer.Application")
 objIE0.Visible = True
 objIE0.Navigate "https://my.plaza.rakuten.co.jp/index.phtml?func=diary&act=trackback"
 Do While objIE0.busy = True
 Loop
 Do While objIE0.document.readyState <> "complete"
 Loop
end if
Set objIEdel = CreateObject("InternetExplorer.Application")
objIEdel.Visible = True
for ii=0 to objIE0.document.links.Length - 1
 if instr(objIE0.document.links(ii).href,"sub_act=delete")>0 then
  objIEdel.Navigate objIE0.document.links(ii).href
  Do While objIEdel.busy = True
  Loop
  Do While objIEdel.document.readyState <> "complete"
  Loop
  objIEdel.document.all.tags("INPUT").item(0).Click 
  Do While objIEdel.busy = True
  Loop
  Do While objIEdel.document.readyState <> "complete"
  Loop
 end if
next
'For Each objTAG In objIE0.document.getElementsByTagName("INPUT")
' if instr(objTAG.name,"del_list") then
'  objTAG.click
' end if
'next
'objIE0.document.all.tags("INPUT").item(25).Click

■免責うんぬん
・本VBSによる使用者の損害どうのこうの補償は作成者は一切関知しません
　使用者の責においてご利用ください
質問・要望はこちらからその他WSH,EXCEL VBAの活用例紹介しています

こちらのオークションでプログラミングの書籍を出品してます