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 ) DOEVENTSUse this function to save the clipboard to a jpg file, requires gdiplusx
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>Hi