Salvare Home page (miosito.it) in png

[Genialtek]

Ciao a tutti, come da titolo ho questo codice :

  Protected Sub btnCapture_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCapture.Click        Dim url As String = txtURL.Text.Trim()


        If Not String.IsNullOrEmpty(url) Then
            Dim apiKey As String = ConfigurationManager.AppSettings("GrabzItKey")
            Dim grabzitURL As String = "https://api.grabz.it/services/takepicture.ashx"


            Dim fullURL As String = grabzitURL + "?url=" + HttpUtility.UrlEncode(url) + "&key=" + apiKey + "&format=png"


            ' Effettua una richiesta per catturare lo screenshot come immagine PNG
            Using client As New WebClient()
                Dim data As Byte() = client.DownloadData(fullURL)


                ' Salva i dati dell'immagine PNG in un file
                Dim imagePath As String = Server.MapPath("~/Public/CapturedScreenshots/")
                If Not Directory.Exists(imagePath) Then
                    Directory.CreateDirectory(imagePath)
                End If


                Dim fileName As String = "screenshot_" + DateTime.Now.ToString("yyyyMMddHHmmss") + ".png"
                Dim filePath As String = Path.Combine(imagePath, fileName)
                File.WriteAllBytes(filePath, data)


                ' Mostra il link per scaricare l'immagine PNG
                ltlContent.Text = "<a href='" + ResolveUrl("~/Public/CapturedScreenshots/") + fileName + "' target='_blank'>Scarica l'immagine</a>"
            End Using
        End If
    End Sub

Salva il file, ma quando lo apro mi da errore come se non fosse un file immagine. Già provato a cambiare l'estensione . Grazie

[Genialtek]

Ho anche questo codice ma fa la stessa cosa:

 '    Dim url As String = txtURL.Text.Trim()

    '    If Not String.IsNullOrEmpty(url) Then
    '        Try
    '            Dim client As New System.Net.WebClient()
    '            Dim htmlContent As String = client.DownloadString(url)


    '            ' Mostra il contenuto HTML nella pagina
    '            ltlContent.Text = htmlContent
    '        Catch ex As Exception
    '            ' Gestisci l'eventuale errore
    '            ltlContent.Text = "Errore durante la cattura della pagina: " + ex.Message
    '        End Try
    '    End If

[alka]

Salva il file, ma quando lo apro mi da errore come se non fosse un file immagine.

E qual è l'errore?