رفتن به مطلب
انجمن توسعه دهندگان موبایل

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

به نام خدا

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

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

پیش نیاز ها:

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

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

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

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

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

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

Screenshot (2).png

  • خب برای قسمت انتخاب فایل بوت کد زیر رو قرار میدیم.
 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")
  • مطابق تصویر زیر

Screenshot (3).png

 

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

Debug.zip

 

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

به نام خدا

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

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

پیش نیاز ها:

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

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

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

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

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

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

Screenshot (2).png

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

 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")
  • مطابق تصویر زیر

Screenshot (3).png

 

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

Debug.zip

 

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

اگه این پست بهت کمک کرد دنبال دکمه تشکر نگرد . بجاش تو هم به جامعه آزادت کمک کن.

لینک ارسال
  • 2 سال بعد...

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

لینک ارسال
  • 1 ماه بعد...

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

×
×
  • اضافه کردن...