オンラインカジノ総まとめ情報ナビお得な入会特典で実際にプレイが楽しめるオンラインカジノ情報のご案内や、各ゲームの遊び方や攻略法などオンラインカジノを楽しむためにお役に立つ動画を集めてご紹介しているサイトです。

10分毎に競馬オッズを取得 JRA競馬単勝オッズの自動取得 2022年05月08日(日)テスト

2022.05.10
JRA

10分毎に競馬オッズを取得 JRA競馬単勝オッズの自動取得 2022年05月08日(日)テスト

勝てるオンラインカジノNo.１
当サイト限定！
スーパー特典で登録出来ます！！

お得な特典付き！
ベラジョンカジノの詳細情報はこちら
↓ ↓ ↓ ↓ ↓ ↓ ↓

ベラジョンカジノ

お得な特典付き！
インターカジノの詳細情報はこちら
↓ ↓ ↓ ↓ ↓ ↓ ↓

インターカジノ

お得な特典付き！
カジノシークレットの詳細情報はこちら
↓ ↓ ↓ ↓ ↓ ↓ ↓

カジノシークレット

お得な特典付き！
エンパイアカジノの詳細情報はこちら
↓ ↓ ↓ ↓ ↓ ↓ ↓

エンパイアカジノ

お得な特典付き！
クイーンカジノの詳細情報はこちら
↓ ↓ ↓ ↓ ↓ ↓ ↓

クイーンカジノ

10分毎に競馬オッズを取得 JRA競馬単勝オッズの自動取得 2022年05月08日(日)テスト

関連する記事

【宿命のライバル対決】グラスワンダー×スペシャルウィーク｜1999有馬記念『競馬名勝負列伝 #5』｜JRA公式 2022.09.19

＼伝説の名勝負に投票しよう／ #5 1999有馬記念～競馬名勝負列伝～ダービー馬スペシャルウィーク、グランプリ3連覇を狙う外国産馬グラスワンダー。[…]
【参考レース】2023年フラワーカップ｜JRA公式 2023.03.18

2023年フラワーカップの出走馬参考レースです。 ↓その他の調教・参考動画等はこちら ※この動画は3月17日17時現在のものです。出走取消・騎手変更等[…]
JRA×JO1「Move The Soul＠東京競馬場」 | JRA公式 2022.08.16

[…]

コメント（1件）

ken3video より:

2022年5月10日 6:08 PM

10間隔で下記のVBSを起動

Set oApp = Nothing

‘Excelを起動
WScript.Sleep 500
Set oApp = CreateObject(“Excel.Application”)
oApp.Visible = True ‘可視にする
oApp.UserControl = True

Dim sFileName(4)
sFileName(1) = “d:JRA_TEST2022050820220508単勝オッズ東京.xlsm”
sFileName(2) = “d:JRA_TEST2022050820220508単勝オッズ中京.xlsm”
sFileName(3) = “d:JRA_TEST2022050820220508単勝オッズ新潟.xlsm”

For n = 1 to 3
‘1.2 ファイルを開く
oApp.Workbooks.Open sFileName(n) ‘場所単位のファイルを開く
WScript.Sleep 500
‘1.3 マクロの実行
oApp.RUN “ie_JRA単勝オッズをレース別に複数蓄積する”
WScript.Sleep 500
‘1.4 ブックを閉じる
oApp.ActiveWorkbook.Close ‘ブックを閉じる
Next

‘2 Excelを閉じる
oApp.Quit
WScript.Sleep 500
Set oApp = Nothing

‘説明スライド再生テスト

Set oApp = CreateObject(“PowerPoint.Application”)
oApp.Visible = True ‘可視にする

‘時刻の計算
m = Minute(Time)
s = Second(Time)

n = Int(m / 10) ‘0,1,2 を分の十の位で
If n >= 3 Then n = n – 3

Dim ppFILE(3)

ppFILE(0) = “d:JRA_TEST20220508間の説明1.pptx”
ppFILE(1) = “d:JRA_TEST20220508間の説明2.pptx”
ppFILE(2) = “d:JRA_TEST20220508間の説明3.pptx”

oApp.Presentations.Open(ppFILE(n))
oApp.Left = 474
oApp.Top = 220

WScript.Sleep(1000) ‘2秒待つ ※これが無いと、下の.Runがうまく動作しなかった、なぜ？

oApp.ActivePresentation.SlideShowSettings.Run ‘スライドショーの実行 F5的なヤツ

‘9:45 から引く
w = (9 * 60 + 45) – ((m Mod 10) * 60 + s)
If w < 1 Then w = 1 For n = 1 To 10 WScript.Sleep(w * 100) 'w秒待つ Next oApp.ActivePresentation.Application.Quit '抜けるパワポ終了

返信

コメントを書くコメントをキャンセル

JRAカテゴリの最新記事