uwscでExcelに自動記入

uwscでFlash 画面上の数字を認識しExcelに取り込むには
どのようにコードを書いたら良いでしょうか？

実際にやりたいことは、オンラインカジノ上のルーレットの出目履歴をExcelデータとして保存したいです。

質問者からの補足コメント

• 回答ありがとうございます。
  uwscで空回しはしてるのと、
  あと、ルーレットの0〜36の画像は
  保存してます。
  エクセルのA1縦列に、ルーレットの出目を出た順に取り込みたいのですが、具体的な
  コードを教えてくれませんか？

  No.1の回答に寄せられた補足コメントです。 補足日時：2020/01/12 14:25

No.2 ベストアンサー 回答者： neKo_deux 回答日時： 2020/01/12 15:15

例えば、

' 出目を取得する関数
Function Deme
Dim iNum
iNum=-1
' 0～36までの画像を、画面(500,100)-(550,150)の出目と比較
if ChkImg("00.bmp", 0, 500, 100, 550, 150) then iNum=0 '出目が0
if ChkImg("01.bmp", 0, 500, 100, 550, 150) then iNum=1 '出目が1
if ChkImg("02.bmp", 0, 500, 100, 550, 150) then iNum=2 '出目が2
if ChkImg("03.bmp", 0, 500, 100, 550, 150) then iNum=3 '出目が3
～(略)～
if ChkImg("36.bmp", 0, 500, 100, 550, 150) then iNum=36 '出目が36
Result = iNum
FEnd

とか。

--
> uwscで空回しはしてるのと、

だったらその間はどうせエクセル操作できないんだから、

> エクセルのA1縦列に、

エクセル立ち上げとく意味は無いです。
メモリも無駄だし、UWSCの動作も不安定化しやすいし。


fid = FOpen("deme.txt", F_READ or FWRITE)

でファイルオープンしといて、

n=deme()
FPut(fid, n)

で書き込み、テキストファイルをドラッグ＆ドロップで開くとか。


何だったら、処理終了時に、

EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.visible = True
EXCEL.workbooks.open("C:\～\deme.txt")

でExcel起動して開くとか。

No.1 回答者： neKo_deux 回答日時： 2020/01/12 13:43

例えば、

1)
ルーレットの結果が出るのを待つ。
一定時間おきに、CHKIMGで終了が確認出来る画像を探すとか。

2)
テキストボックスとかのコントロールに出目が表示されてるなら、POSACC関数で出目の数字を取得。
グラフィカルな文字なんかで出目が表示されているなら、MODIを使ってOCR処理したり、数字をIMGCHKでマッチングしたり。

ぽけっとろぐ - [UWSC]OfficeのOCR機能を使う
https://pocketlog.net/20161217/post-1783/

3)
出目をテキストに保存。

を繰り返しとか。


> Excelに取り込むには

テキストファイルに保存しておけば、Excelに一括で読み込むのは後から簡単に出来るハズ。