Hello, once again
I have a very BIG problem. I made program that connect to proxy server and browse via proxy server. However, my company has a made private proxy server which I must authenticate through to get to the internet.
I read hundreds pages of docs, but without success. My program code look like so:
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 = "188.8.131.52: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/"
What wrong I`m doing ?
Edited 5 Years Ago by alone882: n/a