Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
eldar22
-
- Обычный пользователь

-
-
- Сообщения: 91
- Зарегистрирован: 09.09.2008 (Вт) 18:11
eldar22 » 22.05.2010 (Сб) 0:29
Здравствуйте!
Пытаюсь авторизоваться на сайте
- Код: Выделить всё
Dim strURL As String
Dim strToASP As String
Dim strHeader As String
strHeader = "Host: сайт.com" & vbNewLine & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3" & vbNewLine & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbNewLine & _
"Accept-Language: ru" & vbNewLine & _
"Accept-Encoding: gzip,deflate" & vbNewLine & _
"Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7" & vbNewLine & _
"Keep-Alive:115" & vbNewLine & _
"Referer: https://сайт.com/" & vbNewLine & _
"Content-Type: application/x-www-form-urlencoded" & vbNewLine & _
"Content-Length: 49" & vbNewLine & _
"Connection: keep-alive" & vbNewLine
strToASP = "login=xxxxx&pass=xxxxx"
strURL = "https://сайт.com"
Inet1.Execute strURL, "post", strToASP, strHeader
Но авторизация не происходит в чем проблема?
-
iGrok
-
- Артефакт VBStreets

-
-
- Сообщения: 4272
- Зарегистрирован: 10.05.2007 (Чт) 16:11
- Откуда: Сетевое сознание
iGrok » 22.05.2010 (Сб) 1:20
А Inet1.Protocol = icHTTPS не забыл?
label:
cli
jmp label
-
0xy
-
- Бывалый

-
-
- Сообщения: 223
- Зарегистрирован: 14.06.2006 (Ср) 2:34
0xy » 23.05.2010 (Вс) 17:14
А расскажите, что это за зверь inet1?
-
iGrok
-
- Артефакт VBStreets

-
-
- Сообщения: 4272
- Зарегистрирован: 10.05.2007 (Чт) 16:11
- Откуда: Сетевое сознание
iGrok » 23.05.2010 (Вс) 17:57
Видимо, Microsoft Internet Transfer Control.
label:
cli
jmp label
-
eldar22
-
- Обычный пользователь

-
-
- Сообщения: 91
- Зарегистрирован: 09.09.2008 (Вт) 18:11
eldar22 » 23.05.2010 (Вс) 18:11
Все равно авторизация не происходит
Еще заметил что авторизация не происходит и в ИЕ 8(internet explorer 8 )+ в сайте присутствует строка
- Код: Выделить всё
<!--[if lte IE 6]><script type="text/javascript">
$.ready(function(){
$('button.hover-bt').hover(function(){
$(this).setClass('hover')
},function(){
$(this).removeClass('hover')
})
})//*/
</script><![endif]-->
Только в Mozille FireFox происходит авторизация
В чем может быть проблема?
Последний раз редактировалось
eldar22 23.05.2010 (Вс) 21:56, всего редактировалось 1 раз.
-
FireFenix
-
- Продвинутый гуру

-

-
- Сообщения: 1640
- Зарегистрирован: 25.05.2007 (Пт) 10:24
- Откуда: Mugen no Sora
FireFenix » 23.05.2010 (Вс) 21:02
А кукисы кто будет получать и таскать между запросами?
- Код: Выделить всё
<!--[if lte IE 6]><script type="text/javascript">
$.ready(function(){
$('button.hover-bt').hover(function(){
$(this).setClass('hover')
},function(){
$(this).removeClass('hover')
})
})//*/
</script><![endif]-->
Могу предположить, что код влияет только на анимацию сайта и к авторизации ничего личного не имеет...
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる
-
eldar22
-
- Обычный пользователь

-
-
- Сообщения: 91
- Зарегистрирован: 09.09.2008 (Вт) 18:11
eldar22 » 24.05.2010 (Пн) 11:42
Про cookie даже не подумал.
Буду разбираться
-
eldar22
-
- Обычный пользователь

-
-
- Сообщения: 91
- Зарегистрирован: 09.09.2008 (Вт) 18:11
eldar22 » 24.05.2010 (Пн) 14:40
Да дело было в cookie получилась авторизация
FireFenix спасибо за наводку

Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Majestic-12 [Bot], SemrushBot, Yandex-бот и гости: 11