Code: Select all
PIInfo\lpszProxy = @ProxyServer
Code: Select all
PIInfo\lpszProxy = AllocateMemory(Len(ProxyServer))
PokeS(PIInfo\lpszProxy, ProxyServer, Len(ProxyServer), #PB_Ascii)
Results when I do a right-click->Reload:
Compile it in with PB x86 (in PB x64 it don't affect to the configuration)
Code: Select all
Structure INTERNET_PROXY_INFO
dwAccessType.l
*lpszProxy
*lpszProxyBypass
EndStructure
Debug SizeOf(INTERNET_PROXY_INFO)
#INTERNET_OPTION_PROXY=38
#INTERNET_OPEN_TYPE_PROXY = 3
#INTERNET_OPEN_TYPE_DIRECT = 1
Procedure NewIE_Proxy(Proxy.s, Port, State.c)
ProxyServer.s=Proxy+":"+Str(Port)
If State=1
Flags=#INTERNET_OPEN_TYPE_PROXY
Else
Flags=#INTERNET_OPEN_TYPE_DIRECT
EndIf
PIInfo.INTERNET_PROXY_INFO
PIInfo\dwAccessType = Flags
; PIInfo\lpszProxy = @ProxyServer
; **** change previous line to this 2 lines ***
PIInfo\lpszProxy = AllocateMemory(Len(ProxyServer))
PokeS(PIInfo\lpszProxy, ProxyServer, Len(ProxyServer), #PB_Ascii)
PIInfo\lpszProxyBypass = @"l"
Debug SizeOf(INTERNET_PROXY_INFO)
If UrlMkSetSessionOption_(#INTERNET_OPTION_PROXY, @PIInfo, SizeOf(INTERNET_PROXY_INFO), 0)=#S_OK
x=1
Else
x=0
EndIf
ProcedureReturn x
EndProcedure
Procedure NewIE_Silent(IE_gadget.l, status.b = #True)
Define browser.IWebBrowser2
SetGadgetAttribute(IE_gadget,#PB_Web_BlockPopups,#True)
browser = GetWindowLongPtr_(GadgetID(IE_gadget), #GWL_USERDATA)
;webtab
If browser: browser\put_Silent(#True): EndIf
EndProcedure
NewIE_Proxy("14.139.225.83",3128, 1)
If OpenWindow(0, 0, 0, 800, 600, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
WebGadget(0, 10, 10, 780, 580, "www.mon-ip.com")
NewIE_Silent(0,#True)
Repeat
Event=WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf
NewIE_Proxy("", 0, 0);
Thank you thousands! and sorry my bad english!