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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с оком ввода пароля 
:(
    Опции темы
xSD
Дата 28.4.2010, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: 0
diadiavova,  Подскажи пожалуйста как можно сделать так. При вводе не верного пароля программа выдовала бы ошибку а при вводе правельного открывала 2 форму? и если пароль правельный нужно его сохранить.

Вот код сайта
Код

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<TITLE>
    UTM:
    Вход в UTM</TITLE>
<LINK rel="stylesheet" type="text/css" href="/utm.css">
<script language="JavaScript" type="text/javascript" src="/utm.js"></SCRIPT>
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" link="#003BA9" vlink="#E7651A" marginwidth="0" marginheight="0" topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0"><TABLE width="100%" height="100%" cellspacing="0" cellpadding="0" border="0"><TR>
<TD width="20%" class="menu-area">
<DIV class="mainmenu-act">Вход в UTM</DIV>
<BR><DIV ALIGN="CENTER"><a href="http://www.netup.ru" target="_new"><img src="https://secure.netup.biz/utm.gif" border="0"></a></DIV>
</TD>
<TD width="80%" class="work-area">
<TABLE width="100%" cellspacing="0" cellpadding="0" border="0" bgcolor="#E0EED3"><TR><TD class="submenu-area"></TD></TR></TABLE>
<BR>Вход в UTM<FORM name="login" accept-charset="UTF-8" action="/cgi-bin/utm5/aaa5" target="" method="post"><DIV class="form-tab"><TABLE cellspacing="5" cellpadding="3" border="0">
<TR>
<TD class="form-field" align="right">Логин</TD>
<TD class="form-field" align="left"><INPUT type="text" class="form-field" size="40" name="login" value=""></TD>
</TR>
<TR>
<TD class="form-field" align="right">Пароль</TD>
<TD class="form-field" align="left"><INPUT type="password" class="form-field" size="40" name="password" value=""></TD>
</TR>
<INPUT type="hidden" name="cmd" value="login"><TR>
<TD></TD>
<TD><INPUT type="submit" class="form-button" value="OK"></TD>
</TR>
</TABLE></DIV></FORM>
</TD>
</TR></TABLE></BODY>
</HTML>


Вот кож формы
Код

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.WebBrowser1.Navigate("https://www.kovrovinter.net/cgi-bin/utm5/aaa5")
        Dim lf As New Form1
    End Sub

    Private Sub login_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub password_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles password.TextChanged
        WebBrowser1.Document.Forms(0).DomElement.password.value = password.Text
    End Sub

    Private Sub login_TextChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles login.TextChanged
        WebBrowser1.Document.Forms(0).DomElement.login.value = login.Text
    End Sub
End Class


При том кнопка не нажимаеться не знаю что делать :(
Можно примерчик если что, Я просто новичёк. Спасибо.

Это сообщение отредактировал(а) diadiavova - 28.4.2010, 21:42
PM MAIL   Вверх
diadiavova
Дата 28.4.2010, 21:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 8
Всего: 142
xSD, когда задаёшь вопрос, главное - это описание проблемы, а код должен прояснять ситуацию. Из твоего объяснения я не понял ровным счётом ничего, зато ты выложил кучу кода. По всей видимости его надо изучить, чтобы понять в чём твоя проблема.
Если ты пишешь винформ приложение, то при чём тут хтмл-код? smile 
И ещё: для каждого вопроса должна создаваться отдельная тема.
 а так же не забывай о том, что это форум, а не место где можно спросить дядю Вову smile , тут и другие участники есть.


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


Новичок



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

Репутация: нет
Всего: 0
Извини, проблема такова, я сделал так как ты описывал в теме Webbrowser. Но у меня не получилось 2 вещи:
Я разместил на форму 2 текстовых поля "login" и "password" и кнопку "cmd" я делаю программу на подобее автологин, вводя текст в текстовое поле "login" в браузере в этом же текстовом поле тоже вводится тот текст, также и с текстовым полем "password" но при нажатии на кнопку он не рягирует на код, что делать?
Код

Private Sub cmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd.Click
        WebBrowser1.Document.Forms(0).DomElement.cmd.click()
    End Sub

Что может быть не так? вот код HTML страницы с текстовыми полями и с кнопкой
Код

</TR>
<INPUT type="hidden" name="cmd" value="login"><TR>
<TD></TD>
<TD><INPUT type="submit" class="form-button" value="OK"></TD>
</TR>

Ну полный код программы есть повыше.... smile 
И как можно сделать так что бы при нажатии на кнопку "cmd"  если пароль был введён не верно вылезла ошибка, а если пароль был введён правельно открылась 2 форма а пароль автоматически сохранился?
Думаю так описал попонятнее... Если можно простенький примерчи, заранее большое спасибо diadiavova. =)
PM MAIL   Вверх
diadiavova
Дата 28.4.2010, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 8
Всего: 142
А почему напрямую не ввести данные в хтмл-документ? Зачем нужно это промежуточное звено в виде текстбоксов и кнопки на форме?

Добавлено через 4 минуты и 47 секунд
Вообще-то у тебя ничего и не должно происходить, потому что cmd - не кнопка в твоей форме, а скрытое поле, кнопка - это как раз следующий инпут, но она не имеет имени, так что до неё докопаться будет труднее.


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


Новичок



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

Репутация: нет
Всего: 0
Ну хотелось бы сделать так... 
PM MAIL   Вверх
diadiavova
Дата 28.4.2010, 22:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 8
Всего: 142
Попробуй такой код, писал прямо в окно браузера и не проверял, так что если что подправь что надо, думаю: идея понятна.
Код

Dim inputs = WebBrowser1.Document.Forms(0).GetElementsByTagName("INPUT")
inputs(inputs.Count - 1).DomElement.click()


Это сообщение отредактировал(а) diadiavova - 28.4.2010, 22:31


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


Новичок



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

Репутация: нет
Всего: 0
Блин, как же всё сложно.... ну навиди меня хотябы на истинный путь буду пытаться... ))

Добавлено через 56 секунд
Спасибо большое.... 
PM MAIL   Вверх
diadiavova
Дата 28.4.2010, 22:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 8
Всего: 142
Цитата(xSD @  28.4.2010,  23:31 Найти цитируемый пост)
Блин, как же всё сложно.... ну навиди меня хотябы на истинный путь буду пытаться... ))

Ты код попробовал?


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


Новичок



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

Репутация: нет
Всего: 0
Работает, но как сделать так, что бы выдавал ошибку при вводе не правельного пароля, но если пароль правельный открывал 2 форму?
PM MAIL   Вверх
diadiavova
Дата 28.4.2010, 22:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 8
Всего: 142
А как ты сам определяешь правильный пароль или нет?


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


Новичок



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

Репутация: нет
Всего: 0
user posted image
Но окно браузера я патом спрячу за форму, мне просто нужен данный интерфейс. smile
PM MAIL   Вверх
diadiavova
Дата 28.4.2010, 22:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 8
Всего: 142
Цитата(xSD @  28.4.2010,  23:39 Найти цитируемый пост)
Но окно браузера я патом спрячу за форму, мне просто нужен данный интерфейс

Ты в принципе не правильно подходишь к вопросу. Тебе ни к чему при вводе каждого символа передавать его в браузер. Надо сделать так: пользователь вводит логин и пароль(полностью), нажимает кнопку, и только после этого данные вводятся в поля документа и отправляются на сервер. Дальше ждёшь ответа и в зависимости от того, какой он действуешь. Хотя всё это можно и без браузера сделать smile 


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


Новичок



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

Репутация: нет
Всего: 0
Блин можно лёгенький примерчик пжл.... :(
PM MAIL   Вверх
diadiavova
Дата 28.4.2010, 22:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 8
Всего: 142
Цитата(xSD @  28.4.2010,  23:46 Найти цитируемый пост)
Блин можно лёгенький примерчик пжл.... :( 

Да собственно весь код у тебя есть, только его перегруппировать малость надо
Код

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.WebBrowser1.Navigate("https://www.kovrovinter.net/cgi-bin/utm5/aaa5")
        Dim lf As New Form1
    End Sub


    Private Sub cmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd.Click
        WebBrowser1.Document.Forms(0).DomElement.login.value = login.Text
        WebBrowser1.Document.Forms(0).DomElement.password.value = password.Text
        Dim inputs = WebBrowser1.Document.Forms(0).GetElementsByTagName("INPUT")
        inputs(inputs.Count - 1).DomElement.click()
    End Sub
End Class
Как видишь копипаста того, что есть. Что касается ответа, то он у тебя в браузере появится, надо только отловить событие(по-моему Navigated), то есть дождаться пока придёт ответ с сервера, и инфу о том правильные введены данные или нет получить оттуда. Пример написать непросто, потомучто придётся искать реальный сайт с реальными данными итд.

А о том, как имитировать работу браузера программно(залогиниться итд) читай здесь
http://www.rsdn.ru/article/inet/httpweb.xml



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


Новичок



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

Репутация: нет
Всего: 0
Спасбо большое выручил))))

Добавлено через 5 минут и 46 секунд
smile а как сохранить данные, что бы при следующем зупуске программы уже было введено в поле логин и пароль те данные которые я ввёл в 1 раз????
PM MAIL   Вверх
xXxSataNxXx
Дата 6.5.2010, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Вообще то, когда знаешь имя или ID поля ввода, то можно сделать так:
Код

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Inputs as HtmlElementCollection=WebBrowser1.Document.GetElementsByTagName("input")
Inputs.Item("login").SetAttribute("value", login.text)
Inputs.Item("password").SetAttribute("value", password.text)
Inputs.Item(Inputs.Count-1).InvokeMember("click")
End Sub

Хотя это зависит от человека, мне, допустим, не очень нравится работать с DomElement...
PM MAIL   Вверх
diadiavova
Дата 6.5.2010, 10:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 8
Всего: 142
Цитата(xXxSataNxXx @  6.5.2010,  11:24 Найти цитируемый пост)
Вообще то, когда знаешь имя или ID поля ввода

ID не всегда известно(установлено), а имя не всегда уникально.
Цитата(xXxSataNxXx @  6.5.2010,  11:24 Найти цитируемый пост)
мне, допустим, не очень нравится работать с DomElement

Доступ полному набору возможностей можно получить только так. Если задача позволяет ограничиться тем, что предоставляют дотнетовские оболочки для дом-объектов, то действительно, лучше ими и ограничиться.


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


Шустрый
*


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

Репутация: 1
Всего: 1
Хех... Ну, я думаю, что вопрос был для определённого сайта, а следовательно и Name известны... Там же код страницы написан...  smile 
PM MAIL   Вверх
diadiavova
Дата 6.5.2010, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 8
Всего: 142
Цитата(xXxSataNxXx @  6.5.2010,  12:04 Найти цитируемый пост)
Хех... Ну, я думаю, что вопрос был для определённого сайта, а следовательно и Name известны

Атрибут name не обязан быть уникальным в пределах документа, так что если он даже известен - не факт, что в документе нет элемента с таким же значением этого атрибута.
Цитата(xXxSataNxXx @  6.5.2010,  12:04 Найти цитируемый пост)
Там же код страницы написан...

Для примера инога приводят сокращённую или упрощённую версию страницы smile 


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


Шустрый
*


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

Репутация: 1
Всего: 1
Хорошо, тогда так:
Код

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Inputs as HtmlElementCollection = WebBrowser1.Document.Forms(_Номер_Формы__Или_Имя__Или_ID_).GetElementsByTagName("input")
Inputs.Item("login").SetAttribute("value", login.text)
Inputs.Item("password").SetAttribute("value", password.text)
Inputs.Item(Inputs.Count-1).InvokeMember("click")
End Sub


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

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

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


 




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


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

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