|
ミリオンバイナリ自動取引、GMOクリック証券！PCに張り付くのはやめましょう。
http://ameblo.jp/abs3tori/entry-11313466308.html
ソースの転載
---------------
while true
//ここから時間チェック（ブラウザアクティブ＋購入可能に）
t=0
while t=0
ret=gettime()
time=G_TIME_NN //：分
t1 = time MOD 10
t2=G_TIME_SS //：秒
ifb t1 = 4 OR t1 = 9 then
ifb t2 >40 then
t=1
endif
endif
Sleep(0.5)
wend
//ここまで時間チェック
lockhard(true)
ctrlwin(GETID("GMOクリック証券"),ACTIVATE) //ブラウザアクティブに
BTN(LEFT,CLICK,271,194,0) // 受付中クリック
lockhard(false)
//時間確認テスト用
ret=gettime()
ttt=G_TIME_HH+":"+G_TIME_NN+":"+G_TIME_SS+"受付中クリック済み"
print ttt
//ここまで
//ここから時間チェック（サインチェック）
t=0
while t=0
ret=gettime()
time=G_TIME_NN //：分
t1 = time MOD 10
t2=G_TIME_SS //：秒
ifb t1 = 4 OR t1 = 9 then
ifb t2 =55 then
t=1
endif
endif
wend
//ここまで時間チェック
ret=gettime()
time1=G_TIME_YY //：年
time2=G_TIME_MM2 //：月をxxの文字型
time3=G_TIME_DD2 //：日をxxの文字型
time4=G_TIME_HH2 //時
time5=G_TIME_NN2 //分
time=time1+time2+time3
file="C:\Program Files\MillionBinary\experts\logs\"+time1+time2+time3+".log" //ここを人によっては変えてください。
FID=fopen(file,F_READ)
linecnt=fget(FID,-1)
log=FGET(FID,linecnt)
fclose(FID)
w=time4+":"+time5+":50"
z=POS(w,log)
//時間確認テスト用
ret=gettime()
ttt=G_TIME_HH+":"+G_TIME_NN+":"+G_TIME_SS+"ログ確認後"
print ttt
//ここまで
ifb z = 1 then // シグナル出ていた場合 購入動作
//時間確認テスト用
ret=gettime()
ttt=G_TIME_HH+":"+G_TIME_NN+":"+G_TIME_SS+"シグナル確認！"
print ttt
//ここまで
lockhard(true)
ctrlwin(GETID("GMOクリック証券"),ACTIVATE) //ブラウザアクティブに
u=COPY(log,55,1)
print u
ifb u = "↑" then // ↑か↓か判別
BTN(LEFT,CLICK,1111,567,0) //円安をクリック
print "円安！"
else
BTN(LEFT,CLICK,944,560,0) // 円高をクリック
print "円高！"
endif
BTN(LEFT,CLICK,1010,663,0) // クリアをクリック（金額のリセット）
//BTN(LEFT,CLICK,1088,616,0)
//100円
//BTN(LEFT,CLICK,1152,617,0)
//500円
BTN(LEFT,CLICK,1081,638,0)
//1000円
//BTN(LEFT,CLICK,1145,639,0)
//5000円
//BTN(LEFT,CLICK,1087,662,0)
//10000円
//BTN(LEFT,CLICK,1147,663,0)
//50000円
BTN(LEFT,CLICK,1027,716,0) //購入をクリック
BTN(LEFT,CLICK,1027,716,0) //購入をクリック
Sleep(5)
//売り切れ状態避け
BTN(LEFT,CLICK,668,662,0)
BTN(LEFT,CLICK,668,662,0)
lockhard(false)
//時間確認テスト用
ret=gettime()
ttt=G_TIME_HH+":"+G_TIME_NN+":"+G_TIME_SS+"購入完了"
print ttt
//ここまで
endif
Sleep(240)
wend
------------------------
| |
フォトログ表示
