【結果出力版】nanacoギフトの登録をマクロで自動化！手作業は非効率！登録結果も自動で出力する方法

みなさん大好きnanacoギフト。

私も税金の支払いなどに利用するため「ベネフィットステーション（J’sコンシェル）」や「福利厚生倶楽部」でnanacoギフトを購入することがあります。

このnanacoギフトの唯一にして最大の欠点が「自分のアカウントに登録する作業」です。
正攻法では1コードずつ登録しなきゃいけません…

しかし、この地獄の単純作業から開放される自動登録マクロが2018年にあるサイト様で公開されました。
ありがた〜く私も利用させて頂いています。

本ページではその自動登録マクロをちょっとだけ改造させて頂いて、普段私が利用している登録結果の出力をするマクロを紹介させて頂きます。

開発者様のサイト

マクロの開発者様はサイトはこちら。

いくつかファイルを作成したりパスを変更する必要はありますが、ほぼコピペだけでそのまま使えます。

vbsなのでコード内で何をやっているのかわかるので、パスワード等が流出する危険性がないのもありがたいですね。

これを利用することで、煩わしいnanacoギフト登録作業から解放されます。革命的です。

結果ファイルを作成するように改造

そのままでも十分便利なのですが、結果ファイルを出力するように変更してみました。

100個も200個もnanacoギフトを登録していると、私のポンコツWindeosPCだとたまにエラーが出て、登録されていないnanacoギフトコードが発生してしまいます。

登録するコードが多くなると、どのURLでエラーが発生したのかがわからず、しょうがないからもう１度すべて自動登録させるという悪循環…。

そこで、登録が完了したnanacoギフトのURLだけを、結果ファイルを別途作成して出力することにしてみました。

ソースコードはこちら。

※nanacoモバイル版です、nanacoカードをご使用の方は元サイト様をご参考にお願いします
※出力ファイルを作成するようにしています
※オブジェクトの破棄処理を追加しています
※私は低スペックPCで処理しているのでSleep時間（処理の待機時間）を長めに設定しています

Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dim inputFile
Set inputFile = fso.OpenTextFile("C:¥Users¥Desktop¥nanacoTest¥inputText.txt", 1, False, 0)
Dim retFile
Set retFile = fso.OpenTextFile("C:¥Users¥Desktop¥nanacoTest¥retText.txt", 8, True, 0)

Do Until inputFile.AtEndOfStream
  Dim registerUrl
  registerUrl = inputFile.ReadLine

Call use_ie(registerUrl)

Loop

inputFile.Close
retFile.Close

Set inputFile = Nothing
Set retFile = Nothing

Sub use_ie(registerUrl)

' １．登録用URL（PC）をIEで開く
    ' IE起動
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Navigate registerUrl
    ie.Visible = True
    waitIE ie

' ２．「nanaco番号」と「カード記載の番号」を自動入力し、ログインボタンをクリック
    ' nanaco番号を入力
    ie.Document.getElementById("nanacoNumber01").Value = "0000000000000000"
    WScript.Sleep 300
    
    ' カード記載の番号を入力
    ie.Document.getElementById("pass").Value = "0000000"
    WScript.Sleep 300
    
    ' ログインボタンクリック
    ie.Document.all("loginPass01").Click
    waitIE ie
     WScript.Sleep 300
    
 ' ３．会員メニューの「nanacoギフト登録」をクリック
For Each anchor In ie.document.getElementsByTagName("A")
If InStr(anchor.innerText, "nanacoギフト登録") > 0 Then
anchor.Click
Exit For
End If
Next
WScript.Sleep 3000
     
     
' ４．「ご利用約款に同意の上、登録」をクリック
For Each anchorss In ie.document.getElementsByTagName("input")
If InStr(anchorss.outerHtml, "/member/image/gift100/btn_400.gif") > 0 Then
anchorss.Click
Exit For
End If
Next
WScript.Sleep 3000
     
     
' ５．ギフトID登録フォームで「確認画面へ」ボタンをクリック。（ギフトIDは登録用URLをクリックしていれば自動入力）
    Set objShell = CreateObject("Shell.Application")
    Set objIE2 = objShell.Windows(objShell.Windows.Count - 1) '新しいウィンドウのオブジェクトを取得
    objIE2.Visible = True 'True：IEを表示 , False：IEを非表示
     WScript.Sleep 100
For Each anchorss In objIE2.document.getElementsByTagName("input")
If InStr(anchorss.outerHtml, "submit-button") > 0 Then
anchorss.Click
Exit For
End If
Next
WScript.Sleep 8000


' ６．最後に登録を押して、IEの画面を閉じる
  ' ギフトID登録内容確認画面で「登録する」ボタンを押す 
For Each anchorss In objIE2.document.getElementsByTagName("input")
If InStr(anchorss.outerHtml, "登録する") > 0 Then
anchorss.Click

' 結果ファイルに書き込み
retFile.WriteLine registerUrl

Exit For
End If
Next

WScript.Sleep 8000

' 制御を破棄
    ie.Quit
    Set ie = Nothing
    
    objIE2.Quit
    Set objIE2 = Nothing
    

End Sub

' IEがビジー状態の間待ちます
Sub waitIE(ie)
    
    Do While ie.Busy = True Or ie.readystate <> 4
        WScript.Sleep 100
    Loop
    
    WScript.Sleep 5000
 
End Sub

もちろん大部分は開発者様のマクロのままです。

結果出力ファイルを作成することで追加したのは２箇所です。

初めのところにretFileなるものを定義しています。
これが結果ファイルになりますので、任意のパスに変更してください。

次にretFileに書き込む箇所はIEの終了処理後の赤枠部分。

あとは念のためオブジェクトを破棄するコードを追加。なくても全然いいんですけどね。

結果ファイルの使い方

作成された結果ファイル「retText.txt」がこちら。

これには登録が完了したnanacoギフトURLが溜まっています。

これを登録元ファイル「inputText.txt」と比べて、登録漏れがないかを確認します。
行数を見れば一目瞭然だと思うので、行数が一致していることを確認しましょう。

行数が違っていたらエラーが発生した可能性があります。

どのURLでエラーが発生したかは単純にテキストエディタ等で開いて見比べてもいいですし、Excelに貼り付けて比較してもいいですし、お好みで。

Excelを使う場合はこんな感じ。
適当に等式列を作成（=A1=G1等）して、FALSEになっている箇所が登録されたか怪しいURLです。

複数行エラーURLがある場合には、１行ずらして再度等式を貼り直して…FALSEを見つける、という作業を繰り返します。

そうして抽出した怪しいURLだけを「inputText.txt」に残して、再度マクロを実行しましょう。
これで登録漏れがなくなります。

最終チェックとして、後日nanacoギフトが想定の金額通りセンター預かりになっていることを確認しましょう。

ちょっとでもお得にしようとnanacoギフトを買っているのに、ギフトコードの登録ミスがあれば本末転倒ですからね。金額チェックは重要です。

センター預かりのnanacoマネーが多すぎると…

nanacoギフトをマクロで大量に登録できるようになるのは有難いのですが、センター預かりマネーが増えすぎるとある弊害が生じます。
それは「nanacoポイントが消費できない問題」です。

詳しくは別記事でまとめていますので、興味がある方は合わせてご確認頂ければと思います。

nanacoポイントとセンターお預かり優先。有効期限があるnanacoポイントを使い切る４つの方法。

セブンイレブンのハウスマネーである「nanaco」。金券類・POSAカード・税金など、セブンイレブン内では全てがnanacoで支払える万能の電子マネーです。私もnanacoモバイルを愛用しています。nanacoを利用するときに意識しなければいけないのが「nanacoマネー」と「nanacoポイント」の違いです。ただでさえ似たような名前なのに、nanacoポイントはちょっと厄介な仕...

money-hensachi.com

2020.08.02

おわりに

このマクロを利用してから、手作業でやっていたnanacoギフト登録作業から解放されて万々歳です。

1%〜2%のお得のために数十分も単純作業するのは苦行でしかありませんからね…。

ちなみに登録元ファイルである「inputText.txt」に書き込むようなURL形式にするには、私はテキストエディタによくある「キーマクロ」という機能を利用しています。

「キーマクロ」は汎用性が高く、覚えておくと仕事効率がググッと上がるため覚えて損はないです。
後日キーマクロの使い方を投稿する予定（覚えていたら…）です。

※2020/3/19 キーマクロについて記事を作成しました。

キーマクロが便利すぎる。使い方次第で作業効率が格段にアップ。nanacoギフトコードを整形してみる。

先日本ブログにて、ナナコギフトの登録はマクロで自動化しよう！という旨の記事を掲載させて頂きました。その記事がこちら。この記事の中で「ナナコギフトコードの整形にはキーマクロを使います」と書いていたのですが、読者様から「具体的にはどうやってやるの？」というリアクションを頂きました。読者様から何らかの反応があることは本当にありがたいです。ご要望にお答えするべく、キーマクロを...

money-hensachi.com

2020.03.19

本ページが誰かのお役に立てば幸いです。

関連記事：

すき家がメルペイとLINE Payのコード支払いに対応。PayPayに続きQRコード決済が充実。

2020年3月にすき家がQRコード決済サービスを拡充するというニュースが飛び込んできました。特にメルペイコード支払いに関しては、メルペイで開催している「メルペイフィーバー」に合わせての導入となります。LINE Payコード支払いは2020年3月1日〜すき家では今まで「LINE Payカード支払い（JCB）」またはLINE Payカードを登録した「クイックペイ支払い...

money-hensachi.com

2020.03.02

【LINE Pay編】ポイントと残高を使い切る・0円にするおすすめの方法４選。

2019年〜2020年にかけて、急スピードで浸透したQRコード決済。各社がシェアを獲得しようと、お得な還元キャンペーンを開催し世間を賑わせています。そんなQRコード決済サービスの特徴の１つとして、「チャージ」が挙げられます。本ページで取り上げるLINE Payを利用するときも「残高をチャージする」という行為ができるのですが、LINE Payを使わなくなったとき、チャージし...

money-hensachi.com

2020.02.27

メルカリでおすすめの支払い方法はd払い！クレジットカードよりお得な場合あり。

フリマアプリの代名詞、メルカリ。みなさん使っていますでしょうか？メルカリで商品を購入するときに少し迷うのが「支払い方法」です。チャージ払い、クレジットカード払い、ATM支払い…どれで払うのが正解なのか、ちょっと迷ってしまいますね。大半の人が手数料のかからない「クレジットカード払い」もしくは「メルペイ支払い（売上金やチャージも含む）」を利用していることと思います。で...

money-hensachi.com

2020.02.22