USER_ID = "userid" // ユーザーＩＤ
USER_PASS = "pass" // パスワード

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = true;
IE.Navigate("http://sasuga.biz/pages/index.php");
REPEAT
 SLEEP(1)
UNTIL !IE.busy AND IE.readystate=4

ret = IELINK(IE, "ログイン")

REPEAT
 SLEEP(1)
UNTIL !IE.busy AND IE.readystate=4

// ログインフォームがあったらログイン
ifb IE.document.getElementsByName("username").length > 0 then
  IE.document.getElementsByName("username").Item(0).value = USER_ID
  IE.document.getElementsByName("password").Item(0).value = USER_PASS
  IE.document.getElementsByName("submit").Item(0).click
  REPEAT
   SLEEP(1)
  UNTIL !IE.busy AND IE.readystate=4
endif

// 受信箱へ
ret = IELINK(IE, "受信箱")

REPEAT
 SLEEP(1)
UNTIL !IE.busy AND IE.readystate=4

// 広告を表示するウィンドウ
IESub = CreateOLEObj("InternetExplorer.Application")
IESub.Visible = true;

// メールがあるとformが存在する
ifb IE.document.forms.length > 0
  // フォーム内のリンクを全部取得
  for i = 0 to IE.document.forms[0].getElementsByTagName("a").length - 1
    IM_Link = IE.document.forms[0].getElementsByTagName("a").Item(i)
    IM_Link.focus // とりあえずフォーカス当てる
    
    // リンクを開く
    IESub.Navigate(IM_Link.href);
    REPEAT
     SLEEP(1)
    UNTIL !IESub.busy AND IESub.readystate=4
    // 待ち秒
    // ランダムで1〜3秒待ち
    SLEEP(RANDOM(3))
    
    // エラー有無
    errflg = false
    
    // メール内のリンクを全取得
    for j = 0 to IESub.document.getElementsByTagName("a").length - 1
      TRY
        // http://sasuga.biz/scripts/runner.php?EA=のリンクなら
        ifb POS("http://sasuga.biz/scripts/runner.php?EA=", IESub.document.getElementsByTagName("a").Item(j).href) > 0
          // IESubウィンドウで開く
          IESub.Navigate(IESub.document.getElementsByTagName("a").Item(j).href);
          REPEAT
           SLEEP(1)
          UNTIL !IESub.busy AND IESub.readystate=4
          
          // 画像認証画面になったらクリック待ちループ
          while true
            ifb POS("画像に表示されたものと同じ数字をクリックして下さい", IESub.document.body.InnerText) = 0
              break
            endif
            sleep(1)
          wend
          
          // この広告は閲覧済みなら次へ
          ifb POS("この広告は閲覧済みです", IESub.document.body.InnerText) > 0
            sleep(1)
            break
          endif
          
          // 期限切れなら次へ
          ifb POS("この広告は既定のクリック数に達したか、期限切れです", IESub.document.body.InnerText) > 0
            sleep(1)
            break
          endif
          
          // 「報酬は加算されました」と表示されるまで待つループ
          while true
            REPEAT
             SLEEP(1)
            UNTIL !IESub.busy AND IESub.readystate=4
            // リンク先が開けたら
            ifb POS("報酬は加算されました。", IESub.document.frames[0].document.body.InnerText) > 0
              break
            endif
            sleep(2)
          wend
          
          sleep(3)
        endif
      EXCEPT
        errflg = true
      ENDTRY
    next
  next
endif

IESub.quit