I. ich weiß nicht welche ID ein realer Datensatz ist sprich http://www.pwdatabase.com/my/mine/15172 wäre ein realer Datensatz wobei http://www.pwdatabase.com/my/mine/15173 wiederum keiner ist
II. Bräuchte ich mit meinem Ansatz über's WebGadgets ~17 Tage um alle 50k IDs ab zu fragen
Prinzipiell brauch ich nur den Titel der Wenbsite, da dort alle für mich relevanten Daten stehen, sprich Name des Gegenstands, nur irgendwie finde ich keinen Ansatz mit dem ich das ganze in einer angemessenen Zeit durchführen kann...
Code: Alles auswählen
Enumeration
#Window_0
EndEnumeration
Enumeration
#File
#Web_0
EndEnumeration
url.s = "http://www.pwdatabase.com/my/mine/"
string.s = "Perfect World Recource Database"
start = 1
ende = 1000
If OpenWindow(#Window_0, 0, 0, 600, 300, "HTML-Parser", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_Invisible)
If CreateGadgetList(WindowID(#Window_0))
WebGadget(#Web_0, 10, 10, 580, 280, url)
EndIf
pos = start - 1
If CreateFile(#File, "C:\mines.txt")
Repeat
pos + 1
SetGadgetText(#Web_0, url + Str(pos))
While GetGadgetAttribute(#Web_0, #PB_Web_Busy)
WindowEvent()
Wend
title.s = GetGadgetItemText(#Web_0, #PB_Web_PageTitle)
WriteStringN(#File, "MineID :: " + Str(pos) + " // " + RemoveString(title, string))
Until pos = ende
CloseFile(#File)
EndIf
Debug "DONE"
EndIf
End