HMGforum.com

Code: Select all

    
    Local codUser    := "gretadmin"
    ie := CreateObject("InternetExplorer.Application")
    ie:navigate2( "https://gea-magnea.dev.agip/colosal_adminportal/gretadev/" )
    ie:Visible := TRUE
    ie:Top     := 0
    ie:Left    := 0
    ie:FullScreen := TRUE
    Do While ie:ReadyState <> 4 
         DoEvents()
    ENDDO
    ShowWindow( ie:hwnd, SW_SHOWMAXIMIZED )

    ie:Document:Forms(0):all("idvacum"):Value := codUser
    ie:Document:Title := "conectado a gretadev como  -->  [ " + codUser + "  ]"
    inkey(2)
    ie:Document:Forms[0]:submit()

Code: Select all

STATIC PROCEDURE Exm_IExplorer2()

   LOCAL oIE

   IF ( oIE := win_oleCreateObject( "InternetExplorer.Application" ) ) != NIL
      oIE:__hSink := __axRegisterHandler( oIE:__hObj, {| ... | QOut( ... ) } )
      oIE:Visible := .T.
      oIE:Navigate( "https://harbour.github.io" )
      WHILE oIE:ReadyState != 4
         hb_idleSleep( 0 )
      ENDDO
   ELSE
      ? "Error. Internet Explorer not available.", win_oleErrorText()
   ENDIF

   RETURN

Code: Select all

<input name="charSearch" class="formulario" type="text" size="20" value="">

Code: Select all

<input class="button" type="submit" value="Buscar">

Code: Select all

#include "hmg.ch"

Function Main()

Local oInputElement , oButtonElement, lTimeOut := .F.
Local cURL := "https://www.lawebdelprogramador.com/foros/Clipper-FiveWin/index1.html"
Local i, nTimeOut := 6 * 1000		//TimeOut 6 sek

set( _SET_CODEPAGE, 'UTF8' )

BEGIN SEQUENCE WITH {|o| break(o)}

	//Uruchamianie IE.Application (OLE) ...

	oIE := Win_OleCreateObject( "InternetExplorer.Application" )
	oIE:Visible := .F.
	
	//Otwieranie cURL...
	
	oIE:Navigate( cURL )
	IE_TimeOUT( nTimeOut )						//ustaw TimeOut
	Do While oIE:readyState # 4
		Do Events
		IF IE_TimeOUT()						//sprawdź TimeOut
			lTimeOut := .T.
			BREAK
		ENDIF
	EndDo

	//Sprawdzenie serwisu ...
	
	IE_TimeOUT( nTimeOut )						//ustaw TimeOut
	Do While oIE:Busy()
		IF IE_TimeOUT()						//sprawdź TimeOut
			lTimeOut := .T.
			BREAK
		ENDIF
	EndDo
	

	IE_TimeOUT( nTimeOut )						//ustaw TimeOut
	Do While oInputElement = Nil					//czekaj na załadowanie elementów name="charSearch"
		oInputElement := oIE:Document:GetElementsByName("charSearch")
		IF IE_TimeOUT()						//sprawdź TimeOut
			lTimeOut := .T.
			BREAK
		ENDIF
	EndDo

	FOR i := 1 TO oInputElement:Length
		IF oInputElement:Item( i-1 ):getAttribute("type") == "text" .AND. oInputElement:Item( i-1 ):getAttribute("class") == "formulario"
			 oInputElement:Item( i-1 ):Value := "conversor de mp3 a wav"		//ustaw wyszukiwanie na "conversor de mp3 a wav"
		ENDIF
	NEXT i


	IE_TimeOUT( nTimeOut )						//ustaw TimeOut
	Do While oButtonElement = Nil					//czekaj na załadowanie elementów class="button"
		oButtonElement := oIE:Document:getElementsByClassName("button")
		IF IE_TimeOUT()						//sprawdź TimeOut
			lTimeOut := .T.
			BREAK
		ENDIF
	EndDo

	FOR i := 1 TO oButtonElement:Length
		IF oButtonElement:Item( i-1 ):getAttribute("type") == "submit" .AND. oButtonElement:Item( i-1 ):Value == "Buscar"
			 oButtonElement:Item( i-1 ):Click(0)			//kliknij na przycisk
		ENDIF
	NEXT i

	IE_TimeOUT( nTimeOut )						//ustaw TimeOut
	Do While oIE:readyState # 4
		Do Events
		IF IE_TimeOUT()						//sprawdź TimeOut
			lTimeOut := .T.
			BREAK
		ENDIF
	ENDDO
	
	
	oIE:Visible := .T.
	
	SendMessage( oIE:hWnd, WM_SYSCOMMAND, 0xf030  /* SC_MAXIMIZE */, 0)
	
     
RECOVER USING oErr
		
     	IF lTimeOut
     		MsgStop( "TimeOut" )
     	ELSE
    		MsgStop(win_oleErrorText() + crLF + oErr:Description)
    	ENDIF
	    	
    	IF VALTYPE(oIE)='O'
		oIE:Quit()
	ENDIF
     
END SEQUENCE

RETURN
***********************************************************
Function IE_TimeOUT(nCzekaj)
STATIC nTimeIni := 0

IF VALTYPE(nCzekaj)='N' .AND. nCzekaj > 0		
	nTimeIni := hb_MilliSeconds() + nCzekaj
	RETURN .F.
ENDIF

DO EVENTS
hb_releaseCPU()

RETURN hb_MilliSeconds() > nTimeIni