VBNet - Форум - Установить для "ослика" прокси

Вопрос: Установить для "ослика" прокси Добавлено: 08.05.04 18:12

Автор вопроса: Alexander N | Web-сайт: sasha.samogon.info

Как программно установить определнный прокси сервер и порт для Интернет Эксплорера?
Ответить

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

Номер ответа: 1
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #1

Добавлено: 09.05.04 15:11

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\

ProxyEnable

ProxyServer

Ответить

Номер ответа: 2
Автор ответа:

DaSharm

ICQ: 780477

Вопросов: 72
Ответов: 1297

Web-сайт: dasharm.com
Профиль | | #2

Добавлено: 09.05.04 19:25

Вот отрывок моего кода из перехватчика НТТР пакетов, он устанавливает проксю 127.0.0.1:44, если ты не ламер, то разберешься, как установить другой айпи и порт:

В качестве аргумента - имя подключения:

---------------

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As Any, ByVal cbData As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Private Sub Set[sensored]enProxy(PhoneName As String)

Dim tempA, RealProxyString() As Byte

tempA = Array(&H3C, &H0, &H0, &H0, &H2, &H0, &H0, &H0, _

&H3, &H0, &H0, &H0, &HC, &H0, &H0, &H0, _

&H31, &H32, &H37, &H2E, &H30, &H2E, &H30, &H2E, _

&H31, &H3A, &H34, &H34, &H0, &H0, &H0, &H0, _

&H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, _

&H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0)

ReDim RealProxyString(63)

For i = 0 To 63

RealProxyString(i) = tempA(i)

Next i

Dim hKey As Long

RegOpenKeyEx &H80000001, "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet settings\connections", 0, &H3F, hKey

RegSetValueEx hKey, PhoneName, 0&, &H3, VarPtr(RealProxyString(0)), 64

End Sub

---------------------

Ответить

Номер ответа: 3
Автор ответа:

Alexander N

Вопросов: 21
Ответов: 44

Web-сайт: sasha.samogon.info
Профиль | | #3

Добавлено: 09.05.04 20:17

Спасибо всем, кто ответил! А почему нельзя как строку?

Ответить

Номер ответа: 4 Автор ответа: DaSharm ICQ: 780477 Вопросов: 72 Ответов: 1297	Web-сайт: dasharm.com Профиль \| \| #4	Добавлено: 09.05.04 21:19
	тип данных не той Ответить

Номер ответа: 5
Автор ответа:

Alexander N

Вопросов: 21
Ответов: 44

Web-сайт: sasha.samogon.info
Профиль | | #5

Добавлено: 10.05.04 18:47

Я не знаком с типом SZ.Как мне перевести строку в этот тип? Может у вас есть пример?

Ответить

Номер ответа: 6
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #6

Добавлено: 11.05.04 19:34

sz - zero-terminated string: строковый тип данных, где на один символ отводится 1 байт. Завершается символом с кодом 0. Для передачи строки как sz в VB необходимо передавать ее как ByVal.

Ответить

Номер ответа: 7
Автор ответа:

Alexander N

Вопросов: 21
Ответов: 44

Web-сайт: sasha.samogon.info
Профиль | | #7

Добавлено: 12.05.04 13:33

Спасибо!

Ответить

Номер ответа: 8 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #8	Добавлено: 12.05.04 14:14
	А как сменить ослу прокси прямо во время его работы, чтобы для применения настроек не требовался перезапуск? Ответить

Номер ответа: 9
Автор ответа:

DaSharm

ICQ: 780477

Вопросов: 72
Ответов: 1297

Web-сайт: dasharm.com
Профиль | | #9

Добавлено: 12.05.04 14:35

Не знаю, посмотрю, попробую, я видел API из WinInet.dll, но она что-то ваще не по теме работает

Ответить

Страница: 1 |