رفتن به مطلب
تالار جی اس ام دولوپرز
جستجو در
  • تنظیمات بیشتر ...
نمایش نتایجی که شامل ...
جستجو در ...

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

به نام خدا

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

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

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

ویرایش شده توسط mrb4a1370
لینک ارسال
  • 1 ماه بعد...

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

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

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

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

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

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

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

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

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