Structure Internet_Proxy_Info
  dwAccessType.l
  *lpszProxy
  *lpszProxyBypass
EndStructure

#INTERNET_OPTION_PROXY=38
#INTERNET_OPEN_TYPE_PROXY = 3
#INTERNET_OPEN_TYPE_DIRECT = 1

Import "Urlmon.lib"
  UrlMkSetSessionOption(Option, *Buff, Size, Reserved)
EndImport

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
PIInfo\lpszProxyBypass    = @""
If UrlMkSetSessionOption(#INTERNET_OPTION_PROXY, @PIInfo, SizeOf(Internet_Proxy_Info), 0)=#S_OK
  x=1
Else
  x=0
EndIf
ProcedureReturn x
EndProcedure

NewIE_Proxy("119.70.40.101", 8080, 1) ; Прокси рабочий, но очень медленый!
  
If OpenWindow(0, 0, 0, 800, 600, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
    WebGadget(0, 10, 10, 780, 580, "www.2ip.ru") 
    
    Repeat 
       Event=WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow 
EndIf
  
NewIE_Proxy("", 0, 0) ; Отключаем работу с прокси

If NewIE_Proxy("119.70.40.101", 8080, 1) ; Прокси рабочий, но очень медленый!
  MessageRequester("","Прокси рабочий, но очень медленый!")
Else
  MessageRequester("","Прокси не включился")
EndIf