PR
キーワードサーチ
▼キーワード検索
カレンダー
コメント新着
2018.10.28
カテゴリ： UWSC
しろまささん開設の掲示板に投稿したものと同じです。
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( "履歴を開いて「今日」の履歴が空（もしくは新規タブページのみ）になっていることを確認してください" )
endif
function 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()
fend
function 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()
fend
procedure 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
wend
fend
お気に入りの記事を「いいね！」で応援しよう
[UWSC] カテゴリの最新記事
-
デバッグ中かどうか自動判定 2020.12.19
-
UWSCダイアログのタイトル変更 2020.11.25
-
XMLでなんちゃってDB 2019.12.23
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
