Авторизация на сайте средствами VB / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Авторизация на сайте средствами VB

25 сообщений из 32, страница 1 из 2

все

Авторизация на сайте средствами VB

#33486640

avtograd

Гость

Добрый день!!! Очень нужна Ваша помощь. Перерыл весь форум, но ответа толком найти не смог. Помогите, кто может!

Нужно средствами VB, авторизироваться на сайте www.hockeyarena.net
Пробовал варианы
1. http://login:password@hockeyarena.net/hokej.php - выдает ошибку (т.е. не принимает пароль)
2. www.hockeyarena.net/hokej.php?1=login&p=password или
www.hockeyarena.net/public_home.php?1=login&p=password
тотже результат.
Получилось сделать только через WebBrowser, но этот вариант не подходит, нужно авторизироваться автоматически. Подскажите как быть? Или этот вопрос не решается другим методом? Прошу снисхождения ко мне, я недавно занимаюсь программированием!!!

/ не всё так просто, как казалось с первого раза /

...

Рейтинг:

0 / 0

17.01.2006, 11:03

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33486874

shady

Участник

Откуда: Касимов

Сообщения: 979

Рейтинг: 0 / 0

Код: plaintext

<td class="nice" height="60" align="center" valign="middle" style="border-top: 1 dotted black;"><form name="login" method="post" action="http://www.hockeyarena.net/security_log.php" target="main">Имя: <INPUT TYPE="text" NAME="l" SIZE="12" class="nice" id="l"> Пароль: <INPUT TYPE="password" NAME="p" SIZE="12" class="nice"> <input name="submit" type="submit" value="Зайти в Вашу команду" class="button">   <a href="http://www.hockeyarena.net/public_password_recovery_form.php"><b>Забыли свой пароль?</b></a></form></td>

...

Рейтинг:

0 / 0

17.01.2006, 12:27

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33487266

avtograd

Гость

Да я на эту строчку уже 20 дней смотрю, а вот как провести авторизацию, непойму. Вижу что метод Post. переменные все понятны, но не хочет авторизацию проводить с командной строки и всё тут.
Подскажите, как в нужные поля вложить логин, пароль и активизировать кнопку если пользоваться WebBrowser? Как это сделать?

/ не всё так просто, как казалось с первого раза /

...

Рейтинг:

0 / 0

17.01.2006, 14:28

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33487655

Пользователь2

Гость

VBScript.
Если открывать основной фрейм.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

    Dim objIE
    Dim frm
    
    Set objIE = CreateObject("InternetExplorer.Application")
    
    objIE.Visible =  1 
    objIE.Navigate "http://www.hockeyarena.net/public_home.php"

    While objIE.Busy
        Wscript.Sleep  200 
    Wend

    Set frm = objIE.document.forms.login

    frm.l.Value = "abcdef"
    frm.p.Value = "123456"
    frm.submit.click
    
    Set objIE = Nothing

Если открывать основную страницу.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

    Dim objIE
    Dim frm
    Dim fra
    
    Set objIE = CreateObject("InternetExplorer.Application")
    
    objIE.Visible =  1 
    objIE.Navigate "http://www.hockeyarena.net/"

    While objIE.Busy
        Wscript.Sleep  200 
    Wend

    ' Количество в миллесекундах.
    ' Ждем пока загрузятся все фреймы.
    Wscript.Sleep  7000 

    Set frm = objIE.document.frames("main").document.forms.login

    frm.l.Value = "abcdef"
    frm.p.Value = "123456"
    frm.submit.click
    
    Set objIE = Nothing

...

Рейтинг:

0 / 0

17.01.2006, 16:24

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33487999

avtograd

Гость

Огромнейшее спасибо!!! Всё работает! Только один маленький нюанс, подскажите для полного счастья.
при работе открывается IE, и до авторизации и после.
objIE.Visible = 0 - скрывает окно до авторизации, но после всё равно IE открывается. Как запретить IE открываться? Спасибо за ранее!!!

/ не всё так просто, как казалось с первого раза /

...

Рейтинг:

0 / 0

17.01.2006, 17:48

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33488506

Пользователь2

Гость

Что-то не понятно. Ты хочешь залогиниться не октрывая IE? Тогда какой смысл?

...

Рейтинг:

0 / 0

18.01.2006, 08:15

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33489168

avtograd

Гость

авторЧто-то не понятно. Ты хочешь залогиниться не октрывая IE? Тогда какой смысл?
Чтобы скачать оттуда нужную информацию, без авторизации не позволяет, тоесть выдает текст что необходимо авторизироваться. Вот собственно для чего. Может так можно закрыть IE.Quit ?

/ не всё так просто, как казалось с первого раза /

...

Рейтинг:

0 / 0

18.01.2006, 12:43

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33489255

Пользователь2

Гость

Да можно.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

    ...
    frm.l.Value = "abcdef"
    frm.p.Value = "123456"
    frm.submit.click

    Wscript.Sleep  2000 

    objIE.Quit

    Set objIE = Nothing

...

Рейтинг:

0 / 0

18.01.2006, 13:10

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33489256

SmeL_md

Участник

Сообщения: 1 070

Рейтинг: 0 / 0

У меня подобная проблема но не такая же :)
нужно зайти на https://www.voxtext.md/SendSMS.aspx, но там выскакивает сообщение типо все очень защищенно примите сертификат. Как это пройти на VB хочу смс от туда слать ;) через прогу.

...

Рейтинг:

0 / 0

18.01.2006, 13:11

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33492424

Kifir

Гость

А у меня написно следующее: Объект не поддерживает это свойство или метод:'document.forms.login'.

...

Рейтинг:

0 / 0

19.01.2006, 16:48

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33492618

Пользователь2

Гость

Kifir ты открываешь эту же страницу?

Надо ждать пока не загрузится основной фрейм. Пока он не загружен - нет коллекции forms, также как и всего остального.

...

Рейтинг:

0 / 0

19.01.2006, 17:42

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33495772

Kifir

Гость

Может я неправильно понял. У меня на странице вообще нет фреймов, а только имеется 2 текстбокса куда надо ввести имя и пароль и кнопка подтверждения.

...

Рейтинг:

0 / 0

21.01.2006, 20:08

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33495868

Пользователь2

Гость

Дай ссылку на страницу.

...

Рейтинг:

0 / 0

21.01.2006, 23:54

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33496054

Kifir

Гость

А вот и ссылка
http://static.dts.ru

...

Рейтинг:

0 / 0

22.01.2006, 13:28

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33508017

Kifir

Гость

ну что подскажете мне или нет как осуществить данную задумку?

...

Рейтинг:

0 / 0

27.01.2006, 16:13

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33508028

Пользователь2

Гость

Твоя страница не открывается.

...

Рейтинг:

0 / 0

27.01.2006, 16:17

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33539020

Arches

Гость

Люди, я совсем новичок. Помогите мне как работать с вот этим:

<td class="nice" height="60" align="center" valign="middle" style="border-top: 1 dotted black;">
<form name="login" method="post" action="http://www.hockeyarena.net/security_log.php" target="main">
Login: <INPUT TYPE="text" NAME="l" SIZE="12" class="nice" id="l">
Password: <INPUT TYPE="password" NAME="p" SIZE="12" class="nice">
<input name="submit" type="submit" value="Go" class="button">
<a href="http://www.hockeyarena.net/public_password_recovery_form.php">
<b>Forget your Password?</b></a></form></td> .

Скажите мне, что туда нужно вставить, чтобы только при определенном логине и пароле оно переходило на нужную ссылку.

Помогите плиззззз......

...

Рейтинг:

0 / 0

11.02.2006, 20:17

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33539395

ВasiС

Гость

2Arches
Я тоже долго копал в этом направлении. Вот что накопал:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

Sub Command1_Click()

   Dim URL As String
   Dim Flags As Long
   Dim TargetFrame As String
   Dim PostData() As Byte
   Dim Headers As String

   URL = "http://www.hockeyarena.net/security_log.php" 
   Flags =  0 
   TargetFrame = ""

   PostData = "nick=login&password=pass"
   PostData = StrConv(PostData, vbFromUnicode)
   Headers = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
   
   WebBrowser.Navigate URL, Flags, TargetFrame, PostData, Headers
   
End Sub

...

Рейтинг:

0 / 0

12.02.2006, 11:57

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33542343

Arches

Гость

ВasiС2Arches
Я тоже долго копал в этом направлении. Вот что накопал:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

Sub Command1_Click()

   Dim URL As String
   Dim Flags As Long
   Dim TargetFrame As String
   Dim PostData() As Byte
   Dim Headers As String

   URL = "http://www.hockeyarena.net/security_log.php" 
   Flags =  0 
   TargetFrame = ""

   PostData = "nick=login&password=pass"
   PostData = StrConv(PostData, vbFromUnicode)
   Headers = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
   
   WebBrowser.Navigate URL, Flags, TargetFrame, PostData, Headers
   
End Sub

Не забудьте кинуть на форму контрол WebBrowser. Может кому будет полезным =) Не забудьте доработать напильником!
На будущее, есть приблуда к ослику IEWatch, которая показывает что отправляется в post на сервер!

А можешь мне по-подробнее рассказать?! Это скрипт какой-то, или что? Я просто не понимаю что с этим делать... Подскажи пожалуйсто....

...

Рейтинг:

0 / 0

14.02.2006, 06:30

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33618856

Arches

Гость

Люди хелп!!!

...

Рейтинг:

0 / 0

23.03.2006, 06:42

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33710815

BOPOHA

Гость

2 All

У меня близкая проблема. Авторизоваться на сайте (спасибо этой теме :) ) я смог. Следующий шаг - задать параметры фильтра, чтобы получить табличку и выковырять оттуда данные. Фильтр выполнен в виде формы с несколькими select-ами. Submit выполняется по кнопке, которая описана как

Код: plaintext

1.
2.
3.
4.

<form>
...
<input type = 'submit' class="ButtonStyle" value = 'Смотреть список'>
</form>

Сама форма описана просто:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

<form>
...
<select name = 'ХХХ' class="ListStyle">
        <option value = ''> YYY </option>...
 </select>
...
<select name = 'ZZZ' class="ListStyle">
        <option value = ''> KKK </option>...
 </select>

</form>

Внутри формы есть ещё загадочный input:

Код: plaintext

<input type = 'hidden' name = 'action' value = 'BpcAdminProblemFilter'>

но для чего он нужен я ещё не до конца постиг. Остальное все понятно.

Суть в том, что я смог заполнить параметры фильтра, а как вызвать Submit - не знаю. И сама форма, и кнопка "Смотреть список" не имеют поля name.
Подскажите хотя бы направление в котором думать.

Такую задачу решаю впервые, по этому мог написАть ерунду. Так что строго не судите :)

...

Рейтинг:

0 / 0

05.05.2006, 16:04

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#33710988

BOPOHA

Гость

Получилось!! :)

Код: plaintext

objIE.document.forms( 2 ).Submit

Не думал, что к коллекции форм можно обращаться как к массиву...

...

Рейтинг:

0 / 0

05.05.2006, 16:46

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#34048857

MoRDa_2006

Гость

а у меня вот какой вопрос, как после получения странички контролом webbrowser сделать поиск определенного слова или выражения на етой странице?

...

Рейтинг:

0 / 0

11.10.2006, 23:00

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#34049038

orunbek

Участник

Откуда: Гималай

Сообщения: 2 066

Рейтинг: 0 / 0

мда... люди хотите хороший совет по теме? учите DHTML и объектную структуру контрола WebBrowser

...

Рейтинг:

0 / 0

12.10.2006, 07:46

| Ответить | Цитировать | Написать

Авторизация на сайте средствами VB

#34049908

BOPOHA

Гость

orunbekучите DHTML и объектную структуру контрола WebBrowser
Ну, не все же в мире программеры. Просто бывает, что надо что-то запрограммировать небольшое, а как - непонятно. Вот и приходится обращиться к настоящим профи ;)

...

Рейтинг:

0 / 0

12.10.2006, 12:14

| Ответить | Цитировать | Написать

25 сообщений из 32, страница 1 из 2

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Авторизация на сайте средствами VB

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=34049908&tid=2158505]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	34ms
get topic data:	16ms
get forum data:	2ms
get page messages:	53ms
get tp. blocked users:	1ms
others:	349ms

total:	484ms