Программное "хождение по сайту"
Здравствуйте!
У моего провайдера заведено так, что свой лицевой счёт нужно смотреть на сайте. Каждый раз открывать стартовую страницу, вводить логин и пароль, нажимать на одну ссылку, нажимать на вторую ссылку и ВОТ... Я вижу свой счёт. Это надоело уже.
Ну и я подумал, раз уж мы здесь занимаемся программированием))... Может есть способ программно эти все шаги выполнить? Чтобы я запустил программу - бац, счёт!
А ещё лучше - если найти строку со счётом, считать её ... Счёт бы регулярно обновлялся и висел где-нибудь на рабочем столе. Отлично было бы!
А сам сайт вообще не открывать :)
Вот такая замороченнаяа идея. Есть у кого мысли?
Спасибо!
чтобы вообще не было заморочек, можно полностью эмулировать действия пользователя, навроде:
Const login = "MYLOGIN"
Const pwd = "MYPWD"
Dim State As String
Private Sub Command1_Click()
State = "login"
WebBrowser1.Navigate URL:="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*START_PAGE"
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
If State = "login" Then
State = "gostat"
With pDisp.Document.Forms(0)
.p_logname.Value = login
.p_pwd.Value = pwd
.submit
End With
ElseIf State = "gostat" Then
'здесь что показывает? мне кажет не правильный пароль или имя пользователя((
'если логинится - идем дальше...
End If
End Sub
Вот чего надо :)
Примечание: при нажатии на Статистику, адрес никак не меняется.
И там обведённые области желательно считать - это будет блеск!
Я с WebBrowser-контролом никогда не работал, поэтому могу только нагло попросить тщательно объяснить чего делать, чтобы моё желание исполнилось.
Если что нужно ещё знать, я, конечно, всё скажу))
там же где и в VB6
на Toolbox-е (где контролы для формы) - правой кнопкой->Additional controls->Обозреватель веб страниц(Microsoft)
но если не нужно ничего отображать на своей форме, можно обойтись и без контрола. есть Automation сервер для IE это 'InternetExplorer.Application', тот же WebBrowser только не контрол:
If Not IE Is Nothing Then
IE.Navigate "http://codenet.ru"
IE.Visible=True
...
End If
картинки мне абсолютно ничего не говорят, нужен HTML страниц. В IE(в Opere у меня только frameset показывает) правой кнопкой на странице->Просмотр HTML кода. Или на самой ссылке правой кнопкой ->Свойства - в Адрес(URL) что написано? или в StatusBar когда мышка над ссылкой...
ну а дальше все просто.
можно или вручную собирать ссылку с нужными параметрами(если знаем как она должна выглядеть) и просто вызывать Navigate на эту ссылку. Будет открываться нужная страница(если все правильно), когда откроется возникнет событие NavigateComplete, где параметрами будут URL этой страницы и pDisp - интерфейс нашего Browsera, pDisp.Document - HTMLDocument открытой страницы(HTML DOM знаешь? в JavaScript для web работал? так это window.document). т.е ч/з pDisp мы имеем полный доступ к загруженой странице, к ее текстам, ссылкам, формам и т.п...
Дальнейшее действие можно конечно определить по URL, но удобнее и понятнее ч/з State, как в автомате.
при State="gostat" мы можем или вызвать Navigate с url из href ссылки Отчеты(рис 1), или, если возникнуть проблемы, можем найти эту ссылку в DOM pDisp.Document и вызвать ее click.
откроется вторая страница(State уже должен быть соответствующий), берем что нужно или ч/з DOM или с пом. RegExp, click нужную ссылку и т.д......
Я так и думал... В HTML я не шпрех ни как вообще! В том то и проблема моего хотения))
А к рисункам могу дать html-коды. Он сволочь на все страницы давал один и тот же код, который отображён для Рисунка 1. Потом открыл последние две ссылки с шифтом в новых окнах - показал вроде бы нормальный код, тот что нужен. А к первому так не получится, там же не ссылка, а кнопка. Поэтому удалось получить только это...
Рисунок 1:
<frameset rows="*" >
<frame src="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*START_PAGE" name="startip">
</frame>
</frameset>
</html>
Рисунок 2:
<TITLE>Домашняя страница клиента выделенных линий</TITLE>
<FRAMESET ROWS = "120px,*,60px" BORDER = 0>
<FRAME SRC = "www.PageViewer?page_name=Z*ADM_NET_MENU_REP&logname=ЛОГИН&chksum=382359773061388" MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING = no NAME ="MENU">
<FRAME SRC = "www.PageViewer?page_name=Z*STAT_INSTR&logname=ЛОГИН&chksum=382359773061388" MARGINHEIGHT=5 MARGINWIDTH=5 SCROLLING = auto NAME ="MAIN">
<FRAME SRC = "www.PageViewer?page_name=Z*BOTTOM_PAGE" MARGINHEIGHT=5 MARGINWIDTH=5 SCROLLING = no NAME ="BOTTOM">
</FRAMESET>
</HTML>
<HEAD>
<META HTTP-EQUIV = "Content-Type" CONTENT = "text/html;CHARSET=koi8-r">
<STYLE>
BODY{
FONT-FAMILY : Arial, Verdana, Courier;
BACKGROUND-COLOR : #FFFFFF;
}
TH{
FONT-WEIGHT : normal;
FONT-SIZE : 12px;
BACKGROUND-COLOR :#5D6D9D;
COLOR : #FFFFFF;
}
.str1{
BACKGROUND-COLOR : #CFCFCF;
COLOR : #000000;
}
.str2{
BACKGROUND-COLOR : #EEEEEE;
COLOR : #000000;
}
TD{
FONT-SIZE : 12px;
}
A{
FONT-WEIGHT : normal;
}
.tblzag{
FONT-FAMILY : Arial, Verdana, Courier;
BACKGROUND-COLOR : #FFFFFF;
FONT-SIZE : 16px;
FONT-WEIGHT : normal;
COLOR : #5D6D9D;
}
.zag{
BACKGROUND-COLOR : #5D6D9D;
FONT-FAMILY : Arial, Verdana, Courier;
FONT-SIZE : 12px;
FONT-WEIGHT : normal;
FONT-STYLE : normal;
COLOR : #FFFFFF;
}
.txt{
BACKGROUND-COLOR : #FFFFFF;
FONT-FAMILY : Arial, Verdana, Courier;
FONT-SIZE : 12px;
FONT-WEIGHT : normal;
FONT-STYLE : normal;
COLOR : #000000;
}
.foot{
BACKGROUND-COLOR : #5D6D9D;
FONT-FAMILY : Arial, Verdana, Courier;
FONT-SIZE : 12px;
FONT-WEIGHT : normal;
FONT-STYLE : normal;
COLOR : #FFFFFF;
}
</STYLE>
</HEAD>
<BODY LINK = "#000000" ALINK = "#000000" VLINK = "#000000">
<FORM ACTION = "www.PageViewer">
<INPUT TYPE = hidden NAME = page_name VALUE = 'S*ADM_NET_REP_CON_GROUP'>
<INPUT TYPE = hidden NAME = logname VALUE = 'ЛОГИН'>
<INPUT TYPE = hidden NAME = chksum VALUE = '382359773061388'>
<INPUT TYPE = hidden NAME = n1 VALUE = 'p_start_day'>
<INPUT TYPE = hidden NAME = n2 VALUE = 'p_start_month'>
<INPUT TYPE = hidden NAME = n3 VALUE = 'p_start_year'>
<INPUT TYPE = hidden NAME = n4 VALUE = 'p_finish_day'>
<INPUT TYPE = hidden NAME = n5 VALUE = 'p_finish_month'>
<INPUT TYPE = hidden NAME = n6 VALUE = 'p_finish_year'>
<INPUT TYPE = hidden NAME = n7 VALUE = 'p_username'>
<INPUT TYPE = hidden NAME = n8 VALUE = 'p_row_count'>
<INPUT TYPE = hidden NAME = n9 VALUE = 'p_page_num'>
<INPUT TYPE = hidden NAME = v9 VALUE = '1'>
<INPUT TYPE = hidden NAME = n10 VALUE = 'p_logname_detail'>
<TABLE WIDTH=700 BORDER=0 ALIGN="center">
<TR BGCOLOR=#FFFFFF HEIGHT=15><TD> </TD></TR>
<TR BGCOLOR="#5D6D9D">
<TD>
<TABLE CELLPADDING=5 CELLSPACING=0 BORDER=0 WIDTH="100%">
<TR BGCOLOR="#5D6D9D">
<TD COLSPAN="4" CLASS=zag>Параметры запроса</TD>
</TR>
<TR BGCOLOR="#FFFFFF">
<TD CLASS="txt" ALIGN="right">Дата начала</TD>
<TD CLASS="txt" ALIGN = "left">
<SELECT NAME = "v1">
<OPTION VALUE="01" SELECTED >01
<OPTION VALUE="02" >02
<OPTION VALUE="03" >03
<OPTION VALUE="04" >04
<OPTION VALUE="05" >05
<OPTION VALUE="06" >06
<OPTION VALUE="07" >07
<OPTION VALUE="08" >08
<OPTION VALUE="09" >09
<OPTION VALUE="10" >10
<OPTION VALUE="11" >11
<OPTION VALUE="12" >12
<OPTION VALUE="13" >13
<OPTION VALUE="14" >14
<OPTION VALUE="15" >15
<OPTION VALUE="16" >16
<OPTION VALUE="17" >17
<OPTION VALUE="18" >18
<OPTION VALUE="19" >19
<OPTION VALUE="20" >20
<OPTION VALUE="21" >21
<OPTION VALUE="22" >22
<OPTION VALUE="23" >23
<OPTION VALUE="24" >24
<OPTION VALUE="25" >25
<OPTION VALUE="26" >26
<OPTION VALUE="27" >27
<OPTION VALUE="28" >28
<OPTION VALUE="29" >29
<OPTION VALUE="30" >30
<OPTION VALUE="31" >31
</SELECT>
<SELECT NAME = "v2">
<OPTION VALUE = "01" >Январь
<OPTION VALUE = "02" >Февраль
<OPTION VALUE = "03" >Март
<OPTION VALUE = "04" >Апрель
<OPTION VALUE = "05" SELECTED >Май
<OPTION VALUE = "06" >Июнь
<OPTION VALUE = "07" >Июль
<OPTION VALUE = "08" >Август
<OPTION VALUE = "09" >Сентябрь
<OPTION VALUE = "10" >Октябрь
<OPTION VALUE = "11" >Ноябрь
<OPTION VALUE = "12" >Декабрь
</SELECT>
<SELECT NAME = "v3">
<OPTION VALUE = "2008" SELECTED >2008
<OPTION VALUE = "2007" >2007
<OPTION VALUE = "2006" >2006
<OPTION VALUE = "2005" >2005
</SELECT>
</TD>
<TD CLASS="txt" ALIGN="right">Дата окончания</TD>
<TD CLASS="txt" ALIGN = "left">
<SELECT NAME = "v4">
<OPTION VALUE="01" >01
<OPTION VALUE="02" >02
<OPTION VALUE="03" >03
<OPTION VALUE="04" >04
<OPTION VALUE="05" >05
<OPTION VALUE="06" SELECTED >06
<OPTION VALUE="07" >07
<OPTION VALUE="08" >08
<OPTION VALUE="09" >09
<OPTION VALUE="10" >10
<OPTION VALUE="11" >11
<OPTION VALUE="12" >12
<OPTION VALUE="13" >13
<OPTION VALUE="14" >14
<OPTION VALUE="15" >15
<OPTION VALUE="16" >16
<OPTION VALUE="17" >17
<OPTION VALUE="18" >18
<OPTION VALUE="19" >19
<OPTION VALUE="20" >20
<OPTION VALUE="21" >21
<OPTION VALUE="22" >22
<OPTION VALUE="23" >23
<OPTION VALUE="24" >24
<OPTION VALUE="25" >25
<OPTION VALUE="26" >26
<OPTION VALUE="27" >27
<OPTION VALUE="28" >28
<OPTION VALUE="29" >29
<OPTION VALUE="30" >30
<OPTION VALUE="31" >31
</SELECT>
<SELECT NAME = "v5">
<OPTION VALUE = "01" >Январь
<OPTION VALUE = "02" >Февраль
<OPTION VALUE = "03" >Март
<OPTION VALUE = "04" >Апрель
<OPTION VALUE = "05" SELECTED >Май
<OPTION VALUE = "06" >Июнь
<OPTION VALUE = "07" >Июль
<OPTION VALUE = "08" >Август
<OPTION VALUE = "09" >Сентябрь
<OPTION VALUE = "10" >Октябрь
<OPTION VALUE = "11" >Ноябрь
<OPTION VALUE = "12" >Декабрь
</SELECT>
<SELECT NAME = "v6">
<OPTION VALUE = "2008" SELECTED >2008
<OPTION VALUE = "2007" >2007
<OPTION VALUE = "2006" >2006
<OPTION VALUE = "2005" >2005
</SELECT>
</TD>
</TR>
<TR BGCOLOR="#FFFFFF">
<TD CLASS="txt" ALIGN = "right">Список подключений</TD>
<TD CLASS="txt" ALIGN = "left">
<SELECT NAME = "v7">
<OPTION VALUE="-1" >Все подключения
<OPTION VALUE="-2" >Суммарная статистика
<OPTION VALUE="ЛОГИН" SELECTED >
ЛОГИН
</SELECT>
</TD>
<TD CLASS="txt" ALIGN = "right">Количество записей</TD>
<TD CLASS="txt" ALIGN = "left">
<SELECT NAME = "v8">
<OPTION VALUE="20" SELECTED >20
<OPTION VALUE="50" >50
<OPTION VALUE="100" >100
</SELECT>
</TD>
</TR>
<TR BGCOLOR="#FFFFFF">
<TD CLASS="txt" ALIGN = "right">Детализация по сервисам</TD>
<TD CLASS="txt" ALIGN = "left"><INPUT TYPE='checkbox' NAME="v10" VALUE='Y'
></TD>
<TD CLASS="txt" COLSPAN = 2> </TD>
</TR>
</TABLE>
</TD>
</TR>
<TR BGCOLOR=#FFFFFF HEIGHT=15><TD> </TD></TR>
<TR>
<TD COLSPAN = 2 ALIGN = "center">
<INPUT TYPE = submit VALUE = "Поиск">
</TD>
</TR>
</TABLE>
</FORM>
<TABLE WIDTH=50% ALIGN="center" CELLPADDING="0" CELLSPACING="0" BORDER="0" BGCOLOR="#5D6D9D">
<TR BGCOLOR=#FFFFFF HEIGHT=15><TD> </TD></TR>
<TR><TD CLASS="tblzag" ALIGN="center">Статистика (суммарная по услугам) за выбранный период</TD></TR>
<TR BGCOLOR=#FFFFFF HEIGHT=15><TD> </TD></TR>
<TR>
<TD>
<TABLE WIDTH="100%" ALIGN="center" CELLPADDING="3" CELLSPACING="1" BORDER="0">
<TR CLASS=str1>
<TD>Всего записей : 5</TD>
<TD COLSPAN=3>
<A HREF="www.PageViewer?page_name=S*ADM_NET_REP_CON_GROUP&logname=ЛОГИН&chksum=382359773061388&n1=p_start_day&v1=01&n2=p_start_month&v2=05&n3=p_start_year&v3=2008&n4=p_finish_day&v4=06&n5=p_finish_month&v5=05&n6=p_finish_year&v6=2008&n7=p_username&v7=&n8=p_page_num&v8=1&n9=p_row_count&v9=20&n10=p_logname_detail&v10=N">(1)</A>
</TD></TR>
<TR> <TH>Подключение</TH> <TH>Услуга</TH> <TH>Количество</TH> <TH>Стоимость (RUB)</TH></TR>
<TBODY>
<TR CLASS=str1>
<TD ALIGN = "LEFT">ЛОГИН</TD> <TD ALIGN = "LEFT">Webstream Предоставление 50 Мб, ежемесячно</TD> <TD ALIGN = "RIGHT">1 шт</TD> <TD ALIGN = "RIGHT"> 50.00</TD>
</TR>
<TR CLASS=str2>
<TD ALIGN = "LEFT">ЛОГИН</TD> <TD ALIGN = "LEFT">Webstream Предоставление порта по телефонной линии</TD> <TD ALIGN = "RIGHT">1 шт</TD> <TD ALIGN = "RIGHT"> 100.00</TD>
</TR>
<TR CLASS=str1>
<TD ALIGN = "LEFT">ЛОГИН</TD> <TD ALIGN = "LEFT">Внутризоновый трафик</TD> <TD ALIGN = "RIGHT">5.042 Мб</TD> <TD ALIGN = "RIGHT"> 1.21</TD>
</TR>
<TR CLASS=str2>
<TD ALIGN = "LEFT">ЛОГИН</TD> <TD ALIGN = "LEFT">Магистральный трафик</TD> <TD ALIGN = "RIGHT">50 Мб</TD> <TD ALIGN = "RIGHT"> 0.00</TD>
</TR>
<TR CLASS=str1>
<TD ALIGN = "LEFT">ЛОГИН</TD> <TD ALIGN = "LEFT">Магистральный трафик</TD> <TD ALIGN = "RIGHT">62.244 Мб</TD> <TD ALIGN = "RIGHT"> 136.94</TD>
</TR>
</TBODY>
<TFOOT>
<TR>
<TD CLASS=foot> </TD> <TD CLASS=foot> </TD> <TD CLASS=foot> </TD> <TD CLASS=foot ALIGN = "RIGHT"> 288.15</TD>
</TR>
<TR CLASS=str1>
<TD>Всего записей : 5</TD>
<TD COLSPAN=3>
<A HREF="www.PageViewer?page_name=S*ADM_NET_REP_CON_GROUP&logname=ЛОГИН&chksum=382359773061388&n1=p_start_day&v1=01&n2=p_start_month&v2=05&n3=p_start_year&v3=2008&n4=p_finish_day&v4=06&n5=p_finish_month&v5=05&n6=p_finish_year&v6=2008&n7=p_username&v7=&n8=p_page_num&v8=1&n9=p_row_count&v9=20&n10=p_logname_detail&v10=N">(1)</A>
</TD></TR>
</TFOOT>
</TABLE>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
Нужные строчки получается почти в конце кода которые...
попробуй (в IE!!!)правой кнопкой (не через главное меню!!!) в верхней части страницы (над меню)->Просмотр HTML кода. или попробуй (в IE) сохранить как (веб страница полностью (htm,html)), в папке для этой страницы могут быть html файлы для каждого фрейма.
или програмно "потыкаем"(в ссылках у них checksum какой-то стоит, поэтому вариант с генерацией URL скорее всего не прокатит, делаем ч/з DOM):
Const login = "MYLOGIN"
Const pwd = "MYPWD"
Dim State As String
Private Sub Command1_Click()
State = "login"
WebBrowser1.Navigate URL:="http://webstat.irtel.ru/"
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
If State = "login" Then 'логинимся
State = "page1"
With pDisp.Document.Frames(0).Document.Forms(0)
.p_logname.Value = login
.p_pwd.Value = pwd
.submit
End With
ElseIf State = "page1" Then 'нажимаем ОТЧЕТЫ
State = "page2"
Dim a
For Each a In pDisp.Document.Frames(0).Document.links
MsgBox a.outerHTML
'чего выводит? особо интересует тот HTML где есть слово ОТЧЕТЫ(если есть такой, если нет, интересуют все)
Next a
End If
End Sub
MsgBox -ы выскакивают? что пишут?
Строчка "With pDisp.Document.Forms(0)" была заменена на "With pDisp.Document.Frames(0).Document.Forms(0)", и теперь он на ней выдаёт 91-ю ошибку (Object variable or With block variable not set). Заменил на старую, стал выдавать такую ошибку на строчке "For Each a In pDisp.Document.Frames(0).Document.links". Заменил её на "For Each a In pDisp.Document.links" - выдал MsgBox "<A href="/pls/www/www.ViewHomePage?p_logname=ЛОГИН&p_chksum=486920802997510">Идет загрузка...</A>".
И показал страницу, там где надо Отчёт нажать, в общем как и в первом случае.
http://webstat.irtel.ru/.
выдает ошибку? у меня логинится(в смысле пишет что неправильный пароль).
поставь breakpoint, добавь watch, где цепочка pDisp.Document.Frames(0).Document.Forms(0) обрывается?
если есть промежуточная страница, надо сделать задержку(или просто, или в обработчике ошибки), подождать пока редирект сработает
If State = "page2" Then
State = "page3"
Dim aa
For Each aa In pDisp.Document.links
MsgBox aa.outerHTML
Next aa
End If
If State = "login" Then 'логинимся
State = "page1"
With pDisp.Document.Forms(0)
.p_logname.Value = login
.p_pwd.Value = pwd
.submit
End With
ElseIf State = "page1" Then 'нажимаем ОТЧЕТЫ
State = "page2"
Dim a
For Each a In pDisp.Document.links
MsgBox a.outerHTML
'чего выводит? особо интересует тот HTML где есть слово ОТЧЕТЫ(если есть такой, если нет, интересуют все)
Next a
End If
End Sub
Говорит, что aa empty...
и нам не нужен pDisp.Document, в нем всего лишь фреймы, нам нужно содержимое этих фреймов
сделай msgbox pDisp.Document.Frames.length, че пишет? для наших страниц должно быть 3.
Да это я просто быстро натыкал) для проверки
"Сохранить как" сделал на странице с "Отчёты", получил
<!-- saved from url=(0024)http://webstat.irtel.ru/ -->
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1251">
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD><FRAMESET
rows=*><FRAME name=startip src="webstat_irtel.files/www.htm"></FRAMESET></HTML>
А когда делаю "http://webstat.irtel.ru/" и "pDisp.Document.Frames(0).Document.Forms(0)", выдаёт 91-ю ошибку.
ElseIf State = "page1" Then 'нажимаем ОТЧЕТЫ
Dim t As Single
t = Timer
While (Timer - t) < 5 And pDisp.Document.Frames.length < 2
DoEvents
Wend
State = "page2"
...
<!-- saved from url=(0093)http://webstat.irtel.ru/pls/www/www.ViewHomePage?p_logname=ЛОГИН&p_chksum=457556986411555 -->
<HTML><HEAD><TITLE>Домашняя страница клиента выделенных линий</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1251">
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD><FRAMESET border=0
frameSpacing=0 rows=120px,*,40 frameBorder=0><FRAME name=MENU marginWidth=0
marginHeight=0 src="www.files/www.htm" noResize scrolling=no><FRAME name=MAIN
marginWidth=5 marginHeight=5
src="C:\Documents and Settings\Virtuoso\Рабочий стол\webstat_irtel.files\www.files\www(1).htm"><FRAME
name=BOTTOM marginWidth=5 marginHeight=5
src="C:\Documents and Settings\Virtuoso\Рабочий стол\webstat_irtel.files\www.files\www(2).htm"
scrolling=no></FRAMESET></HTML>
Когда сделал задержку - он застыл на странице ИДЕТ ЗАГРУЗКА. и пришлось вручную нажать на эту надпись, чтобы продолжился вход.
msgbox pDisp.Document.Frames.length я поставил в самое начало процедуры. Выдал три раза - "0", "0", "3".
html содержит:
<!-- saved from url=(0117)http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=Z*ADM_NET_MENU_INFO&logname=ЛОГИН&chksum=457556986411555 -->
<!-- Вставка таблицы стилей --><HTML><HEAD>
<META http-equiv=Content-Type content="text/html; CHARSET = windows-1251">
<STYLE>BODY {
FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif
}
.menu {
FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #ffffff; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.srch {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.txt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #111111; LINE-HEIGHT: 20px; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; HEIGHT: 20px; TEXT-DECORATION: none
}
TD {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #111111; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.left_txt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: left; TEXT-DECORATION: none
}
.simpletxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.ltxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #222222; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.ztxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.htxt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #444444; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.up {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #999999; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.cr {
FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #ffffff; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.vmenu {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #333399; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.ttxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: center; TEXT-DECORATION: none
}
.r_txt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: right; TEXT-DECORATION: none
}
.c_txt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: center; TEXT-DECORATION: none
}
A {
FONT-SIZE: 12px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: underline
}
A:hover {
COLOR: #003399; TEXT-DECORATION: none
}
A.mini {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: none
}
A.mini:hover {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: underline
}
A.mini2 {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: underline
}
A.mini2:hover {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: none
}
H1 {
FONT-WEIGHT: bold; FONT-SIZE: 15px; COLOR: #003399; LINE-HEIGHT: 17px; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: none
}
HR {
COLOR: #666666; HEIGHT: 1px
}
UL {
PADDING-LEFT: 18px; LIST-STYLE-IMAGE: url(/images/main/pt.png)
}
.forma {
BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 11px; BACKGROUND: #ffffff; BORDER-LEFT: 1px solid; COLOR: #222222; BORDER-BOTTOM: 1px solid; FONT-FAMILY: Tahoma, sans-serif
}
</STYLE>
<!---->
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY text=#333333 vLink=#333399 aLink=#333399 link=#333399 bgColor=#ffffff
leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/foneup.png border=0>
<TBODY>
<TR>
<TD width=119 height=63><IMG height=63 src="/images/logoup.png"
width=119 border=0></TD>
<TD width=502 height=63><IMG height=63 src="/images/title.png"
width=502 border=0></TD>
<TD height=63><IMG height=1 src="/images/x.png" width=20
border=0></TD>
<TD width=139 height=63><IMG height=63 src="/images/baikup.png"
width=139></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/fonepup.png border=0>
<TBODY>
<TR>
<TD width=83 height=5><IMG height=5 src="/images/logopup.png"
width=83></TD>
<TD><IMG height=1 src="/images/x.png" width=634></TD>
<TD width=63 height=5><IMG height=5 src="/images/baikpup.png"
width=63></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/fmenu.png border=0>
<TBODY>
<TR>
<TD width=78 height=18><IMG height=18 src="/images/logodown.png"
width=78></TD>
<TD>
<TABLE class=menu cellSpacing=0 cellPadding=0 width="100%"
border=0><TBODY>
<TR>
<TD><!-- ???? ???? ??????? ?????? -->
<TABLE class=menu cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR vAlign=center align=middle>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_FRAMES&logname=ЛОГИН&chksum=457556986411555&n1=menu&v1=Z*ADM_NET_MENU_INFO&n2=main&v2=Z*ADM_NET_INFO"
target=startip>ИНФОРМАЦИЯ</A></TD>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_FRAMES&logname=ЛОГИН&chksum=457556986411555&n1=menu&v1=Z*ADM_NET_MENU_UTL&n2=main&v2=S*EMPTY_PAGE"
target=startip>УТИЛИТЫ</A></TD>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_FRAMES&logname=ЛОГИН&chksum=457556986411555&n1=menu&v1=Z*ADM_NET_MENU_REP&n2=main&v2=Z*STAT_INSTR"
target=startip>ОТЧЕТЫ</A></TD>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*EXIT&logname=ЛОГИН&chksum=457556986411555&n1=p_page_name&v1=S*START_PAGE"
target=startip>ВЫХОД</A></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=1 src="/images/x.png"
width=611></TD></TR></TBODY></TABLE></TD>
<TD width=75 height=18><IMG height=18 src="/images/baikpup1.png"
width=75></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/fpmenu.png border=0>
<TBODY>
<TR>
<TD vAlign=center align=middle height=34><!-- ???? ???? ??????? ?????? -->
<TABLE class=srch cellSpacing=0 cellPadding=0 width="100%"
border=0><TBODY>
<TR>
<TD vAlign=center align=right></TD></TR>
<TR>
<TD><IMG height=1 src="/images/x.png"
width=654></TD></TR></TBODY></TABLE></TD>
<TD width=110 height=34><IMG height=34 src="/images/baikpdown.png"
width=110></TD></TR></TBODY></TABLE></TR></TBODY></TABLE></BODY></HTML>
будем юзать DocumentComplete, а не NavigateComplete, ждет полной загрузки страницы, вызывается для каждого фрейма
что-то вроде
State = "login"
WebBrowser1.Navigate URL:="http://webstat.irtel.ru/"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If State = "login" Then 'логинимся
If pDisp.Document.Frames.length = 1 Then
If pDisp.Document.Frames(0).Document.Forms.length = 1 Then
State = "page1"
With pDisp.Document.Frames(0).Document.Forms(0)
.elements("p_logname").Value = login
.p_pwd.Value = pwd
.submit
End With
End If
End If
ElseIf State = "page1" Then 'нажимаем ОТЧЕТЫ
State = "page2"
If pDisp.Document.Frames.length = 3 Then
pDisp.Document.Frames(0).Document.links(2).Click
End If
ElseIf State = "page2" Then
MsgBox URL
End If
End Sub
MsgBox URL
End If
Этот MsgBox выпадает 2 раза с разными адресами.
htm:
<!-- saved from url=(0168)http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_FRAMES&logname=ЛОГИН&chksum=625465167883610&n1=menu&v1=Z*ADM_NET_MENU_REP&n2=main&v2=Z*STAT_INSTR -->
<HTML><HEAD><TITLE>Домашняя страница клиента выделенных линий</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1251">
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD><FRAMESET border=0
frameSpacing=0 rows=120px,*,60px frameBorder=0><FRAME name=MENU marginWidth=0
marginHeight=0 src="www.files/www.htm" noResize scrolling=no><FRAME name=MAIN
marginWidth=5 marginHeight=5
src="C:\Documents and Settings\Virtuoso\Рабочий стол\webstat_irtel.files\www.files\www(1).htm"><FRAME
name=BOTTOM marginWidth=5 marginHeight=5
src="C:\Documents and Settings\Virtuoso\Рабочий стол\webstat_irtel.files\www.files\www(2).htm"
scrolling=no></FRAMESET></HTML>
<META http-equiv=Content-Type content="text/html; CHARSET = windows-1251">
<STYLE>BODY {
FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif
}
.menu {
FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #ffffff; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.srch {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.txt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #111111; LINE-HEIGHT: 20px; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; HEIGHT: 20px; TEXT-DECORATION: none
}
TD {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #111111; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.left_txt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: left; TEXT-DECORATION: none
}
.simpletxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.ltxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #222222; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.ztxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.htxt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #444444; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.up {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #999999; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.cr {
FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #ffffff; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.vmenu {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #333399; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.ttxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: center; TEXT-DECORATION: none
}
.r_txt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: right; TEXT-DECORATION: none
}
.c_txt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: center; TEXT-DECORATION: none
}
A {
FONT-SIZE: 12px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: underline
}
A:hover {
COLOR: #003399; TEXT-DECORATION: none
}
A.mini {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: none
}
A.mini:hover {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: underline
}
A.mini2 {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: underline
}
A.mini2:hover {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: none
}
H1 {
FONT-WEIGHT: bold; FONT-SIZE: 15px; COLOR: #003399; LINE-HEIGHT: 17px; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: none
}
HR {
COLOR: #666666; HEIGHT: 1px
}
UL {
PADDING-LEFT: 18px; LIST-STYLE-IMAGE: url(/images/main/pt.png)
}
.forma {
BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 11px; BACKGROUND: #ffffff; BORDER-LEFT: 1px solid; COLOR: #222222; BORDER-BOTTOM: 1px solid; FONT-FAMILY: Tahoma, sans-serif
}
</STYLE>
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY text=#333333 vLink=#333399 aLink=#333399 link=#333399 bgColor=#ffffff
leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/foneup.png border=0>
<TBODY>
<TR>
<TD width=119 height=63><IMG height=63 src="/images/logoup.png"
width=119 border=0></TD>
<TD width=502 height=63><IMG height=63 src="/images/title.png"
width=502 border=0></TD>
<TD height=63><IMG height=1 src="/images/x.png" width=20
border=0></TD>
<TD width=139 height=63><IMG height=63 src="/images/baikup.png"
width=139></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/fonepup.png border=0>
<TBODY>
<TR>
<TD width=83 height=5><IMG height=5 src="/images/logopup.png"
width=83></TD>
<TD><IMG height=1 src="/images/x.png" width=634></TD>
<TD width=63 height=5><IMG height=5 src="/images/baikpup.png"
width=63></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/fmenu.png border=0>
<TBODY>
<TR>
<TD width=78 height=18><IMG height=18 src="/images/logodown.png"
width=78></TD>
<TD>
<TABLE class=menu cellSpacing=0 cellPadding=0 width="100%"
border=0><TBODY>
<TR>
<TD><!-- блок меню первого уровня -->
<TABLE class=menu cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR vAlign=center align=middle>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_FRAMES&logname=ЛОГИН&chksum=625465167883610&n1=menu&v1=Z*ADM_NET_MENU_INFO&n2=main&v2=Z*ADM_NET_INFO"
target=startip>ИНФОРМАЦИЯ</A></TD>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_FRAMES&logname=ЛОГИН&chksum=625465167883610&n1=menu&v1=Z*ADM_NET_MENU_UTL&n2=main&v2=S*EMPTY_PAGE"
target=startip>УТИЛИТЫ</A></TD>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_FRAMES&logname=ЛОГИН&chksum=625465167883610&n1=menu&v1=Z*ADM_NET_MENU_REP&n2=main&v2=Z*STAT_INSTR"
target=startip>ОТЧЕТЫ</A></TD>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*EXIT&logname=ЛОГИН&chksum=625465167883610&n1=p_page_name&v1=S*START_PAGE"
target=startip>ВЫХОД</A></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=1 src="/images/x.png"
width=611></TD></TR></TBODY></TABLE></TD>
<TD width=75 height=18><IMG height=18 src="/images/baikpup1.png"
width=75></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/fpmenu.png border=0>
<TBODY>
<TR>
<TD vAlign=center align=middle height=34><!-- блок меню первого уровня -->
<TABLE class=srch cellSpacing=0 cellPadding=0 width="100%"
border=0><TBODY>
<TR vAlign=center align=middle>
<TD vAlign=center align=middle>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR vAlign=center align=middle>
<TD vAlign=center align=middle><A
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_REP_CON_GROUP&logname=ЛОГИН&chksum=625465167883610&n1=p_start_day&v1=01&n2=p_start_month&v2=05&n3=p_start_year&v3=2008&n4=p_finish_day&v4=06&n5=p_finish_month&v5=05&n6=p_finish_year&v6=2008&n7=p_username&n8=p_page_num&v8=1&n9=p_row_count&v9=20&n10=p_logname_detail&v10=N"
target=MAIN>Статистика (суммарная по услугам) за
выбранный период</A> </TD>
<TD vAlign=center align=middle><A
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_REP_CON_BY_DAY&logname=ЛОГИН&chksum=625465167883610&n1=p_start_day&v1=01&n2=p_start_month&v2=05&n3=p_start_year&v3=2008&n4=p_finish_day&v4=06&n5=p_finish_month&v5=05&n6=p_finish_year&v6=2008&n7=p_username&n8=p_page_num&v8=1&n9=p_row_count&v9=20&n10=p_logname_detail&v10=N"
target=MAIN>Статистика (по дням) за выбранный период</A>
</TD>
<TD vAlign=center align=middle><A
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_REP_CON&logname=ЛОГИН&chksum=625465167883610&n1=p_start_day&v1=01&n2=p_start_month&v2=05&n3=p_start_year&v3=2008&n4=p_finish_day&v4=06&n5=p_finish_month&v5=05&n6=p_finish_year&v6=2008&n7=p_username&n8=p_page_num&v8=1&n9=p_row_count&v9=20&n10=p_logname_detail&v10=N&n11=p_period&v11=12"
target=MAIN>Статистика (подробно) за выбранный
период</A> </TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=1 src="/images/x.png"
width=654></TD></TR></TBODY></TABLE></TD>
<TD width=110 height=34><IMG height=34 src="/images/baikpdown.png"
width=110></TD></TR></TBODY></TABLE></TR></TBODY></TABLE></BODY></HTML>
If State = "login" Then 'логинимся
If pDisp.Document.Frames.length = 1 Then
If pDisp.Document.Frames(0).Document.Forms.length = 1 Then
State = "page1"
With pDisp.Document.Frames(0).Document.Forms(0)
.elements("p_logname").Value = login
.p_pwd.Value = pwd
.submit
End With
End If
End If
ElseIf State = "page1" Then 'нажимаем ОТЧЕТЫ
If pDisp.Document.Frames.length = 3 Then
State = "page2"
pDisp.Document.Frames(0).Document.links(2).Click
End If
ElseIf State = "page2" Then
If pDisp.Document.Frames.length = 3 Then
State = "page3"
pDisp.Document.Frames(0).Document.links(4).Click
End If
End If
End Sub
Уже супер, уже большое спасибо!!! :)
И осталась чуть другая задача - считать данные (обведённые на рисунке).
htm:
<META http-equiv=Content-Type content="text/html; charset=windows-1251">
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD><FRAMESET border=0
frameSpacing=0 rows=120px,*,60px frameBorder=0><FRAME name=MENU marginWidth=0
marginHeight=0 src="www.files/www.htm" noResize scrolling=no><FRAME name=MAIN
marginWidth=5 marginHeight=5 src="www.files/CA9W8V5T.htm"><FRAME name=BOTTOM
marginWidth=5 marginHeight=5
src="C:\Documents and Settings\Virtuoso\Рабочий стол\webstat_irtel.files\www.files\www(1).htm"
scrolling=no></FRAMESET></HTML>
<META http-equiv=Content-Type content="text/html; CHARSET = windows-1251">
<STYLE>BODY {
FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif
}
.menu {
FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #ffffff; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.srch {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.txt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #111111; LINE-HEIGHT: 20px; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; HEIGHT: 20px; TEXT-DECORATION: none
}
TD {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #111111; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.left_txt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: left; TEXT-DECORATION: none
}
.simpletxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.ltxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #222222; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.ztxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.htxt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #444444; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.up {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #999999; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.cr {
FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #ffffff; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.vmenu {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #333399; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
}
.ttxt {
FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #333333; FONT-FAMILY: Tahoma, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: center; TEXT-DECORATION: none
}
.r_txt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: right; TEXT-DECORATION: none
}
.c_txt {
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #333333; FONT-FAMILY: Verdana, Geneva, Arial, Helvetica, sans-serif; TEXT-ALIGN: center; TEXT-DECORATION: none
}
A {
FONT-SIZE: 12px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: underline
}
A:hover {
COLOR: #003399; TEXT-DECORATION: none
}
A.mini {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: none
}
A.mini:hover {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: underline
}
A.mini2 {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: underline
}
A.mini2:hover {
FONT-SIZE: 11px; COLOR: #003399; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: none
}
H1 {
FONT-WEIGHT: bold; FONT-SIZE: 15px; COLOR: #003399; LINE-HEIGHT: 17px; FONT-FAMILY: tahoma, verdana; TEXT-DECORATION: none
}
HR {
COLOR: #666666; HEIGHT: 1px
}
UL {
PADDING-LEFT: 18px; LIST-STYLE-IMAGE: url(/images/main/pt.png)
}
.forma {
BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 11px; BACKGROUND: #ffffff; BORDER-LEFT: 1px solid; COLOR: #222222; BORDER-BOTTOM: 1px solid; FONT-FAMILY: Tahoma, sans-serif
}
</STYLE>
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY text=#333333 vLink=#333399 aLink=#333399 link=#333399 bgColor=#ffffff
leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/foneup.png border=0>
<TBODY>
<TR>
<TD width=119 height=63><IMG height=63 src="/images/logoup.png"
width=119 border=0></TD>
<TD width=502 height=63><IMG height=63 src="/images/title.png"
width=502 border=0></TD>
<TD height=63><IMG height=1 src="/images/x.png" width=20
border=0></TD>
<TD width=139 height=63><IMG height=63 src="/images/baikup.png"
width=139></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/fonepup.png border=0>
<TBODY>
<TR>
<TD width=83 height=5><IMG height=5 src="/images/logopup.png"
width=83></TD>
<TD><IMG height=1 src="/images/x.png" width=634></TD>
<TD width=63 height=5><IMG height=5 src="/images/baikpup.png"
width=63></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/fmenu.png border=0>
<TBODY>
<TR>
<TD width=78 height=18><IMG height=18 src="/images/logodown.png"
width=78></TD>
<TD>
<TABLE class=menu cellSpacing=0 cellPadding=0 width="100%"
border=0><TBODY>
<TR>
<TD><!-- блок меню первого уровня -->
<TABLE class=menu cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR vAlign=center align=middle>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_FRAMES&logname=ЛОГИН&chksum=625465167883610&n1=menu&v1=Z*ADM_NET_MENU_INFO&n2=main&v2=Z*ADM_NET_INFO"
target=startip>ИНФОРМАЦИЯ</A></TD>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_FRAMES&logname=ЛОГИН&chksum=625465167883610&n1=menu&v1=Z*ADM_NET_MENU_UTL&n2=main&v2=S*EMPTY_PAGE"
target=startip>УТИЛИТЫ</A></TD>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_FRAMES&logname=ЛОГИН&chksum=625465167883610&n1=menu&v1=Z*ADM_NET_MENU_REP&n2=main&v2=Z*STAT_INSTR"
target=startip>ОТЧЕТЫ</A></TD>
<TD><A class=menu
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*EXIT&logname=ЛОГИН&chksum=625465167883610&n1=p_page_name&v1=S*START_PAGE"
target=startip>ВЫХОД</A></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=1 src="/images/x.png"
width=611></TD></TR></TBODY></TABLE></TD>
<TD width=75 height=18><IMG height=18 src="/images/baikpup1.png"
width=75></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
background=www.files/fpmenu.png border=0>
<TBODY>
<TR>
<TD vAlign=center align=middle height=34><!-- блок меню первого уровня -->
<TABLE class=srch cellSpacing=0 cellPadding=0 width="100%"
border=0><TBODY>
<TR vAlign=center align=middle>
<TD vAlign=center align=middle>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR vAlign=center align=middle>
<TD vAlign=center align=middle><A
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_REP_CON_GROUP&logname=ЛОГИН&chksum=625465167883610&n1=p_start_day&v1=01&n2=p_start_month&v2=05&n3=p_start_year&v3=2008&n4=p_finish_day&v4=06&n5=p_finish_month&v5=05&n6=p_finish_year&v6=2008&n7=p_username&n8=p_page_num&v8=1&n9=p_row_count&v9=20&n10=p_logname_detail&v10=N"
target=MAIN>Статистика (суммарная по услугам) за
выбранный период</A> </TD>
<TD vAlign=center align=middle><A
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_REP_CON_BY_DAY&logname=ЛОГИН&chksum=625465167883610&n1=p_start_day&v1=01&n2=p_start_month&v2=05&n3=p_start_year&v3=2008&n4=p_finish_day&v4=06&n5=p_finish_month&v5=05&n6=p_finish_year&v6=2008&n7=p_username&n8=p_page_num&v8=1&n9=p_row_count&v9=20&n10=p_logname_detail&v10=N"
target=MAIN>Статистика (по дням) за выбранный период</A>
</TD>
<TD vAlign=center align=middle><A
href="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*ADM_NET_REP_CON&logname=ЛОГИН&chksum=625465167883610&n1=p_start_day&v1=01&n2=p_start_month&v2=05&n3=p_start_year&v3=2008&n4=p_finish_day&v4=06&n5=p_finish_month&v5=05&n6=p_finish_year&v6=2008&n7=p_username&n8=p_page_num&v8=1&n9=p_row_count&v9=20&n10=p_logname_detail&v10=N&n11=p_period&v11=12"
target=MAIN>Статистика (подробно) за выбранный
период</A> </TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=1 src="/images/x.png"
width=654></TD></TR></TBODY></TABLE></TD>
<TD width=110 height=34><IMG height=34 src="/images/baikpdown.png"
width=110></TD></TR></TBODY></TABLE></TR></TBODY></TABLE></BODY></HTML>
<HEAD>
<META HTTP-EQUIV = "Content-Type" CONTENT = "text/html;CHARSET=koi8-r">
<STYLE>
BODY{
FONT-FAMILY : Arial, Verdana, Courier;
BACKGROUND-COLOR : #FFFFFF;
}
TH{
FONT-WEIGHT : normal;
FONT-SIZE : 12px;
BACKGROUND-COLOR :#5D6D9D;
COLOR : #FFFFFF;
}
.str1{
BACKGROUND-COLOR : #CFCFCF;
COLOR : #000000;
}
.str2{
BACKGROUND-COLOR : #EEEEEE;
COLOR : #000000;
}
TD{
FONT-SIZE : 12px;
}
A{
FONT-WEIGHT : normal;
}
.tblzag{
FONT-FAMILY : Arial, Verdana, Courier;
BACKGROUND-COLOR : #FFFFFF;
FONT-SIZE : 16px;
FONT-WEIGHT : normal;
COLOR : #5D6D9D;
}
.zag{
BACKGROUND-COLOR : #5D6D9D;
FONT-FAMILY : Arial, Verdana, Courier;
FONT-SIZE : 12px;
FONT-WEIGHT : normal;
FONT-STYLE : normal;
COLOR : #FFFFFF;
}
.txt{
BACKGROUND-COLOR : #FFFFFF;
FONT-FAMILY : Arial, Verdana, Courier;
FONT-SIZE : 12px;
FONT-WEIGHT : normal;
FONT-STYLE : normal;
COLOR : #000000;
}
.foot{
BACKGROUND-COLOR : #5D6D9D;
FONT-FAMILY : Arial, Verdana, Courier;
FONT-SIZE : 12px;
FONT-WEIGHT : normal;
FONT-STYLE : normal;
COLOR : #FFFFFF;
}
</STYLE>
</HEAD>
<BODY LINK = "#000000" ALINK = "#000000" VLINK = "#000000">
<FORM ACTION = "www.PageViewer">
<INPUT TYPE = hidden NAME = page_name VALUE = 'S*ADM_NET_REP_CON_GROUP'>
<INPUT TYPE = hidden NAME = logname VALUE = 'ЛОГИН'>
<INPUT TYPE = hidden NAME = chksum VALUE = '382359773061388'>
<INPUT TYPE = hidden NAME = n1 VALUE = 'p_start_day'>
<INPUT TYPE = hidden NAME = n2 VALUE = 'p_start_month'>
<INPUT TYPE = hidden NAME = n3 VALUE = 'p_start_year'>
<INPUT TYPE = hidden NAME = n4 VALUE = 'p_finish_day'>
<INPUT TYPE = hidden NAME = n5 VALUE = 'p_finish_month'>
<INPUT TYPE = hidden NAME = n6 VALUE = 'p_finish_year'>
<INPUT TYPE = hidden NAME = n7 VALUE = 'p_username'>
<INPUT TYPE = hidden NAME = n8 VALUE = 'p_row_count'>
<INPUT TYPE = hidden NAME = n9 VALUE = 'p_page_num'>
<INPUT TYPE = hidden NAME = v9 VALUE = '1'>
<INPUT TYPE = hidden NAME = n10 VALUE = 'p_logname_detail'>
<TABLE WIDTH=700 BORDER=0 ALIGN="center">
<TR BGCOLOR=#FFFFFF HEIGHT=15><TD> </TD></TR>
<TR BGCOLOR="#5D6D9D">
<TD>
<TABLE CELLPADDING=5 CELLSPACING=0 BORDER=0 WIDTH="100%">
<TR BGCOLOR="#5D6D9D">
<TD COLSPAN="4" CLASS=zag>Параметры запроса</TD>
</TR>
<TR BGCOLOR="#FFFFFF">
<TD CLASS="txt" ALIGN="right">Дата начала</TD>
<TD CLASS="txt" ALIGN = "left">
<SELECT NAME = "v1">
<OPTION VALUE="01" SELECTED >01
<OPTION VALUE="02" >02
<OPTION VALUE="03" >03
<OPTION VALUE="04" >04
<OPTION VALUE="05" >05
<OPTION VALUE="06" >06
<OPTION VALUE="07" >07
<OPTION VALUE="08" >08
<OPTION VALUE="09" >09
<OPTION VALUE="10" >10
<OPTION VALUE="11" >11
<OPTION VALUE="12" >12
<OPTION VALUE="13" >13
<OPTION VALUE="14" >14
<OPTION VALUE="15" >15
<OPTION VALUE="16" >16
<OPTION VALUE="17" >17
<OPTION VALUE="18" >18
<OPTION VALUE="19" >19
<OPTION VALUE="20" >20
<OPTION VALUE="21" >21
<OPTION VALUE="22" >22
<OPTION VALUE="23" >23
<OPTION VALUE="24" >24
<OPTION VALUE="25" >25
<OPTION VALUE="26" >26
<OPTION VALUE="27" >27
<OPTION VALUE="28" >28
<OPTION VALUE="29" >29
<OPTION VALUE="30" >30
<OPTION VALUE="31" >31
</SELECT>
<SELECT NAME = "v2">
<OPTION VALUE = "01" >Январь
<OPTION VALUE = "02" >Февраль
<OPTION VALUE = "03" >Март
<OPTION VALUE = "04" >Апрель
<OPTION VALUE = "05" SELECTED >Май
<OPTION VALUE = "06" >Июнь
<OPTION VALUE = "07" >Июль
<OPTION VALUE = "08" >Август
<OPTION VALUE = "09" >Сентябрь
<OPTION VALUE = "10" >Октябрь
<OPTION VALUE = "11" >Ноябрь
<OPTION VALUE = "12" >Декабрь
</SELECT>
<SELECT NAME = "v3">
<OPTION VALUE = "2008" SELECTED >2008
<OPTION VALUE = "2007" >2007
<OPTION VALUE = "2006" >2006
<OPTION VALUE = "2005" >2005
</SELECT>
</TD>
<TD CLASS="txt" ALIGN="right">Дата окончания</TD>
<TD CLASS="txt" ALIGN = "left">
<SELECT NAME = "v4">
<OPTION VALUE="01" >01
<OPTION VALUE="02" >02
<OPTION VALUE="03" >03
<OPTION VALUE="04" >04
<OPTION VALUE="05" >05
<OPTION VALUE="06" SELECTED >06
<OPTION VALUE="07" >07
<OPTION VALUE="08" >08
<OPTION VALUE="09" >09
<OPTION VALUE="10" >10
<OPTION VALUE="11" >11
<OPTION VALUE="12" >12
<OPTION VALUE="13" >13
<OPTION VALUE="14" >14
<OPTION VALUE="15" >15
<OPTION VALUE="16" >16
<OPTION VALUE="17" >17
<OPTION VALUE="18" >18
<OPTION VALUE="19" >19
<OPTION VALUE="20" >20
<OPTION VALUE="21" >21
<OPTION VALUE="22" >22
<OPTION VALUE="23" >23
<OPTION VALUE="24" >24
<OPTION VALUE="25" >25
<OPTION VALUE="26" >26
<OPTION VALUE="27" >27
<OPTION VALUE="28" >28
<OPTION VALUE="29" >29
<OPTION VALUE="30" >30
<OPTION VALUE="31" >31
</SELECT>
<SELECT NAME = "v5">
<OPTION VALUE = "01" >Январь
<OPTION VALUE = "02" >Февраль
<OPTION VALUE = "03" >Март
<OPTION VALUE = "04" >Апрель
<OPTION VALUE = "05" SELECTED >Май
<OPTION VALUE = "06" >Июнь
<OPTION VALUE = "07" >Июль
<OPTION VALUE = "08" >Август
<OPTION VALUE = "09" >Сентябрь
<OPTION VALUE = "10" >Октябрь
<OPTION VALUE = "11" >Ноябрь
<OPTION VALUE = "12" >Декабрь
</SELECT>
<SELECT NAME = "v6">
<OPTION VALUE = "2008" SELECTED >2008
<OPTION VALUE = "2007" >2007
<OPTION VALUE = "2006" >2006
<OPTION VALUE = "2005" >2005
</SELECT>
</TD>
</TR>
<TR BGCOLOR="#FFFFFF">
<TD CLASS="txt" ALIGN = "right">Список подключений</TD>
<TD CLASS="txt" ALIGN = "left">
<SELECT NAME = "v7">
<OPTION VALUE="-1" >Все подключения
<OPTION VALUE="-2" >Суммарная статистика
<OPTION VALUE="ЛОГИН" SELECTED >
ЛОГИН
</SELECT>
</TD>
<TD CLASS="txt" ALIGN = "right">Количество записей</TD>
<TD CLASS="txt" ALIGN = "left">
<SELECT NAME = "v8">
<OPTION VALUE="20" SELECTED >20
<OPTION VALUE="50" >50
<OPTION VALUE="100" >100
</SELECT>
</TD>
</TR>
<TR BGCOLOR="#FFFFFF">
<TD CLASS="txt" ALIGN = "right">Детализация по сервисам</TD>
<TD CLASS="txt" ALIGN = "left"><INPUT TYPE='checkbox' NAME="v10" VALUE='Y'
></TD>
<TD CLASS="txt" COLSPAN = 2> </TD>
</TR>
</TABLE>
</TD>
</TR>
<TR BGCOLOR=#FFFFFF HEIGHT=15><TD> </TD></TR>
<TR>
<TD COLSPAN = 2 ALIGN = "center">
<INPUT TYPE = submit VALUE = "Поиск">
</TD>
</TR>
</TABLE>
</FORM>
<TABLE WIDTH=50% ALIGN="center" CELLPADDING="0" CELLSPACING="0" BORDER="0" BGCOLOR="#5D6D9D">
<TR BGCOLOR=#FFFFFF HEIGHT=15><TD> </TD></TR>
<TR><TD CLASS="tblzag" ALIGN="center">Статистика (суммарная по услугам) за выбранный период</TD></TR>
<TR BGCOLOR=#FFFFFF HEIGHT=15><TD> </TD></TR>
<TR>
<TD>
<TABLE WIDTH="100%" ALIGN="center" CELLPADDING="3" CELLSPACING="1" BORDER="0">
<TR CLASS=str1>
<TD>Всего записей : 5</TD>
<TD COLSPAN=3>
<A HREF="www.PageViewer?page_name=S*ADM_NET_REP_CON_GROUP&logname=ЛОГИН&chksum=382359773061388&n1=p_start_day&v1=01&n2=p_start_month&v2=05&n3=p_start_year&v3=2008&n4=p_finish_day&v4=06&n5=p_finish_month&v5=05&n6=p_finish_year&v6=2008&n7=p_username&v7=&n8=p_page_num&v8=1&n9=p_row_count&v9=20&n10=p_logname_detail&v10=N">(1)</A>
</TD></TR>
<TR> <TH>Подключение</TH> <TH>Услуга</TH> <TH>Количество</TH> <TH>Стоимость (RUB)</TH></TR>
<TBODY>
<TR CLASS=str1>
<TD ALIGN = "LEFT">ЛОГИН</TD> <TD ALIGN = "LEFT">Webstream Предоставление 50 Мб, ежемесячно</TD> <TD ALIGN = "RIGHT">1 шт</TD> <TD ALIGN = "RIGHT"> 50.00</TD>
</TR>
<TR CLASS=str2>
<TD ALIGN = "LEFT">ЛОГИН</TD> <TD ALIGN = "LEFT">Webstream Предоставление порта по телефонной линии</TD> <TD ALIGN = "RIGHT">1 шт</TD> <TD ALIGN = "RIGHT"> 100.00</TD>
</TR>
<TR CLASS=str1>
<TD ALIGN = "LEFT">ЛОГИН</TD> <TD ALIGN = "LEFT">Внутризоновый трафик</TD> <TD ALIGN = "RIGHT">5.042 Мб</TD> <TD ALIGN = "RIGHT"> 1.21</TD>
</TR>
<TR CLASS=str2>
<TD ALIGN = "LEFT">ЛОГИН</TD> <TD ALIGN = "LEFT">Магистральный трафик</TD> <TD ALIGN = "RIGHT">50 Мб</TD> <TD ALIGN = "RIGHT"> 0.00</TD>
</TR>
<TR CLASS=str1>
<TD ALIGN = "LEFT">ЛОГИН</TD> <TD ALIGN = "LEFT">Магистральный трафик</TD> <TD ALIGN = "RIGHT">62.244 Мб</TD> <TD ALIGN = "RIGHT"> 136.94</TD>
</TR>
</TBODY>
<TFOOT>
<TR>
<TD CLASS=foot> </TD> <TD CLASS=foot> </TD> <TD CLASS=foot> </TD> <TD CLASS=foot ALIGN = "RIGHT"> 288.15</TD>
</TR>
<TR CLASS=str1>
<TD>Всего записей : 5</TD>
<TD COLSPAN=3>
<A HREF="www.PageViewer?page_name=S*ADM_NET_REP_CON_GROUP&logname=ЛОГИН&chksum=382359773061388&n1=p_start_day&v1=01&n2=p_start_month&v2=05&n3=p_start_year&v3=2008&n4=p_finish_day&v4=06&n5=p_finish_month&v5=05&n6=p_finish_year&v6=2008&n7=p_username&v7=&n8=p_page_num&v8=1&n9=p_row_count&v9=20&n10=p_logname_detail&v10=N">(1)</A>
</TD></TR>
</TFOOT>
</TABLE>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
там в таблице 2 строки с Магистральный трафик, нам нужна только вторая?
они, так думаю отличаются значением LOGIN? мы можем по значению ячеек определить та ли это строка, которая нам нужна?
В общем наверное не стоит мучаться и просто отдельно узнать значение в графе "Внутризоновый", "Магистральный трафик", "Магистральный трафик" (второй), "Магистральный трафик (ночь)". И ещё последнюю строку, где сумма всего указана!
А пиком кайфа стало бы ещё знание сумм, написанных в этих же строках в следующих столбцах!)
А там уже дело вкуса как их отображать в проге...
Меня 10 минут не будет :)
ElseIf State = "page3" Then
If pDisp.Document.Frames.length = 3 Then
State = "done"
Dim r
For Each r In pDisp.Document.Frames(1).Document.getElementsByTagName("TABLE").Item(3).tBodies(1).rows
MsgBox r.cells(0).innerHTML & ": " & r.cells(1).innerHTML & ": " & r.cells(2).innerHTML
Next r
End If
End If
End Sub
должно выводить все строки из таблицы, выбирай нужную...
If pDisp.Document.Frames.length = 3 Then
State = "done"
Dim r
For Each r In pDisp.Document.Frames(1).Document.getElementsByTagName("TABLE").Item(3).tBodies(1).rows
MsgBox r.cells(0).innerHTML & ": " & r.cells(1).innerHTML & ": " & r.cells(2).innerHTML
Next r
End If
End If
End Sub
Не доходит до строки 'State = "done"'. Меседжбокс говорит, что pDisp.Document.Frames.length = 0. Изменил проверку равенства на ноль, условие выполнилось, но выдалась ошибка на строке "For Each r In pDisp.Document.Frames(1).Document.getElementsByTagName("TABLE").Item(3).tBodies(1).rows". Написал просто - Ошибка. Run-time error: '-2147..........'
pDisp.Document.parentWindow.name="MAIN"...
Dim t As Single
t = Timer
While (Timer - t) < 5 And pDisp.Document.Frames.length < 2
DoEvents
Wend
State = "done"
Хотя я вообще не понимаю как он выходит из этого цикла, если после него ставлю "MsgBox pDisp.Document.Frames.length" и он показывает "0".....
Dim t As Single
t = Timer
While (Timer - t) < 5 And pDisp.Document.Frames.length < 2
DoEvents
Wend
State = "done"
Хотя я вообще не понимаю как он выходит из этого цикла, если после него ставлю "MsgBox pDisp.Document.Frames.length" и он показывает "0".....
не делай так,( а из цикла он выходит просто через 5 секунд, чтоб не зависло)
сделай:
State="done"
for each r in pDisp.Document.getElementsByTagName("TABLE").Item(3).tBodies(1).rows
...