screenshotmachine vb

스크린샷머신-vb

이 데모에서는 Visual Basic 프로그래밍 언어를 사용하여 온라인 스크린샷 머신 API를 호출하는 방법을 보여줍니다.

설치

먼저 www.screenshotmachine.com 웹사이트에서 무료/프리미엄 계정을 만들어야 합니다. 등록 후에는 사용자 프로필에 고객 키가 표시됩니다. 또한 여기에는 비밀 문구가 유지됩니다. 공개적으로 사용 가능한 웹사이트에서 API 호출이 호출되는 경우 항상 비밀 문구를 사용하세요.

스크립트에서 고객 키와 비밀 문구(필요한 경우)를 설정하세요.

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

웹사이트 스크린샷 API

요구 사항을 충족하기 위해 추가 옵션을 설정합니다.

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

옵션에 대한 자세한 내용은 웹사이트 스크린샷 API에서 확인할 수 있습니다.

샘플 코드

 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

생성된 apiUrl 링크는 <img> 태그에 배치하거나 나중에 비즈니스 로직에 사용할 수 있습니다.

캡처한 스크린샷을 이미지로 저장해야 하는 경우 다음을 호출하세요.

    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)

캡처된 스크린샷은 현재 디렉토리에 output.png 파일로 저장됩니다.

웹사이트에서 PDF API로

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

옵션에 대한 자세한 내용은 웹사이트 to PDF API에서 확인할 수 있습니다.

샘플 코드

 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는 현재 디렉터리에 output.pdf 파일로 저장됩니다.

특허

MIT 라이센스 (MIT)