Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:
RSS
ВКонтакте

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Программное "хождение по сайту"

Visual Basic
296
05 мая 2008 года
Virtuoso
331 / / 31.07.2005
Visual Basic 6.0

Здравствуйте!
У моего провайдера заведено так, что свой лицевой счёт нужно смотреть на сайте. Каждый раз открывать стартовую страницу, вводить логин и пароль, нажимать на одну ссылку, нажимать на вторую ссылку и ВОТ... Я вижу свой счёт. Это надоело уже.
Ну и я подумал, раз уж мы здесь занимаемся программированием))... Может есть способ программно эти все шаги выполнить? Чтобы я запустил программу - бац, счёт!
А ещё лучше - если найти строку со счётом, считать её ... Счёт бы регулярно обновлялся и висел где-нибудь на рабочем столе. Отлично было бы!
А сам сайт вообще не открывать :)
Вот такая замороченнаяа идея. Есть у кого мысли?
Спасибо!
По порядку
Сначала полезные
Сначала решения

69 ответов / показаны 1 - 39

Страницы:
17K
05 мая 2008 года
HookEst
144 / / 27.03.2008
берешь WebBrowser, Navigate его по ссылке авторизации с уже указаным логином и паролем(подсмотри HTML страницы ввода пароля, как она должна выглядеть), ждешь пока загрузится, потом сразу Navigate на страницу со счетом(подсмотри вторую ссылку), ждешь пока загрузится и читай с нее все, что нужно...
17K
05 мая 2008 года
HookEst
144 / / 27.03.2008
там страница в фрейме открывается...
чтобы вообще не было заморочек, можно полностью эмулировать действия пользователя, навроде:
Свернуть исходник 
Код:
Option Explicit

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
296
05 мая 2008 года
Virtuoso
331 / / 31.07.2005
Так. Первый шаг сделан) Авторизацию прошли. Пройдя авторизацию, попадаем на страницу (рисунок 1). Там нужно нажать на "Отчёты". Попадаем на следующую страницу (рисунок 2). Там жмём на Статистику и попадаем - (рисунок 3).
Вот чего надо :)
Примечание: при нажатии на Статистику, адрес никак не меняется.
И там обведённые области желательно считать - это будет блеск!

Я с WebBrowser-контролом никогда не работал, поэтому могу только нагло попросить тщательно объяснить чего делать, чтобы моё желание исполнилось.

Если что нужно ещё знать, я, конечно, всё скажу))
18K
05 мая 2008 года
pavel55
79 / / 14.05.2007
Тоже хочу такое сделать... но из под Excel. Никто не знает, где взять WebBrowser в Excel ? )
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
Цитата: pavel55
Тоже хочу такое сделать... но из под Excel. Никто не знает, где взять WebBrowser в Excel ? )


там же где и в VB6
на Toolbox-е (где контролы для формы) - правой кнопкой->Additional controls->Обозреватель веб страниц(Microsoft)
но если не нужно ничего отображать на своей форме, можно обойтись и без контрола. есть Automation сервер для IE это 'InternetExplorer.Application', тот же WebBrowser только не контрол:

 
Код:
Set IE=CreateObject("InternetExplorer.Application")
If Not IE Is Nothing Then
IE.Navigate "http://codenet.ru"
IE.Visible=True
...
End If
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
*to Virtuoso*
картинки мне абсолютно ничего не говорят, нужен 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 нужную ссылку и т.д......
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Цитата: HookEst
картинки мне абсолютно ничего не говорят



Я так и думал... В HTML я не шпрех ни как вообще! В том то и проблема моего хотения))
А к рисункам могу дать html-коды. Он сволочь на все страницы давал один и тот же код, который отображён для Рисунка 1. Потом открыл последние две ссылки с шифтом в новых окнах - показал вроде бы нормальный код, тот что нужен. А к первому так не получится, там же не ссылка, а кнопка. Поэтому удалось получить только это...
Рисунок 1:

 
Код:
<html>
<frameset rows="*" >
<frame src="http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*START_PAGE" name="startip">
</frame>
</frameset>
</html>

Рисунок 2:
 
Код:
<HTML>
<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>
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Рисунок 3:
Свернуть исходник 
Код:
<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>

Нужные строчки получается почти в конце кода которые...
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
уже лучше, но желателен html для 1 и 2 рисунка, для верхнего фрейма, там где меню.
попробуй (в IE!!!)правой кнопкой (не через главное меню!!!) в верхней части страницы (над меню)->Просмотр HTML кода. или попробуй (в IE) сохранить как (веб страница полностью (htm,html)), в папке для этой страницы могут быть html файлы для каждого фрейма.
или програмно "потыкаем"(в ссылках у них checksum какой-то стоит, поэтому вариант с генерацией URL скорее всего не прокатит, делаем ч/з DOM):
Свернуть исходник 
Код:
Option Explicit

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 -ы выскакивают? что пишут?
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Я с помощью IE И делал. Опера вообще нифига не показывает... Сейчас буду пробовать
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Адрес всё-таки "http://webstat.irtel.ru/pls/www/www.PageViewer?page_name=S*START_PAGE", а то с тем не хочет работать.

Строчка "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=ЛОГИН&amp;p_chksum=486920802997510">Идет загрузка...</A>".
И показал страницу, там где надо Отчёт нажать, в общем как и в первом случае.
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Ааа.... пардон. Там между стартовой страницей и страницей с ссылкой "Отчёты" промелькивает страница с надписью "Идет загрузка...". Так что получается "Отчёты" на следующей странице.
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
если используем pDisp.Document.Frames(0).Document.Forms(0), то адрес все-таки
http://webstat.irtel.ru/.
выдает ошибку? у меня логинится(в смысле пишет что неправильный пароль).
поставь breakpoint, добавь watch, где цепочка pDisp.Document.Frames(0).Document.Forms(0) обрывается?
если есть промежуточная страница, надо сделать задержку(или просто, или в обработчике ошибки), подождать пока редирект сработает
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
"сохранить как" сработало?
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Может это не правильно, но... добавил цикл для PAGE2:
Свернуть исходник 
Код:
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)    
    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...
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
а зачем тебе 2 переменные a и aa? одной достаточно))
и нам не нужен pDisp.Document, в нем всего лишь фреймы, нам нужно содержимое этих фреймов
сделай msgbox pDisp.Document.Frames.length, че пишет? для наших страниц должно быть 3.
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Цитата: HookEst
а зачем тебе 2 переменные a и aa? одной достаточно))


Да это я просто быстро натыкал) для проверки

Цитата: HookEst
сделай msgbox pDisp.Document.Frames.length, че пишет?.


"Сохранить как" сделал на странице с "Отчёты", получил

 
Код:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN">
<!-- 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-ю ошибку.
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
в той же папке где этот файл, есть папка webstat_irtel.files, в ней файл htm, че в нем?
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
задержку можно сделать так:
 
Код:
...
 ElseIf State = "page1" Then 'нажимаем ОТЧЕТЫ
        Dim t As Single
        t = Timer
        While (Timer - t) < 5 And pDisp.Document.Frames.length < 2
            DoEvents
        Wend
        State = "page2"
...
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
А блин... Я её не заметил )) там:
Свернуть исходник 
Код:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN">
<!-- 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>
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
а все-таки
Цитата:
сделай msgbox pDisp.Document.Frames.length, че пишет?.

17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
теперь нужен files/www.htm
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Я не успеваю всё делать, что вы просите :)
Когда сделал задержку - он застыл на странице ИДЕТ ЗАГРУЗКА. и пришлось вручную нажать на эту надпись, чтобы продолжился вход.
msgbox pDisp.Document.Frames.length я поставил в самое начало процедуры. Выдал три раза - "0", "0", "3".
html содержит:
Свернуть исходник 
Код:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- 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&amp;logname=ЛОГИН&amp;chksum=457556986411555&amp;n1=menu&amp;v1=Z*ADM_NET_MENU_INFO&amp;n2=main&amp;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&amp;logname=ЛОГИН&amp;chksum=457556986411555&amp;n1=menu&amp;v1=Z*ADM_NET_MENU_UTL&amp;n2=main&amp;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&amp;logname=ЛОГИН&amp;chksum=457556986411555&amp;n1=menu&amp;v1=Z*ADM_NET_MENU_REP&amp;n2=main&amp;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&amp;logname=ЛОГИН&amp;chksum=457556986411555&amp;n1=p_page_name&amp;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>
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
ох уж этот метод в слепую...
будем юзать DocumentComplete, а не NavigateComplete, ждет полной загрузки страницы, вызывается для каждого фрейма
что-то вроде
Свернуть исходник 
Код:
Private Sub Command1_Click()
    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
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
О! Крутотень. Проникли к следующей странице (рисунку 2) :)
 
Код:
ElseIf State = "page2" Then
        MsgBox URL
    End If

Этот MsgBox выпадает 2 раза с разными адресами.
htm:
Свернуть исходник 
Код:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN">
<!-- 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>
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
files\www.htm:
Свернуть исходник 
Код:
<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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=menu&amp;v1=Z*ADM_NET_MENU_INFO&amp;n2=main&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=menu&amp;v1=Z*ADM_NET_MENU_UTL&amp;n2=main&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=menu&amp;v1=Z*ADM_NET_MENU_REP&amp;n2=main&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=p_page_name&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=p_start_day&amp;v1=01&amp;n2=p_start_month&amp;v2=05&amp;n3=p_start_year&amp;v3=2008&amp;n4=p_finish_day&amp;v4=06&amp;n5=p_finish_month&amp;v5=05&amp;n6=p_finish_year&amp;v6=2008&amp;n7=p_username&amp;n8=p_page_num&amp;v8=1&amp;n9=p_row_count&amp;v9=20&amp;n10=p_logname_detail&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=p_start_day&amp;v1=01&amp;n2=p_start_month&amp;v2=05&amp;n3=p_start_year&amp;v3=2008&amp;n4=p_finish_day&amp;v4=06&amp;n5=p_finish_month&amp;v5=05&amp;n6=p_finish_year&amp;v6=2008&amp;n7=p_username&amp;n8=p_page_num&amp;v8=1&amp;n9=p_row_count&amp;v9=20&amp;n10=p_logname_detail&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=p_start_day&amp;v1=01&amp;n2=p_start_month&amp;v2=05&amp;n3=p_start_year&amp;v3=2008&amp;n4=p_finish_day&amp;v4=06&amp;n5=p_finish_month&amp;v5=05&amp;n6=p_finish_year&amp;v6=2008&amp;n7=p_username&amp;n8=p_page_num&amp;v8=1&amp;n9=p_row_count&amp;v9=20&amp;n10=p_logname_detail&amp;v10=N&amp;n11=p_period&amp;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>
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
Свернуть исходник 
Код:
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 'нажимаем ОТЧЕТЫ
        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
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Следующая страница готова (рисунок 3)!
Уже супер, уже большое спасибо!!! :)
И осталась чуть другая задача - считать данные (обведённые на рисунке).
htm:
 
Код:
<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="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>
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
files\www.htm:
Свернуть исходник 
Код:
<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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=menu&amp;v1=Z*ADM_NET_MENU_INFO&amp;n2=main&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=menu&amp;v1=Z*ADM_NET_MENU_UTL&amp;n2=main&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=menu&amp;v1=Z*ADM_NET_MENU_REP&amp;n2=main&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=p_page_name&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=p_start_day&amp;v1=01&amp;n2=p_start_month&amp;v2=05&amp;n3=p_start_year&amp;v3=2008&amp;n4=p_finish_day&amp;v4=06&amp;n5=p_finish_month&amp;v5=05&amp;n6=p_finish_year&amp;v6=2008&amp;n7=p_username&amp;n8=p_page_num&amp;v8=1&amp;n9=p_row_count&amp;v9=20&amp;n10=p_logname_detail&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=p_start_day&amp;v1=01&amp;n2=p_start_month&amp;v2=05&amp;n3=p_start_year&amp;v3=2008&amp;n4=p_finish_day&amp;v4=06&amp;n5=p_finish_month&amp;v5=05&amp;n6=p_finish_year&amp;v6=2008&amp;n7=p_username&amp;n8=p_page_num&amp;v8=1&amp;n9=p_row_count&amp;v9=20&amp;n10=p_logname_detail&amp;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&amp;logname=ЛОГИН&amp;chksum=625465167883610&amp;n1=p_start_day&amp;v1=01&amp;n2=p_start_month&amp;v2=05&amp;n3=p_start_year&amp;v3=2008&amp;n4=p_finish_day&amp;v4=06&amp;n5=p_finish_month&amp;v5=05&amp;n6=p_finish_year&amp;v6=2008&amp;n7=p_username&amp;n8=p_page_num&amp;v8=1&amp;n9=p_row_count&amp;v9=20&amp;n10=p_logname_detail&amp;v10=N&amp;n11=p_period&amp;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>
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
О блин. Чо-то не то.... хотя взято с нужной страницы. А раньше я публиковал вот этот код для той же страницы, он с оперы:
Свернуть исходник 
Код:
<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>
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
да все верно, просто нам уже не нужен верхний фрейм, а нужен средний(тот который с Оперы)
там в таблице 2 строки с Магистральный трафик, нам нужна только вторая?
они, так думаю отличаются значением LOGIN? мы можем по значению ячеек определить та ли это строка, которая нам нужна?
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Нет. Значение ЛОГИН одинаковое. Просто там одна строка говорит про абонентские 50 Мб, другая про дополнительные. Абонентские то не надо (они всегда 50), а вот дополнительные надо. Там ещё (если ночью полажу) появится графа "Магистральный трафик (ночь)".
В общем наверное не стоит мучаться и просто отдельно узнать значение в графе "Внутризоновый", "Магистральный трафик", "Магистральный трафик" (второй), "Магистральный трафик (ночь)". И ещё последнюю строку, где сумма всего указана!
А пиком кайфа стало бы ещё знание сумм, написанных в этих же строках в следующих столбцах!)
А там уже дело вкуса как их отображать в проге...
Меня 10 минут не будет :)
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
попробуй
Свернуть исходник 
Код:
...
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

должно выводить все строки из таблицы, выбирай нужную...
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
сумма д/б в:
 
Код:
pDisp.Document.Frames(1).Document.getElementsByTagName("TABLE").Item(3).tFoot.rows(0).cells(3).innerHTML
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Цитата: HookEst
 
Код:
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


Не доходит до строки '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..........'

17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
не, нам не нужен Document без фреймов, их должно быть 3, тогда мы точно будем знать что все загрузилось. возможно не все еще загрузилось, нужно дождатся когда загрузятся все фреймы, картинки, банеры и т.п.
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
можно нужный фрейм выловить по URL, или по Name, не дожидаясь загрузки остального
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
у нужного нам фрейма
pDisp.Document.parentWindow.name="MAIN"...
296
06 мая 2008 года
Virtuoso
331 / / 31.07.2005
Сделал так:
 
Код:
If pDisp.Document.parentWindow.Name = "MAIN" Then
       Dim t As Single
        t = Timer
        While (Timer - t) < 5 And pDisp.Document.Frames.length < 2
            DoEvents
        Wend
            State = "done"
И всё равно на "For Each r In pDisp.Document.Frames(1).Document.getElementsByTagName("TABLE").Item(3).tBodies(1).rows" выдаёт ту же ошибку.
Хотя я вообще не понимаю как он выходит из этого цикла, если после него ставлю "MsgBox pDisp.Document.Frames.length" и он показывает "0".....
17K
06 мая 2008 года
HookEst
144 / / 27.03.2008
Цитата: Virtuoso
Сделал так:
 
Код:
If pDisp.Document.parentWindow.Name = "MAIN" Then
       Dim t As Single
        t = Timer
        While (Timer - t) < 5 And pDisp.Document.Frames.length < 2
            DoEvents
        Wend
            State = "done"
И всё равно на "For Each r In pDisp.Document.Frames(1).Document.getElementsByTagName("TABLE").Item(3).tBodies(1).rows" выдаёт ту же ошибку.
Хотя я вообще не понимаю как он выходит из этого цикла, если после него ставлю "MsgBox pDisp.Document.Frames.length" и он показывает "0".....



не делай так,( а из цикла он выходит просто через 5 секунд, чтоб не зависло)
сделай:

 
Код:
If pDisp.Document.parentWindow.Name = "MAIN" Then

   State="done"
   for each r in pDisp.Document.getElementsByTagName("TABLE").Item(3).tBodies(1).rows
...
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог