Code: Alles auswählen
DisableDebugger
If OpenWindow(0, 50, 50, 300, 600, "weekly charts", #PB_Window_SystemMenu) And CreateGadgetList(WindowID(0))
result = ListViewGadget(2, 10, 10, 280, 580)
Gosub seitenholen
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
Else
MessageRequester("ooops", " Fenster oder Gadgetlist konnten nicht erstellt werden", 0)
EndIf
End
seitenholen:
;#########################################################################################
;{
If URLDownloadToFile_(0,"http://www.mtvhome.de/hitlistgermany/index.php","d:\__incoming\4_p3\mtv_ger_100.html",0,0) = #S_OK
AddGadgetItem(2,-1,"ger 100 geladen")
Debug "ger 100 geladen"
Else
AddGadgetItem(2,-1,"ger 100 nicht geladen")
Debug "ger 100 nicht geladen"
EndIf
;}
Return; seitenholen
irritiert..
scholly