>#DEFINE SC_SCREENSAVE 0xF140 >#DEFINE WM_SYSCOMMAND 0x0112 > >DECLARE INTEGER FindWindow IN WIN32API Integer, String >nHandle = FindWindow(0,_SCREEN.Caption) > >DECLARE SHORT SendMessage IN WIN32API ; > INTEGER nHandle, INTEGER nWmsg, ; > INTEGER nParm, LONG nlParm > >? SendMessage(nHandle,WM_SYSCOMMAND,SC_SCREENSAVE,0) > >WAIT "" TIMEOUT 2 > >? SendMessage(nHandle,WM_SYSCOMMAND,SC_SCREENSAVE,1) >Ray,