MSリワード、自分用w。
直接https://www.bing.com/news?q={対象}と出来れば良かったんだけど
うまくポイントにならないようで、力業で。
#Bing自動検索
#https://blog-bootcamp.jp/related-keyword/
「.\related_keyword.csv」を開いてSJIS変換
#「.\*.csv」で「.csv」のファイル選択。それを開いてSJIS変換
I=0
それを配列シャッフルしてワドに代入
ワドを反復
「"C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe" "https://www.bing.com/news?q=%E3%83%8B%E3%83%A5%E3%83%BC%E3%82%B9&form=ml11z9&crea=ml11z9&wt.mc_id=ml11z9&rnoreward=1&rnoreward=1"」を起動
対象をコピー
2秒待つ
266,115へマウス移動
マウスクリック
1秒待つ
266,115へマウス移動
マウスクリック
1秒待つ
『^a』をキー送信
1秒待つ
『^v』をキー送信
0.5秒待つ
『{ENTER}』をキー送信
2秒待つ
I=I+1
『%{F4}』をキー送信
1秒待つ
母艦=「{I}回目 {クリップボード}」
もし I>34ならば「終了します。」と言う。終了
終了