Webseiten auslesen

[Tompazi]

Kann man mit PureBasic texte aus webseiten auslesen?
Wenn ja wie?

lG Tompazi

[Scarabol]

[alt]Mit PB nicht direkt aber du kannst API Befehle nutzen...
URLDownloadtoFile() z.B.[/alt]
[Edit]
Man kann auch mit der Netzwerk Bibliothek arbeiten.
[/Edit]

Code: Alles auswählen

If URLDownloadToFile_(0,"http://www.purebasic.fr/german/","C:\test.html",0,0) = #S_OK
  If ReadFile(1, "c:\test.html")
    While Eof(1) = 0
      Code$+ReadString(1)+Chr(10)
    Wend
    Code$ = Right(Code$, Len(Code$)-FindString(Code$, "<body", 0)+1)
    Code$ = Left(Code$, FindString(Code$, "</body", 0))
    MessageRequester("Info", Code$)
  EndIf
Else
  MessageRequester("Error","Couldn't download file...",0)
EndIf

Gruß
Scarabol

[Tompazi]

das geht nicht in der DEMO version oder?

[milan1612]

Nein (jedenfalls nicht direkt), da eine API Funktion verwendet wird.

[Scarabol]

Ne sorry leider net.

Dann bleibt dir nur noch mit opennetworkconnection einen HTTP request zu schicken und die Antwort auszulesen...

Gruß
Scarabol

[Tompazi]

häää?

[Scarabol]

Code: Alles auswählen

server$ = "www.google.de"
url$ = ""
filenaam$ = "index.html"

ConnectionID = OpenNetworkConnection(server$, 80) 
; 
If ConnectionID 
SendNetworkString(ConnectionID, "GET "+url$+filenaam$+" HTTP/1.0"+EOL$) 
SendNetworkString(ConnectionID, "Host: "+server$+EOL$) 
SendNetworkString(ConnectionID, "Accept: */*"+EOL$) 
SendNetworkString(ConnectionID, EOL$) 
; Delay auf Antwort warten... <- musste sleber machen (siehe PB Hilfe)
result=ReceiveNetworkData(ConnectionID, Buffer, #bufferlengte) 
endif

[7x7]

Du kannst auch einfach PureBasic KAUFEN, wenn du dir es einfacher machen möchtest

[mx03]

Hi wie kann ich eine mit ssl gesicherte seite mit login auslesen?


thx

[Scarabol]

Hast du die oben genannten Methoden schon versucht?

Gruß
Scarabol