ALIILAPRO 27 ارسال شده در 15 مرداد، ۱۳۹۸ اشتراک گذاری ارسال شده در 15 مرداد، ۱۳۹۸ (ویرایش شده) به نام خدا سلام در این اموزش یاد میگیرید که یه برنامه برای تولید 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 ویرایش شده 15 مرداد، ۱۳۹۸ توسط ALIILAPRO aliilapro.ml bypassnet.ml واکنش ها : ILYA20، RaminGsm و sajjad-ali 3 نقل قول لینک ارسال
مدیریت کل سایت ILYA20 2087 ارسال شده در 15 مرداد، ۱۳۹۸ مدیریت کل سایت اشتراک گذاری ارسال شده در 15 مرداد، ۱۳۹۸ در 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 هست لامصب دات نت قشنگ دیکامپایل میشه الا نگاه میکنم خندم میگیره اگه این پست بهت کمک کرد دنبال دکمه تشکر نگرد . بجاش تو هم به جامعه آزادت کمک کن. واکنش ها : RaminGsm و mrb4a1370 2 نقل قول لینک ارسال
ALIILAPRO 27 ارسال شده در 16 مرداد، ۱۳۹۸ مالک اشتراک گذاری ارسال شده در 16 مرداد، ۱۳۹۸ در 4 ساعت قبل، ILYA20 گفته است : این کد مال نسخه ۱ نرم افزار gsd هست لامصب دات نت قشنگ دیکامپایل میشه الا نگاه میکنم خندم میگیره aliilapro.ml bypassnet.ml واکنش ها : RaminGsm 1 نقل قول لینک ارسال
mrb4a1370 2 ارسال شده در 4 شهریور، ۱۴۰۰ اشتراک گذاری ارسال شده در 4 شهریور، ۱۴۰۰ (ویرایش شده) خیلی ممنون بابت این آموزشها واقعا آموزشهاتون حرف نداره خسته نباشید امیدوارم باز هم ادامه بدید.فقط شما اینجا فایل boot.img رو میسازین ولی چطور ویرایشش میکنیم تا قفل صفحهرو باز کنه.فایلی که پیوست کردید هم مشکل داره عزیز. ویرایش شده 4 شهریور، ۱۴۰۰ توسط mrb4a1370 نقل قول لینک ارسال
mrb4a1370 2 ارسال شده در 18 مهر، ۱۴۰۰ اشتراک گذاری ارسال شده در 18 مهر، ۱۴۰۰ ببخشید این فایل پیسوستی مشکل دارهو باز نمیشه نقل قول لینک ارسال
ارسال های توصیه شده
به گفتگو بپیوندید
هم اکنون می توانید مطلب خود را ارسال نمایید و بعداً ثبت نام کنید. اگر حساب کاربری دارید، برای ارسال با حساب کاربری خود اکنون وارد شوید .