Imports Bytescout.PDFExtractor

Module Module1

    Sub Main()

        ' Create Bytescout.PDFExtractor.UnsearchablePDFMaker instance
        Dim unsearchablePDFMaker = New UnsearchablePDFMaker()
        unsearchablePDFMaker.RegistrationName = "demo"
        unsearchablePDFMaker.RegistrationKey = "demo"

        ' Load sample PDF document
        unsearchablePDFMaker.LoadDocumentFromFile("sample1.pdf")

        'maker.ImageFormat = EmbeddedImageFormat.JPEG; ' use JPEG for smaller PDF file, but be ready to compression artefacts
        'maker.JPEGQuality = 75; // JPEG quality (1 - 100)
        unsearchablePDFMaker.RenderingResolution = 300  ' larger resolution - longer processing And larger PDF file size

        ' Enable Black And White mode
        unsearchablePDFMaker.Grayscale = True

        ' Enable skipping black And white conversation of pages in range
        unsearchablePDFMaker.KeepSkippedPages = True

        ' "ranges" param Is comma-separated list of page ranges in form "1-4,5,7,8-15,16-". 
        ' Pages covered by it will be converted to Black And White.
        ' Page numbers are 1-based. Ending "-" means "to the last page".
        ' You can also use inverted page numbers adding '!' before the number. E.g. "!1" means "the last page", 
        ' "2-!2" means "from the second to the penultimate page", "!2-" - last two pages
        unsearchablePDFMaker.MakePDFUnsearchable("result.pdf", ranges:="1")

        ' Cleanup
        unsearchablePDFMaker.Dispose()

        ' Open the result PDF file in default associated application
        System.Diagnostics.Process.Start("result.pdf")

    End Sub

End Module