Помогите разобраться

[Qwertiy]

проблема в том что при установке silent = true зависает страничка.Что делать в таких случаях?

Не знаю. Ничего. Исправлять скрипт? Поэксперементируй в IE со страницей (используй инструменты разработчика).

[Qwertiy]

' Тут можно проверить количество знаков, но если первый нулём не бывает, то не надо

А ещё, оно будет неверно работать, если число цифр меняется, например при mid=10000.

[ala-x]

Подскажи пожалуйста ,вот к примеру загрузил я страницу и мне нужно скопировать текст со страницы.Как это сделать?(текст может быть любой---это описание чего либо)
И ещё--в меню серфинга есть фрейм с отсчётом времени.Возможно ли его как нибудь загрузить или в веббровсер или текст без разницы(чтобы видеть отсчёт и результат не на странице а в прогамме)

[Qwertiy]

Подскажи пожалуйста ,вот к примеру загрузил я страницу и мне нужно скопировать текст со страницы.Как это сделать?(текст может быть любой---это описание чего либо)

Ищешь элемент с текстом и тащишь InnerText.

[ala-x]

это таблица.номер элемента 307 как стащить его иннертекст в текст бокс? вернее чем стащить
понятное дело как ссылку стаскивать,а вот как таблицу--к сожалению не знаю

[Qwertiy]

Ну так и взять.

[ala-x]

Код: Выделить всё

For Each testlink In WebBrowser2.Document.links
    If InStr(1, testlink.href, "timerfrm", vbTextCompare) Then
       Text7 = testlink.innerText
        Exit For
    End If
Next testlink

Тут ведь он линк ищет а у меня таблица id 307 куда его вставить то? или этот метод не подойдёт?

[Qwertiy]

Document.GetElementByID, Document.GetElementsByTagName, Document.All...

[ala-x]

Код: Выделить всё

For each Element in WebBrowser.Document.GetElementsByTagName("Описание")
   Print Element.Text
Next

Выдаёт ошибку object wariable not set

[Qwertiy]

Ты хотя бы названия переводи перед тем как код писать.
И почему Text?

[ala-x]

Код: Выделить всё

While WebBrowser1.Document Is Nothing    'ждём создания документа
        DoEvents
    Wend
    WebBrowser1.Document.write sPage
    While WebBrowser1.Document Is Nothing    'ждём создания документа
        DoEvents
    Wend
Debug.Print WebBrowser1.Document.getElementById("307").innerText

та же самая ошибка

[ala-x]

а как правильно? innertext?

[Qwertiy]

Debug.Print WebBrowser1.Document.getElementById("307").innerText[/code] та же самая ошибка

Потому что элемента с id=307 нет? Это же id, а не индекс.

Да и While -Wend - плохой стиль.

[ala-x]

я смотрел програмкой htmlspy она показала номер 307 тип table и (class = tbl_stat
contentEditable = inherit
border = 0
cellSpacing = 0
width = 100%
align = center)

[Qwertiy]

Номер - это не id. И вообще, выбирать по номеру надо очень осторожно и уж точно не из all. Найди эту таблицу среди других таблиц, уникальным признаком может быть класс, но надо смотреть.

[ala-x]

Qwertiy дай пожалуйста хоть приближённый код

[Qwertiy]

Qwertiy дай пожалуйста хоть приближённый код

Это не страница, а лишь кусок таблицы. И непонятно, что надо получить.

[ala-x]

нужно это

Код: Выделить всё

2. Переходите на yandex.ru<br />
[b]3. Вводите в поиск один из запросов: пулемет горюнова<br />
                                     пистолет ТК<br />
                                     пистолет пулемет шпагина<br />
                                     дегтярев<br />
                                     пулемет дегтярева<br />
                                     пистолет-пулемет судаева<br />
                                     музей увд<br />
4. Кликаете на сайт (muzeyuvd)<br />
5. Делаете 3-4 перехода по сайту<br />
6. Делаете <b>1 клик</b> по рекламе от гугла <b>(реклама на некоторых страницах может не отражаться, в последних ссылках сайта как правило есть)</b> <b>ДЛЯ НОВИЧКОВ - НЕ НАДО ТЫКАТЬ ПО РЕКЛАМЕ НЕСКОЛЬКО РАЗ - ссылки должны быть с одного рекламируемого сайта, иначе не защитаю</b><br />
7. Делаете <b>3-4 перехода</b> по открывшемуся рекламному сайту, находится на сайте <b>не менее 2 минут</b><br />
На проверку ссылки <b>всех</b> переходов <b>(ссылка с поисковика, 4-5 ссылок по сайту, 4-5 ссылки по сайту от гугл)</b> <br />[/b]
Добавляйте в избранное.</td>
                  </tr>
                  <tr class="line">
                    <td colspan="4" align="left" class="nobdr"><img src="img/currency_dollar24.png" alt=""  align="absmiddle" width="24" height="24" border="0"> За выполнение этого задания Вы получите <b>0.025</b>$</td>
                  </tr>
                                <tr class="line">
                    <th colspan="4">Выполнение задания</th>
                  </tr>                  <tr>
                    <td align="right">&nbsp;</td>
                    <td align="left" style="text-align: center;">
               <form action="index.php" method="post" target="_blank"><input type="hidden" name="cf" value="uzd-geturltask"><input type="hidden" name="zdid" value="207425"><input type="hidden" name="rnd" value="5a93ea9e89b3e1f0e12e4c2605735b29">
               <input type="submit" value="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Начать выполнение задания&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" style="font-weight: bold;">
               </form>
               <p align="center"><font color="#FF0000"><b>ВНИМАНИЕ!</b> В последнее время участились взломы аккаунтов пользователей через задания, внимательно смотрите где Вы указываете свои пароли и проверяйте скачиваемые файлы на вирусы!</font></p>
               </td>
                    <td colspan="2" align="left"  class="nobdr"></td>
                  </tr>
                  <tr class="line">
                    <th colspan="4">Проверка задания</th>
                  </tr>

[Qwertiy]

Ты издеваешься?

[ala-x]

извини ...разве не страница?по ошибке тот же отправил

[Qwertiy]

Qwertiy дай пожалуйста хоть приближённый код

Вот javascript:

Код: Выделить всё

var tables, rows, row, res;

tables=document.getElementsByTagName("table");
for(var q=0; q<tables.length; ++q)
  if(tables[q].innerHTML.match(/class="line"/) && tables[q].innerHTML.split("<table").length==1 && (rows=tables[q].getElementsByTagName("tr")).length>2)
    for(var w=0; w<rows.length; ++w)
      if(rows[w].getElementsByTagName("br").length>0) {
        row = rows[w];
        res = row.innerHTML.split(/<[^>]*>/).join("").trim();
        break;
      }


Результат (лежит в виде строки в переменной res):

Код: Выделить всё

1. Чистим куки, меняем IP - обязательно
2. Переходите на yandex.ru
3. Вводите в поиск один из запросов: пулемет горюнова
                                     пистолет ТК
                                     пистолет пулемет шпагина
                                     дегтярев
                                     пулемет дегтярева
                                     пистолет-пулемет судаева
                                     музей увд
4. Кликаете на сайт (muzeyuvd)
5. Делаете 3-4 перехода по сайту
6. Делаете 1 клик по рекламе от гугла (реклама на некоторых страницах может не отражаться, в последних ссылках сайта как правило есть) ДЛЯ НОВИЧКОВ - НЕ НАДО ТЫКАТЬ ПО РЕКЛАМЕ НЕСКОЛЬКО РАЗ - ссылки должны быть с одного рекламируемого сайта, иначе не защитаю
7. Делаете 3-4 перехода по открывшемуся рекламному сайту, находится на сайте не менее 2 минут
На проверку ссылки всех переходов (ссылка с поисковика, 4-5 ссылок по сайту, 4-5 ссылки по сайту от гугл)
Добавляйте в избранное.

В переменной row лежит соответствующая строка таблицы.

Разбирайся

PS: Да, неоптимально, но вполне работает.

[Qwertiy]

Небольшое улучшение кода:

Код: Выделить всё

var tables, rows, row, res;

tables=document.getElementsByTagName("table");
for(var q=0; q<tables.length; ++q)
  if(tables[q].getElementsByTagName("table").length==0 && (rows=tables[q].getElementsByTagName("tr")).length>2)
    for(var w=0; w<rows.length; ++w)
      if(rows[w].getElementsByTagName("br").length>0) {
        row = rows[w];
        res = row.innerText;
        //res = row.innerHTML.replace(/<[^>]*>/g, "").trim();
        break;
      }

Если использовать innerText, то результат выглядит так:

Код: Выделить всё

1. Чистим куки, меняем IP - обязательно
2. Переходите на yandex.ru
3. Вводите в поиск один из запросов: пулемет горюнова
пистолет ТК
пистолет пулемет шпагина
дегтярев
пулемет дегтярева
пистолет-пулемет судаева
музей увд
4. Кликаете на сайт (muzeyuvd)
5. Делаете 3-4 перехода по сайту
6. Делаете 1 клик по рекламе от гугла (реклама на некоторых страницах может не отражаться, в последних ссылках сайта как правило есть) ДЛЯ НОВИЧКОВ - НЕ НАДО ТЫКАТЬ ПО РЕКЛАМЕ НЕСКОЛЬКО РАЗ - ссылки должны быть с одного рекламируемого сайта, иначе не защитаю
7. Делаете 3-4 перехода по открывшемуся рекламному сайту, находится на сайте не менее 2 минут
На проверку ссылки всех переходов (ссылка с поисковика, 4-5 ссылок по сайту, 4-5 ссылки по сайту от гугл)
Добавляйте в избранное.

Закомментированная строка даёт тот же результат, что и предыдущий мой код.

[Qwertiy]

И тишина...

[theal]

да я не ас в програмировании..не получается нихрена

[Qwertiy]

Всё же написано.

[theal]

помоги определить куда кликнуть. http://porschecayenneauto.narod.ru/ блок от гугла .как узнать href?

[Qwertiy]

там есть рекламный блок от гугла

Ну есть. Он в iframe'ы запрятан.

Код: Выделить всё

document.getElementsByTagName("iframe")[1].contentDocument.getElementsByTagName("iframe")[1].src

это

Код: Выделить всё

http://googleads.g.doubleclick.net/pagead/ads?client=ca-pub-7481866188445527&output=html&h=280&slotname=3682958945&w=336&lmt=1358086397&flash=11.5.31&url=http%3A%2F%2Fporschecayenneauto.narod.ru%2F&dt=1358100797479&bpp=5&shv=r20130102&jsv=r20121214&correlator=1358100797617&frm=20&adk=1656017953&ga_vid=1076804156.1358100798&ga_sid=1358100798&ga_hid=1924465858&ga_fc=0&u_tz=240&u_his=2&u_java=1&u_h=1080&u_w=1920&u_ah=1050&u_aw=1920&u_cd=32&u_nplug=11&u_nmime=23&dff=arial&dfs=16&adx=816&ady=53&biw=1903&bih=586&oid=3&fu=0&ifi=1&dtd=185&xpc=JGyq2aOdAa&p=http%3A//porschecayenneauto.narod.ru

Годится?

[theal]

Этот код выдаёт ошибку - permission danied

Код: Выделить всё

WebBrowser1.Document.getElementsByTagName("iframe")(1).src

[FireFenix]

Если ты не видишь разницы твоего и Qwertiy кода, то прочитай его раз 1000 или одень очки

[theal]

квадратные скобки выдают ошибку