تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل هذا الكود
#1
كود :
<DllImport("kernel32", EntryPoint:="ReadProcessMemory", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function ReadProcessMemory1(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    End Function
كود :
Public Shared Function ReadLong(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Long
        Dim num2 As Long
        Dim num3 As Long
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim processesByName As Process() = Process.GetProcessesByName(ProcessName)
        If (processesByName.Length = 0) Then
            MessageBox.Show((ProcessName & " isn't open!"))
            Return num2
        End If
        Dim ptr As IntPtr = DirectCast(ReadWritingMemory.OpenProcess(&H1F0FF, 0, processesByName(0).Id), IntPtr)
        If (ptr = IntPtr.Zero) Then
            MessageBox.Show(("Failed to open " & ProcessName & "!"))
            Return num2
        End If
        Dim lpBaseAddress As Integer = Address
        Dim lpNumberOfBytesWritten As Integer = 0
        ReadWritingMemory.ReadProcessMemory3(CInt(ptr), lpBaseAddress, num3, nsize, lpNumberOfBytesWritten)
        Return num3
    End Function
المشكله فى
كود :
Dim ptr As IntPtr = DirectCast(ReadWritingMemory.OpenProcess(&H1F0FF, 0, processesByName(0).Id), IntPtr)
مع انى دايف
كود :
<DllImport("kernel32", EntryPoint:="ReadProcessMemory", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function ReadProcessMemory3(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    End Function
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بسيط dasktop 1 66 11-09-18, 02:53 AM
آخر رد: elgokr
  [VB.NET] اظهار رسالة في الكود الحفظ Mahamed112 1 52 10-09-18, 12:26 PM
آخر رد: boudyonline
  التعديل على الكود dasktop 3 110 09-09-18, 06:57 AM
آخر رد: elgokr
  طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل essawq 9 205 05-09-18, 11:22 PM
آخر رد: essawq
  [سؤال] مشكلة في الكود في كيفية البحث داخل الداتا جريد من خلال صندوق نصي ؟ dametucorazon 1 98 02-09-18, 10:26 AM
آخر رد: elgokr
  الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس wolf1120 17 423 22-08-18, 10:18 PM
آخر رد: elgokr
  [VB.NET] محتاج تعديل بسيط على الكود dubai.eig 5 146 17-08-18, 03:01 AM
آخر رد: elgokr
  [VB.NET] تعديل علي الكود دموع الوطن 10 278 08-08-18, 09:19 AM
آخر رد: elgokr
  [VB.NET] تعديل قاعدة البيانات محمد اسماعيل 7 228 18-07-18, 07:26 PM
آخر رد: elgokr
  [سؤال] تنفيذ الكود اللى عليه Checked ابو روضة 11 367 10-07-18, 06:06 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم