2018年06月06日 (水) | Edit |
以前の記事
「ScriptAutoRunnerでnanacoギフト登録を簡単に行う方法」
にて、nanacoギフトを簡単に登録する方法をご紹介いたしましたが、今回はこの方法よりもさらに自動化させた方法をご紹介したいと思います。

その方法とは
「VBScriptを用いて自動化させる方法」
です。VBScriptはWindowsPCであれば基本的には動作すると思いますので、特別なソフトは必要としませんので、誰でも手軽に使用することが出来るかと思います。

肝心のVBScriptについては、dett様のホームページにある
「VBScriptでnanacoギフト登録を自動化してみた」
にて作成されたVBScriptを活用しました。
※dett様、当ブログでこの記事のご紹介を快く受けていただき大変ありがとうございました。

今回は私自身がこのスクリプトを使用した際に気づいた注意点などについてご紹介させていただければと思います。
(1)inputText.txtの作成方法について
inputText.txtは登録用URL(PC)を1行ずつ記載するテキストファイルで、ここに記載したURLに対して登録を行います。
しかし、私がnanacoギフトを購入しているJ'sコンシェル経由でnanacoギフトを購入すると下記のようなメールでギフトIDが通知されます。
nanaco_urlscript00.jpg
このように、無駄な内容がURLの間に記載されているので、1行ずつURLだけをコピーしてinputText.txtを作るのは結構大変です。というわけで
「inputText.txtを作成するためのVBScriptを作成」
してみました。そのコードが以下になります。
' ここから
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

' 読み込みファイルの指定
Dim inputUrl
Set inputUrl = fso.OpenTextFile("inputUrl.txt", 1, False, 0)

' 書き出しファイルの指定
Dim outputFile
Set outputFile = fso.OpenTextFile("inputText.txt", 2, True)

Do Until inputUrl.AtEndOfStream
Dim strLine
strLine = inputUrl.ReadLine

Call selectUrl(strLine)

Loop

' ファイルを閉じる
inputUrl.Close
outputFile.Close

Sub selectUrl(strLine)

'URL判定
Dim find
find = InStr(strLine, "www.nanaco-net.jp")
If find = 0 Then 'URLなし'
'スキップ
Else 'URLあり'
'スペース削除
Dim Str
Str = Trim(replace(strLine," ",""))
outputFile.WriteLine Str
End If

End Sub
' ここまで
このコードをテキストエディタに貼り付けて、拡張子をvbsとして保存するとVBScriptの完成です。
読み込みファイルはJ'sコンシェルから送られてきたメールのURL部分を下記のようにそのまま貼り付けて、
「inputUrl.txt」
というファイル名でVBScriptがあるフォルダに保存します。
nanaco_urlscript01.jpg
読み込みファイルを作成したら、上記のVBScriptを実行すればinputText.txtが完成します。

(2)nanacoモバイルに登録したい場合
dett様のVBScriptはnanacoカードにチャージをするように作成されておりますので、nanacoモバイルにチャージをしたい場合はdett様のVBScriptを少し修正しないといけません。その修正箇所は下記の通りです。”00000000"の場所にはご自分のnanacoIDとパスワードを入力してください。
---------------------------------------------------------------------------------------------
' 2.「nanaco番号」と「カード記載の番号」を自動入力し、ログインボタンをクリック
' nanaco番号を入力
ie.Document.getElementById("nanacoNumber0201").Value = "0000000000000000"
WScript.Sleep 100

' カード記載の番号を入力
ie.Document.getElementById("cardNumberpass").Value = "0000000"
WScript.Sleep 100

' ログインボタンクリック
ie.Document.all("loginPass0201").Click
waitIE ie
WScript.Sleep 100
----------------------------------------------------------------------------------------------

私自身も
「自分が作成したScriptでinputText.txtを作成」
dett様のVBScriptでnanacoギフト登録」

によって、100個分のnanacoギフトがあっという間に登録できました。

10個くらいであれば以前紹介した方法でもそれほど手間ではなかったのですが、100個ともなるとこのスクリプトを用いた方が明らかに早くなりますので、VBScriptを活用することをオススメいたします。


ブログランキング・にほんブログ村へ にほんブログ村 その他生活ブログ 節約・節約術へ にほんブログ村 PC家電ブログへ
★ご協力お願いします★