<TD><INPUT class=fld-input maxLength=10 name=login></TD>
.........
<TD><INPUT class=fld-input type=password maxLength=8 name=passwd></TD>
.........
<INPUT class=doc-button type=submit value=" Ok " name=Action>
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate ("ТУТ_АДРЕС_СТРАНИЦЫ_POLICE.HTM/Police.files/login.htm")
'т.е. если адрес страницы был, например, http://127.0.0.1/Police.htm, то адрес в код должен быть http://127.0.0.1/Police.files/login.htm
Do While ie.ReadyState <> 4
Loop
DoEvents
'ie: form name="
ie.Document.forms(0).all("login").Value = "ВАШ_ЛОГИН"
ie.Document.forms(0).all("passwd").Value = "ВАШ_ПАРОЛЬ"
ie.Document.forms(0).all("Action").Click
реально открыта нужная страница
Интересно откуда Вы вяли эти данные ("login"), ("passwd"), ("Action")??????
<FRAMESET border=0 frameSpacing=0 rows=65,* frameBorder=0>
<FRAME name=frm_title marginWidth=0 marginHeight=0 src="Police.files/title.htm" noResize scrolling=no>
<FRAME name=frm_body marginWidth=0 marginHeight=0 src="Police.files/login.htm"></FRAMESET>
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.