2017年03月 / 01月≪ 12345678910111213141516171819202122232425262728293031≫02月

インフォメーション

FC2ブログで画像等を一括アップロードするソフトを地味に配布してます。
FC2ブログ用ファイルアップロードの最新版はこちら
(ベクター)FC2ブログ用ファイルアップロード

--.--.-- (--)

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


 |  --:--  |  スポンサー広告  |  Top↑

2008.03.10 (Mon)

位置・色取得 - UWSC

カーソル位置の絶対位置・相対位置・色(16進数)をリアルタイムで取得するマクロ。
CTRLボタンを押すと、現在の位置と色をprintウィンドウに出力します。

// CTRLボタンでPRINT表示するスレッド
THREAD PRINTSTATE()

WHILE True
  s = GETSTATE()
  Fukidasi(s, 10, 10, 0) 
  Sleep(0.1) 
WEND

// 情報取得
FUNCTION GETSTATE
  // カーソル下のウィンドウが対象
  ID = GETID(GET_FROMPOINT_WIN)
  // 絶対座標
  x1 = G_MOUSE_X
  y1 = G_MOUSE_Y
  // 相対座標
  x2 = x1 - STATUS(ID, ST_X)
  y2 = y1 - STATUS(ID, ST_Y)
  s = "絶対座標 x:" + x1 + " y:" + y1 + "<#cr>"
  s = s + "相対座標 x:" + x2 + " y:" + y2 + "<#cr>"
  cd = PEEKCOLOR( x1,y1 )
  s = s + "色:#" + format(cd, 6, -1)
  RESULT = s
FEND

// PRINT表示
PROCEDURE PRINTSTATE
  WHILE TRUE
    // CTRLが押されたら
    IFB GETKEYSTATE(VK_CTRL)
      PRINT GETSTATE()
      SLEEP(1.5)
    ELSE
      SLEEP(0.1)
    ENDIF
  WEND
FEND

ピクセルの色を判断して動かすUWSCマクロを書くときに使うと便利。

ちなみにUWSCで16進数を使う場合は、頭に「$」をつけるみたい。
color = $00FFFF

↓拡張子をuwsに変えて使用してください。
getpositionstate.txt
スポンサーサイト


 |  12:12  |  UWSC  |  トラックバック(0)  |  コメント(2)  |  Top↑
 | BLOGTOP | 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。