screenshotmachine vb

Screenshotmachine-vb

يوضح هذا العرض التوضيحي كيفية استدعاء واجهة برمجة تطبيقات جهاز لقطة الشاشة عبر الإنترنت باستخدام لغة برمجة Visual Basic.

تثبيت

أولاً، تحتاج إلى إنشاء حساب مجاني/ممتاز على موقع 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 

واجهة برمجة تطبيقات لقطة شاشة لموقع الويب

قم بتعيين خيارات إضافية لتلبية احتياجاتك:

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

يمكن العثور على مزيد من المعلومات حول الخيارات في واجهة برمجة تطبيقات لقطة شاشة موقع الويب الخاص بنا.

رمز العينة

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

يمكن العثور على مزيد من المعلومات حول الخيارات في موقعنا الإلكتروني إلى 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)