Code: Select all
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
.navigate "https://w89-afip.dev.notify/ual_alloca5416_portal/ministerioeconomia/"
.Visible = True
apiShowWindow ie.hwnd, SW_MAXIMIZE
ieBusy ie
Dim env As Object, term As Object
.Document.Forms(0).all("edTerminal").Value = terminalcode
.Document.Forms(0).submit
End With
Code: Select all
#include "FileIO.ch"
#include "hmg.ch"
FUNCTION Main()
PUBLIC ie As Object
PUBLIC env As Object
PUBLIC term As Object
ie := CreateObject("InternetExplorer.Application")
ie:navigate( "https://w89-afip.dev.notify/ual_alloca5416_portal/ministerioeconomia/" )
ie:Visible = True
apiShowWindow( ie:hwnd, SW_MAXIMIZE )
ie:Busy( ie )
ie:Document:Forms(0):all("edTerminal"):Value := terminalcode
ie:Document:Forms(0):submit()
RETURN NIL