screenshotmachine vb Télécharger - screenshotmachine vb Téléchargement du code source

screenshotmachine vb

Visual Basic

1.0.0

Télécharger

capture d'écranmachine-vb

Cette démo montre comment appeler l'API de la machine de capture d'écran en ligne à l'aide du langage de programmation Visual Basic.

Installation

Tout d’abord, vous devez créer un compte gratuit/premium sur le site Web www.screenshotmachine.com. Après votre inscription, vous verrez votre clé client dans votre profil utilisateur. Une phrase secrète est également conservée ici. Veuillez toujours utiliser une phrase secrète lorsque vos appels API sont appelés à partir de sites Web accessibles au public.

Configurez votre clé client et votre phrase secrète (si nécessaire) dans le script :

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

API de capture d'écran du site Web

Définissez des options supplémentaires pour répondre à vos besoins :

    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" )

Plus d’informations sur les options peuvent être trouvées dans notre API de capture d’écran de site Web.

Exemple de code

 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

Le lien apiUrl généré peut être placé dans la balise <img> ou utilisé ultérieurement dans votre logique métier.

Si vous avez besoin de stocker une capture d'écran capturée sous forme d'image, appelez simplement :

    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 capture d'écran capturée sera enregistrée en tant que fichier output.png dans le répertoire actuel.

API de site Web vers PDF

Définissez les options 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" )

Plus d’informations sur les options peuvent être trouvées dans notre API Website to PDF.

Exemple de code

 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