VBNet - Форум - прокси куки webbrowser и vb6

Вопрос: прокси куки webbrowser и vb6 Добавлено: 24.02.11 21:21

Автор вопроса: MISTER X | Web-сайт: studioartf.ru | ICQ: 463865965

Народ помогите плз! Есть ссылка,надо чтобы в программе браузер переходил по ней через опр промежуток времени,меняя прокси(соответственно ип тоже) и удалял кукисы(или не принимал их вовсе). как сделать чтобы удалял кукисы я примерно знаю -
kill "C:\Documents and Settings\User\*.txt"
заставить переходить тоже не беда..(таймер в помощь) а как сделать что бы он проходил по ссылке с новым ипом? и проксей соответственно? например если загрузить список проксей на кажд строке новая.
помогите плз! =)
Ответить

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

Номер ответа: 1 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 25.02.11 14:51
	Подключайся через сокет, а не через браузер. 1. Просто каждый раз подключаешься через новый прокси(Список у тебя должен быть) 2. Отправляешь один и тот же заголовок без куки. Ответить

Номер ответа: 2 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #2	Добавлено: 25.02.11 16:03
	Можно код на обзор? а то я чето не догнал как так сделать... AWP пишет: Отправляешь один и тот же заголовок без куки а как это сделать? Ответить

Номер ответа: 3 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #3	Добавлено: 25.02.11 17:59
	Заголовок для прокси на примере главной странички google GET http://www.google.ru/ HTTP/1.1[CrLf] Host: www.google.ru[CrLf] Proxy-Connection: keep-alive[CrLf] Cache-Control: max-age=0[CrLf] Accept: application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,/;q=0.5[CrLf] User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Chrome/9.0.597.98 Safari/534.13[CrLf] Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4[CrLf] Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.3[CrLf][CrLf] [CrLf] - это два символа или константа vbCrLf добавляешь winsock контролл Winsock1.connect "google.ru", 80 Private Sub Winsock1_Connect() Winsock1.SendData [тут текст заголовка] End Sub принцип должен быть понятен Ответить

Номер ответа: 4 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #4	Добавлено: 25.02.11 20:05
	Ладно,с этим понятно... а как сделать чтоб каждый раз прокси были новые?при условии что список есть в файлике например proxy.txt ? AWP пишет: Просто каждый раз подключаешься через новый прокси Ответить

Номер ответа: 5 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #5	Добавлено: 25.02.11 20:39
	Ну... Загрузить из файла)))) За тебя программу чтоли написать всю? Dim SD() As String Dim S As String Dim L as Long S = Space$(FileLen(SD(N))) Open FileName For Binary As #1 Get #1, 1, S Close #1 SD = Split(S, vbCrLf) L = Ubound(SD) ' Индекс конца массив При условии, что в файле IP-адреса разделены переходом на другую строку Ответить

Номер ответа: 6 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #6	Добавлено: 25.02.11 20:40
	Или тебе объяснить функцию RND? Ответить

Номер ответа: 7 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #7	Добавлено: 28.02.11 17:55
	Извиняюсь..но в этом примере я чето ничего не понял...как с помощью RND вытащить в твоем примере-не секу... я знаю RND как - Int((ВерхняяГраница - НижняяГраница +1) * Rnd + НижняяГраница) ...Извиняюсь за тупизм но не мог бы ты "разжевать" ? Ответить

Страница: 1 |