GYAO完全無料放送のプレゼント応募を自動化

GYAO完全無料放送のプレゼント応募を自動化

GYAOの番組が終わったときのプレゼント応募のページにを自動化
■Windows/XP,IE6で動作確認済み
■使いかた
1.拡張子.vbsで適当なファイルを作成する
2.このvbsファイルをエディタで開く
3.下記ソースをコピー、上記で開いた.vbsのファイルに貼り付ける
4.貼り付けたソース中1-3行目の名前・メールアドレスを変更する（アントニオ、小泉、bc@gege.jpを書き換える）
5.保存・終了する
6.このvbsを実行（ダブルクリック） 7.GYAOの番組を見る・終わると自動で名前・メールアドレスを入力してくれる

■ソース

name_ue="アントニオ" ' 名前の姓を入れる
name_sita="小泉" ' 名前の下のほうを入れる
mail_ad="abc@gege.jp" ' メールアドレスを入れる
Dim objIE0  'ルートのオブジェクト、操作コードではこの名称を使用します
Dim objIE1  'FRAMEのオブジェクト、ネストが3重以上になる場合は、objIE3,objIE4・・・を追加してください
Dim s 
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
win_s = False
do
if win_s=false then
 For Each Window In xShell.Windows '対象URLが表示されているか？
  If TypeName(Window.Document) = "HTMLDocument" Then
   if Window.Document.url="http://www.gyao.jp/sityou_campaign/top/" then
    Set objIE0 = Window '対象URLが表示→その画面を使う
    win_s=true
    exit for
   end if
  end if
 next
end if
if win_s = true then
 For Each Window In xShell.Windows '対象URLが表示されているか？
  If TypeName(Window.Document) = "HTMLDocument" Then
  if Window.Document.url="https://www.gyao.jp/sityou_campaign/input/" then
   Set objIE0 = Window '対象URLが表示→その画面を使う
   exit for
  end if
  end if
 next
 Wscript.sleep(1000)
 s = objIE0.document.body.innerhtml
 if instr(s,"視聴者プレゼントキャンペーン")>0 then
  objIE0.Document.links(4).click '応募する
  call waitPage (objIE0)
  objIE0.document.all.FC_FAMILY_NAME.value=name_ue ' 名前の姓を入れる
  objIE0.document.all.FC_FIRST_NAME.value=name_sita ' 名前の下のほうを入れる
  objIE0.document.all.FC_MAIL.value=mail_ad ' メールアドレスを入れる
  objIE0.document.all.FC_MAIL2.value=mail_ad ' メールアドレスを入れる
  objIE0.document.all.submit.click ' image submit  or tags("INPUT").item(5).Click
  'objIE0.Document.links(0).click 'javascript:window.close()
  'objIE0.Document.links(1).click 'javascript:onRest3();
  'objIE0.Document.links(2).click 'javascript:RegistFormData(%20);
  'objIE0.Document.links(3).click '「プライバシーポリシー」
  call waitPage (objIE0)
  win_s=false
 end if
end if
Wscript.sleep(3000)
loop
'---以下文字列取り出しコード、必要な部分をコピー・修正してください---
Sub waitPage (objIE)
        Do While objIE.busy
        Loop
        Do While objIE.Document.readyState <> "complete"
        Loop
End Sub

■制限事項（作者が分かっている範囲）
・3秒ごとにIEの画面を調べているのですがこのタイミンウグでIEの画面が開いたり・閉じたりすると異常終了します。再度ダブルクリックでこのVBSを実行してください
■免責うんぬん
・本VBSによる使用者の損害どうのこうの補償は作成者は一切関知しません
　使用者の責においてご利用ください
質問・要望はこちらから
こちらのオークションでプログラミングの書籍を出品してます