Private Sub btnJamesHardie_Click()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = True
.Navigate "your web site"
Do While .ReadyState <> 4
DoEvents
Loop
With .Document.Forms(0)
.UserName.Value = "your login"
.Password.Value = "your password"
.Document.loginForm.submit
End With
End With
End Sub
|