【税金】税金を割引価格で払いたい!~nanaco~その2【登録自動化】
税金を割引価格で払う方法、今回はクーポンコードの一覧作成です。
前回のおさらい
paypayで割引価格で支払うことのできない地方税の支払いにJ’sコンシェルで購入可能なnanacoギフトカード(2%オフ)を用いることにしました。
しかしながら、nanacoギフトカードは1枚1000円分であり、例えば10万円分のギフトカードを登録するのに100回登録作業が発生します。
その作業はあまりに煩雑であるため、
- J'sコンシェル -->マイページでデジタルクーポンコード一覧を表示
- 各クーポンを開き、PC用URL付ギフトID、を取り込み
- PC用URL付ギフトID、をインターネットエクスプローラーに張り付けページ表示
- nanacoギフトのページから、自分のアカウントにログイン
- nanacoギフト登録をクリック
- 「ご利用約款に同意の上、登録」をクリック
- 「確認画面へ」をクリック
といった流れで自動化することにいたしました。
(あまりスマートな方法ではありませんがどなたかのお役に立てれば幸いです。)
今回は2.各クーポンを開き、PC用URL付ギフトID、を取り込み、について書いていこうと思います。
HiMacroEx, VB6.0ランタイムのインストール
まず、1は手動で開き、2は「HiMacroEx」というマウス操作の記録ソフトを使用することにします。
https://www.vector.co.jp/soft/winnt/util/se427963.html
「HiMacroEx」はVB6.0ランタイムも必要なため、以下のwebページから「XTRM Runtime」インストールしています。
https://forest.watch.impress.co.jp/library/software/xtrmruntime/
尚、「XTRM Runtime」はwindows10には対応しておりませんが今のところ問題なく動いています(私の環境はwindows10)。
HiMacrExで行う操作
操作は極めて単純です。
Jsコンシェルのウィンドウで、クーポンを開いて、全選択、コピー。その後、エクセルを選択してペーストします。
HiMacroExのマクロの編集
HiMacroExは通常のマウス操作記録ソフトのように、実際に操作して記録する機能、さらに記録したコードを編集する機能があります。
こちらで先ほど決めた操作
- クーポンを開く
- 全選択、全コピー
- エクセルに張り付け
をコード化しました。
ウィンドウの位置などは機種依存しますので各環境に合わせて参考にしていただければと思います。
<r 20> '20回繰り返します。
LMouse Down (213,170) 'Jsコンシェルで左クリックしてクーポンを開きます。
LMouse Up (213,170)2000 'クーポンが開くまで2000ms待ちます
LMouse Down (341,175) 'クーポンが開かれたウィンドウをアクティブにします。
LMouse Up (341,175)
LCtrl Down 'ctrl+Aで全選択します。
A
LCtrl Up
LCtrl Down 'ctrl+Cでコピーします。
C
LCtrl Up'ここからエクセル
LMouse Down (710,230) 'エクセルをアクティブにします。
LMouse Up (710,230)1000
LMouse Down (710,230) '張り付けるセルをアクティブにします。
LMouse Up (710,230)
LCtrl Down 'ctrl+Vで貼り付けます。
V
LCtrl Up1000 '張り付けに少し時間がかかるので1000ms待ちます。
LMouse Down (1199,253) 'エクセルをアクティブにします。
LMouse Up (1199,253)
LMouse Down (1199,253) '右のほうのセルをクリックして→を入力することによりエクセルシートをスクロールさせます。
LMouse Up (1199,253)
→'左に戻る
LMouse Down (593,199) 'クーポンウィンドウに戻ります。
LMouse Up (593,199)
LCtrl Down 'ctrl+wでタブを閉じます。
W
LCtrl Up2000 '少し待ちます。
LMouse Down (51,392) 'Jsコンシェルウィンドウをアクティブにします。
LMouse Up (51,392)2000
Wheel -130 'マウスホイールを使ってスクロースします。(一番上に未登録のクーポンが来るようにします。)
1000
</r>