Joined: Thu Mar 25, 2004 2:15 pm
Posts: 700
Location: Spain
|
Mr. Applicant, with a new request Would it be possible to reassign a new proxy to an existing WebGadgetEx, when one has already been assigned previously? Again, thank you for this lib Edited and added  What is wrong in this code? - Start a WebGadgetEx with a proxy.
- I release the Gadget and close the library.
- I open the library again and assign a new proxy before creating a new gadget.
But it continues to maintain the first proxy I assigned in step 1. Code: EnableExplicit
Global PBEx_WebGadget
Global MyWebG.l
Prototype WebGadgetEx(ID, X, Y, Width, Height, URL.p-Unicode, ParentWindowID, ErrorOutput)
Prototype SetWebGadgetExText(ID, URL.p-Unicode, ErrorOutput)
Prototype GetWebGadgetExText(ID, Output, ErrorOutput)
Prototype SetWebGadgetExState(ID, State, ErrorOutput)
Prototype SetWebGadgetExItemText(ID, Entry, Text.p-Unicode, ErrorOutput)
Prototype GetWebGadgetExItemText(ID, Entry, Output, ErrorOutput)
Prototype FreeWebGadgetEx(ID, ErrorOutput)
Prototype IsWebGadgetEx(ID, ErrorOutput)
Prototype WebGadgetExWidth(ID, ErrorOutput)
Prototype WebGadgetExHeight(ID, ErrorOutput)
Prototype WebGadgetExX(ID, ErrorOutput)
Prototype WebGadgetExY(ID, ErrorOutput)
Prototype WebGadgetExID(ID, ErrorOutput)
Prototype HideWebGadgetEx(ID, State, ErrorOutput)
Prototype ResizeWebGadgetEx(ID, X, Y, Width, Height, ErrorOutput)
Prototype HideWebGadgetExDevTools(ID, State, ErrorOutput)
Prototype ExecuteWebGadgetExJavaScript(ID, Code.p-Unicode, Output, ErrorOutput)
Prototype BindWebGadgetExJavaScript(ID, PBProcedureName.p-Unicode, PBProcedureHandle, PID, ErrorOutput)
Prototype GetWebGadgetExAttribute(ID, Attribute, ErrorOutput)
Prototype SetWebGadgetExAttribute(ID, Attribute, Value, ErrorOutput)
Prototype EnableRemoteDebugger(Port, ErrorOutput)
Prototype SetWebGadgetExSetUserAgent(UserAgent.p-Unicode, ErrorOutput)
Prototype SetWebGadgetExProxy(Proxy.p-Unicode, ErrorOutput)
Procedure.l PBEx_WebGadget_Init(id.l = -1)
Protected ReturnID.l
CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
If id = -1
ReturnID = OpenLibrary(#PB_Any, "PB.Ex_WebGadget_x86.dll")
Else
OpenLibrary(id, "PB.Ex_WebGadget_x86.dll")
ReturnID = id
EndIf
CompilerElseIf #PB_Compiler_Processor = #PB_Processor_x64
If id = -1
ReturnID = OpenLibrary(#PB_Any, "PB.Ex_WebGadget_x64.dll")
Else
OpenLibrary(id, "PB.Ex_WebGadget_x64.dll")
ReturnID = id
EndIf
CompilerEndIf
If ReturnID
Debug "lib ok"
Global WebGadgetEx.WebGadgetEx = GetFunction(ReturnID, "WebGadgetEx")
Global SetWebGadgetExText.SetWebGadgetExText = GetFunction(ReturnID, "SetWebGadgetExText")
Global GetWebGadgetExText.GetWebGadgetExText = GetFunction(ReturnID, "GetWebGadgetExText")
Global SetWebGadgetExState.SetWebGadgetExState = GetFunction(ReturnID, "SetWebGadgetExState")
Global SetWebGadgetExItemText.SetWebGadgetExItemText = GetFunction(ReturnID, "SetWebGadgetExItemText")
Global GetWebGadgetExItemText.GetWebGadgetExItemText = GetFunction(ReturnID, "GetWebGadgetExItemText")
Global FreeWebGadgetEx.FreeWebGadgetEx = GetFunction(ReturnID, "FreeWebGadgetEx")
Global IsWebGadgetEx.IsWebGadgetEx = GetFunction(ReturnID, "IsWebGadgetEx")
Global WebGadgetExWidth.WebGadgetExWidth = GetFunction(ReturnID, "WebGadgetExWidth")
Global WebGadgetExHeight.WebGadgetExHeight = GetFunction(ReturnID, "WebGadgetExHeight")
Global WebGadgetExX.WebGadgetExX = GetFunction(ReturnID, "WebGadgetExX")
Global WebGadgetExY.WebGadgetExY = GetFunction(ReturnID, "WebGadgetExY")
Global WebGadgetExID.WebGadgetExID = GetFunction(ReturnID, "WebGadgetExID")
Global HideWebGadgetEx.HideWebGadgetEx = GetFunction(ReturnID, "HideWebGadgetEx")
Global ResizeWebGadgetEx.ResizeWebGadgetEx = GetFunction(ReturnID, "ResizeWebGadgetEx")
Global HideWebGadgetExDevTools.HideWebGadgetExDevTools = GetFunction(ReturnID, "HideWebGadgetExDevTools")
Global ExecuteWebGadgetExJavaScript.ExecuteWebGadgetExJavaScript = GetFunction(ReturnID, "ExecuteWebGadgetExJavaScript")
Global BindWebGadgetExJavaScript.BindWebGadgetExJavaScript = GetFunction(ReturnID, "BindWebGadgetExJavaScript")
Global GetWebGadgetExAttribute.GetWebGadgetExAttribute = GetFunction(ReturnID, "GetWebGadgetExAttribute")
Global SetWebGadgetExAttribute.SetWebGadgetExAttribute = GetFunction(ReturnID, "SetWebGadgetExAttribute")
Global EnableRemoteDebugger.EnableRemoteDebugger = GetFunction(ReturnID, "EnableRemoteDebugger")
Global SetWebGadgetExSetUserAgent.SetWebGadgetExSetUserAgent = GetFunction(ReturnID, "SetWebGadgetExSetUserAgent")
Global SetWebGadgetExProxy.SetWebGadgetExProxy = GetFunction(ReturnID, "SetWebGadgetExProxy")
Else
ReturnID = 0
Debug "lib fail"
End
EndIf
ProcedureReturn ReturnID
EndProcedure
Define ErrorOutput$ = Space(128)
PBEx_WebGadget = PBEx_WebGadget_Init()
OpenWindow(0, 0, 0, 1200, 768, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SetWebGadgetExProxy("104.236.248.219:3128", @ErrorOutput$);https://www.proxy-list.download/HTTPS
MyWebG = WebGadgetEx(#PB_Any, 0, 20, 1200, 748, "https://www.myip.com/", WindowID(0), @ErrorOutput$)
While GetWebGadgetExAttribute(MyWebG, #PB_Web_Busy, @ErrorOutput$)
WindowEvent()
Wend
FreeWebGadgetEx(MyWebG, @ErrorOutput$)
CloseLibrary(PBEx_WebGadget)
;Open a New WebGadgetEx with a New Proxy
PBEx_WebGadget = PBEx_WebGadget_Init()
SetWebGadgetExProxy("116.203.127.92:3128", @ErrorOutput$);https://www.proxy-list.download/HTTPS
UseGadgetList(WindowID(0))
MyWebG = WebGadgetEx(#PB_Any, 0, 20, 1200, 748, "https://www.myip.com/", WindowID(0), @ErrorOutput$)
While GetWebGadgetExAttribute(MyWebG, #PB_Web_Busy, @ErrorOutput$)
WindowEvent()
Wend
Repeat
Until WindowEvent() = #PB_Event_CloseWindow
CloseLibrary(PBEx_WebGadget)
_________________
PB 5.7x, PureVision User.
|
|
FAQ
Search
Register
Login
It works like a charm