
Code: Alles auswählen
If OpenWindow(0, 0, 0, 600, 530, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
StringGadget(1, 0, 0, 300, 20, "Webseite")
WebGadget(0, 10, 30, 580, 480, "C:\")
Define.s URL = "http://folker-linstedt.de"
SetGadgetText(0, URL)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
Select EventGadget()
Case 0
If EventType() = #PB_EventType_DownloadEnd
SetGadgetText(1,GetGadgetText(0))
EndIf
EndSelect
EndSelect
ForEver
EndIf
dem Download fertig ist, ausserdem nur im Eventloop!