レオパレスについて考える

ご存じ日本の大手不動産会社レオパレス21。2018年の界壁施工不備問題に始まり、旧村上ファンドやソフトバンク等話題に事欠きません。その株価を中心にいろいろと考えてみました。(土日はあまり更新できないかもしれません)

【税金】税金を割引価格で払いたい!~nanaco~その2【登録自動化】

f:id:reopajigsaw:20200518182600p:plain

税金を割引価格で払う方法、今回はクーポンコードの一覧作成です。

 

 

 

前回のおさらい

paypayで割引価格で支払うことのできない地方税の支払いにJ’sコンシェルで購入可能なnanacoギフトカード(2%オフ)を用いることにしました。

 

しかしながら、nanacoギフトカードは1枚1000円分であり、例えば10万円分のギフトカードを登録するのに100回登録作業が発生します。

 

その作業はあまりに煩雑であるため、

  1. J'sコンシェル -->マイページでデジタルクーポンコード一覧を表示
  2. 各クーポンを開き、PC用URL付ギフトID、を取り込み
  3. PC用URL付ギフトID、をインターネットエクスプローラーに張り付けページ表示
  4. nanacoギフトのページから、自分のアカウントにログイン
  5. nanacoギフト登録をクリック
  6. 「ご利用約款に同意の上、登録」をクリック
  7. 「確認画面へ」をクリック

といった流れで自動化することにいたしました。

(あまりスマートな方法ではありませんがどなたかのお役に立てれば幸いです。)

 

今回は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コンシェルのウィンドウで、クーポンを開いて、全選択、コピー。その後、エクセルを選択してペーストします。

 

f:id:reopajigsaw:20200521175238p:plain

f:id:reopajigsaw:20200521175308p:plain

 

HiMacroExのマクロの編集

HiMacroExは通常のマウス操作記録ソフトのように、実際に操作して記録する機能、さらに記録したコードを編集する機能があります。

こちらで先ほど決めた操作

  1. クーポンを開く
  2. 全選択、全コピー
  3. エクセルに張り付け 

をコード化しました。

ウィンドウの位置などは機種依存しますので各環境に合わせて参考にしていただければと思います。

 

<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 Up

1000  '張り付けに少し時間がかかるので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 Up

2000  '少し待ちます。

LMouse Down (51,392)  'Jsコンシェルウィンドウをアクティブにします。
LMouse Up (51,392)

2000

Wheel -130 'マウスホイールを使ってスクロースします。(一番上に未登録のクーポンが来るようにします。)

1000

</r>

 

本ブログは、有価証券報告書・半期報告書・大量保有報告書等で公開された情報を元に作成されています。本ブログに掲載されている情報は、証券投資等の勧誘を意図するものではありません。また本ブログに掲載する情報の正確性については万全を期しておりますが、当サイトの利用に伴って利用者に発生した不利益や問題について、何ら責任を負うものではありません。本ブログは証券取引法・金商品取引法に基き金融庁EDINETや公式webサイトを経由して開示された有価証券報告書・半期報告書・大量保有報告書・変更報告書を引用しておりますが、各書類の訂正、追加、削除、欠落、消滅、誤記、出典となるホームページにおける記載との差異などにより、利用者が被ったとされるいかなる損害についても一切の責任を負いません。