<#PSScriptInfo
.VERSION 1.0
.GUID 26C67DF9-0F1E-4806-9D23-586DFBDECF88
.AUTHOR ElektroStudios
.COMPANYNAME ElektroStudios
.COPYRIGHT ElektroStudios © 2025
#>
 
$vbCode = @'
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports Microsoft.VisualBasic
 
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Diagnostics.CodeAnalysis
Imports System.Drawing
Imports System.Drawing.Design
Imports System.Globalization
Imports System.IO
Imports System.Linq
Imports System.Reflection
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
Imports System.Security
Imports System.Text
Imports System.Windows.Forms
Imports System.Xml
Imports System.Xml.Serialization
 
Imports DevCase.Core.IO.DigitalInformation
Imports DevCase.Core.IO.FileSystem
Imports DevCase.Runtime.TypeConverters
Imports DevCase.Win32
Imports DevCase.Win32.Enums
 
#End Region
 
#Region " CreateDummyFileOptionsForm "
 
Public NotInheritable Class CreateDummyFileOptionsForm : Inherits System.Windows.Forms.Form
 
    Public Sub New()
        Me.InitializeComponent()
    End Sub
 
    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    Friend WithEvents PropertyGrid1 As New PropertyGrid
    Friend WithEvents ButtonCancel As Button
    Friend WithEvents ButtonOk As Button
    Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
    Friend WithEvents Panel1 As Panel
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid()
        Me.ButtonCancel = New System.Windows.Forms.Button()
        Me.ButtonOk = New System.Windows.Forms.Button()
        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.TableLayoutPanel1.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'PropertyGrid1
        '
        Me.PropertyGrid1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.PropertyGrid1.Location = New System.Drawing.Point(3, 4)
        Me.PropertyGrid1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
        Me.PropertyGrid1.Name = "PropertyGrid1"
        Me.PropertyGrid1.PropertySort = System.Windows.Forms.PropertySort.NoSort
        Me.PropertyGrid1.Size = New System.Drawing.Size(733, 157)
        Me.PropertyGrid1.TabIndex = 0
        Me.PropertyGrid1.ToolbarVisible = False
        '
        'ButtonCancel
        '
        Me.ButtonCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.ButtonCancel.Location = New System.Drawing.Point(624, 6)
        Me.ButtonCancel.Name = "ButtonCancel"
        Me.ButtonCancel.Size = New System.Drawing.Size(100, 40)
        Me.ButtonCancel.TabIndex = 1
        Me.ButtonCancel.Text = "Cancel"
        Me.ButtonCancel.UseVisualStyleBackColor = True
        '
        'ButtonOk
        '
        Me.ButtonOk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.ButtonOk.Location = New System.Drawing.Point(518, 6)
        Me.ButtonOk.Name = "ButtonOk"
        Me.ButtonOk.Size = New System.Drawing.Size(100, 40)
        Me.ButtonOk.TabIndex = 2
        Me.ButtonOk.Text = "Ok"
        Me.ButtonOk.UseVisualStyleBackColor = True
        '
        'TableLayoutPanel1
        '
        Me.TableLayoutPanel1.ColumnCount = 1
        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
        Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 1)
        Me.TableLayoutPanel1.Controls.Add(Me.PropertyGrid1, 0, 0)
        Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
        Me.TableLayoutPanel1.RowCount = 2
        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 73.17073!))
        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 26.82927!))
        Me.TableLayoutPanel1.Size = New System.Drawing.Size(739, 226)
        Me.TableLayoutPanel1.TabIndex = 3
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.ButtonOk)
        Me.Panel1.Controls.Add(Me.ButtonCancel)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Location = New System.Drawing.Point(3, 168)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(733, 55)
        Me.Panel1.TabIndex = 4
        '
        'CreateDummyFileOptionsForm
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(739, 226)
        Me.Controls.Add(Me.TableLayoutPanel1)
        Me.Font = New System.Drawing.Font("Segoe UI", 10.0!)
        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
        Me.MaximizeBox = False
        Me.Name = "CreateDummyFileOptionsForm"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Create Dummy File Options"
        Me.TableLayoutPanel1.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.ResumeLayout(False)
 
    End Sub
 
    Public Property DummyFileOptions As New DummyFileOptions
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Me.PropertyGrid1.SelectedObject = Me.DummyFileOptions
        DevCase.Extensions.PropertyGridExtensions.SetSplitterPosition(Me.PropertyGrid1, 145)
        Me.MinimumSize = Me.Size
        Me.MaximumSize = New Size(3840, Me.Height)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ButtonCancel.Click
        Me.DialogResult = DialogResult.Cancel
        Me.Close()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ButtonOk.Click
        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub
 
End Class
 
#End Region
 
#Region " DummyFileOptions "
 
Public NotInheritable Class DummyFileOptions
 
    <Browsable(True)>
    <Editor(GetType(SaveFileNameEditor), GetType(UITypeEditor))>
    <DisplayName("File Path")>
    <Description("File path where to create the dummy file.")>
    Public Property FilePath As String = Path.Combine(System.IO.Directory.GetCurrentDirectory(), "File.dummy")
 
    <TypeConverter(GetType(FileSizeConverter))>
    <DisplayName("File Size")>
    <Description("Size of the dummy file.")>
    Public Property FileSize As New FileSize(1, DigitalStorageUnits.Megabyte)
 
    <Browsable(False)>
    Public ReadOnly Property FileSizeBytes As ULong
        Get
            Return CULng(Me.FileSize.Size(DigitalStorageUnits.Byte))
        End Get
    End Property
 
    <TypeConverter(GetType(FileSizeConverter))>
    <DisplayName("Buffer Size")>
    <Description("Size of the buffer used to write the dummy file.")>
    Public Property BufferSize As New FileSize(4, DigitalStorageUnits.Megabyte)
 
    <Browsable(False)>
    Public ReadOnly Property BufferSizeBytes As Integer
        Get
            Return CInt(Me.BufferSize.Size(DigitalStorageUnits.Byte))
        End Get
    End Property
 
    <DisplayName("Use Random Data")>
    <Description("If True, uses random bytes to fill the dummy file content; othewise, fills the dummy file with zero bytes.")>
    Public Property UseRandomData As Boolean = False
 
End Class
 
#End Region
 
#Region " SaveFileNameEditor "
 
Public NotInheritable Class SaveFileNameEditor : Inherits UITypeEditor
 
    Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle
        Return UITypeEditorEditStyle.Modal
    End Function
 
    Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object
        If context Is Nothing OrElse context.Instance Is Nothing OrElse provider Is Nothing Then
            Return MyBase.EditValue(context, provider, value)
        End If
 
        Using saveFileDialog As New SaveFileDialog()
            If value IsNot Nothing Then
                saveFileDialog.FileName = value.ToString()
            End If
 
            saveFileDialog.Title = "Select a location to save the dummy file"
            saveFileDialog.Filter = "All files (*.*)|*.*"
            saveFileDialog.FileName = "File.dummy"
            If saveFileDialog.ShowDialog() = DialogResult.OK Then
                value = saveFileDialog.FileName
            End If
        End Using
 
        Return value
    End Function
End Class
 
#End Region
 
#Region " NativeMethods "
 
Namespace DevCase.Win32.NativeMethods
 
    <HideModuleName>
    <SuppressUnmanagedCodeSecurity>
    <SuppressMessage("CodeQuality", "IDE0079:Remove unnecessary suppression", Justification:="Required to migrate this code to .NET Core")>
    <SuppressMessage("Interoperability", "CA1401:P/Invokes should not be visible", Justification:="")>
    Public Module ShlwApi
 
#Region " ShlwApi.dll "
 
        <DllImport("ShlwApi.dll", SetLastError:=True, ExactSpelling:=True, CharSet:=CharSet.Ansi, BestFitMapping:=False, ThrowOnUnmappableChar:=True)>
        Public Function StrFormatByteSize64A(number As ULong,
                                            buffer As StringBuilder,
                                            bufferSize As UInteger
        ) As IntPtr
        End Function
 
        <DllImport("ShlwApi.dll", SetLastError:=False, ExactSpelling:=True, CharSet:=CharSet.Unicode)>
        Public Function StrFormatByteSizeEx(number As ULong,
                                            flags As StrFormatByteSizeFlags,
                                            buffer As StringBuilder,
                                            bufferSize As UInteger
        ) As Integer ' HResult
        End Function
 
#End Region
 
    End Module
 
End Namespace
 
#End Region
 
#Region " StrFormatByteSizeFlags "
 
Namespace DevCase.Win32.Enums
 
    Public Enum StrFormatByteSizeFlags
        RoundToNearest = 1
        Truncate = 2
    End Enum
 
End Namespace
 
#End Region
 
#Region " Size Units "
 
Namespace DevCase.Core.IO.DigitalInformation
 
    Public Enum DigitalStorageUnits As Long
        [Byte] = CLng(2 ^ 0)
        Kilobyte = CLng(2 ^ 10)
        Megabyte = CLng(2 ^ 20)
        Gigabyte = CLng(2 ^ 30)
        Terabyte = CLng(2 ^ 40)
        Petabyte = CLng(2 ^ 50)
        Exabyte = CLng(2 ^ 60)
    End Enum
 
End Namespace
 
#End Region
 
#Region " Filesize "
 
Namespace DevCase.Core.IO.FileSystem
 
    Public NotInheritable Class FileSize
 
#Region " Private Fields "
 
        Private ReadOnly bytesB As Double
 
#End Region
 
#Region " Properties "
 
        Public ReadOnly Property Size(sizeUnit As DigitalStorageUnits) As Double
            Get
                Return Convert(size:=Me.bytesB, fromUnit:=DigitalStorageUnits.Byte, toUnit:=sizeUnit)
            End Get
        End Property
 
        Public ReadOnly Property Size(sizeUnit As DigitalStorageUnits, decimalPrecision As Integer, Optional numberFormatInfo As NumberFormatInfo = Nothing) As String
            Get
                If numberFormatInfo Is Nothing Then
                    numberFormatInfo = CultureInfo.CurrentCulture.NumberFormat
                End If
                Return Me.Size(sizeUnit).ToString(String.Format("N{0}", decimalPrecision), numberFormatInfo)
            End Get
        End Property
 
        Public Property SizeRounded As Double
 
        Public ReadOnly Property SizeRounded(decimalPrecision As Integer, Optional numberFormatInfo As NumberFormatInfo = Nothing) As String
            Get
                If numberFormatInfo Is Nothing Then
                    numberFormatInfo = CultureInfo.CurrentCulture.NumberFormat
                End If
                Return Me.SizeRounded.ToString(String.Format("N{0}", decimalPrecision), numberFormatInfo)
            End Get
        End Property
 
        Public Property SizeUnit As DigitalStorageUnits
        Public Property SizeUnitNameShort As String
        Public Property SizeUnitNameLong As String
 
#End Region
 
#Region " Constructors "
 
        Private Sub New()
        End Sub
 
        <DebuggerStepThrough>
        Public Sub New(size As Double, sizeUnit As DigitalStorageUnits)
 
            Me.bytesB = System.Convert.ToDouble(size * sizeUnit)
 
            Select Case System.Math.Abs(Me.bytesB)
 
                Case Is >= DigitalStorageUnits.Petabyte
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Petabyte
                    Me.SizeUnit = DigitalStorageUnits.Petabyte
                    Me.SizeUnitNameShort = "PB"
                    Me.SizeUnitNameLong = "PetaBytes"
 
                Case Is >= DigitalStorageUnits.Terabyte
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Terabyte
                    Me.SizeUnit = DigitalStorageUnits.Terabyte
                    Me.SizeUnitNameShort = "TB"
                    Me.SizeUnitNameLong = "TeraBytes"
 
                Case Is >= DigitalStorageUnits.Gigabyte
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Gigabyte
                    Me.SizeUnit = DigitalStorageUnits.Gigabyte
                    Me.SizeUnitNameShort = "GB"
                    Me.SizeUnitNameLong = "GigaBytes"
 
                Case Is >= DigitalStorageUnits.Megabyte
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Megabyte
                    Me.SizeUnit = DigitalStorageUnits.Megabyte
                    Me.SizeUnitNameShort = "MB"
                    Me.SizeUnitNameLong = "MegaBytes"
 
                Case Is >= DigitalStorageUnits.Kilobyte
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Kilobyte
                    Me.SizeUnit = DigitalStorageUnits.Kilobyte
                    Me.SizeUnitNameShort = "KB"
                    Me.SizeUnitNameLong = "KiloBytes"
 
                Case Is >= DigitalStorageUnits.Byte, Is = 0
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Byte
                    Me.SizeUnit = DigitalStorageUnits.Byte
                    Me.SizeUnitNameShort = "Bytes"
                    Me.SizeUnitNameLong = "Bytes"
            End Select
 
        End Sub
 
#End Region
 
#Region " Public Methods "
 
        Public Overrides Function ToString() As String
            Return Me.ToString(CultureInfo.InvariantCulture.NumberFormat)
        End Function
 
        Public Overloads Function ToString(provider As IFormatProvider) As String
            Return If(Me.SizeUnit = DigitalStorageUnits.Byte,
                String.Format(provider, "{0:0.##} {1}", System.Math.Floor(Me.SizeRounded * 100) / 100, Me.SizeUnitNameShort),
                String.Format(provider, "{0:0.00} {1}", System.Math.Floor(Me.SizeRounded * 100) / 100, Me.SizeUnitNameShort))
        End Function
 
        Public Function ToStringFormatByteSize(flags As StrFormatByteSizeFlags) As String
 
            Dim buffer As New StringBuilder(8, 16)
            Dim result As Integer = NativeMethods.StrFormatByteSizeEx(CULng(Me.bytesB), flags, buffer, 16) ' HRESULT
            If result <> 0 Then
                Marshal.ThrowExceptionForHR(result)
            End If
 
            Return buffer.ToString()
        End Function
 
#End Region
 
#Region " Private Methods "
 
        <DebuggerStepThrough>
        Private Shared Function Convert(size As Double,
                                 fromUnit As DigitalStorageUnits,
                                 toUnit As DigitalStorageUnits) As Double
 
            Dim bytes As Double = If(fromUnit = DigitalStorageUnits.Byte, size, System.Convert.ToDouble(size * fromUnit))
 
            If toUnit < fromUnit Then
                Select Case toUnit
                    Case DigitalStorageUnits.Byte
                        Return bytes
 
                    Case DigitalStorageUnits.Kilobyte
                        Return bytes / DigitalStorageUnits.Kilobyte
 
                    Case DigitalStorageUnits.Megabyte
                        Return bytes / DigitalStorageUnits.Megabyte
 
                    Case DigitalStorageUnits.Gigabyte
                        Return bytes / DigitalStorageUnits.Gigabyte
 
                    Case DigitalStorageUnits.Terabyte
                        Return bytes / DigitalStorageUnits.Terabyte
 
                    Case DigitalStorageUnits.Petabyte
                        Return bytes / DigitalStorageUnits.Petabyte
 
                    Case Else
                        Throw New InvalidEnumArgumentException(argumentName:="toUnit", invalidValue:=CInt(toUnit),
                                                               enumClass:=GetType(DigitalStorageUnits))
                End Select
 
            ElseIf toUnit > fromUnit Then
                Select Case toUnit
 
                    Case DigitalStorageUnits.Byte
                        Return bytes
 
                    Case DigitalStorageUnits.Kilobyte
                        Return bytes * DigitalStorageUnits.Kilobyte / (DigitalStorageUnits.Kilobyte ^ 2)
 
                    Case DigitalStorageUnits.Megabyte
                        Return bytes * DigitalStorageUnits.Megabyte / (DigitalStorageUnits.Megabyte ^ 2)
 
                    Case DigitalStorageUnits.Gigabyte
                        Return bytes * DigitalStorageUnits.Gigabyte / (DigitalStorageUnits.Gigabyte ^ 2)
 
                    Case DigitalStorageUnits.Terabyte
                        Return bytes * DigitalStorageUnits.Terabyte / (DigitalStorageUnits.Terabyte ^ 2)
 
                    Case DigitalStorageUnits.Petabyte
                        Return bytes * DigitalStorageUnits.Petabyte / (DigitalStorageUnits.Petabyte ^ 2)
 
                    Case Else
                        Throw New InvalidEnumArgumentException(argumentName:="toUnit", invalidValue:=CInt(toUnit),
                                                               enumClass:=GetType(DigitalStorageUnits))
                End Select
 
            Else ' If toUnit = fromUnit 
                Return bytes
 
            End If
        End Function
 
#End Region
 
    End Class
 
End Namespace
 
#End Region
 
#Region " FileSizeConverter "
 
Namespace DevCase.Runtime.TypeConverters
 
    Public Class FileSizeConverter : Inherits TypeConverter
 
#Region " Private Fields "
 
        Private ReadOnly sizeUnitsDictionary As Dictionary(Of String(), ULong)
 
#End Region
 
#Region " Constructors "
 
        Public Sub New()
            Me.sizeUnitsDictionary = New Dictionary(Of String(), ULong)(StringComparison.OrdinalIgnoreCase) From {
                {{"b", "byte", "bytes"}, 1UL},
                {{"KB", "kilo", "kilos", "kilobyte", "kilobytes", "kilo byte", "kilo bytes"}, 1024UL},
                {{"MB", "mega", "megas", "megabyte", "megabytes", "mega byte", "mega bytes"}, CULng(1024UL ^ 2UL)},
                {{"GB", "giga", "gigas", "gigabyte", "gigabytes", "giga byte", "giga bytes"}, CULng(1024UL ^ 3UL)},
                {{"TB", "tera", "teras", "terabyte", "terabytes", "tera byte", "tera bytes"}, CULng(1024UL ^ 4UL)},
                {{"PB", "peta", "petas", "petabyte", "petabytes", "peta byte", "peta bytes"}, CULng(1024UL ^ 5UL)},
                {{"EB", "exa", "exas", "exabyte", "exabytes", "exa byte", "exa bytes"}, CULng(1024UL ^ 6UL)}
            }
        End Sub
 
#End Region
 
#Region " Public Methods "
 
        Public Overrides Function CanConvertFrom(context As ITypeDescriptorContext, sourceType As Type) As Boolean
 
            Return sourceType Is GetType(String) OrElse
                   MyBase.CanConvertFrom(context, sourceType)
        End Function
 
        Public Overrides Function CanConvertTo(context As ITypeDescriptorContext, destinationType As Type) As Boolean
 
            Return destinationType Is GetType(ULong) OrElse
                   destinationType Is GetType(String) OrElse
                   MyBase.CanConvertTo(context, destinationType)
        End Function
 
        <DebuggerStepThrough>
        Public Overrides Function ConvertFrom(context As ITypeDescriptorContext, culture As CultureInfo, value As Object) As Object
 
            If TypeOf value Is String Then
                Dim strValue As String = DirectCast(value, String)
                If strValue.Contains("("c) Then
                    strValue = strValue.Substring(0, strValue.IndexOf("("c))
                End If
                Dim bytes As ULong
                If ULong.TryParse(strValue, bytes) Then
                    Return bytes
                End If
                bytes = Me.ParseFileSizeString(strValue)
                If bytes <> 0UL Then
                    If context.PropertyDescriptor IsNot Nothing AndAlso context.PropertyDescriptor.PropertyType Is GetType(FileSize) Then
                        Return New FileSize(bytes, DigitalStorageUnits.Byte)
                    Else
                        Return DirectCast(bytes, Object)
                    End If
                End If
            End If
 
            Return MyBase.ConvertFrom(context, culture, value)
        End Function
 
        <DebuggerStepThrough>
        Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
            If destinationType Is GetType(String) Then
                Dim bytes As ULong = If((TypeOf value Is FileSize), CULng(DirectCast(value, FileSize).Size(DigitalStorageUnits.Byte)), DirectCast(value, ULong))
                Dim formattedSize As String = Me.FormatByteFileSize(bytes)
                Return If(bytes < 1024, String.Format("{0}", formattedSize), String.Format("{0} ({1:N0} bytes)", formattedSize, bytes))
            End If
 
            Return MyBase.ConvertTo(context, culture, value, destinationType)
        End Function
 
#End Region
 
#Region " Private Methods "
 
        <DebuggerStepThrough>
        Private Function ParseFileSizeString(sizeString As String) As ULong
 
            Dim trimmedSizeString As String = sizeString.Trim()
            If trimmedSizeString.Contains("("c) Then
                trimmedSizeString = trimmedSizeString.Substring(0, trimmedSizeString.IndexOf("("c))
            End If
 
            For Each kvp As KeyValuePair(Of String(), ULong) In sizeUnitsDictionary
                For Each sizeUnitName As String In kvp.Key
                    If trimmedSizeString.EndsWith(sizeUnitName, StringComparison.OrdinalIgnoreCase) Then
                        Dim numString As String = trimmedSizeString.Substring(0, trimmedSizeString.Length - sizeUnitName.Length).Trim()
                        Dim num As Double
                        Dim numberFormat As IFormatProvider
#If NETCOREAPP Then
                        numberFormat = Thread.CurrentThread.CurrentUICulture.NumberFormat
#Else
                        numberFormat = My.Application.UICulture.NumberFormat
#End If
                        If Double.TryParse(numString, NumberStyles.Number, numberFormat, num) Then
                            Try
                                Return CULng((num * kvp.Value))
                            Catch ex As OverflowException
                                Return ULong.MaxValue
                            Catch ex As Exception
                                Throw
                            End Try
                        End If
                    End If
                Next sizeUnitName
            Next kvp
 
            Throw New Exception("Cannot parse the specified file size value.")
        End Function
 
 
        <DebuggerStepThrough>
        Private Function FormatByteFileSize(bytes As ULong) As String
            Dim unitIndex As Integer = 0
            Dim fileSize As Double = bytes
 
            While (fileSize >= 1024) AndAlso (unitIndex < sizeUnitsDictionary.Count - 1)
                fileSize /= 1024
                unitIndex += 1
            End While
 
            Return If(unitIndex = 0,
                       String.Format("{0} bytes", fileSize),
                       String.Format("{0:F2} {1}", fileSize, sizeUnitsDictionary.ElementAt(unitIndex).Key(0)).Replace(",00", ""))
        End Function
 
#End Region
 
    End Class
 
End Namespace
 
#End Region
 
#Region " PropertyGridExtensions "
 
Namespace DevCase.Extensions.PropertyGridExtensions
 
    <HideModuleName>
    Public Module PropertyGridExtensions
 
#Region " Public Extension Methods "
 
        <DebuggerStepThrough>
        <Extension>
        <EditorBrowsable(EditorBrowsableState.Always)>
        Public Function IsInitialized(propGrid As PropertyGrid) As Boolean
 
            Return PropertyGridExtensions.GetInternalLabelWidth(propGrid) <> -1
        End Function
 
        <DebuggerStepThrough>
        <Extension>
        <EditorBrowsable(EditorBrowsableState.Always)>
        Public Sub SetSplitterPosition(propGrid As PropertyGrid, xPos As Integer)
 
            If Not PropertyGridExtensions.IsInitialized(propGrid) Then
                Throw New InvalidOperationException("The PropertyGrid must be initialized in order to set the splitter control position.")
            End If
 
            Dim internalGridView As Control = PropertyGridExtensions.GetPropertyGridInternal(propGrid)
            Dim moveSplitterToMethod As MethodInfo = internalGridView.GetType().GetMethod("MoveSplitterTo", BindingFlags.NonPublic Or BindingFlags.Instance)
            moveSplitterToMethod.Invoke(internalGridView, {xPos})
        End Sub
 
#End Region
 
#Region " Private Methods "
 
        Private Function GetPropertyGridInternal(propGrid As PropertyGrid) As Control
 
            ' Class: System.Windows.Forms.PropertyGridInternal.PropertyGridView
 
            Dim getPropertyGridViewMethod As MethodInfo = GetType(PropertyGrid).GetMethod("GetPropertyGridView", BindingFlags.NonPublic Or BindingFlags.Instance)
            Dim gridView As Control = DirectCast(getPropertyGridViewMethod.Invoke(propGrid, Array.Empty(Of Object)()), Control)
            Return gridView
 
            ' We can also retrieve the internal PropertyGridView this other way:
            ' ------------------------------------------------------------------
            ' Dim gridViewFieldInfo As FieldInfo = propGrid.GetType().GetField("gridView", BindingFlags.Instance Or BindingFlags.NonPublic)
            ' Dim gridView As Control = DirectCast(gridViewFieldInfo.GetValue(propGrid), Control)
            ' Return gridView
        End Function
 
        Private Function GetInternalLabelWidth(propGrid As PropertyGrid) As Integer
 
            Dim internalGridView As Control = PropertyGridExtensions.GetPropertyGridInternal(propGrid)
            Dim propInfo As PropertyInfo = internalGridView.GetType().GetProperty("InternalLabelWidth", BindingFlags.NonPublic Or BindingFlags.Instance)
            Return CInt(propInfo.GetValue(internalGridView))
        End Function
 
#End Region
 
    End Module
 
End Namespace
 
#End Region
'@ 
$assembly = Add-Type -TypeDefinition $vbCode `
                      -CodeDomProvider (New-Object Microsoft.VisualBasic.VBCodeProvider) `
                      -PassThru `
                      -ReferencedAssemblies "Microsoft.VisualBasic.dll", `
                                            "System.Windows.Forms.dll", `
                                            "System.Security.dll", `
                                            "System.Collections.dll", `
                                            "System.Drawing.dll", `
                                            "System.Globalization.dll", `
                                            "System.Reflection.dll", `
                                            "System.Linq.dll", `
                                            "System.IO.dll", `
                                            "System.Xml.dll", `
                                            "System.Xml.Serialization.dll", `
                                            "System.dll" `
                      | where { $_.IsPublic }
 
 
function Get-FormattedSize {
    param (
        [int64]$sizeInBytes
    )
 
    $buffer = New-Object System.Text.StringBuilder 24
    $resultPtr = [DevCase.Win32.NativeMethods.ShlwApi]::StrFormatByteSize64A($sizeInBytes, $buffer, $buffer.Capacity)
 
    if ($resultPtr -eq [IntPtr]::Zero) {
        return "Error formatting the file size."
    } else {
        return $buffer.ToString()
    }
}
 
function WriteDummyFile {
    param (
        [string]$FilePath,
        [uint64]$FileSize,
        [uint64]$BufferSize = 4MB,
        [bool]$randomData = $false
    )
 
    $formattedFileSize = Get-FormattedSize -sizeInBytes $FileSize
 
    $fs = [System.IO.File]::Create($FilePath)
 
    if ($BufferSize -ge $FileSize) {
        $BufferSize = [math]::Floor($FileSize / 2)
    }
 
    [int64]$bytesWritten = 0
    $buffer = New-Object byte[] $BufferSize
    $rand = New-Object Random
 
    Write-Host "Creating dummy file at '$FilePath' with a size of $formattedFileSize..."
 
    while ($bytesWritten -lt $FileSize) {
        $bytesToWrite = [math]::Min($BufferSize, $FileSize - $bytesWritten)
 
        if ($randomData) {
            $rand.NextBytes($buffer)
        } else {
            [Array]::Clear($buffer, 0, $bytesToWrite)
        }
 
        $fs.Write($buffer, 0, $bytesToWrite)
 
        $bytesWritten += $bytesToWrite
        $formattedBytesWritten = Get-FormattedSize -sizeInBytes $bytesWritten
 
        $progressPercent = [math]::Min(($bytesWritten / $FileSize) * 100, 100)
 
        Write-Progress -PercentComplete $progressPercent -Status "$FilePath" -Activity "Writing dummy file..." -CurrentOperation "$formattedBytesWritten written."
    }
        Write-Progress -PercentComplete 100 -Status "$FilePath" -Activity "Dummy file has been written." -CurrentOperation "$formattedBytesWritten written."
 
    $fs.Close()
 
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host "Dummy file successfully created at '$FilePath' with a size of $formattedFileSize."
}
 
 
$form = New-Object CreateDummyFileOptionsForm
$dlgResult = $form.ShowDialog()
 
if ($dlgResult -eq [System.Windows.Forms.DialogResult]::OK) {
    $fileOptions = $form.DummyFileOptions
    WriteDummyFile -FilePath $fileOptions.FilePath -FileSize $fileOptions.FileSizeBytes -BufferSize $fileOptions.BufferSizeBytes -randomData $fileOptions.UseRandomData
} else {
    Write-Host "Operation canceled. No file selected."
}
 
Write-Host "Press any key to exit..."
$key = [System.Console]::ReadKey($true)
Exit(0)
 

• DllExport de 3F
• UnmanagedExports de Huajitech
• UnmanagedExports.Repack.Upgrade de StevenEngland

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 16-January-2025
' ***********************************************************************
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Usage Examples "
 
' VB.NET
' <DllExport(NameOf(MyStringFunction), CallingConvention.StdCall)>
' Public Shared Function MyStringFunction() As <MarshalAs(UnmanagedType.BStr)> String
'     Return "Hello World!"
' End Function
 
' C#
' [DllExport(nameof(MyStringFunction), CallingConvention.StdCall)]
' [return: MarshalAs(UnmanagedType.BStr)]
' public static string MyStringFunction() {
'     return "Hello World!";
' }
 
#End Region
 
#Region " Imports "
 
Imports System.Runtime.InteropServices
 
#End Region
 
' ReSharper disable once CheckNamespace
 
#Region " DllExportAttribute "
 
Namespace DevCase.Runtime.Attributes
 
    ''' <summary>
    ''' The <see cref="DllExportAttribute"/> class indicates that a method can be 
    ''' exported as a C function from a .NET dynamic-link library (DLL) file, 
    ''' making the method callable from unmanaged code.
    ''' <para></para>
    ''' The <see cref="DllExportAttribute"/> class is solely intended to replicate and improve the 
    ''' <b>DllExportAttribute</b> attribute class from plugins like:
    ''' <list type="bullet">
    '''   <item><b>DllExport</b> by 3F
    '''     <para></para> 
    '''     <see href="https://github.com/3F/DllExport"/>
    '''   </item>
    '''   
    '''   <item><b>UnmanagedExports</b> by Huajitech
    '''     <para></para>
    '''     <see href="https://github.com/huajitech/UnmanagedExports"/>
    '''   </item>
    '''   
    '''   <item><b>UnmanagedExports.Repack.Upgrade</b> by StevenEngland
    '''     <para></para>
    '''     <see href="https://github.com/stevenengland/UnmanagedExports.Repack.Upgrade"/>
    '''   </item>
    ''' </list>
    ''' Allowing a programmer to use this attribute class without having the plugin installed in their Visual Studio projects.
    ''' <para></para>
    ''' Be aware that it is still necessary to use one of the mentioned projects to enable .NET functions export.
    ''' </summary>
    <AttributeUsage(AttributeTargets.Method, AllowMultiple:=False, Inherited:=False)>
    Public NotInheritable Class DllExportAttribute : Inherits Attribute
 
#Region " Properties "
 
        ''' <summary>
        ''' Gets or sets the calling convention required to call this C-exported function from unmanaged code.
        ''' <para></para>
        ''' Default value is <see cref="System.Runtime.InteropServices.CallingConvention.Cdecl"/>,
        ''' like for other C/C++ programs (Microsoft Specific).
        ''' <para></para>
        ''' Value <see cref="System.Runtime.InteropServices.CallingConvention.StdCall"/> is mostly used with Windows API.
        ''' <para></para>
        ''' </summary>
        Public Property CallingConvention As CallingConvention = CallingConvention.Cdecl
 
        ''' <summary>
        ''' Gets or sets the optional name for this C-exported function.
        ''' </summary>
        ''' <remarks>
        ''' See also:
        ''' <seealso href="https://learn.microsoft.com/en-us/cpp/build/reference/decorated-names?view=msvc-170#FormatC">
        ''' Format of a C decorated name.
        ''' </seealso>
        ''' </remarks>
        Public Property ExportName As String
 
#End Region
 
#Region " Constructors "
 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="DllExportAttribute"/> class.
        ''' <para></para>
        ''' Use this constructor only if you plan to use <b>DllExport</b> by 3F (<see href="https://github.com/3F/DllExport"/>),
        ''' <para></para>
        ''' otherwise, use <see cref="DllExportAttribute.New(String, CallingConvention)"/> 
        ''' to specify the export name and calling convention.
        ''' </summary>
        ''' 
        ''' <param name="convention">
        ''' The calling convention required to call this C-exported function.
        ''' <para></para>
        ''' Default value is <see cref="System.Runtime.InteropServices.CallingConvention.Cdecl"/>,
        ''' like for other C/C++ programs (Microsoft Specific).
        ''' <para></para>
        ''' Value <see cref="System.Runtime.InteropServices.CallingConvention.StdCall"/> is mostly used with Windows API.
        ''' <para></para>
        ''' </param>
        ''' 
        ''' <param name="exportName">
        ''' The optional name for this C-exported function.
        ''' See also: 
        ''' <seealso href="https://learn.microsoft.com/en-us/cpp/build/reference/decorated-names?view=msvc-170#FormatC">
        ''' Format of a C decorated name.
        ''' </seealso>
        ''' </param>
        Public Sub New(convention As CallingConvention, exportName As String)
 
            Me.CallingConvention = convention
            Me.ExportName = exportName
        End Sub
 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="DllExportAttribute"/> class.
        ''' <para></para>
        ''' Do not use this constructor if you plan to use <b>DllExport</b> by 3F (<see href="https://github.com/3F/DllExport"/>),
        ''' <para></para>
        ''' in that case use <see cref="DllExportAttribute.New(CallingConvention, String)"/>  
        ''' to specify the export name and calling convention.
        ''' </summary>
        ''' 
        ''' <param name="exportName">
        ''' The optional name for this C-exported function.
        ''' See also: 
        ''' <seealso href="https://learn.microsoft.com/en-us/cpp/build/reference/decorated-names?view=msvc-170#FormatC">
        ''' Format of a C decorated name.
        ''' </seealso>
        ''' </param>
        ''' 
        ''' <param name="convention">
        ''' The calling convention required to call this C-exported function.
        ''' <para></para>
        ''' Default value is <see cref="System.Runtime.InteropServices.CallingConvention.Cdecl"/>,
        ''' like for other C/C++ programs (Microsoft Specific).
        ''' <para></para>
        ''' Value <see cref="System.Runtime.InteropServices.CallingConvention.StdCall"/> is mostly used with Windows API.
        ''' <para></para>
        ''' </param>
        Public Sub New(exportName As String, convention As CallingConvention)
 
            Me.ExportName = exportName
            Me.CallingConvention = convention
        End Sub
 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="DllExportAttribute"/> class.
        ''' </summary>
        ''' 
        ''' <param name="exportName">
        ''' The optional name for this C-exported function.
        ''' See also: 
        ''' <seealso href="https://learn.microsoft.com/en-us/cpp/build/reference/decorated-names?view=msvc-170#FormatC">
        ''' Format of a C decorated name.
        ''' </seealso>
        ''' </param>
        Public Sub New(exportName As String)
 
            Me.New(exportName, CallingConvention.Cdecl)
        End Sub
 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="DllExportAttribute"/> class.
        ''' </summary>
        ''' 
        ''' <param name="convention">
        ''' The calling convention required to call this C-exported function.
        ''' <para></para>
        ''' Default value is <see cref="System.Runtime.InteropServices.CallingConvention.Cdecl"/>,
        ''' like for other C/C++ programs (Microsoft Specific).
        ''' <para></para>
        ''' Value <see cref="System.Runtime.InteropServices.CallingConvention.StdCall"/> is mostly used with Windows API.
        ''' <para></para>
        ''' </param>
        Public Sub New(convention As CallingConvention)
 
            Me.New(String.Empty, convention)
        End Sub
 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="DllExportAttribute"/> class.
        ''' </summary>
        Public Sub New()
        End Sub
 
#End Region
 
    End Class
 
#End Region
 
End Namespace

<DllExport(NameOf(MyStringFunction), CallingConvention.StdCall)>
Public Shared Function MyStringFunction() As <MarshalAs(UnmanagedType.BStr)> String
    Return "Hello World!"
End Function

[DllExport(nameof(MyStringFunction), CallingConvention.StdCall)]
[return: MarshalAs(UnmanagedType.BStr)]
public static string MyStringFunction() {
    return "Hello World!";
}

function MyStringFunction(): Cardinal;
  external 'MyStringFunction@files:MyNetAPI.dll stdcall';