تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج مساعدة فى تعديل كود بسيط Mohamed Magdy 5 42 أمس, 04:30 AM
آخر رد: elgokr
  [VB.NET] المساعدة في تعديل كود farfour 1 29 15-11-18, 06:18 PM
آخر رد: elgokr
  تعديل التاريخ من اليمين لليسار في الكريستال ريبورت جيولوجي مبتدئ 1 50 13-11-18, 01:05 AM
آخر رد: عبد العزيز البسكري
  مشكلة في الكود salahmax12 4 140 08-11-18, 08:36 PM
آخر رد: salahmax12
  [سؤال] طلب تعديل علي كود سكرين شوت ScreamVoice 2 70 08-11-18, 06:17 PM
آخر رد: ScreamVoice
  محتاج مساعدة فى كتابة الكود احمد خطاب 6 126 06-11-18, 09:21 PM
آخر رد: احمد خطاب
  سؤال في الكود مهم لو سمحتم احمد خطاب 14 233 05-11-18, 06:57 PM
آخر رد: احمد خطاب
  [سؤال] طلب تعديل علي رابط موقع داخل الكود ScreamVoice 2 77 04-11-18, 01:22 PM
آخر رد: ScreamVoice
  طلب تعديل كود ahmedmansour 3 96 01-11-18, 12:07 AM
آخر رد: elgokr
  هناك خطأ فى هذا الكود خالد كامل1 4 110 29-10-18, 06:02 PM
آخر رد: elgokr

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


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