>Function ScreenShot >DECLARE INTEGER keybd_event IN Win32API ; > INTEGER, INTEGER, INTEGER, INTEGER >* >* Do an Alt-Printscreen >* >#DEFINE VK_LMENU 164 >#DEFINE VK_SNAPSHOT 44 >#DEFINE KEYEVENTF_EXTENDEDKEY 1 >#DEFINE KEYEVENTF_KEYUP 2 >DOEVENTS >keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 ) && key down >INKEY(0.01) >keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 ) >INKEY(0.01) >keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 ) >INKEY(0.01) >keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 ) >DOEVENTS>
>Function saveclipasjpg > Lparameters pcFilename > Local llReturn, loBMP > If Pcount()=0 Or Vartype(pcFilename)#'C' > pcFilename="ClipImage" > Endif > pcFilename=Forceext(pcFilename,'jpg') > Erase (pcFilename) > If clipIsImage() &&Len(_cliptext)=0 > If !type('_screen.system')='O' > Do prog\gdiplusx\app\system.app && change the path if necessary > Endif > With _SCREEN.System.Drawing > loBmp = .Bitmap.FromClipboard() > loBMP.Save(pcFilename, .Imaging.ImageFormat.Jpeg) > Endwith > Endif >Return filesize(pcFilename)>0>