UWSC｜高圧縮jpegと劣化なしのbmpを取得する関数｜画像検出に必須

指定されたアプリIDのスクショを“pic_000n.jpg”なるファイル名で実行アプリのあるフォルダに保存します。ファイル名作成のためWHILEループを使って番号を調べています。

FUNCTION getpic(id)//id=0:スクリーン全体取得
               n=0
               comp=0
      WHILE (comp=0)
               path=GET_CUR_DIR+"\pic_"+REPLACE(FORMAT(n,4)," ","0")+".jpg"
         IF FOPEN(path,F_EXISTS)
               n=n+1
         ELSE
               SAVEIMG(path,id,,,,,,1)
               disp("画像を取得しました。","gray")
               comp=1
         ENDIF
      WEND
               RESULT=1
   FEND

劣化してれば当然認識・検出できませんので非劣化のBMP保存。

仕様は、
●動作（ブラウザ画像取得、5秒後に取得、画面全体取得、5秒後に取得）選択ダイアログを出し、
●指定されたアプリIDのスクリーンショットをファイル名“pic_000x.bmp”で実行アプリのあるフォルダに保存。ファイル名作成のためWHILEループで番号を調べています。

FUNCTION getpic_dialog()
               quit=0
   WHILE (0=0)
         SELECT SLCTBOX(slct_btn,0,1,400,"画像を取得します。","取得(ブラウザ画面)","5秒後に取得(ブラウザ画面)","取得(全体)","5秒後に取得(全体)")
         CASE -1
               quit=1
         CASE 1
               mode=1
               wait5s=0
         CASE 2
               mode=1
               wait5s=1
         CASE 4
               mode=0
               wait5s=0
         CASE 8
               mode=0
               wait5s=1
         SELEND
         IF quit=1
               break
         ELSEIF mode=1
               bprep()
               id=bid(brwz)
         ELSE
               id=0
         ENDIF
         IF wait5s=1
            FOR i=5 TO 1 step -1
               disp(i+"秒後に取得します。","gray")
               SLEEP(1)
            NEXT

         ENDIF
               n=0
               comp=0
      WHILE (comp=0)
               path=GET_CUR_DIR+"\pic_"+REPLACE(FORMAT(n,4)," ","0")+".bmp"
         IF FOPEN(path,F_EXISTS)
               n=n+1
         ELSE
               SAVEIMG(path,id,,,,,,,0)
               disp("画像を取得しました。","gray")
               comp=1
         ENDIF
      WEND
   SLEEP(0.01)
   WEND
               RESULT=1
   FEND

関数の形式になっていますが、2～48行目だけを使用して独立した画像取得用アプリにしておいてもいいかもしれません。