PureBasic Forums - English • WebGadget as Flash ScreenSaver

Page 1 of 1

WebGadget as Flash ScreenSaver

Posted: Sun Aug 15, 2004 8:05 am

by J. Baker

Very simple way of displaying your flash files as a screensaver. Just fiddling around, as always.

Code: Select all

sw.l=GetSystemMetrics_(#SM_CXSCREEN) 
sh.l=GetSystemMetrics_(#SM_CYSCREEN)

If OpenWindow(0,0,0,sw,sh,#PB_Window_BorderLess,"") And CreateGadgetList(WindowID(0))
 
    WebGadget(0,0,0,sw,sh,"file://C:/WINDOWS/system32/file.swf") 
    
    AddKeyboardShortcut(0, #PB_Shortcut_Escape, 1)
    Repeat : WaitWindowEvent() : Until EventMenuID() = 1
    EndIf
    
End