Модераторы: diadiavova, gambit

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Извлечение данных из скрипта, WebBrowser 
:(
    Опции темы
Natapro
Дата 11.10.2009, 03:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
нужно сделать так
Чтоб без открытия страницы, переходило по следующему адресу  ( http://neolands.ru/pinfo.php?+"Login")
искало строчку :
var status=[1255214147,1255214001,"Мираклис","ул. Садовая","",0,"","0","0"]; (числа всегда сменные)
и доставало от туда два числа первых!
(1255214147 -время текущее в секундах
1255214001 -второе число это время когда персонаж сделал последнее действие)

дальше происходила функция расчёта или как, чтоб происходило отнимания Одного от Другого и если оно ровно больше чем 302 то в 
то в Лейбл1 Писало Офлайн , а если меньше то Онлайн!
Обновление должно происходить каждые 5 минут

Место положение так же определялось и вставляло...


понимаю что оч оч сложно, но может кто-то сможет помочь ?, а то фантазия у меня хорошая.. а вот сил маловато :(

Это сообщение отредактировал(а) Natapro - 11.10.2009, 18:54


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
diadiavova
Дата 11.10.2009, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Модератор: Название темы должно отражать ее суть!
Модератор: Пожалуйста, один топик - один вопрос.

По первому "сложному" вопросу:
Просто ставишь TableLayoutPanel создаёшь там два столбца и нужное количество строк. В первой строке в левую яейку вставляешь Label и пишешь в нём логин, в правую ячейку TextBox куда ентат логин надо вводить и так далее.

По второму "ещё более сложному" вопросу:
Текст 
Код

var status=[1255214147,1255214001,"Мираклис","ул. Садовая","",0,"","0","0"];
означает объявление и инициализацию массива. Его можно просто программно вытащить он доступен через объект window. Здесь правда есть некоторые сложности, касающиеся взаимодействия бейсика с яваскрипт-массивами, но в принципе всё разрешимо. Вот такая инструкция
Код

        Dim jsar = Me.WebBrowser1.Document.Window.DomWindow.status.join("#").ToString.Split("#")
        Dim first = Integer.Parse(jsar(0))
        Dim second = Integer.Parse(jsar(1))
        If second - first < 302 Then
            MsgBox("таки меньше")
        Else
            MsgBox("Больше чйортпабири")
        End If

выполнит нужную проверку. 

Как загрузить в браузер страницу "по следующему адресу..." может сама догадаешьсы? smile 

И кстати на предупреждения в начале поста обрати внимание, это не шутка.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Natapro
  Дата 29.11.2009, 18:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
чето не разобралась,  загрузить в браузер ? 
надо что б это делалось в скрытом виде, что б выдавалось тока в Текст бокс 1 результат... и обновлялось каждие 5 минут.. и как быть с 
Цитата(diadiavova @  11.10.2009,  13:28 Найти цитируемый пост)
"Мираклис","ул. Садовая"




--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
diadiavova
Дата 29.11.2009, 20:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Natapro, вот ты удивишься, но мираклис и улица садовая окажутся в том же массиве, под индексами 3 и 4 соответственно. Что касается фоновой загрузки, то тут единственное, что тебе доступно - это пожалуй создать в коде невидимый браузер и сделать так же. Другие варианты сложнее.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Natapro
Дата 29.11.2009, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
ясно ну а если брать скрытый браузер это не подходит, так как надо мне много таких значений что создавать и много браузеров ?


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
diadiavova
Дата 29.11.2009, 21:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Можно ещё загрузить страницу, например с помощью System.Net.WebClient и распарсить "ручками".


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Natapro
Дата 29.11.2009, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
а как этьо  smile 


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
diadiavova
Дата 29.11.2009, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(Natapro @  29.11.2009,  21:16 Найти цитируемый пост)
а как этьо

Сомневаюсь, что ты это сможешь. Можно к приимеру с помощью регулярных выражений вытянуть данные из текста. Но уверяю тебя: тебе проще будет реализовать первый вариант.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Natapro
Дата 29.11.2009, 21:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
Ну если помнишь для чего мне это? то вспомни что это нереально Так как вот общяя картинка
Это будет Сбоку Менюшка типа таблички, в которой первый Столбик Имя Второе Вот выводить офлайн онлайн, и третий Мариликас тот ) и ещё функция добавления в список Имен ))  просто незнаю когда функцию добавления делать :(

Добавлено через 17 секунд
и фобще вопрос сложний про столбики, я поже подниму smile


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Natapro
Дата 29.11.2009, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
Давай Розкажу подробнее, может немного яснее ястанет...


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Natapro
Дата 30.11.2009, 00:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
Нужно сделать будет таблицу с 3 столбцов, каждому столбцу своё действие,
 к примеру первый

1) Називаетсо ЛОгин, там будет Логин (*Логин*) - функция этого столбца будет просто в добавлении *Логина* с Login   текст бокса , к сылке site.ru Это я думаю сделать Так:

Код

web1.Navigate("http://neolands.ru/pinfo.php?" + Login.text) ' (это сылка на будущее по которой надо будет сделать переход...)

 и всё вывод потом в info текст боксе результата  web1.Navigate("http://neolands.ru/pinfo.php?" + Login.text) вот думаю как сделать знаю что легко, но как сделать недодумываюсь наверное голова уже квадратная..
Всё второй столбик
2)Должен вытягивать  с скрипта вот так
Код

    Dim jsar = Me.WebBrowser3.Document.Window.DomWindow.status.join("#").ToString.Split("#")
        Dim first = Integer.Parse(jsar(0))
        Dim second = Integer.Parse(jsar(1))
        If second - first < 302 Then
            TextBox1.Text = ("Онлайн")
        Else
            TextBox2.Text = ("Офлайн")
        End If

Тока тут проблема так как как произвести создание и скрытие браузера это большая морока
3) вытягивание с Скрипта 
Код

var status=[1255214147,1255214001,"Мираклис","ул. Садовая","",0,"","0","0"]; 

Мираклис","ул. Садовая" но тут таже проблема...


Кроми этого возможность добавлять в Табличку 1 *Логин* 
Вот так вот сложно всё...


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
diadiavova
Дата 30.11.2009, 00:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(Natapro @  30.11.2009,  00:32 Найти цитируемый пост)
 вот думаю как сделать 

Ну сделала ведь уже. Правда есть вариант с перегрузкой метода Navigate, но думаю не стоит тебе пока заморачиваться на классе Uri.


Цитата(Natapro @  30.11.2009,  00:32 Найти цитируемый пост)
Тока тут проблема так как как произвести создание и скрытие браузера это большая морока

Да это ооооооооочень сложно.
Код

Dim backgroundBrowser As New WebBrowser()

Цитата(Natapro @  30.11.2009,  00:32 Найти цитируемый пост)
Мираклис","ул. Садовая" но тут таже проблема...

Ну написал ведь уже, ну ёмаё. smile 
Код

    Dim jsar = Me.WebBrowser3.Document.Window.DomWindow.status.join("#").ToString.Split("#")
        Dim first = Integer.Parse(jsar(0)) '1255214147
        Dim second = Integer.Parse(jsar(1)) '1255214001
        Dim third = jsar(2) 'Миркалис
        Dim fourth =  jsar(3) 'ул. Садовая
        If second - first < 302 Then
            TextBox1.Text = ("Онлайн")
        Else
            TextBox2.Text = ("Офлайн")
        End If



--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Natapro
  Дата 30.11.2009, 00:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
Цитата(diadiavova @  30.11.2009,  00:45 Найти цитируемый пост)
Да это ооооооооочень сложно.код VB.NET1:Dim backgroundBrowser As New WebBrowser()



и как ты мне потом подскажешь подкинуть мне этот веб браузер в следущие колонки в их текст, так как какой это будет веб браузер нектоненает !


Цитата(diadiavova @  30.11.2009,  00:45 Найти цитируемый пост)
Мираклис","ул. Садовая" но тут таже проблема...Ну написал ведь уже, ну ёмаё.  

та я чисто вспомнила, знаю узезнаю


Цитата(diadiavova @  30.11.2009,  00:45 Найти цитируемый пост)
КодincludeSyntax('vbnet');    Dim jsar = Me.WebBrowser3.Document.Window.DomWindow.status.join("#").ToString.Split("#")        Dim first = Integer.Parse(jsar(0)) '1255214147        Dim second = Integer.Parse(jsar(1)) '1255214001        Dim third = jsar(2) 'Миркалис        Dim fourth =  jsar(3) 'ул. Садовая        If second - first < 302 Then            TextBox1.Text = ("Онлайн")        Else            TextBox2.Text = ("Офлайн")        End If

тока как сделать это в офлайн режыме! браузер скрытый не подходит
такак должна быть кнопка добавить пользователя туда, и как оно будет в коде знать номер браузера потом итд.....


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
diadiavova
Дата 30.11.2009, 01:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(Natapro @  30.11.2009,  00:52 Найти цитируемый пост)
и как ты мне потом подскажешь подкинуть мне этот веб браузер в следущие колонки в их текст, так как какой это будет веб браузер нектоненает !

Чаво? smile 
Цитата(Natapro @  30.11.2009,  00:52 Найти цитируемый пост)
тока как сделать это в офлайн режыме! браузер скрытый не подходит
такак должна быть кнопка добавить пользователя туда, и как оно будет в коде знать номер браузера потом итд..... 

Ну ты уж как-нибудь определись, что тебе надо: в открытом браузере делать или в скрытом. Делать всё-равно одинаково придётся.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Natapro
  Дата 30.11.2009, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
Пытаюсь запхать в таймер, а оно вот так матюкаетсо на меня 
Цитата

Не задана переменная объекта или переменная блока With.


Код

Dim jsar = WebBrowser3.Document.Window.DomWindow.status.join("#").ToString.Split("#")
        WebBrowser3.Navigate("http://neolands.ru/pinfo.php?" + Label2.Text)
        Dim first = Integer.Parse(jsar(0))
        Dim second = Integer.Parse(jsar(1))
        If second - first < 302 Then
            Label9.Text = "Онлайн"
        Else
            Label9.Text = "Офлайн"
        End If



--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2502 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.