【マクロ】　UWSC　Part4　【シェアウェア化】

【マクロ】　UWSC　Pa ..

71:名無しさん＠お腹いっぱい。
08/01/30 20:17:03 aG+PMwK+0
>>69
無理だと思う。返事は期待できないよ。

>>71
// JaneDoe Viewの操作を補助する。
// スレを切り替えると自動更新し、最終取得で並び替える。

ID = GetID("JaneDoe View", "TMainWnd")
prev = GetSTR(ID, 1)
while 1
sleep(0.1)
// アプリが終了された場合は連動して終了
if !IDToHND(ID) Then break
url = GetSTR(ID, 1)
ifb prev <> url Then
prev = url
cnt = 0
REPEAT; cnt = cnt + 1; UNTIL "" = token("/", url, true)
if 4 = cnt Then CLKITEM( ID, "《更新", CLK_MENU or CLK_SHORT )
endif
wend

次ページ