自動化ツールuwsc使いよ集まれ3

自動化ツールuwsc使いよ集まれ3 at SOFTWARE

197:名無しさん＠お腹いっぱい。
08/01/31 00:39:45 mUjNsktP0
URLﾘﾝｸ(blog.livedoor.jp)
WindowsAPI使っていろいろ頑張ってるけど
DLL呼び出すんならデフォルトでAPI使える言語使うよねえ？

>>197
// 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
cnt = 0
str = url
REPEAT; cnt = cnt + 1; UNTIL "" = token("/", str, true)
ifb 4 = cnt Then
CLKITEM( ID, "《更新", CLK_MENU or CLK_SHORT )
prev = url
endif
endif
wend

次ページ

続きを表示

1を表示