Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Submit для VB / 5 сообщений из 5, страница 1 из 1
15.02.2006, 17:03:32
    #33547163
kirstr
kirstr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Submit для VB
Добрий день! Подскажите как сделать на 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:11:10
    #33547184
ВasiС
ВasiС
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Submit для VB
Читай топик:
http://www.sql.ru/forum/actualthread.aspx?tid=252958
в конце я приводил пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.02.2006, 17:18:43
    #33547200
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Submit для VB
Я давал недавно пример. Вон даже товарищ ссылку привел.

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

Код: 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, 18:44:26
    #33547434
kirstr
kirstr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Submit для VB
что нужно сделать что бы работало WScript.Sleep
OC windows XP
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.02.2006, 08:21:29
    #33547988
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Submit для VB
Это пример вообще-то представляет собой сценарий, написанный на 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Submit для VB / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 418ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166371]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 185ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 21ms
get tp. blocked users:
 1ms
others: 187ms
total:  418ms
x
x
Закрыть


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