ご参考。
#include "user32.as"
screen 0,ginfo_dispx,ginfo_dispy,,,,640,480
GetWindowLong hwnd, -16
SetWindowLong hwnd, -16, stat | $10000
exist "setting.txt"
if (strsize != -1) {bload "setting.txt",saidaika}
chkbox "test", saidaika
oncmd gosub *syscommand, $112
onexit *close
;タイマーで1秒間隔でsaidaikaをチェック
Settimer hwnd,100,1000,0
oncmd gosub *timer, $113
/*
;無限ループでsaidaikaをチェック
repeat
if (saidaika) {ShowWindow hwnd,3}else {ShowWindow hwnd ,1}
await
loop
*/
stop
*timer
if (saidaika) {ShowWindow hwnd,3}else {ShowWindow hwnd ,1}
return
*syscommand
if (wparam == $F120) or (wparam == $F030) {saidaika = saidaika^1 :objprm 0,saidaika}
return
*close
bsave "setting.txt",saidaika
end