satocchiaブログ

IEの履歴を個別に消す

しろまささん開設の掲示板に投稿したものと同じです。if get_UWSC_Name="deleteHistory.uws"　　ie　　=createoleobj( "internetexplorer.application" )　　ie.navigate("https://www.yahoo.co.jp")　　ie.visible　　=true　　msgbox( "ヤフーのページが表示されたらOKを押してください" )　　msgbox( "履歴を開いて「今日」のヤフーを確認してください" )　　msgbox( "ヤフーの履歴をUWSCで消します" )　　deleteHistorySite( "yahoo","今日" )　　msgbox( "履歴を開いて「今日」の履歴にないことを確認してください" )　　msgbox( "「今日」の履歴を丸ごとUWSCで消します" )　　deleteHistoryDate( "今日" )　　msgbox( "履歴を開いて「今日」の履歴が空（もしくは新規タブページのみ）になっていることを確認してください" )endiffunction　　deleteHistoryDate( DateString )　　thread pressYes()　　with createoleobj( "shell.application" )　　　　historyRoot=.namespace(34).items　　　　found　　=false　　　　for DatedHistory in historyRoot　　　　　　if DatedHistory.isfolder and (DatedHistory.name = DateString)　　　　　　　　found　　=true　　　　　　　　break　　　　　　endif　　　　next　　　　if !found　　　　　　result=""　　　　　　exit　　　　endif　　　　DatedHistory.invokeverb( "delete" )　　endwith　　//dialogid　　=getid()fendfunction　　deleteHistorySite( SiteString,DateString="今日" )　　thread pressYes()　　with createoleobj( "shell.application" )　　　　historyRoot=.namespace(34).items　　　　found　　=false　　　　for DatedHistory in historyRoot　　　　　　if DatedHistory.isfolder and (DatedHistory.name = DateString)　　　　　　　　found　　=true　　　　　　　　break　　　　　　endif　　　　next　　　　if !found　　　　　　result=""　　　　　　exit　　　　endif　　　　websites　　=DatedHistory.GetFolder.Items()　　　　found　　=false　　　　for website in websites　　　　　　if pos( SiteString, website.name )　　　　　　　　website.invokeverb( "delete" )　　　　　　endif　　　　next　　endwith　　//dialogid　　=getid()fendprocedure　　pressYes()　　while 1　　　　found　　=false　　　　for id in getallwin()　　　　　　if 　　status( id, st_title )="警告" and _　　　　　　　　status( id, st_class )="#32770"　　　　　　　　text　　=getstr(id,0,STR_ACC_STATIC)　　// = "次の履歴の項目を削除しますか? 今日"　　　　　　　　if pos( "次の履歴の項目を削除しますか?", text )　　　　　　　　　　found　　=true　　　　　　　　　　break　　　　　　　　endif　　　　　　endif　　　　next　　　　sleep(0.05)　　　　if found　　　　　　clkitem(id,"はい",CLK_BTN)　　　　　　exit　　　　endif　　wendfend