[Dr.Virus]

السلام عليكم أخي انا يعني الحمد لله توصلت لكود بسيط لكن به خطأ فياريت تصحيح الخطا أخواني

كود :

Dim X() As Byte = File.ReadAllBytes("D:\1.EXE")
Dim O As Object = Reflection.Assembly.Load(X)

Try
    O.Start()  
Catch ex As Exception
   MsgBox(ex.Message)
End Try
O.EntryPoint.Invoke(Nothing, Nothing)
Threading.Thread.Sleep(1000)

الخطأ هنا بيظهر في السطر الذي به الكود
O.Start()