webbrowser + "php-bild"

[Zvoni]

Wenn du die Grösse der Website in Bytes hast kannst du wie folgt vorgehen:

Dim bytWebSite(1 To AnzahlBytesDerWebsite) As Byte
Dim strWebSite As String
Dim AnfangBild as Long
Dim bytBild() as Byte

CopyMemory bytWebSite, AnfangsAdresseDerWebsite, AnzahlBytesDerWebsite

strWebSite=bytWebsite

AnfangBild=Instr(1,strWebSite,"‰PNG")  'Irgendwie machts es hier aus dem Promillezeichen ein O
'Ab hier suche Ende des Bildes
Redim bytBild(1 To EndeDesBilds)
For i=AnfangBild To EndeDesBilds)
bytBild(i-AnfangBild+1)=Mid(strWebSite,i,1)
Next

'Ab hier Code zum Abspeichern

ALLES UNGETESTET!

EDIT: CopyMemory ist ne API-Funktion. Die Declare dazu gibts zuhauf im Netz

 

[Mich43l]

ok thx, nur wie bekomm ich die bytes ? also wie groß die website is oO

Vom bild isses mir klar aber website nicht -.-"

mfg Michi