Как написать простенький проксификатор - VB
Формулировка задачи:
Всем доброго времени суток, задался желанием написать простенький проксификатор, т.е. работа через прокси, соксы.
Наведите на какие - нибудь примеры или информацию, чтобы можно было начать.
UPD. Наведет кто на путь истинный?)
Решение задачи: «Как написать простенький проксификатор»
textual
Листинг программы
'module: Public Declare Sub UrlMkSetSessionOption Lib "urlmon.dll" _ (ByVal dwOption As Long, ByRef pBuffer As Any, _ ByVal dwBufferLength As Long, ByVal dwReserved As Long) Public Type INTERNET_PROXY_INFO dwAccessType As Long lpszProxy As String lpszProxyBypass As String End Type Public Const INTERNET_OPEN_TYPE_PROXY = 3 Public Const INTERNET_OPTION_PROXY = 38 Public Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" _ (ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByVal lBufferLength As Long) As Integer Public Declare Function InternetSetOptionStr Lib "wininet.dll" Alias "InternetSetOptionA" _ (ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer 'form: Private Sub Command6_Click() Dim ipi As INTERNET_PROXY_INFO dim username as string dim password as string ipi.dwAccessType = INTERNET_OPEN_TYPE_PROXY ipi.lpszProxy = "46.37.165.113:17890" ipi.lpszProxyBypass = "" username = "america01" 'proxy server ID and PASS real and WORKING password = "YpEEJy8u" 'proxy server ID and PASS real and WORKING call UrlMkSetSessionOption(INTERNET_OPTION_PROXY_USERNAME, username, sizeof(username), 0); call UrlMkSetSessionOption(INTERNET_OPTION_PROXY_PASSWORD, password, sizeof(password), 0); call UrlMkSetSessionOption(INTERNET_OPTION_PROXY, ipi, Len(ipi), 0) Form1.WebBrowser1.Navigate "http://whatismyipaddress.com/"
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д