Joined: Thu Mar 25, 2004 2:15 pm Posts: 727 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.
|
|