Как открыть сайт, с помощью WinSock?

[BDSoft]

Как открыть сайт, с помощью WinSock?

[Debugger]

Вопрос в тему: как залить файл туда?
Коннектиться надо:

Код: Выделить всё


WinSock.Что-то=что-то
WinSock.Connect


[Kovu]

Коннектиться надо:

Код: Выделить всё

WinSock.Что-то=что-то
WinSock.Connect


Это 5+.

Код: Выделить всё


WS1.Close
WS1.Connect "bbs.vbstreets.ru", 80
'затем что-то вроде
WS1.SendData "GET /index.php HTTP/1.1" & vbCrLf & _
"user-agent: My MegaBrowser" & vbCrLf & _
"cache-control: no-store no-cache" & vbCrLf & _
"host: bbs.vbstreets.ru" & vbCrLf & vbCrLf
'После отправки запроса в процедуру придут запрошенные данные
Private Sub WS1_DataArrival(ByVal bytesTotal As Long)
Dim dt As String, frf As Integer
WS1.GetData dt
Text1.Text = Text1.Text + dt
frf = FreeFile
Open AppPath + "results.txt" For Append As frf
Print #frf, dt
Close #frf
End Sub


[Debugger]

А залить то как?

[XPAHuTEJIb]

Kovu
Не совсем так, это хорошо когда у тебя выделенка, а если я выхожу через мопед со скоростью 2400, надо чуть по другому: передачу данных делать после коннекта.

Private Sub WS1_Connect
...передачa
end sub

а насчет залить, есть в ЧАВО ответ.

[Kovu]

Кстати возник вопрос, что ещё передавать чтобы на запрос

Код: Выделить всё

WS1.SendData "POST /phpbb2/posting.php HTTP/1.1" & vbCrLf & _
"user-agent: My MegaBrowser" & vbCrLf & _
"cache-control: no-store no-cache" & vbCrLf & _
"host: localhost" & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
"Content-Length: " & Len("t=2&mode=reply&message=testing") & vbCrLf & vbCrLf
WS1.SendData "t=2&mode=reply&message=testing" & vbCrLf


сообщение всётаки постилось, а не возвращалась ошибка

Код: Выделить всё

HTTP/1.1 302 Found
Date: Sat, 07 Oct 2006 11:51:03 GMT
Server: Apache/2.0.54 (Win32)
X-Powered-By: PHP/4.2.3
Set-Cookie: phpbb2mysql_data=a%3A0%3A%7B%7D; expires=Sun, 07-Oct-07 11:51:04 GMT; path=/
Set-Cookie: phpbb2mysql_sid=b85c7e730a316278c0b269c052de1dc2; path=/
Location: http://localhost/phpbb2/login.php?redirect=posting.php&mode=reply&t=2&sid=b85c7e730a316278c0b269c052de1dc2
Content-Length: 379
Content-Type: text/html; charset=iso-8859-1

?

[tyomitch]

302 -- это не ошибка, а редирект.

[Kovu]

Я понимаю, что это не ошибка, просто что ещё надо добавить к запросу, чтобы скрипт не редиректил на страницу логина, в которой я перед этим залогинился?

[tyomitch]

Куки с sid.

[Kovu]

Пасиб, разобрался