2017年08月 / 07月≪ 12345678910111213141516171819202122232425262728293031≫09月

インフォメーション

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↑

Comment

●管理人のみ閲覧できます

このコメントは管理人のみ閲覧できます
 |  2008.03.10(月) 12:54 |   |  【コメント編集】

こんなにがほしかった!
ありがとうございます
名無し |  2012.08.26(日) 21:04 |  URL |  【コメント編集】

コメントを投稿する

URL
コメント
パス  編集・削除するのに必要
非公開  管理者だけにコメントを表示
 

Trackback

この記事のトラックバックURL

この記事へのトラックバック

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