UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

fdbchp


Buenas, 

Partiendo del código para logarse automáticamente en una cuenta de gmail (incluida en el archivo adjunto) quisiera adaptarlo para logarme en una intranet llamada globaliaportal.com 

He estado revisando el código fuente de globaliaportal.com y los parámetros varían con respecto a las lineas de código del archivo adjunto (en vez de ser dirección de mail y password, en la intranet en cuestión sería "empleado", "contraseña" y "entrar")

Adjunto a continuación la macro del ejemplo de gmail y a ver si alguien puede adaptármelo al caso que necesito. Las líneas que no sé substtuir son las que contienen el mail y el password de ejemplo junto con la linea del botón submitt. No sé si además habrá que modificar alguna otra parte del código.

Una vez más, gracias al foro.

---------------

Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
Sub MyGmail()

Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
On Error GoTo Err_Clear
MyURL = "https://www.gmail.com"
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.navigate MyURL
MyBrowser.Visible = True
Do
Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.document
HTMLDoc.all.Email.Value = "dinesh.takyar@gmail.com" 'Enter your email id here
HTMLDoc.all.passwd.Value = "abc+123" 'Enter your password here
For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
Next
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.