Favicon.ico letöltése VBS scripttel
2020-07-11T22:26:14+02:00
2020-07-12T17:59:08+02:00
2022-08-11T20:55:32+02:00
pizza42
Üdv! Egy programocskát készítek és az egyik kis kisegítő különálló programja azt tudná hogy egy tetszőlegesen beírt weblapnak lecsapja az ikon képét egy mappába. Addig nézegettem a nettem míg nem találtam egy ilyen letöltő kódot:

dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "https://yahoo.com/favicon.ico", False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "C:\Users\?\Desktop\favicon.ico", 2 '//overwrite
end with

És tökéletesen működik is, mondjuk minden századik oldalnál. És a kérdésem hogy mi itt a gond? Miért engedi az egyik oldal, és miért nem a másiknál?
Mutasd a teljes hozzászólást!

abcd