| Вопрос: POST запрос на VB при помощи API | Добавлено: 27.01.07 17:26 |
Автор вопроса:  Ratu.R
|
|
Народ! Очень нужно осуществить одну весчь... А именно, нужно написать программу по регистрации узера на сайте, осуществить все это при помощи ПОСТ запроса... Вот что выдал перехватчик пакетов DaSharm'a
POST http://www.mybsmu.com/signup.php HTTP/1.0 Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, */* Referer: http://www.mybsmu.com/signup.php Accept-Language: ru Content-Type: application/x-www-form-urlencoded Proxy-Connection: Keep-Alive User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727) Host: www.mybsmu.com Content-Length: 450 Pragma: no-cache Cookie: poll_26=26; e107_tdOffset=129; e107_tdSetTime=1169902744; e107_tzOffset=-120 name=hwMoscow&loginname=hwMoscow&realname=&password1=12345&password2=12345&email=moscow@pytin.ru&email_confirm=moscow@pytin.ru&hideemail=1&ue%5Buser_kurs%5D=1&ue%5Buser_birthday%5D=&ue%5Buser_fachultet%5D=%CB%E5%F7%E5%E1%ED%FB%E9&ue%5Buser_chastota%5D=1-2+%F0%E0%E7%E0+%E2+%ED%E5%E4%E5%EB%FE&ue%5Buser_whoareyou%5D=%D1%F2%F3%E4%E5%ED%F2+%C1%C3%CC%D3&ue%5Buser_sex%5D=%CD%E5%F2&ue%5Buser_about%5D=&signature=®ister=%D0%E5%E3%E8%F1%F2%F0%E0%F6%E8%FFGET http://www.mybsmu.com/plugins/log/log.php?referer=http%3A//www.mybsmu.com/signup.php&color=32&eself=http://www.mybsmu.com/signup.php&res=1024x768 HTTP/1.0 Accept: */* Referer: http://www.mybsmu.com/signup.php Accept-Language: ru Proxy-Connection: Keep-Alive User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727) Host: www.mybsmu.com Cookie: poll_26=26; e107_tdOffset=129; e107_tdSetTime=1169902744; e107_tzOffset=-120 Всего 2 пакета... И никакие танцы с бубном не помогают... Этот сайт базируется на движке е107. Помогите кто чем сможет ) P.S. Желательно осуществить все без каких-то библиотек и контролов, стандартными АПИ функциями... Заранее сенкс. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 27.01.07 19:17 |
|
socket
connect send recv closesocket |
||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 27.01.07 21:08 |
| ну от того же DaSharm'a, возьми VBSocket, уто и будет на api... | ||
|
Номер ответа: 3 Автор ответа: Ratu.R Вопросов: 8 Ответов: 19 |
Профиль | | #3 | Добавлено: 27.01.07 22:39 |
|
Вобщем, народ, суть вопроса не в том как отправить... как отправить я знаю, но просто оч хочу осуществить это при помощи АПИ сам, без всяких контролов. А вопрос в том ЧТО отправить! Я написал так (сильно ногами не бить)
Private Function Send(ByVal name As String) As Long Dim Request As String Dim OtherStuff As String Dim InitialReq As String Dim SecReq As String '''''''''''''' OtherStuff = "&ue%5Buser_kurs%5D=1&ue%5Buser_birthday%5D=&ue%5Buser_fachultet%5D=%CB%E5%F7%E5%E1%ED%FB%E9&ue%5Buser_chastota%5D=1+%F0%E0%E7+%E2+%EC%E5%F1%FF%F6&ue%5Buser_whoareyou%5D=%D1%F2%F3%E4%E5%ED%F2+%C1%C3%CC%D3&ue%5Buser_sex%5D=%CD%E5%F2&ue%5Buser_about%5D=&signature=®ister=%D0%E5%E3%E8%F1%F2%F0%E0%F6%E8%FF" '''''''''''''' SecReq = "name=" & name & _ "&loginname=" & name & _ "&realname=" & _ "&password1=12345" & _ "&password2=12345" & _ "&email=Ra@front.ru" & _ "&email_confirm=Ra@front.ru" & _ "&hideemail=1" & OtherStuff '''''''''''''' InitialReq = _ "POST http://www.mybsmu.com/signup.php HTTP/1.1" & vbCrLf & _ "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, */*" & vbCrLf & _ "Referer: http://www.mybsmu.com/signup.php" & vbCrLf & _ "Accept-Language: ru" & vbCrLf & _ "Content-Type: application/x-www-form-urlencoded" & vbCrLf & _ "Proxy-Connection: Keep-Alive" & vbCrLf & _ "User-Agent: VbAgent" & vbCrLf & _ "Host: www.mybsmu.com" & vbCrLf & _ "Content-Length: " & Len(sRequest) & vbCrLf & _ "Pragma: no-cache" & vbCrLf & _ "Cookie: poll_26=26; e107_tdOffset=129; e107_tdSetTime=1169902744; e107_tzOffset=-12" & vbCrLf & vbCrLf ''''''''''SendingData''''''''' Request = InitialReq & SecReq Winsock1.Protocol = sckTCPProtocol Winsock1.Connect "mybsmu.com", 80 While Not Winsock1.State = 7 DoEvents ' Wend ' Winsock1.SendData InitialReq & SecReq ''''''''''End Sending''''''''''' End Function Private Sub Command1_Click() Send Text1.Text End Sub Private Sub Form_Load() Text2.Text = "" End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim data As String Winsock1.GetData data Text2.Text = Text2.Text + data End Sub и не пашет зараза... Не могу понять, как это сделать?! |
||
|
Номер ответа: 4 Автор ответа: Ratu.RВопросов: 8 Ответов: 19 |
Профиль | | #4 | Добавлено: 28.01.07 03:45 |
| Все! Разобрался! Все сделал и все пашет ) спасибо за помощь... | ||
Страница: 1 |