【UWSC】指定ウィンドウ内のキャプション文字取得
//全角入力の場合は半角入力に直しておく
IF GETKEYSTATE(TGL_IME) THEN KBD(VK_KANJI,CLICK)
DIM get_ID[GETALLWIN()]
DIM m = 0
DIM count_m = 0
//DIM array[] = "BTN", "LIST", "TAB", "MENU", "TREEVIEW", "LISTVIEW", "EDIT", "STATIC", "STATUSBAR", "TOOLBAR", "LINK", "ACCCLK", "ACCCLK2", "ACCEDIT", "FROMLAST", "BACK"
FOR i = 0 to GETALLWIN()-1
IFB POS("MAGI" ,STATUS(ALL_WIN_ID[i],ST_TITLE)) <> 0 THEN
get_ID[m] = ALL_WIN_ID[i]
//ウインドウ内のキャプション文字を取得
IF GETITEM(ALL_WIN_ID[i],ITM_ACCTXT) <> 0 THEN
//取得したテキストに「」の文言があるか
//FOR item IN array
DIM num = GETITEM(ALL_WIN_ID[i], EVAL("ITM_ACCTXT"))
FOR k = 0 TO num - 1
IF POS("終了(ESC)",ALL_ITEM_LIST[k]) <> 0 THEN
CTRLWIN(get_ID[m], MAX)
CTRLWIN(get_ID[m], ACTIVATE)
CLKITEM(get_ID[m], "終了(ESC)", CLK_ACC)
ENDIF
IF POS("クリア",ALL_ITEM_LIST[k]) <> 0 THEN
CTRLWIN(get_ID[m], MAX)
CTRLWIN(get_ID[m], ACTIVATE)
CLKITEM(get_ID[m], "終了", CLK_ACC)
ENDIF
NEXT
//NEXT
ENDIF
ENDIF
m = m + 1
NEXT
count_m = m
//FOR m = 0 TO count_m - 1
// CTRLWIN(get_ID[m], MAX)
// CTRLWIN(get_ID[m], ACTIVATE)
// CLKITEM(get_ID[m], "終了")
// SLEEP(1)
//NEXT
この記事が気に入ったらサポートをしてみませんか?