Rvsecurity Samsung Builder

ALIILAPRO · 6 آبان، 2019

به نام خدا

سلام در این اموزش یاد میگیرید که یه برنامه برای تولید Rvsecurity محصولات سامسونگ درست کنید

---------------------------------------------------------------------------

پیش نیاز ها:

داشتن سیستم مناسب برای برنامه نویسی
نصب برنامه ویژوال استودیو
اشنایی به زبان ویژوال بیسیک

--------------------------------------------------------------------------

خب میریم سراغ اموزش

قبل اموزش میتونید از اینجا

اموزش ساخت پروژه در ویژوال استودیو رو مشاهده کنید

یه پروژه به نام دلخواه ایجاد میکنیم و به فرم اصلی برنامه دو تا button و دوتا textbox اضافه میکنیم.

خب برای قسمت انتخاب فایل بوت کد زیر رو قرار میدیم.

 Me.OpenFileDialog1.FileName = "Select Boot.IMG File"
        Me.OpenFileDialog1.Filter = "Boot.IMG|boot.img|All File|*.*"
        If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Me.TextBoxRvsecSam.Text = Me.OpenFileDialog1.FileName
            Me.TextBoxRvsecSam.Enabled = True

و کد زیر رو برای ساخت فایل قرار میدیم.

 Me.TextBox1.Clear()
        If Strings.Trim(Me.TextBoxRvsecSam.Text).Length > 0 Then
            Dim path As String = "output\"
            If Not Directory.Exists(path) Then
                Directory.CreateDirectory(path)
            End If
            Me.TextBox1.AppendText(Environment.NewLine + "Removing Old Project ...")
            If File.Exists("tmp\boot.img") Then
                MyProject.Computer.FileSystem.DeleteFile("tmp\Boot.img")
            End If
            Dim text As String = Me.TextBoxRvsecSam.Text
            Dim destFileName As String = "tmp\boot.img"
            If File.Exists(text) Then
                File.Copy(text, destFileName)
            End If
            Me.TextBox1.AppendText(Environment.NewLine + "Copying SAMSUNG file ...")
            If File.Exists("boot.img") Then
                MyProject.Computer.FileSystem.DeleteFile("Boot.img")
            End If
            Dim text2 As String = "tmp\boot.img"
            Dim destFileName2 As String = "boot.img"
            If File.Exists(text2) Then
                File.Copy(text2, destFileName2)
            End If
            If File.Exists("d.exe") Then
                MyProject.Computer.FileSystem.DeleteFile("d.exe")
            End If
            Me.TextBox1.AppendText(Environment.NewLine + "Extracting SAMSUNG Kernel ...")
            Dim text3 As String = "bin\d.exe"
            Dim destFileName3 As String = "d.exe"
            If File.Exists(text3) Then
                File.Copy(text3, destFileName3)
            End If
            Me.TextBox1.AppendText(Environment.NewLine + "modifying SAMSUNG Kernel ...")
            Dim process As Process = New Process()
            process.StartInfo = New ProcessStartInfo("d.exe") With {.UseShellExecute = False, .RedirectStandardOutput = True}
            process.Start()
            Using standardOutput As StreamReader = process.StandardOutput
                standardOutput.ReadToEnd()
            End Using
            Me.TextBox1.AppendText(Environment.NewLine + "modifying : Ok")
            If File.Exists("rip.exe") Then
                MyProject.Computer.FileSystem.DeleteFile("rip.exe")
            End If
            If File.Exists("modify.exe") Then
                MyProject.Computer.FileSystem.DeleteFile("modify.exe")
            End If
            Me.TextBox1.AppendText(Environment.NewLine + "Adding seandroid force ...")
            Me.TextBox1.AppendText(Environment.NewLine + "Done !")
            Me.TextBox1.AppendText(Environment.NewLine + "Creat RvSecuRitY Done ;-)")
            Me.TextBox1.AppendText(Environment.NewLine + "Please open the output folder and then flash the kernel by Odin Samsung Flasher")
            Process.Start("output")
            If File.Exists("d.exe") Then
                MyProject.Computer.FileSystem.DeleteFile("d.exe")
            End If
            Return
        End If
        Me.TextBox1.AppendText(Environment.NewLine + "You have Not selected a file. Please select a file then try again")

مطابق تصویر زیر

خب برنامه اماده هست .اما یسری فایل برای اجرا نیازه که همراه با یه مثال ساخته شده از طریق همین اموزش در ادامه برای دانلود در اختیار شما گذاشته میشه

Debug.zip

ویرایش شده 6 آبان، 2019 توسط ALIILAPRO

ILYA20 · 6 آبان، 2019

در 26 دقیقه قبل، ALIILAPRO گفته است :

به نام خدا

سلام در این اموزش یاد میگیرید که یه برنامه برای تولید Rvsecurity محصولات سامسونگ درست کنید

---------------------------------------------------------------------------

پیش نیاز ها:

داشتن سیستم مناسب برای برنامه نویسی
نصب برنامه ویژوال استودیو
اشنایی به زبان ویژوال بیسیک

--------------------------------------------------------------------------

خب میریم سراغ اموزش

قبل اموزش میتونید از اینجا

اموزش ساخت پروژه در ویژوال استودیو رو مشاهده کنید

یه پروژه به نام دلخواه ایجاد میکنیم و به فرم اصلی برنامه دو تا button و دوتا textbox اضافه میکنیم.

خب برای قسمت انتخاب فایل بوت کد زیر رو قرار میدیم.

 Me.OpenFileDialog1.FileName = "Select Boot.IMG File"
        Me.OpenFileDialog1.Filter = "Boot.IMG|boot.img|All File|*.*"
        If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Me.TextBoxRvsecSam.Text = Me.OpenFileDialog1.FileName
            Me.TextBoxRvsecSam.Enabled = True

و کد زیر رو برای ساخت فایل قرار میدیم.

 Me.TextBox1.Clear()
        If Strings.Trim(Me.TextBoxRvsecSam.Text).Length > 0 Then
            Dim path As String = "output\"
            If Not Directory.Exists(path) Then
                Directory.CreateDirectory(path)
            End If
            Me.TextBox1.AppendText(Environment.NewLine + "Removing Old Project ...")
            If File.Exists("tmp\boot.img") Then
                MyProject.Computer.FileSystem.DeleteFile("tmp\Boot.img")
            End If
            Dim text As String = Me.TextBoxRvsecSam.Text
            Dim destFileName As String = "tmp\boot.img"
            If File.Exists(text) Then
                File.Copy(text, destFileName)
            End If
            Me.TextBox1.AppendText(Environment.NewLine + "Copying SAMSUNG file ...")
            If File.Exists("boot.img") Then
                MyProject.Computer.FileSystem.DeleteFile("Boot.img")
            End If
            Dim text2 As String = "tmp\boot.img"
            Dim destFileName2 As String = "boot.img"
            If File.Exists(text2) Then
                File.Copy(text2, destFileName2)
            End If
            If File.Exists("d.exe") Then
                MyProject.Computer.FileSystem.DeleteFile("d.exe")
            End If
            Me.TextBox1.AppendText(Environment.NewLine + "Extracting SAMSUNG Kernel ...")
            Dim text3 As String = "bin\d.exe"
            Dim destFileName3 As String = "d.exe"
            If File.Exists(text3) Then
                File.Copy(text3, destFileName3)
            End If
            Me.TextBox1.AppendText(Environment.NewLine + "modifying SAMSUNG Kernel ...")
            Dim process As Process = New Process()
            process.StartInfo = New ProcessStartInfo("d.exe") With {.UseShellExecute = False, .RedirectStandardOutput = True}
            process.Start()
            Using standardOutput As StreamReader = process.StandardOutput
                standardOutput.ReadToEnd()
            End Using
            Me.TextBox1.AppendText(Environment.NewLine + "modifying : Ok")
            If File.Exists("rip.exe") Then
                MyProject.Computer.FileSystem.DeleteFile("rip.exe")
            End If
            If File.Exists("modify.exe") Then
                MyProject.Computer.FileSystem.DeleteFile("modify.exe")
            End If
            Me.TextBox1.AppendText(Environment.NewLine + "Adding seandroid force ...")
            Me.TextBox1.AppendText(Environment.NewLine + "Done !")
            Me.TextBox1.AppendText(Environment.NewLine + "Creat RvSecuRitY Done ;-)")
            Me.TextBox1.AppendText(Environment.NewLine + "Please open the output folder and then flash the kernel by Odin Samsung Flasher")
            Process.Start("output")
            If File.Exists("d.exe") Then
                MyProject.Computer.FileSystem.DeleteFile("d.exe")
            End If
            Return
        End If
        Me.TextBox1.AppendText(Environment.NewLine + "You have Not selected a file. Please select a file then try again")

مطابق تصویر زیر

خب برنامه اماده هست .اما یسری فایل برای اجرا نیازه که همراه با یه مثال ساخته شده از طریق همین اموزش در ادامه برای دانلود در اختیار شما گذاشته میشه

Debug.zip

این کد مال نسخه ۱ نرم افزار gsd هست لامصب دات نت قشنگ دیکامپایل میشه الا نگاه میکنم خندم میگیره

ALIILAPRO · 6 آبان، 2019

در 4 ساعت قبل، ILYA20 گفته است :

این کد مال نسخه ۱ نرم افزار gsd هست لامصب دات نت قشنگ دیکامپایل میشه الا نگاه میکنم خندم میگیره

:Tongue_Out_Emoji_with_Winking_Eye_Icon_42x42: :Victory_Hand_Emoji_42x42:

mrb4a1370 · 26 آبان، 2021

خیلی ممنون بابت این آموزشها واقعا آموزشهاتون حرف نداره خسته نباشید امیدوارم باز هم ادامه بدید.فقط شما اینجا فایل boot.img رو میسازین ولی چطور ویرایشش میکنیم تا قفل صفحهرو باز کنه.فایلی که پیوست کردید هم مشکل داره عزیز.

ویرایش شده 26 آبان، 2021 توسط mrb4a1370

mrb4a1370 · 10 دی، 2021

ببخشید این فایل پیسوستی مشکل دارهو باز نمیشه

ورود

Rvsecurity Samsung Builder

ارسال های توصیه شده

ALIILAPRO 27

لینک ارسال

ILYA20 2,075

لینک ارسال

ALIILAPRO 27

لینک ارسال

mrb4a1370 2

لینک ارسال

mrb4a1370 2

لینک ارسال

به گفتگو بپیوندید

فعالیت ها