Как написать простенький проксификатор - 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/"

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы