Is there a way to know what functions exist in a DLL or EXE?

[PT Exorcist]

is that possible? and if yes, is it possible to know their parameters?

[Cander]

yes..and yes

this should get you stated

Imports System
Imports System.Reflection

Public Module DLLReport
	Public Sub Main(ByVal args() As String)
		LoadDLL(args(0))
	
	End Sub
	
	Public Sub LoadDLL(ByVal filename As String)
		Dim asm As [Assembly]     ' Assembly is reserved vb word so use the brackets to override
		Dim myClasses() As Type
		Dim myMethods() As MethodInfo
		Dim myEvents() As EventInfo
		Dim myProperties() As PropertyInfo
		Dim myParameters() As ParameterInfo
		
		Dim myTypes As Type
		Dim myMethodInfo As MethodInfo
		Dim myEventInfo As EventInfo
		Dim myPropertyInfo As PropertyInfo
		Dim myParameterInfo As ParameterInfo
		
		asm = [Assembly].LoadFrom(filename)
		If Not(asm Is Nothing) Then
			myClasses = asm.GetTypes()
		End If
		
		For Each myTypes In myClasses
			' Output Classname
			Console.Writeline(myTypes.ToString())
			
			' Lets get all methods(sub and function) from this class
			myMethods = myTypes.GetMethods()
			For Each myMethodInfo In myMethods
				Console.Writeline("---Method---" & myMethodInfo.Name & " Returns " & myMethodInfo.ReturnType.ToString())
				
				' Now lets get the Parameters for this method
				myParameters = myMethodInfo.GetParameters()
				For Each myParameterInfo In myParameters
					Console.WriteLine("    ---Parameter---" & myParameterInfo.Name & " As " & myParameterInfo.ParameterType.ToString())	
				Next myParameterInfo
			Next myMethodInfo
			
			' Lets get all events
			myEvents = myTypes.GetEvents()
			For Each myEventInfo In myEvents
				Console.Writeline("---Event---" & myEventInfo.Name)
			Next myEventInfo
			
			' Lets get all properties
			myProperties = myTypes.GetProperties()			
			For Each myPropertyInfo In myProperties
				Console.Writeline("---Properties---" & myPropertyInfo.Name & " As " & myPropertyInfo.PropertyType.ToString())
			Next myPropertyInfo
		Next myTypes
	End Sub
End Module

you can compile that to an exe and pass in a dll filename and path as a command line parameter to see it work

[PT Exorcist]

hmmm i antecipated and got a example of a friend...and then i tryed to make that by myself but i am getting an error...i have the following code:

Plugin Code

Imports System
Imports System.ComponentModel
 
Public Class MathSystem
 
    Public Function Somar(ByVal numero1 As Integer, ByVal numero2 As Integer) As Integer
        Return numero1 + numero2
    End Function
 
    Public Function Subtrair(ByVal numero1 As Integer, ByVal numero2 As Integer) As Integer
        Return numero1 - numero2
    End Function
 
    Public Function Multiplicar(ByVal numero1 As Integer, ByVal numero2 As Integer) As Integer
        Return numero1 * numero2
    End Function
 
    Public Function Dividir(ByVal numero1 As Integer, ByVal numero2 As Integer) As Integer
        Return numero1 \ numero2
    End Function
 
End Class

Program code:

Dim MeuAssembly As [Assembly]
    Dim obj As Object
    Dim Estructura As Type
    Dim MeuMetodo As MethodInfo
    Dim args(1) As Object
    Dim ValorRetorno As Object
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MeuAssembly = [Assembly].Load("plugintest123")
        Estructura = MeuAssembly.GetType("plugintest123.MathSystem")
        MeuMetodo = Estructura.GetMethod("Somar")
        obj = Activator.CreateInstance(Estructura)
        args(0) = TextBox1.Text 'this is 10
        args(1) = TextBox2.Text 'this is 10
        [b]ValorRetorno = MeuMetodo.Invoke(obj, BindingFlags.Public Or BindingFlags.InvokeMethod, Nothing, args, Nothing)[/b]
        MsgBox(ValorRetorno)
    End Sub

i am getting error in the bold line

[PT Exorcist]

ah the error says:
An unhandled exception of type 'System.ArgumentException' occurred in mscorlib.dll

Additional information: Cannot widen from target type to primitive type.

[Cander]

what error do you get
?

[Cander]

try declaring ValorRetorno As integer
then

ValorRetorno = CType(MeuMetodo.Invoke(obj, BindingFlags.Public Or BindingFlags.InvokeMethod, Nothing, args, Nothing), Integer)

[PT Exorcist]

hmm ill try

[PT Exorcist]

same error..any ideas..? lol

[PT Exorcist]

here is the code if u want to see it