رفتن به مطلب
  • معتبرترین مرکز دانلود فایل های تعمیراتی گوشی های موبایل

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

ارسال شده در (ویرایش شده)

به نام خدا

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

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


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

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

:Tongue_Out_Emoji_with_Winking_Eye_Icon_42x42::Victory_Hand_Emoji_42x42:

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

  • بنر تبلیغات

×