acceso con usuario y contraseña a servidor https con vba excel
Publicado por Isidro gonzalez (2 intervenciones) el 18/12/2013 12:01:44
Buenos días, os cuento mi problema:
Estoy intentando programar en visual basic el acceso a una página https y autenticarme con usuario y contraseña, el caso es que cuando en el programa ejecuto paso a paso y llega a la instrucción de navegación, sale la pantalla de seguridad de windows con el usuario y contraseña, pero el programa de visual se queda parado y no sigue ejecutando las siguientes instrucciones de "búsqueda y rellenado del usuario y contraseña" , es como si esperase que los datos se introdujesen vía INTERFAZ DE USUARIO. Muchas gracias
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function SendMessageLONG Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_SETTEXT = &HC
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Sub CommandButton2_Click()
Dim link_name As String
Dim Progress As Integer
link_name = Sheets("Hoja1").Range("D2")
Call Sheets("Hoja1").WebBrowser1.Navigate(link_name)
----AQUI SE QUEDA PARADO EL PROGRAMA Y EN LA PANTALLA DEL EXPLORER SALE LA VENTANA DE SEGURIDAD DE WINDOWS---COMO SI ESPERASE QUE SE INTRODUJERAN LOS DATOS VÍA USUARIO
If Progress = 100 Then 'cuando carga la pagina al 100 % empieza el proceso
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function SendMessageLONG Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_SETTEXT = &HC
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_EXTENDEDKEY = &H1
End If
End Sub
Estoy intentando programar en visual basic el acceso a una página https y autenticarme con usuario y contraseña, el caso es que cuando en el programa ejecuto paso a paso y llega a la instrucción de navegación, sale la pantalla de seguridad de windows con el usuario y contraseña, pero el programa de visual se queda parado y no sigue ejecutando las siguientes instrucciones de "búsqueda y rellenado del usuario y contraseña" , es como si esperase que los datos se introdujesen vía INTERFAZ DE USUARIO. Muchas gracias
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function SendMessageLONG Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_SETTEXT = &HC
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Sub CommandButton2_Click()
Dim link_name As String
Dim Progress As Integer
link_name = Sheets("Hoja1").Range("D2")
Call Sheets("Hoja1").WebBrowser1.Navigate(link_name)
----AQUI SE QUEDA PARADO EL PROGRAMA Y EN LA PANTALLA DEL EXPLORER SALE LA VENTANA DE SEGURIDAD DE WINDOWS---COMO SI ESPERASE QUE SE INTRODUJERAN LOS DATOS VÍA USUARIO
If Progress = 100 Then 'cuando carga la pagina al 100 % empieza el proceso
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function SendMessageLONG Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_SETTEXT = &HC
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_EXTENDEDKEY = &H1
End If
End Sub
Valora esta pregunta


0