;Autor: ts-soft ;http://www.purebasic.fr/german/viewtopic.php?p=307738#p307738 EnableExplicit Define EventID Define Browser.IWebBrowser2 If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) WebGadget(1, 0, 0, WindowWidth(0), WindowHeight(0), "", 0) SetGadgetItemText(1, #PB_Web_HtmlCode, "") Browser = GetWindowLongPtr_(GadgetID(1), #GWL_USERDATA) Browser\put_Silent(#True) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0