[VB6] InternetOpenUrl da questa mezzanotte non mi funziona più

[lucia.rocca]

se non è possibile riparare . . in alternativa . . come potrei prendere TUTTO il codice html della pagina di facebook che ho indicato nell'esempio ? . . ho provato a sostituirla con questa funzione . . che prima faceva il suo dovere e adesso non più

Function Url2Html(indirizzo As String, controlloINET As Inet) As String 'Stop
On Error Resume Next
Dim html As String
Dim b() As Byte
b() = controlloINET.OpenURL(indirizzo, 1)
html = ""
For i = 0 To UBound(b) - 1
html = html + Chr(b(i))
Next
Url2Html = html
Exit Function
End Function

ps. il componente Ms Internet Transfer Control 6.0 è nel progetto e Inet1 è nel form