ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Submit для VB
5 сообщений из 5, страница 1 из 1
Submit для VB
    #33547163
kirstr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kirstr
Гость
Добрий день! Подскажите как сделать на VB6.0 доступ к сайту (я знаю пароль и логин) программно нажимать кнопку Submit где и как указать логин и пароль по умолчанию.
Так я хожу на сайт:
action=http://sayt.ru method=post>
<input type=text name=userw
<input type=password name=passw
<input type=submit name=ok value="wwwwwww"
Как на VB зделать эту передачу
...
Рейтинг: 0 / 0
15.02.2006, 17:03:32
| Ответить | Цитировать | Написать  
Submit для VB
    #33547184
ВasiС
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВasiС
Гость
Читай топик:
http://www.sql.ru/forum/actualthread.aspx?tid=252958
в конце я приводил пример
...
Рейтинг: 0 / 0
15.02.2006, 17:11:10
| Ответить | Цитировать | Написать  
Submit для VB
    #33547200
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Я давал недавно пример. Вон даже товарищ ссылку привел.

Какое название у формы?

Код: plaintext
<form name=??? method=post action="http://sayt.ru">

Если нет, можно по индексу.

Код: 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..."

    While objIE.Busy
        Wscript.Sleep  200 
    Wend

    Set frm = objIE.document.forms( 0 )

    frm.userw.Value = "abcdef"
    frm.passw.Value = "123456"
    frm.submit.click
    
    Set objIE = Nothing
...
Рейтинг: 0 / 0
15.02.2006, 17:18:43
| Ответить | Цитировать | Написать  
Submit для VB
    #33547434
kirstr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kirstr
Гость
что нужно сделать что бы работало WScript.Sleep
OC windows XP
...
Рейтинг: 0 / 0
15.02.2006, 18:44:26
| Ответить | Цитировать | Написать  
Submit для VB
    #33547988
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Это пример вообще-то представляет собой сценарий, написанный на VBScript.
Создай файл с расширением .vbs и скопируй туда представленный код.

Если работаешь под VB, то можешь воспользоваться функцией WinApi Sleep.

Код: plaintext
1.
Declare Sub Sleep Lib "kernel32" ( _
  ByVal dwMilliseconds As Long)

Либо перепиши цикл следующим образом (без Sleep):

Код: plaintext
1.
Do While objIE.Busy
Loop
...
Рейтинг: 0 / 0
16.02.2006, 08:21:29
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Submit для VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=293&tid=2166371]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 190ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 204ms
total:  473ms
созд. / загр.: 473ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]