پست های پیشنهاد شده

به نام خدا

سلام در این اموزش یاد میگیرید که یه برنامه برای تولید 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

 

ویرایش شده توسط ALIILAPRO

به اشتراک گذاری این ارسال


لینک به ارسال
در 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 هست لامصب دات نت قشنگ دیکامپایل میشه الا نگاه میکنم خندم میگیره 


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

My Twitter

به اشتراک گذاری این ارسال


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

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

:Tongue_Out_Emoji_with_Winking_Eye_Icon_42x42::Victory_Hand_Emoji_42x42:

به اشتراک گذاری این ارسال


لینک به ارسال

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

هم اکنون می توانید مطلب خود را ارسال نمایید و بعداً ثبت نام کنید. اگر حساب کاربری دارید، برای ارسال با حساب کاربری خود اکنون وارد شوید .

مهمان
ارسال پاسخ به این موضوع ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   بازگردانی قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به صورت لینک

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.