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 = "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/"
What wrong I`m doing ?