VBNet - Форум - VB6 - Помогите)

Вопрос: VB6 - Помогите) Добавлено: 07.10.11 07:05

Автор вопроса: RedBox

Здравствуйте,
Собственно нужно произвести авторизацию с формы и скачать картинку поместив её в picturebox.. Вопрос вот какраз в авторизации, я с VB не очень познакомился ещё, флудил яндых, кругом только отправка пакетов на сокетах или ещё как а вот как отправить на сервер пакет и получить на него ответ в переменную? никак не мог найти :(
Подскажите хотя-бы где почитать про это, но рассчитываю тут получить ответ примерчиком хотяб :)
Ответить

Ответы Всего ответов: 11

Номер ответа: 1 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #1	Добавлено: 07.10.11 13:58
	winhttprequest Ответить

Номер ответа: 2 Автор ответа: RedBox Вопросов: 1 Ответов: 6	Профиль \| \| #2	Добавлено: 07.10.11 17:58
	Спасибо! Ответить

Номер ответа: 3 Автор ответа: RedBox Вопросов: 1 Ответов: 6	Профиль \| \| #3	Добавлено: 08.10.11 19:23
	Вот ещё один вопросик небольшой. есть TXT файл с примерным содержимым: qwerty qqqqqq 123456 654321 http://site.ru asdf qwas http://site2.ru http://site3.ru/index.html asd1231 Нужно удалить все строки в которых присутствует текст: "http" удалить все ссылки.. Читаю файл построчно до конца файла в переменную: CuString отслеживаю когда попадается текст "http" в ней, но не знаю как стирать эти строчки из файла.. В какую сторону рыть ?) Ответить

Номер ответа: 4 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #4	Добавлено: 08.10.11 21:21
	Смысла нет читать построчно. Грузи весь файл в текстовую переменную, потом Split её по vbCrLl в массив строк. Дальше циклом по массиву и если не http, то пишем строку в файл. Делов то ... Ответить

Номер ответа: 5 Автор ответа: RedBox Вопросов: 1 Ответов: 6	Профиль \| \| #5	Добавлено: 09.10.11 02:29
	у меня как оно.. идёт цыкл do while и в нём читается построчно файл до конца, в этом цыкле файл открыт и закроется только когда файл закончится, в этом цыкле есть оператор if else, если встречается определённая строка (не связанная с ссылками напрямую) то в этом txt файле который в цыкле.. должны удалиться все ссылки, при этом не нарушив цыкл do while.. ну вот я не понимаю как это сделать, что то не выходит. Загружу я файл в переменную потом разобью его на массив.. обработаю его. а записать в файл который читается цыклом смогу ? вот что мне решить нужно. как быть или я совсем безрукий) Ответить

Номер ответа: 6 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #6	Добавлено: 09.10.11 17:44
	Яж говорил нет смысла читать построчно(циклом). Грузишь весь файл и естессно закрываешь его. Открываешь на запись и выгружаешь нужные строки. как-то так, что ли Dim lM As Long Dim lY As Long Dim L() As String Dim Tmp As String Open YourFile For Input As #1 Tmp = Input(LOF(1), #1) Close L = Split(Tmp, vbCrLf) lM = UBound(L) Open YourFile For Output As #1 For lY = 0 To lM Tmp = L(lY) If InStr(Tmp, "http:\\", vbTextCompare) <> 0 Then Print #1, Tmp Next Close хотя, дуристика какая-то получилась Ответить

Номер ответа: 7 Автор ответа: RedBox Вопросов: 1 Ответов: 6	Профиль \| \| #7	Добавлено: 09.10.11 20:41
	Кстати по поводу WinHTTP.. Как он через прокси работает ? делаю так: Dim http_req As New WinHttpRequest, results As String http_req.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "218.22.65.199:8909" http_req.Open "POST", "http://site.ru" http_req.SetRequestHeader "USER-AGENT", "User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.9.168 Version/11.51" http_req.SetRequestHeader "Accept-Encoding", "gzip, deflate" http_req.SetRequestHeader "Referer", "http://site.ru" http_req.SetRequestHeader "Cache-Control", "no-cache" http_req.SetRequestHeader "Keep-Alive", "300" http_req.SetRequestHeader "Connection", "Keep-Alive" http_req.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" http_req.Send "" & PostValue & "" If http_req.Status = 200 Then results = http_req.GetAllResponseHeaders Но соединение идёт через мой IP.. в фаерволе вижу что VB конектится сразу к "site.ru" а не к прокси.. Что не так ? как прокси работает тут.. Ответить

Номер ответа: 8 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #8	Добавлено: 09.10.11 21:35
	у меня например вот так, работает "CONNECT pop.mail.ru:110 HTTP/1.1" & vbCrLf & vbCrLf т.е. говоришь проксе соединится с site.ru, если надо, то на порт :ХХХХХ, ну и т.д. Ответить

Номер ответа: 9 Автор ответа: RedBox Вопросов: 1 Ответов: 6	Профиль \| \| #9	Добавлено: 10.10.11 01:52
	Непоняяятно.. Откуда CONNECT ? у меня Open открывает сайт. мне через WinHTTP нужно прокси настроить Ответить

Номер ответа: 10 Автор ответа: RedBox Вопросов: 1 Ответов: 6	Профиль \| \| #10	Добавлено: 11.10.11 12:32
	Что за ошибка такая: Run-time error '-2147023783 (80070459)' Символ Юникода не имеет сопоставления в конечной многобайтовой кодовой странице. Появляется после нажатия на кнопку -> Private Sub Command1_Click() im http_req As New WinHttpRequest, results As String http_req.Open "GET", "http://13-e.ru" http_req.Send If http_req.Status = 200 Then results = http_req.ResponseText ' И сюда VB тычет Text1.Text = results End If End Sub Как исправить.. ? в гугле на это вообще всяко пробовал искать - пусто.. Может я что не так делаю. что-то на столько глупое что даже в гугле никогда не будет..? помогите Ответить

Номер ответа: 11 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #11	Добавлено: 11.10.11 20:57
	Понятия не имею. Я пользовался обычным контролом VB6 WinSock, разблокировал на вопрос брандмауэра и ходил через анонимус проксика легко. А ты, насколько я вижу, юзаешь какой-то готовый движок, вот в его экземплах и надо искать пример коннекта к прокси. Ответить

Страница: 1 |