login to website using VBA

[Mromano]

I have been trying to go to this website and login. I get to the website but unable to login.


http://www.servicechannel.com/sc/login/client_login.asp

login is ABCOFA

 

[Ruddles]

Try something like this...

Option Explicit

Const MyUserName As String = "[COLOR=#FF0000][B]ABCOFA[/B][/COLOR]"
Const MyPassword As String = "[COLOR=#FF0000][B]squirrel[/B][/COLOR]"

Const READYSTATE_COMPLETE As Integer = 4

Dim objIE As Object

Public Sub LoginScript()
  
  Set objIE = CreateObject("InternetExplorer.Application")
  
  With objIE
    .Visible = True
    .Silent = True
    .Navigate ("[URL]http://www.servicechannel.com/sc/login/client_login.asp[/URL]")
    Do Until .ReadyState = READYSTATE_COMPLETE
      DoEvents
    Loop
    Application.Wait Now() + TimeValue("00:00:02")
    .document.all.UserName.Value = MyUserName
    .document.all.Password.Value = MyPassword
    .document.all.RememberMe.Value = True
    .document.forms(0).submit
    Do Until .ReadyState = READYSTATE_COMPLETE
      DoEvents
    Loop
    Application.Wait Now() + TimeValue("00:00:02")
  End With
End Sub

Let me know how it goes?

 

[Mromano]

it worked great thank you for your help

 

[Ruddles]

Well that genuinely surprised me!!