Release lox Public lox oShell = Createobject("Shell.Application") && A collection of the open windows that belong to the Shell oShellWindows = oShell.Windows For Each oIE In oShellWindows If "IEXPLORE.EXE" $ Justfname(Upper(oIE.FullName)) If 'YOURNAME'$Upper(oIE.LocationName) && Change YOURNAME to IE's caption for the relevant homepage lox=oIE Exit Endif Endif Endfor oShellWindows = Null oShell = Nullgdip = CreateObject("gpInit")
>Set Procedure To gpImage Additive >Declare Long FindWindow in Win32API String ClassName, String WindowName >gdip = CreateObject("gpInit") >img = CreateObject("gpImage") >abc = findwindow("IEFrame",NULL) >img.Capture(abc) >img.SaveAsJPEG("123456") >>~M
>>Function saveclipasjpg >> Lparameters cFilename >> Local llReturn, GDIP, img >> If Pcount()=0 Or Vartype(cFilename)#'C' >> cFilename="ClipImage" >> Endif >> cFilename=Forceext(cFilename,'jpg') >> Erase (cFilename) >> If clipIsImage() &&Len(_cliptext)=0 >> #include gpimage.h >> If Not "GPIMAGE" $ Set("Procedure") >> Set Procedure To gpimage Additive >> Endif >> GDIP = Createobject("gpInit") >> img = Createobject("gpImage") >> img.FromClipboard() >> img.saveAsJpeg(cFilename) >>*!* Release gdip >>*!* Release img >> Endif >> Return filesize(cFilename)>0 >>************************************************************************************************* >>Function clipIsImage >> #Define CF_BITMAP 2 >> Declare short IsClipboardFormatAvailable In win32api Integer cbformat >> Return IsClipboardFormatAvailable(CF_BITMAP)#0 >>************************************************************************************************* >>Function filesize >> Lparameters lcFileName >> Local lnReturn,lnAsize >> Local Array laDummy(1) >> lnReturn=0 >> lnAsize=Adir(laDummy,lcFileName) >> Do Case >> Case lnAsize=1 && Only one match, our goal >> lnReturn=laDummy(2) >> Case lnAsize=0 && No match >> lnReturn=0 >> Otherwise && More than one match >> lnReturn=-1 >> Endcase >>Return lnReturn>>