さらにお手軽です！楽天ウェブ検索を自動化して口数をためる方法

IE以外のブラウザに対応しました。

【IEから脱却のGoogle Chrome版】さらにお手軽です！楽天ウェブ検索を自動化して口数をためる方法

使いすぎると楽天からBAN？されるようです。「ご利用中の楽天IDは山分けにさんかできません」検索文字列はこまめに変更した方がよいかもしれません。ついにIEは楽天ウェブ検索から締め出されるようです。IE以外のブラウザで対応！とい...

ziend.net

2022.02.17

以前こんな記事を紹介しました。

お手軽です！楽天ウェブ検索をクリックだけで口数を30口ためる方法

ご存じですか？「楽天ウェブ検索」楽天で検索すると、なんと！検索数に応じて楽天ポイントがもらえます。ググっている暇があったら楽天ウェブで検索けんさく！な~んてことにはならず、相変わらずググってます。なんで楽天ウェブ検索使わ...

ziend.net

2018.04.19

楽天ウェブ検索でポイントためるのが、少しだけ楽できるかな？って感じでした。

私も記事の方法で、ちまちまと検索を続けているんですが、まぁまぁメンドクサイんですよ。
もっと楽したいな~と。

そこで思いついたのは「検索を自動でやる」です。
ちょっと制約があるのと、自動化スクリプトがちょっとメンドウですが・・・

これ、やってみたら予想より具合が良い！

ラーテル

ついにやるか！

ルートル

楽天から対策されそうで、ちょっと心配・・・

ちょいちょい楽天検索トップページが変わりやがる。
くそぅ(ﾟДﾟ)ﾉ

2019.12.15追記

しばらく放置していたら楽天ウェブ検索の仕様が変わってました。
うまく検索できなくなってるぅぅぅorz
自動スクリプト修正だ！！！
というわけで、スクリプトの22行、49行と52行を変更しました。

最近、Windows7→Windows10にしたけど、動作は無問題ですわん。

2020.4.26追記

またまた、楽天ウェブ検索のトップページ変わってやがる！！！！
（テラー様 お知らせありがとうございました）
スクリプトの20行と24行を変更しました。

2020.7.13追記

うぉ！また変わってる！
スクリプトの25行を変更しました。

2022.1.19追記　← NEW！

楽天ウェブ検索のトップページ変更に合わせて、スクリプトの26行を変更しました。

あと、エラーが出て検索がすすまないようでしたら、SLEEP(X.X)”の数値X.Xを大きくしてみてください。

PowerShell版も用意しました。ツール不要なら、お手軽です。

【みんな持ってるPowerShell版】さらにお手軽です！楽天ウェブ検索を自動化して口数をためる方法

使いすぎると楽天からBAN？されるようです。「ご利用中の楽天IDは山分けにさんかできません」検索文字列はこまめに変更した方がよいかもしれません。IE以外のブラウザに対応しました。2022年2月16日？以降、楽...

ziend.net

2022.01.31

最初に制約

まず先に制約を言っときますね。

OSはWindowsブラウザはInternet Explorer（以下IEとします）でないと使えません。

MacやAndroidは対象外です。
ごめんなさい。

ラーテル

Mac持ってねーし、スマホは電話でしか使ってねーしな！

検索を自動化するあらまし

自動化にはブラウザをコントロールする手続きと、手続きを実行するツールが必要です。

手続きを実行するツールには「UWSC」を使います。
「UWSC」はWindowsの操作を制御できる便利ツールです。
手続きは「UWSC」が実行できる形式のスクリプトを用意します。

VBScriptで楽天ウェブ検索を自動化している先駆者もいらっしゃいます。
ですが、VBScriptは今のIEはサポート外？なのでUWSCでいきます。

ラーテル

いきなり難易度たけー！

ルートル

思っているより簡単だよ♪

スクリプトの流れは簡単。

人間がやる「検索文字を入力して～検索ボタンをマウスでクリック」をUWSCの命令で表します。

流れは簡単なんですがスクリプトにするのは、ちょっと手間がかかりますね。

ルートル

スクリプトは用意しているから心配ないよ

スクリプトには、あらかじめ検索文字を設定しておきます。
検索文字は満口数＋余裕の数を用意しておきます。

スクリプトを実行すると、設定してある検索文字を自動で検索ボックスに入力します。
入力したあと検索ボタンを自動でクリックします。
これを用意した検索文字で全て検索するまで繰返します。

全ての検索文字を検索しきる頃には、口数が満口になっています。

ラーテル

聞くだけだと簡単そうだな・・・

一応補足しとくと「満口」とは１日で新規検索として受付けられる口数の上限です。
楽天会員だと5口、楽天ツールバーをインストール済みだと30口です。
口数に応じてポイントが山分けされます。

ルートル

口数のためだけに楽天ツールバーをインストールしてるんだ

検索にかかる時間

回線状況、サーバー負荷や検索文字のヒット具合なのか・・・結構バラバラ。
私の環境では口数が5口で40秒くらい、30口だと4分くらいです。

検索終わるまで、ぼーっと見ていることが多いです。
ピコピコ自動で動いているのは、見ていて面白いですね。

ルートル

PCガンバッテルなーってほのぼのするよ

検索を自動化する詳しい方法

UWSCの入手

とにもかくにも「UWSC」をダウンロードしないと始まりません。
入手先はVectorです。
（作者”うみうみ”さんのホームページ、リンク先消えてる？）

UWSCの詳細情報 : Vector ソフトを探す！

Windows操作の自動化

www.vector.co.jp

ダウンロードしたファイルは圧縮されています。
ディスクトップなど適当な場所に解凍してください。
なお、インストールは不要です。ありがてぇ。

スクリプトの準備

スクリプトはこんな感じです。
コピーして適当なファイル名で保存してください。
ただし、ファイルの拡張子は「.uws」がお約束です。

// インターネットエクスプローラを立ち上げ----------------------
PUBLIC IE
IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.VISIBLE = TRUE

WID = HNDtoID( IE.hwnd )
CTRLWIN( WID, MAX )

// 楽天ウェブ検索に移動---------------------------------
IE.NAVIGATE( "https://websearch.rakuten.co.jp/" )
wait( )

// 最初に検索する文字（トップページ用）##########
DIM　初回検索文字[] =_
    "01発目の検索"
// ###############################

// 楽天ウェブ検索のトップページで検索--------------------
//IESETDATA( IE ,初回検索文字[0] ,"qt" )
IESETDATA( IE ,初回検索文字[0] ,"","id=search-input"  )
SLEEP( 0.5 )
//IESETDATA( IE ,TRUE ,"" ,"id=sBtn" )
//IESETDATA( IE ,TRUE ,"","class=Search-module__submitBtn__3dudB" )
//IESETDATA( IE ,TRUE ,"","class=SearchBox-module__searchButton__5sB81","id=serch-submit"  )
//IESETDATA( IE ,TRUE ,"","class=sc-AxgMl cnkkSb SearchBox-module__searchButton__5sB81","id=serch-submit"  )
IESETDATA( IE ,TRUE ,"","class=sc-jRQBWg gXRECq SearchBox-module__searchButton__5sB81","id=search-submit" )
wait( )

// ２回目以降に検索する文字###############
DIM 検索文字[] =_
    "02発目の検索", "03発目の検索", "04発目の検索", "05発目の検索", "06発目の検索", _
    "07発目の検索", "08発目の検索", "09発目の検索", "10発目の検索", "11発目の検索", _
    "12発目の検索", "13発目の検索", "14発目の検索", "15発目の検索", "16発目の検索", _
    "17発目の検索", "18発目の検索", "19発目の検索", "20発目の検索", "21発目の検索", _
    "22発目の検索", "23発目の検索", "24発目の検索", "25発目の検索", "26発目の検索", _
    "27発目の検索", "28発目の検索", "29発目の検索", "30発目の検索", "31発目の検索", _
    "32発目の検索", "33発目の検索", "34発目の検索", "35発目の検索", "36発目の検索", _
    "37発目の検索", "38発目の検索", "39発目の検索", "40発目の検索"
// ###############################

// 2回目以降の検索------------------------------------
FOR 回数 = 0 TO 38
    IESETDATA( IE, 検索文字[回数], "qt" )
    SLEEP( 0.5 )
    IESETDATA( IE, TRUE, "", "id=searchBtn" )
    wait( )
NEXT

// 待ちの処理-------------------------------------------
PROCEDURE wait( )
    REPEAT
//        SLEEP( 1.0 )
 SLEEP( 5.0 ) 
    UNTIL ( ! IE.BUSY ) AND ( IE.READYSTATE = 4 )
//    SLEEP( 0.5 )
 SLEEP( 5.0 ) 
FEND

このスクリプトに少し手を加えます。

このままでも動作しますが、類似の検索文字なので口数がたまりません。
お好みの「検索文字」を追加します。

ラーテル

メンドクセー！

ルートル

大勢が同じ検索文字だと、かたよっちゃうと思うんだ

手を加える部分を説明します。

15行目
“01発目の検索”を適当な検索文字に置換えてください。
楽天ウェブ検索のポータルページで最初の検索をする文字です。

こんな感じ。
例）”よさこい祭り”

26行目～33行目
同じく”02発目の検索”以降を適当な検索文字を置換えて下さい。
楽天ウェブ検索のポータルページ以外で検索をする検索文字です。

こんな感じ。
例）”文春砲”, “週刊ポスト”, “MS-06 ザク”．．．

口数の満口が５口の場合は”02発目の検索”～”10発目の検索”くらいを置換えればOKです。
満口が30口の場合は全部を置換えてください。

ラーテル

地味につれーな！

ルートル

後で何倍も楽になるからシンボウだよ

なんで満口の口数より多い検索文字にするのか？
検索が失敗することがあるためです。

ラーテル

無駄じゃねーのか！

ルートル

それが、検索に失敗しましたとか口数がカウントされなかったりとか・・・

満口の数の検索で、きっちり満口数分たまらないことがあります。
なので余裕分も設定しておきます。

置換えの数が多いですが頑張ってください。

検索文字の置換えが終わったらスクリプトを保存します。

スクリプトの実行

いざ実行！！っと、その前に楽天にログインを済ませておいてください。
楽天にログインしておかないと、口数たまりませんので。

ルートル

楽天にログインしてから実行してね

解凍したフォルダの「UWSC.exe」をダブルクリックしてUWSCを起動します。
起動すると、ディスクトップに小さいボタンが組み合わさったようなものが現れます。

UWSCを起動するとWindowsのタスクトレイに入ってしまうことがあります。
タスクトレイのUWSCアイコンをマウスで右クリックしてメニューを出します。
メニューの「タスクトレイからでる(W)」でUWSCがディスクトップに出てきます。

ディスクトップのUWSCにスクリプトファイルをドラッグ＆ドロップします。

UWSCが[STOP]ボタンだけの表示になり、スクリプトの実行が始まります。

スクリプトの終了

スクリプトの実行がはじまると自動でIEが立上り、次々と検索を繰返します。

検索文字を全て使い切るとスクリプトは停止します。
スクリプトを途中で止めるには[STOP]ボタンをクリックします。

さいごに

一度スクリプトを作ってしまえば、あとはドラック＆ドロップだけの超お手軽作業です。

UWSCは実行スケジュールも設定できます。
スケジュールを設定すれば、ドラッグ＆ドロップも不要のほったらかし運用も可能です！

UWSCを使うとIEだけではなくWindowsをいろいろと自動操作できます。
ぜひ活用してみてください。

ラーテル

じゃーな！！

ルートル

またね♪

よろしければクリックお願いします

にほんブログ村