The page i have been loggin on to has been updated and now the code i have been using doesn't work.
i have also tried this
[/TD]
[/TR]
</tbody>[/TABLE]
The result is still that i get no information in the login and password fields
Can anyone pls help on this?!?!
The ID on this is "pf.username" maybe this has something to do with it, i am at a lossas to what i can do
Code:
[TABLE="width: 705"]
<colgroup><col></colgroup><tbody>[TR]
[TD]Dim HTMLDoc As HTMLDocument
[/TD]
[/TR]
[TR]
[TD]Dim MyBrowser As InternetExplorer[/TD]
[/TR]
[TR]
[TD]Sub XXXx()[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Dim MyHTML_Element As IHTMLElement
[/TD]
[/TR]
[TR]
[TD]Dim MyURL As String[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]On Error GoTo Err_Clear[/TD]
[/TR]
[TR]
[TD]MyURL = "https://www.xxx.com"[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Set MyBrowser = New InternetExplorer[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]MyBrowser.Silent = True[/TD]
[/TR]
[TR]
[TD]MyBrowser.navigate MyURL[/TD]
[/TR]
[TR]
[TD]MyBrowser.Visible = True[/TD]
[/TR]
[TR]
[TD]Do[/TD]
[/TR]
[TR]
[TD]Loop Until MyBrowser.readyState = READYSTATE_COMPLETE[/TD]
[/TR]
[TR]
[TD]Set HTMLDoc = MyBrowser.document[/TD]
[/TR]
[TR]
[TD]HTMLDoc.all.Email.Value = "Infousername"[/TD]
[/TR]
[TR]
[TD]HTMLDoc.all.password.Value = "Info password"[/TD]
[/TR]
[TR]
[TD]For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")[/TD]
[/TR]
[TR]
[TD]If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For[/TD]
[/TR]
[TR]
[TD]Next[/TD]
[/TR]
[TR]
[TD]Err_Clear:[/TD]
[/TR]
[TR]
[TD]If Err <> 0 Then[/TD]
[/TR]
[TR]
[TD]Err.Clear[/TD]
[/TR]
[TR]
[TD]Resume Next[/TD]
[/TR]
[TR]
[TD]End If[/TD]
[/TR]
[TR]
[TD]End Sub[/TD]
[/TR]
</tbody>[/TABLE]
i have also tried this
Code:
[TABLE="width: 705"]
<colgroup><col></colgroup><tbody>[TR]
[TD]Sub Test_LoginXXX()
[/TD]
[/TR]
[TR]
[TD]LoginXXX"kmail", "kPassword"[/TD]
[/TR]
[TR]
[TD]End Sub[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Sub LoginXXX(email As String, password As String)[/TD]
[/TR]
[TR]
[TD]Const strURL_c As String = "https://www.xxx.com"[/TD]
[/TR]
[TR]
[TD]Dim url As String[/TD]
[/TR]
[TR]
[TD]Dim objIE As SHDocVw.InternetExplorer[/TD]
[/TR]
[TR]
[TD]Dim ieDoc As MSHTML.HTMLDocument[/TD]
[/TR]
[TR]
[TD]Dim tbxPwdFld As MSHTML.HTMLInputElement[/TD]
[/TR]
[TR]
[TD]Dim tbxUsrFld As MSHTML.HTMLInputElement[/TD]
[/TR]
[TR]
[TD]Dim btnSubmit As MSHTML.HTMLInputElement[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Excel.Application.Cursor = xlWait[/TD]
[/TR]
[TR]
[TD]On Error GoTo Err_Hnd[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Set objIE = New SHDocVw.InternetExplorer[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]objIE.navigate strURL_c[/TD]
[/TR]
[TR]
[TD]objIE.Visible = True[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Do Until objIE.readyState = READYSTATE_COMPLETE: Loop[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Set ieDoc = objIE.document[/TD]
[/TR]
[TR]
[TD]Application.Wait Now + TimeValue("00:00:05")[/TD]
[/TR]
[TR]
[TD]ieDoc.getElementsByName("email").Item(0).Value = PIN[/TD]
[/TR]
[TR]
[TD]ieDoc.getElementById("password").Value = Password[/TD]
[/TR]
[TR]
[TD]ieDoc.getElementsByClassName("btn btn-primary btn-med ladda-button").Item(0).Click[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Err_Hnd:[/TD]
[/TR]
[TR]
[TD]objIE.Visible = True[/TD]
[/TR]
[TR]
[TD]On Error GoTo 0[/TD]
[/TR]
[TR]
[TD]Excel.Application.Cursor = xlDefault[/TD]
[/TR]
[TR]
[TD]End Sub
[/TR]
</tbody>[/TABLE]
The result is still that i get no information in the login and password fields
Can anyone pls help on this?!?!
The ID on this is "pf.username" maybe this has something to do with it, i am at a lossas to what i can do