Sub AutoLogin()

Dim IEapp As Object
Dim oName As Object
Dim oPass As Object
Dim oSumbit As Object
Dim URL As String
Dim iCount As Long
'Application.ScreenUpdating = False
URL = "h t t p ://www.fantagazzetta.com"'modificre

Set IEapp = CreateObject("InternetExplorer.Application")
IEapp.navigate URL
IEapp.Visible = True 'aspettare che la pagina si apra ed riporta "fine" in basso

    'For iCount = 1 To 1000 'aspettare che si apra la pagina IE
    'Next iCount
    'MsgBox "1° adesso premi CTRL+ALI+PAUSE, dopo premi debug"
'LinkButtonLogout
    
'Set oSubmit = IEapp.document.getElementById("ButtonLogout")
Set oSubmit = IEapp.document.getElementById("LinkButtonLogout") 'aspettare che la pagina si apra ed riporta "fine" in basso
    'For iCount = 1 To 1000 'aspettare che si apra la pagina IE
    'Next iCount
    'MsgBox "2° adesso premi CTRL+ALI+PAUSE, dopo premi debug"
oSubmit.Click
While IEapp.Busy Or IEapp.readyState <> 4: DoEvents: Wend

AssignObjects: ' qui mi sa che è ancora sulla pagina precedente
'??????????????'

'Set oUser = IEapp.document.getElementById("HeaderMasterPageElle_LoginMasterKnob_TextBoxUserName")
'Set oPass = IEapp.document.getElementById("HeaderMasterPageElle_LoginMasterKnob_TextBoxPassword")
Set oUser = IEapp.document.getElementById("ctl00$HeaderMasterPageKnob$LoginMasterKnob$TextBoxUserName")
Set oPass = IEapp.document.getElementById("ctl00$HeaderMasterPageKnob$LoginMasterKnob$TextBoxPassword")
Set oSubmit = IEapp.document.getElementById("ButtonSubmit")
'ctl00$HeaderMasterPageKnob$LoginMasterKnob$TextBoxUserName
'ctl00$HeaderMasterPageKnob$LoginMasterKnob$TextBoxPassword
If oUser Is Nothing Or oPass Is Nothing Or oSubmit Is Nothing Then
DoEvents
GoTo AssignObjects
End If


oUser.Focus
oUser.Value = "ultra1927"
oUser.FireEvent "onkeydown"

oPass.Focus
oPass.Value = "manfredi"
oPass.FireEvent "onkeydown"

oSubmit.Click
IEapp.Quit
MsgBox "ok"
End Sub