ソラトニワ自動再生

Text

単純にソラトニワが再生されるまで再生ボタンを押し続けるというものです。使い方はこの後アメブロで・・・

sakuramiu
2016/5/8 6:11

タグ：
タグはありません

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
//ソラトニワ自動再生
OPTION EXPLICIT
DIM BROWSER
//ウインドウのハンドルを取得する
BROWSER=GETID("インターネットラジオのソラトニワステーション原宿、銀座、梅田の再生ページです。 ソラトニワ | soraxniwa - Internet Explorer", "IEFrame", -1)
//1秒待ち
SLEEP(1)
//ウインドウをアクティブにする
CLKITEM(BROWSER, "インターネットラジオのソラトニワステーション原宿、銀座、梅田の再生ページです。 ソラトニワ | soraxniwa - Internet Explorer", CLK_ACC)
//更新ボタンを押す
CLKITEM(BROWSER, "最新の情報に更新 (F5)", CLK_BTN)
SLEEP(10)
//一時停止ボタンがあれば
while !CHKIMG("pause1.bmp") and !CHKIMG("pause2.bmp") 
    print "再生クリック"
    CLKITEM(BROWSER, "play", CLK_BTN)
    SLEEP(5)
    //再生状態にならなかったら
    if !CHKIMG("pause1.bmp") and !CHKIMG("pause2.bmp")
        //F5キー
        CLKITEM(BROWSER, "最新の情報に更新 (F5)", CLK_BTN)
        SLEEP(10)
    endif
wend
print "再生されました"
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

このコードをツイートする