Module1.vb
Imports System.IO Imports System.Net Imports Newtonsoft.Json.Linq Module Module1 ' (!) If you are getting '(403) Forbidden' error please ensure you have set the correct API_KEY ' The authentication key (API Key). ' Get your own by registering at https://secure.bytescout.com/users/sign_up Const API_KEY As String = "***********************************" ' Result file name Const ResultFileName As String = ".\barcode.png" ' Barcode type. See valid barcode types in the documentation https://secure.bytescout.com/cloudapi.html#api-Default-barcodeGenerateGet Const BarcodeType As String = "Code128" ' Barcode value Const BarcodeValue As String = "qweasd123456" Sub Main() ' Create standard .NET web client instance Dim webClient As WebClient = New WebClient() ' Set API Key webClient.Headers.Add("x-api-key", API_KEY) ' Prepare URL for `Barcode Generator` API call Dim query As String = Uri.EscapeUriString(string.Format( "https://api.pdf.co/v1/barcode/generate?name={0}&type={1}&value={2}", Path.GetFileName(ResultFileName), BarcodeType, BarcodeValue)) Try ' Execute request Dim response As String = webClient.DownloadString(query) ' Parse JSON response Dim json As JObject = JObject.Parse(response) If json("error").ToObject(Of Boolean) = False Then ' Get URL of generated barcode image file Dim resultFileURI As string = json("url").ToString() ' Download the image file webClient.DownloadFile(resultFileURI, ResultFileName) Console.WriteLine("Generated barcode saved to ""{0}"" file.", ResultFileName) Else Console.WriteLine(json("message").ToString()) End If Catch ex As WebException Console.WriteLine(ex.ToString()) End Try webClient.Dispose() Console.WriteLine() Console.WriteLine("Press any key...") Console.ReadKey() End Sub End Module
Click here to get your Free Trial version of the SDK
IMPORTANT:
Cloud API is deprecated and was replaced with more powerful and secure www.PDF.co Web API
CLICK HERE
TO LEARN MORE
ABOUT NEW
www.PDF.co
w/ Web API
On-Premise API Server
Cloud API Server