WinWrap.Basic.Server 10.53.0.19

WinWrap® Basic for .NET 5+ Everywhere

WinWrap® Basic for .NET 5+ Everywhere provides VB.NET scripting in a .NET/8+ object. Any .NET/8+ application can extend the scripting language using .NET/8+ classes.

For more infomation follow this link: https://www.winwrap.com/).

Licensing

WinWrap® Basic is licensed by PolarEngineering®, Inc.

History

PolarEngineering®, Inc. has been marketing WinWrap® Basic for Windows since 1993. Now, with WinWrap® Basic for .NET 5+ Everywhere any .NET 8+ application can utilized WinWrap® Basic scripting. Use WinWrap® Basic to provide VB.NET scripting on Windows, Linux, Macintosh, etc.

Evaluation

Request a WinWrap® Basic evaluation certificate from the "Evaluate" link at https://www.winwrap.com/web2/evaluate/.

Sample Console Application utilizing WinWrap® Basic

using System.Diagnostics;
using System.Reflection;
using WinWrap.Basic.Server;

namespace Test1
{
    internal class Program
    {
        static void Main(string[] args)
        {
            string root = Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location) + Path.DirectorySeparatorChar;

            using BasicNoUIObj basic_ = new();
            basic_.DebugClear += (sender, e) => Console.Clear();
            basic_.DebugPrint += (sender, e) => Console.Write(e.Text);
            basic_.ErrorAlert += (sender, e) => Console.WriteLine(basic_.Error.ToString());

            // not required for evaluation
            // basic_.Secret = new Guid("<secret>");

            basic_.Initialize();

            bool result;

            basic_.FileName = root + "NoSyntaxError.vb";
            result = basic_.SyntaxCheck();
            Debug.Assert(result);

            basic_.FileName = root + "SyntaxError.vb";
            result = basic_.SyntaxCheck();
            Debug.Assert(!result);

            basic_.HiddenCode =
@"'#Language ""WWB.NET""
Sub DoIt
Debug.Print Now
End Sub";
            result = basic_.LoadModule(root + "Module1.vb");
            Debug.Assert(result);

            result = basic_.AddSafeReference(typeof(ClassLibrary1.Class1).Assembly, "ClassLibrary1");
            Debug.Assert(result);
            var c1 = new ClassLibrary1.Class1();
            result = basic_.AddExtensionObject("c1", c1);
            Debug.Assert(result);

            result = basic_.AddSafeReference(typeof(ClassLibrary2.Class2).Assembly, "ClassLibrary2");
            Debug.Assert(result);
            var c2 = new ClassLibrary2.Class2();
            result = basic_.AddExtensionObject("c2", c2);
            Debug.Assert(result);

            result = basic_.AddSafeReference(typeof(ClassLibrary3.Class3).Assembly, root + "Macro.vb|ClassLibrary3");
            Debug.Assert(result);
            var c3 = new ClassLibrary3.Class3();
            result = basic_.AddExtensionObject(root + "Macro.vb|c3", c3);
            Debug.Assert(result);

            result = basic_.RunFile(root + "Macro.vb");
            Debug.Assert(result);

            result = basic_.UnloadModule(root + "Module1.vb");
            Debug.Assert(result);
        }
    }
}

Macro.vb script

'#Language "WWB.NET"
Sub Main
    Debug.Print Now
    Debug.Print c1.Info
    Debug.Print c2.Info
    Debug.Print c3.Info
    Debug.Print GetType(Class1).FullName
    Debug.Print GetType(Class2).FullName
    Debug.Print GetType(Class3).FullName
    DoIt
    DoIt1
End Sub

Module1.vb script

'#Language "WWB.NET"

'#Uses "Module2.vb"

Module Module1
    Sub DoIt1
        Debug.Print "Module1.DoIt1"
        DoIt2
    End Sub
End Module

Module2.vb script

'#Language "WWB.NET"

Module Module2
    Sub DoIt2
        Debug.Print "Module2.DoIt2"
    End Sub
End Module

NoSyntaxError.vb script

'#Language "WWB.NET"

Sub Main
    Debug.Print Now
End Sub

SyntaxError.vb script

'#Language "WWB.NET"

Sub Main
    x
End Sub