screenshotmachine vb

máquina de captura de pantalla-vb

Esta demostración muestra cómo llamar a la API de la máquina de captura de pantalla en línea utilizando el lenguaje de programación Visual Basic.

Instalación

Primero, debe crear una cuenta gratuita/premium en el sitio web www.screenshotmachine.com. Después del registro, verá su clave de cliente en su perfil de usuario. También se mantiene aquí la frase secreta. Por favor, utilice siempre una frase secreta cuando sus llamadas a la API se realicen desde sitios web disponibles públicamente.

Configure su clave de cliente y frase secreta (si es necesario) en el script:

    Dim customerKey As String = "PUT_YOUR_CUSTOMER_KEY_HERE"
    Dim secretPhrase As String = "" REM leave secret phrase empty, If Not needed 

API de captura de pantalla del sitio web

Configure opciones adicionales para satisfacer sus necesidades:

    Dim options As New Dictionary( Of String , String )
    REM mandatory parameter
    options.Add( "url" , "https://www.google.com" )
    REM  all next parameters are optional, see our website screenshot API guide for more details
    options.Add( "dimension" , "1366x768" ) REM Or "1366xfull" For full length screenshot
    options.Add( "device" , "desktop" )
    options.Add( "format" , "png" )
    options.Add( "cacheLimit" , "0" )
    options.Add( "delay" , "200" )
    options.Add( "zoom" , "100" )

Puede encontrar más información sobre las opciones en nuestra API de captura de pantalla del sitio web.

Código de muestra

 Imports System.Net

Public Class Client

    Public Shared Sub Main(args() As String )
        Dim customerKey As String = "PUT_YOUR_CUSTOMER_KEY_HERE"
        Dim secretPhrase As String = "" REM leave secret phrase empty, If Not needed

        Dim options As New Dictionary( Of String , String )
        REM mandatory parameter
        options.Add( "url" , "https://www.google.com" )
        REM  all next parameters are optional, see our website screenshot API guide for more details
        options.Add( "dimension" , "1366x768" ) REM or "1366xfull" for full length screenshot
        options.Add( "device" , "desktop" )
        options.Add( "format" , "png" )
        options.Add( "cacheLimit" , "0" )
        options.Add( "delay" , "200" )
        options.Add( "zoom" , "100" )

        Dim sm As ScreenshotMachine = New ScreenshotMachine(customerKey, secretPhrase)
        Dim apiUrl As String = sm.GenerateScreenshotApiUrl(options)
        REM use final apiUrl where needed
        Console.WriteLine(apiUrl)
    End Sub

End Class

El enlace apiUrl generado se puede colocar en la etiqueta <img> o usarse en su lógica de negocios más adelante.

Si necesita almacenar la captura de pantalla capturada como una imagen, simplemente llame:

    Dim apiUrl As String = sm.GenerateScreenshotApiUrl(options)

    REM or save screenshot directly
    Dim client As New WebClient()
    Dim output As String = "output.png"
    client.DownloadFile(apiUrl, output)
    Console.WriteLine( "Screenshot saved as " + output)

La captura de pantalla capturada se guardará como archivo output.png en el directorio actual.

API de sitio web a PDF

Configure las opciones de PDF:

    Dim options As New Dictionary( Of String , String )
    REM mandatory parameter
    options.Add( "url" , "https://www.google.com" )
    REM  all next parameters are optional, see our website to PDF API guide for more details
    options.Add( "paper" , "letter" )
    options.Add( "orientation" , "portrait" )
    options.Add( "media" , "print" )
    options.Add( "bg" , "nobg" )
    options.Add( "delay" , "2000" )
    options.Add( "scale" , "50" )

Puede encontrar más información sobre las opciones en nuestra API de sitio web a PDF.

Código de muestra

 Imports System.Net

Public Class ClientPdf

    Public Shared Sub Main(args() As String )
        Dim customerKey As String = "PUT_YOUR_CUSTOMER_KEY_HERE"
        Dim secretPhrase As String = "" REM leave secret phrase empty, If Not needed

        Dim options As New Dictionary( Of String , String )
        REM mandatory parameter
        options.Add( "url" , "https://www.google.com" )
        REM  all next parameters are optional, see our website to PDF API guide for more details
        options.Add( "paper" , "letter" )
        options.Add( "orientation" , "portrait" )
        options.Add( "media" , "print" )
        options.Add( "bg" , "nobg" )
        options.Add( "delay" , "2000" )
        options.Add( "scale" , "50" )

        Dim sm As ScreenshotMachine = New ScreenshotMachine(customerKey, secretPhrase)
        Dim pdfApiUrl As String = sm.GeneratePdfApiUrl(options)

        REM save PDF file
        Dim client As New WebClient()
        Dim output As String = "output.pdf"
        client.DownloadFile(pdfApiUrl, output)
        Console.WriteLine( "PDF saved as " + output)
    End Sub

End Class

El PDF capturado se guardará como archivo output.pdf en el directorio actual.

Licencia

La licencia MIT (MIT)