Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
SALINETAS24 wrote: ↑Thu Dec 31, 2020 7:57 amHola Jalmag, tampoco me funciona. me dice que no reconoce la variable "_HMG_MAINHANDLE" y al principio del fichero puse los includes indicados.
#include "hmg.ch"
#include "_dbf.ch"
#include "dbstruct.ch"
#include "ficheIO.ch"
Estoy usando XP con HMG3.4.
Muchas gracias por contestar.
Code: Select all
#include "hmg.ch"
#include "dbstruct.ch"
#include "FileIO.ch"
FUNCTION MAIN
Public _HMG_MainHandle := 0
Public cnombreHTML:= "https://www.hmgforum.com/viewtopic.php?f=24&t=6725"
_Execute( _HMG_MainHandle, "open", cnombreHTML )
Return Nil
Code: Select all
PUBLIC oIE As Object
PUBLIC ccUID := ""
PUBLIC cAurelia := "https://www.lawebdelprogramador.com/foros/Clipper-FiveWin/index1.html"
PUBLIC nHeight := 0
PUBLIC nWidth := 0
public miState := 0
nHeight := GetDesktopHeight()-100
nWidth := GetDesktopWidth()-3
set( _SET_CODEPAGE, 'UTF8' )
ccUID := GetUserName()
IF ( oIE := win_oleCreateObject( "InternetExplorer.Application" ) ) != NIL
oIE:__hSink := __axRegisterHandler( oIE:__hObj, {| ... | QOut( ... ) } )
oIE:visible := .F.
oIE:Navigate( cAurelia )
DoEvents()
WHILE oIE:ReadyState != 4
DoEvents()
hb_idleSleep( 5 )
ENDDO
ELSE
MsgInfo( "Error. Internet Explorer not available.", win_oleErrorText() )
ENDIF
BEGIN SEQUENCE WITH {|o| break(o)}
oIE:document:refresh()
oIE:document:forms(0):all("textSearch"):Value := "Harbour"
oIE:document:Title := "Buscando en la web del programador"
oIE:Document:Forms[0]:submit()