منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(23-03-14, 06:48 PM)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()