Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
KiLLBiLL
-
- Начинающий
-
-
- Сообщения: 9
- Зарегистрирован: 03.02.2006 (Пт) 21:42
KiLLBiLL » 04.02.2006 (Сб) 0:28
Все сделал как тут
http://bbs.vbstreets.ru/viewtopic.php?t=7726
- Код: Выделить всё
parametrs = "login=log&psw=pass"
Winsock1.SendData "POST /enter.pl HTTP/1.1 " & vbCrLf
Winsock1.SendData "Content-Type: application/x-www-form-urlencoded " & vbCrLf
Winsock1.SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) & vbCrLf"
Winsock1.SendData "www.host.ru" & vbCrLf
Winsock1.SendData "Content-Length:" & Len(parametrs) & vbCrLf & vbCrLf
Winsock1.SendData parametrs & vbCrLf
а при этом коде
Service Unavailable
The server is temporarily busy. Try again later. или выдает ошибку
302 Found The document has moved
В чем пробелма объясните а ?
Хотя через браузер заходит
P.S Не закрывайте так быстро тему..
-
Odrick
-
- Постоялец
-
-
- Сообщения: 503
- Зарегистрирован: 28.09.2003 (Вс) 2:04
Odrick » 04.02.2006 (Сб) 14:37
Winsock1.SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) & vbCrLf"
А не так ли:
- Код: Выделить всё
Winsock1.SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
То, что для одних константа, для других только переменная...
-
KiLLBiLL
-
- Начинающий
-
-
- Сообщения: 9
- Зарегистрирован: 03.02.2006 (Пт) 21:42
KiLLBiLL » 04.02.2006 (Сб) 20:05
Odrick писал(а):Winsock1.SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) & vbCrLf"
А не так ли:
- Код: Выделить всё
Winsock1.SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
Так но всеравнооо выдает ошибку туже..
Вот вложил проект гляньте плизз..
Там кстати только через ИЕ работать можно, это как то влияет ?
- Вложения
-
winsock.rar- (1.87 Кб) Скачиваний: 35
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот, SemrushBot и гости: 157