Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Imports System.IO
Imports System.Reflection

Module Module1

	Public Sub Main()

    	Dim locPlugin As New PluginLib.PluginLib.PluginLib("$plugin", "PluginLibTest")
    	With locPlugin
        	Console.WriteLine("Instanz von PluginLib erstellt.")
        	.AddVariable("PluginName")
        	Console.WriteLine("PluginName wird als Variable vorausgesetzt.")
        	.AddVariableOptional("PluginVersion", "1.0.0.0")
        	Console.WriteLine("PluginVersion kann zus" & ChrW(228) & "tzlich angegeben werden.")
        	.AddMethod("TestMethode")
        	.AddMethod("RunPlugin")
        	.AddMethod("GetInfo")
        	Console.WriteLine("TestMethode muss zum Aufrufen vorhanden sein!")
        	.AddMethodOptional("PluginBeenden")
        	Console.WriteLine("PluginBeenden wird dann aufgerufen, wenn das Programm beendet wird.")
        	.LoadPlugins((Path.GetDirectoryName(Assembly.GetExecutingAssembly.GetName.CodeBase).Replace("file:\", Nothing) & "\Plugins"), SearchOption.TopDirectoryOnly)
        	Console.WriteLine("Alle Plugins aus dem Plugins-Ordner wurden geladen.")
        	Console.WriteLine("")
        	Dim locPair As KeyValuePair(Of String, PluginLib.PluginLib.Plugin)
        	For Each locPair In .GetPlugins

            	Console.WriteLine("Neues Plugin gefunden: " & locPair.Key)
            	Console.WriteLine("Pluginname: " & locPair.Value.GetVariable("PluginName").GetValue.ToString)
            	Console.WriteLine("Pluginversion: " & locPair.Value.GetVariable("PluginVersion").GetValue.ToString)
            	locPair.Value.GetMethod("TestMethode").Invoke(New Object() {"Hallo Welt!"})
            	locPair.Value.GetMethod("RunPlugin").Invoke()
            	Dim locReturn As Object = locPair.Value.GetMethod("GetInfo").Invoke(New Object() {"Test"})
            	MsgBox(Convert.ToString(locReturn))
            	Console.WriteLine("TestMethode wurde aufgerufen")
            	Console.WriteLine("")
        	Next
        	Console.ReadKey()
        	.InvokeMethodOnAllPlugins("PluginBeenden")
    	End With

	End Sub

End Module