Private Sub Form_Load()
Dim FmLog, FmPsw, Headers As String, strURL, frm
MozillaBrowser2.Navigate2 "about:blank"
'MozillaBrowser2.Navigate2 "yandex.ru"
[color=yellow]strURL = "https://212.26.144.104:1453/"
MozillaBrowser2.Navigate2 strURL[/color]
FmLog = "tester3": FmPsw = "*****"
'Headers = "User-Agent:= " & "Mozilla/5.0 (Windows NT 5.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1"

Do Until MozillaBrowser2.ReadyState = READYSTATE_COMPLETE
    DoEvents
Loop

'If InStr(MozillaBrowser2.Document.URL, "https://212.26.144.104:1453/") > 0 Then
        '   Set frm = MozillaBrowser2.Document.loginform
        '        frm.user_login.Value = FmLog
        '        frm.Password.Value = FmPsw
          '      frm.submit
         '   Set frm = Nothing
       ' End If

'Debug.Print MozillaBrowser2.Document.documentElement.innerHTML
End Sub