こんな感じでしょうか。
GetForegroundWindowでアクティブなウィンドウのハンドルを取得し
GetWindowRectでサイズを取得
SetWindowPosで位置とサイズを指定します。
#uselib "user32.dll"
#func GetForegroundWindow "GetForegroundWindow"
#func SetWindowPos "SetWindowPos" int,int,int,int,int,int,int
#func GetWindowRect "GetWindowRect" int,int
screen 0,640,480
dim rect, 4
repeat
redraw 0
color 255,255,255:boxf:color
GetForegroundWindow
hwnd_=stat
GetWindowRect hwnd_,varptr(rect)
pos 0,0
mes "アクティブなウィンドウのハンドル:"+hwnd_
mes rect(2)
mes rect(3)
if rect(2)!640 and rect(3)!480{//もしX=640,Y=480でなかったら
//SetWindowPos hwnd_,,rect(0),rect(1),640,480,
//上の行のコメントを外せばアクティブウィンドウが640x480に変わります(注意)
}
wait 1
redraw 1
loop
ただ指定したサイズ以外のアクティブなウィンドウのサイズをすべて変更するのは
ユーザーとしては困る気がします(ブラウザ小さくなったり)