Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim objSelenium As Selenium
Private Sesion As Boolean
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
objSelenium.DebugMode = True
objSelenium.Initialize("chromedriver.exe","objSelenium")
objSelenium.addArgument("--headless")
objSelenium.Navigate("https://www.loginpage.com/")
Log(objSelenium.GetTitle)
Log(objSelenium.GetURL)
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Sub objSelenium_onNavigate()
Log(objSelenium.GetURL)
Dim strPagina As String = objSelenium.GetURL
strPagina = strPagina.SubString(strPagina.LastIndexOf("/")+1).ToUpperCase
If strPagina.IndexOf(";JSESSIONID") > 0 Then strPagina = strPagina.SubString2(0, strPagina.IndexOf(";JSESSIONID"))
If strPagina.IndexOf("?") > 0 Then strPagina = strPagina.SubString2(0, strPagina.IndexOf("?"))
If strPagina.IndexOf("#") > 0 Then strPagina = strPagina.SubString2(0, strPagina.IndexOf("#"))
' Log("Page LOADED: "& strPagina)
Navego (strPagina)
End Sub
private Sub Navego (Pagina As String)
Select Pagina
Case "DEFLOGIN.FACES","DEFINICIOMUISCA.FACES","DEFLOGINOLD.FACES"
If Encontrar("vistaActuarAutorizacion:frmActuarAutorizacion") Then
HacerLogin
Else If Encontrar("vistaLogin:frmLogin") Then
HacerLogin
Else if Encontrar("vistaMenuUsuario:frmMenuUsuario") Then
If Not(Sesion) Then
Sesion = True
Log("incio Sesion")
objSelenium.Navigate ( "https://salidademercancias.dian.gov.co/WebGestionexpediente/DefBandejaExpedientes.faces")
End If
End If
Case "DEFMOSTRARREPORTEVACIO.FACES"
Case "DEFLSTDETALLECASOEXPEDIENTE.FACES","DEFPAGPRINCIPALPALDUA.FACES"
If Encontrar("vistaPagPrincipalpalDua:frmPagPrincipalpalDua:numeroDocAnterior") Then
objSelenium.SendKeysByID("vistaPagPrincipalpalDua:frmPagPrincipalpalDua:numeroDocAnterior","6007662615738")
End If
Case Else
Log("Pagina sin caso: """ & Pagina & """")
End Select
End Sub
Private Sub HacerLogin
objSelenium.SendKeys("vistaLogin:frmLogin:selNit","0")
objSelenium.SendKeys("vistaLogin:frmLogin:txtNit","xxxxxxxx")
objSelenium.SendKeys("vistaLogin:frmLogin:selTipoDoc","13")
objSelenium.SendKeys("vistaLogin:frmLogin:txtUsuario","xxxxxxxxx")
objSelenium.SendKeys("vistaLogin:frmLogin:txtCadena","xxxxxxxx")
objSelenium.ClickByXPath ("//*[@id='vistaLogin:frmLogin']/table[3]/tbody/tr[2]/td/table/tbody/tr[1]/td[4]/input")
End Sub
private Sub Encontrar (Ruta As String) As Boolean
Try
Dim res As Boolean = objSelenium.IsDisplayed(Ruta)
Return res
Catch
Log(LastException)
End Try
Return False
End Sub
