楽天アフィエイト企画

楽天アフィリエイトで時々ある太っ腹企画。
まぁ期間中の購入が条件なんですが、お買い物しているなら、商品紹介だけで500円です。

【楽天アフィリエイト】ハロウィンアイテムを紹介して500ポイントGET！
https://affiliate.rakuten.co.jp/campaign/2017/halloween/

で、ハロウィン企画ですね。
欲しいかなと思ったのは、チロルチョコハロウィンバージョンです。
配り用に良いかもです。
単品ですと送料かかりますけど、こちらドラッグストアですので、他の商も品なんかとまとめ買いして1900円以上にすれば送料無料です。

【企画品】ビッグチロルチョコ ハロウィン限定ボックス(15コ入)【チロルチョコ】 価格：258円（税込、送料別) (2017/9/17時点)

ブログ貼るだけプレゼント

ブログ貼るだけプレゼントということで50円分くれるそうなので、宣伝貼り付け。

お財布.comは普段のお買い物やサービス利用が

おトクになるサイトです。

貯めたお財布コインは現金や
Amazonギフト券、

Tポイントなどに交換できます。









１日10分から簡単に始められる！

＼＼簡単１分　無料会員登録しよう♪／／











お財布.com経由でお買い物すれば

お財布コインとショッピングサイトの

ポイントの２重取りができるから断然おトク！









＼＼今すぐおトクな生活をはじめよう♪／／

うちの子4コマ。

ポイントサイトGetMoney!の10周年企画、スタッフの4コマ漫画「うちの子4コマ。」が面白い。
実話、子供ネタというのは、面白いですね〜。
シュールな感じがイイ。
続けばいいなぁ。目指せ書籍化！　まだ4話しかないけど。（＾＿＾）

惨敗、楽天アフィリエイト

11月分の報酬破棄がすごかった。

件数も5件ととんでもなく、少ないのだが、1件しか確定してねぇ。ヽ(;´Д`ヽ)(ノ;´Д`)ノ

10月分は10件あって2件破棄、んで1000円ぐらいにはなってたから、いけるじゃんと思ってたら、この有様ですよ。

楽天市場公認　楽天アフィリエイト＆楽天広場　徹底ガイド 配信元：電子書店パピレス 提供：＠niftyコンテンツ

PEXビンゴ3位ｷﾀ━(ﾟ∀ﾟ)━!

今週から始まった、PEXのビンゴ、いきなり来ましたよ。

まさかの3位で揃っちゃいました。

年末にかけて、運気UPでしょうか。

この娘が好きｗ 楽天くじ

楽天くじは色々あるけど、この娘のアニメーションがとても激しくて好きだｗ

一応、楽天ラッキーくじの一覧。

楽天

infoseek

楽天オークション

楽天ブログ

楽天トラベル

楽天証券

楽天保険

--　ここまでツールーバーにあるもの　--

woman　ラッキーくじ

http://woman.infoseek.co.jp/

エンタメナビ　ラッキーくじ

http://entertainment.rakuten.co.jp/

楽天toto　ラッキーくじ

https://toto.rakuten.co.jp/

楽天レンタル　ラッキーくじ

http://rental.rakuten.co.jp/

楽天銀行　ラッキーくじ

http://www.rakuten-bank.co.jp/

他にもあるのかなぁ。

GetMoney!毎日1000円くじ当たったよ〜

こういうポイントサイトのくじって、大きめのは当たりが出ないようになってるもんだと思っていました。

ほんとに当たりあるんだ。(ﾉ≧▽≦)ﾉ

安全なポイントサイトは？

Info-Cashとボーナスだ！ねっと閉鎖にやられたので、メモ。

検索かけたら日本インターネットポイント協議会なるものがあった。

参加企業リスト見たらポイントサイトでは割と有名な所が入ってるので、ここに載ってるところなら割と安全なのかなぁと。

とりあえず、私が利用してるところで、こまめに？（２回以上出来てる）ポイント交換できてるところを上げてみる。

チャンスイット

ECナビ

ちょびリッチ

warau.jp

お財布.com

ドル箱

マクロミル

ポイントミュージアム等（システムエッジ系）

ライフマイル

絞り込むとしたら上のぐらいかなぁ。

交換先は、PEX経由で銀行、楽天、ヤフーポイント。たまに経由せずに直接換金。

やばいかなぁと思ってるのが、Tremii（旧懸賞BOX)、ここ換金可能になるまでのポイントが高い上に手数料も高い。以前はPEXに交換もあったと思うけど今は現金のみ・・。

・

交換経路検索はポイ探が便利。

http://www.poitan.net/

画像自動クリック

UWSCを使ったスクリプト晒してみる。自動検索はやばそうなので、やめておく。

画像サイズを調べて、クリックしていくだけ。

動作中は他の作業は、ほぼ出来ないです。IEが開きまくるから┐(´-｀)┌

一応、ポップしたIEは閉じるし、ダイアログもいくつかは閉じる。

表示待ちの処理が、なんかおかしいけどしらん。動くからよしｗ

他のサイトとかも、やってみるが、取りこぼし多い。

ほんとは、サイトデータ別ファイルから読み込むとかすればいいんだろうけど、よくわからないし、面倒なんで配列で。

HASHTBL hash = HASH_SORT

//csite[][] = クリックサイトurl, 画像横幅, 画像高さ, スキップ数,クリック数(0はmax)
dim csite[][4] = _
"http://www.chobirich.com/", 234, 60, 0, 4,_
"http://www.chobirich.com/", 120, 60, 0, 4,

// IE起動
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.ToolBar =  False

//クリック開始 -------------------------------------------------------

for ieroop = 0 to (RESIZE(csite) / 5) -1

//サイトデータ入力
curl = csite[ieroop][0]
cgx = csite[ieroop][1]
cgy = csite[ieroop][2]
cskip = csite[ieroop][3]
mck = csite[ieroop][4]
//カウント用クリア
ia = 0
ccg = 0

COM_ERR_IGN　　//COMエラー無視

//指定ＨＰを開く
print curl
IE.Navigate(curl)
BusyWait(IE)
MainAW = GETID("Internet Explorer") //アクティブウィンドウを名前を得る

for　i　=　ia　to　IE.document.Images.length-1 //　画像枚数分ループ

  wkx = IE.document.Images[i].width //横幅　画像サイズ読み取り
  wky = IE.document.Images[i].height //高さ

　　     ifb cgx = wkx and cgy = wky then //サイズチェック
   ccg = ccg + 1  //サイズの合った画像カウント
   
   ifb ccg > cskip then  //スキップ数確認
   
    IE.Document.Images[i].Click() //画像クリック
    BusyWait(IE)  //表示待ち
    sleep(0.2)
    BCLOSE(MainAW)  //ポップしたIEを閉じる

    IE.Navigate(curl)  //ＨＰ開き直し
    BusyWait(IE)  //表示待ち

   endif

   ifb (ccg - cskip) > mck and mck > 0 then //最大クリック回数、越えたら終了
   break
   endif

   ifb COM_ERR_FLG
   print curl
　　　　   print　"エラーが起こってるみたい"　
   sleep(2)
   COM_ERR_RET
　　　　   break
   endif

  ia = i + 1 //検索位置修正
  endif
next

sleep(0.5)
next

//終了-------------------------------
ifb MsgBox("終了しました。",BTN_OK) = BTN_OK
COM_ERR_RET　　//エラー処理復帰
endif

//表示待ち- busywait ---------------------
Procedure BusyWait(ie)
  Sleep(0.5)  // Wait
  Const TIME_OUT = 90
  tm = Gettime()
  tmc = 0
repeat
dialog()
    Sleep(0.2)
    ifb Gettime() - tm > TIME_OUT
    IE.Refresh //再読み込み
    tmc = tmc +1
      ifb tmc  = 3 //3回失敗したらメッセージ表示
        //if MsgBox("Time Out:BusyWait",BTN_ABORT or BTN_IGNORE) = BTN_ABORT then ExitExit
        exit
      endif
    tm = 0
    endif
  until (! ie.busy) and (ie.readyState=4)
  Sleep(0.5)
Fend

//------
//ポップしたIEを閉じる
Procedure BCLOSE(MainAW)
wcount = 0
for ip =0 to GETALLWIN( ) -1
if POS("Internet Explorer",STATUS(ALL_WIN_ID[ip],ST_TITLE)) > 1 and ( ALL_WIN_ID[ip]  <> MainAW ) then CTRLWIN(ALL_WIN_ID[ip],CLOSE)
next
sleep(1)
FEND

//ダイアログ対処
Procedure dialog()
id = getid( "セキュリティ", "#32770")
if id > 0 then sckey( id, vk_n) //nキーを押す

id = getid( "Internet Expplorer Unhandled Exception", "#32770")
if id > 0 then sckey( id, vk_enter) //enterキーを押す

id = getid( "Internet Explorer スクリプト","#32770",0.1)
if id > 0 then sckey( id, vk_n) //nキーを押す
Fend

やられました。orz Info-Cashとボーナスだ！ねっと閉鎖

いつかこんな日が来るとは思っていましたが、実際に遭遇するとイタイです。

両サイトあわせて１500円分ぐらい貯まっていました。

換金可能な額が３０００円〜と高く設定されていたので、元々不安なサイトではあったんですが・・・・。

閉鎖はいいんです、閉鎖しても、でもポイントは他所へ移すなり、ある程度は補償してほしかった。

換金可能額以下は持ち逃げだそうです。ヽ(`Д´)ﾉ

非常にアクドイ。