>Local lnTime,lTest, llAlredyup >lnTime=1200 && 12 seconds >lox=.Null. >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 'YOURCOMPANY'$Upper(oIE.LocationName) > lox=oIE > llAlredyup=.T. > Exit > Endif > Endif >Endfor >oShellWindows = Null >oShell = Null >If !llAlredyup And Vartype(lox)#'O' > lox=Createobject('internetexplorer.application') > lox.Navigate('http://.......') > lox.Visible=.T. > Wait 'navigates!' Window Nowait > If !NavComplete(lox,lnTime) > ??Chr(7) > Wait 'Timeout error!' Window > lox.Visible=.F. > Release lox > Return > Endif > Wait Clear >Endif >***************************************************************************** >Function NavComplete > Lpara toIE, tnTimeout > lnTimeout=Iif( Type("tnTimeout")="N",tnTimeout ,60 ) > lnTimeElapsed=0 > lnStartSeconds=Seconds() > Do While .T. > If toIE.ReadyState=4 > Do While .T. > If toIE.Document.ReadyState="complete" > Return .T. > Endif > If (Seconds()-lnStartSeconds)>lnTimeout > Return .F. > Endif > Enddo > Endif > If (Seconds()-lnStartSeconds)>lnTimeout > Return .F. > Endif > Enddo >Endfunc>
>>>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 = Null>>>gdip = 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>>>>>