صفحتنا على الفيس بوك
بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء الاول
+4
mohmad111
Ahmed Digital
كروس فاير45
jeff2012
8 مشترك
منتديات زيزو هاكات وشفرات ألعاب وبرامج :: هاكات ألعاب FPS :: منتدى كروس فاير CrossFire :: دروس وخدع كروس فاير CrossFire
صفحة 1 من اصل 1
بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء الاول
البرامج المطلوبة منك .. Visual Basic 2008 او 2010 NetFarmeWork 4 Source Code Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My****.Load Button1.Text = "Browse..." Label1.Text = "Waiting for users input..." Timer1.Interval = 50 Timer1.Start() End Sub Private TargetProcessHandle As Integer Private pfnStartAddr As Integer Private pszLibFileRemote As String Private TargetBufferSize As Integer Public Const PROCESS_VM_READ = &H10 Public Const TH32CS_SNAPPROCESS = &H2 Public Const MEM_COMMIT = 4096 Public Const PAGE_READWRITE = 4 Public Const PROCESS_CREATE_THREAD = (&H2) Public Const PROCESS_VM_OPERATION = (&H8) Public Const PROCESS_VM_WRITE = (&H20) Dim DLLFileName As String Public Declare Function ReadProcessMemory Lib "kernel32" ( _ ByVal hProcess As Integer, _ ByVal lp****Address As Integer, _ ByVal lpBuffer As String, _ ByVal nSize As Integer, _ ByRef lpNumberOfBytesWritten As Integer) As Integer Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _ ByVal lpLibFileName As String) As Integer Public Declare Function VirtualAllocEx Lib "kernel32" ( _ ByVal hProcess As Integer, _ ByVal lpAddress As Integer, _ ByVal dwSize As Integer, _ ByVal flAllocationType As Integer, _ ByVal flProtect As Integer) As Integer Public Declare Function WriteProcessMemory Lib "kernel32" ( _ ByVal hProcess As Integer, _ ByVal lp****Address As Integer, _ ByVal lpBuffer As String, _ ByVal nSize As Integer, _ ByRef lpNumberOfBytesWritten As Integer) As Integer Public Declare Function GetProcAddress Lib "kernel32" ( _ ByVal hModule As Integer, ByVal lpProcName As String) As Integer Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _ ByVal lpModuleName As String) As Integer Public Declare Function CreateRemoteThread Lib "kernel32" ( _ ByVal hProcess As Integer, _ ByVal lpThreadAttributes As Integer, _ ByVal dwStackSize As Integer, _ ByVal lpStartAddress As Integer, _ ByVal lpParameter As Integer, _ ByVal dwCreationFlags As Integer, _ ByRef lpThreadId As Integer) As Integer Public Declare Function OpenProcess Lib "kernel32" ( _ ByVal dwDesiredAccess As Integer, _ ByVal bInheritHandle As Integer, _ ByVal dwProcessId As Integer) As Integer Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Integer Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _ ByVal hObject As Integer) As Integer Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath) Private Sub Inject() On Error GoTo 1 ' If error occurs, app will close without any error messages Timer1.Stop() Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text) TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id) pszLibFileRemote = OpenFileDialog1.FileName pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA") TargetBufferSize = 1 + Len(pszLibFileRemote) Dim Rtn As Integer Dim LoadLibParamAdr As Integer LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE) Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0) CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0) CloseHandle(TargetProcessHandle) 1: Me.Show() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If IO.File.Exists(OpenFileDialog1.FileName) Then Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text) If TargetProcess.Length = 0 Then Me.Label1.Text = ("Waiting for " + TextBox1.Text + ".exe") Else Timer1.Stop() Me.Label1.Text = "Successfully Injected!" Call Inject() End If Else End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.Filter = "DLL (*.dll) |*.dll" OpenFileDialog1.ShowDialog() Dim FileName As String FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("")) Dim DllFileName As String = FileName.Replace("", "") Me.TextBox2.Text = (DllFileName) End Sub End Class شـــرح الفيديو . ضع رد لاظهار الرابط بعد الانتهاء من الانجكتور تذهب الي قائمة Build وتختار أول اختيار كما هو موضح بالصورة , وكمــان ممكن تحط خلفيات وده هتلاقيه في Properties من BackGround Image وديما خليك عارف ان مع التعامل هتفهم البرنامج اكتــــر . وكمان استنو عليا شوية هجبلكم جزء تانى وان شاء اللة هملا المنتدا بهاكات من تكريكى بس اخلص من 3 سنين ثانوى دول وافضا ادعولى اخلص منهم بسرعة |
jeff2012- جندى خاص
- Total posts : 49
Age : 33
Reputation : 5
Registration date : 08/09/2011
رد: بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء الاول
شكراً لك على تنزيل موضوع شرح الانجكتور
وانا هبقى أول واحد هدعيلك إنك تخلص من الثانوي والجامعي أيضاً
الله يوفقك
وانا هبقى أول واحد هدعيلك إنك تخلص من الثانوي والجامعي أيضاً
الله يوفقك
كروس فاير45- رقيب أول
- Total posts : 234
Age : 29
Location : مكة المكرمة
Job/hobbies : طالب ثانوي
Humor : مــــرتـــــاح
Reputation : 15
Registration date : 14/05/2011
رد: بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء الاول
شكرا يا باشا منور الموضوعكروس فاير45 كتب:شكراً لك على تنزيل موضوع شرح الانجكتور
وانا هبقى أول واحد هدعيلك إنك تخلص من الثانوي والجامعي أيضاً
الله يوفقك
jeff2012- جندى خاص
- Total posts : 49
Age : 33
Reputation : 5
Registration date : 08/09/2011
رد: بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء الاول
النور نورك يا معلم
كروس فاير45- رقيب أول
- Total posts : 234
Age : 29
Location : مكة المكرمة
Job/hobbies : طالب ثانوي
Humor : مــــرتـــــاح
Reputation : 15
Registration date : 14/05/2011
رد: بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء الاول
Jeff2012@
علي ما تخلص تكون كروس فاير قفلت اصلا
هههههههههه
علي ما تخلص تكون كروس فاير قفلت اصلا
هههههههههه
Ahmed Digital- مشرف منتدى كروس فاير
- Total posts : 703
Age : 29
Location : Under Your Bed
Job/hobbies : Unfortunately Student
Humor : Cooooooooooool
Reputation : 21
Registration date : 09/08/2011
رد: بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء الاول
هههههههههههههههههههههههههههAhmed Digital كتب:Jeff2012@
علي ما تخلص تكون كروس فاير قفلت اصلا
هههههههههه
lol
ماشى يا احمد مقبولة منك على كد سنك
هههههههههههههههه
jeff2012- جندى خاص
- Total posts : 49
Age : 33
Reputation : 5
Registration date : 08/09/2011
رد: بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء الاول
ghgfhgfhfghgfhgfhfhgf
mohmad111- جندى متدرب 1
- Total posts : 1
Age : 37
Reputation : 5
Registration date : 09/09/2011
madmanq8- جندى متدرب 1
- Total posts : 2
Age : 33
Reputation : 5
Registration date : 23/09/2011
kirolous- جندى متدرب 2
- Total posts : 28
Age : 26
Reputation : 5
Registration date : 31/07/2011
EVILDEAD1- جندى متدرب 2
- Total posts : 12
Age : 28
Reputation : 5
Registration date : 13/10/2011
رد: بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء الاول
اللله ينور عليك ممتاز
sayed205- جندى متدرب 1
- Total posts : 1
Age : 54
Reputation : 5
Registration date : 26/10/2011
مواضيع مماثلة
» اكبر موسوعةgame serials الجزء الاول
» ZF Injector V1 انجكتور منتديات زيزو العربى - أول انجكتور هاكات عربى - أول منتجات منتدى زيزو
» كيف تحصل على 20 ألف GP فى عشرين دقيقة فقط (بالفيديو)
» برنامج تحميل الملفات من الرابيدشير بسرعة وبدون انتظار
» والمعلومات عن اللعبة المنتظرة بفارغ الصبر FIFA 2009 !!
» ZF Injector V1 انجكتور منتديات زيزو العربى - أول انجكتور هاكات عربى - أول منتجات منتدى زيزو
» كيف تحصل على 20 ألف GP فى عشرين دقيقة فقط (بالفيديو)
» برنامج تحميل الملفات من الرابيدشير بسرعة وبدون انتظار
» والمعلومات عن اللعبة المنتظرة بفارغ الصبر FIFA 2009 !!
منتديات زيزو هاكات وشفرات ألعاب وبرامج :: هاكات ألعاب FPS :: منتدى كروس فاير CrossFire :: دروس وخدع كروس فاير CrossFire
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى