sync on : sync rate 30 : sync
#constant AW_HOR_POSITIVE 0x00000001
#constant AW_HOR_NEGATIVE 0x00000002
#constant AW_VER_POSITIVE 0x00000004
#constant AW_VER_NEGATIVE 0x00000008
#constant AW_CENTER 0x00000010
#constant AW_HIDE 0x00010000
#constant AW_ACTIVATE 0x00020000
#constant AW_SLIDE 0x00040000
#constant AW_BLEND 0x00080000
#constant WINDOW_NORMAL 13565952
user32 = find free dll()
load dll "user32.dll", user32
if dll exist(1)=1
print "dll exists and loaded ok."
else
end
endif
hwnd as dword
hwnd = call dll(user32,"GetActiveWindow")
print "hwnd: ";hwnd
dwTime as dword
dwTime = 1000
dwFlags as dword
dwFlags = AW_CENTER || AW_HIDE
bool as boolean
bool=call dll(user32,"AnimateWindow", hwnd , dwTime, dwFlags )
print bool
dwFlags = AW_CENTER || AW_ACTIVATE
bool=call dll(user32,"AnimateWindow", hwnd , dwTime, dwFlags )
print bool
sync
wait key
delete dll user32
end
Professional Programmer, languages: SAS, C++, SQL, PL-SQL, DBPro, Purebasic, JavaScript, others