screenshotmachine vb

tangkapan layarmesin-vb

Demo ini menunjukkan cara memanggil API mesin screenshot online menggunakan bahasa pemrograman Visual Basic.

Instalasi

Pertama, Anda perlu membuat akun gratis/premium di situs web www.screenshotmachine.com. Setelah pendaftaran, Anda akan melihat kunci pelanggan di profil pengguna Anda. Ungkapan rahasia juga dipertahankan di sini. Harap selalu gunakan frasa rahasia, ketika panggilan API Anda dipanggil dari situs web yang tersedia untuk umum.

Siapkan kunci pelanggan dan frasa rahasia Anda (jika diperlukan) dalam skrip:

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

API tangkapan layar situs web

Tetapkan opsi tambahan untuk memenuhi kebutuhan Anda:

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

Info selengkapnya tentang opsi dapat ditemukan di API tangkapan layar situs web kami.

Kode sampel

 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

Tautan apiUrl yang dihasilkan dapat ditempatkan di tag <img> atau digunakan dalam logika bisnis Anda nanti.

Jika Anda perlu menyimpan tangkapan layar yang diambil sebagai gambar, panggil saja:

    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)

Tangkapan layar yang diambil akan disimpan sebagai file output.png di direktori saat ini.

Situs web ke PDF API

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

Info lebih lanjut tentang opsi dapat ditemukan di Situs Web kami ke PDF API.

Kode sampel

 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

PDF yang diambil akan disimpan sebagai file output.pdf di direktori saat ini.

Lisensi

Lisensi MIT (MIT)