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

ipi.dwAccessType = INTERNET_OPEN_TYPE_PROXY

ipi.lpszProxy = "46.37.165.113:17890"

ipi.lpszProxyBypass = ""



gstrProxyUserName = "ggggg"

gstrProxyPassword = "hhhhhh"



iRetVal = InternetSetOption(hHttpOpenRequest, INTERNET_OPTION_PROXY_USERNAME, gstrProxyUserName, Len(gstrProxyUserName))

iRetVal = InternetSetOption(hHttpOpenRequest, INTERNET_OPTION_PROXY_PASSWORD, gstrProxyPassword, Len(gstrProxyPassword))

GoTo Resend <<-- error



Form1.WebBrowser1.Navigate "http://whatismyipaddress.com/"