منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(23-09-17, 02:43 AM)Amir_alzubidy كتب : [ -> ]و عليكم السلام و رحمة الله
لا اعلم ما هي نواة نسخة الويندوز التي لديك
لكن على اي حال قم بتغييرها الى نواة 64 bit

هوة اني نظامي 64 bit ويندوز 7

في الغالب توجد اضافة غير موجودة مثلا ...wmp او اي شي من هذا القبيل.

اظهر التفاصيل في الزر اسفل النافذة
و الظاهر المشكل هي عدم التوافق بالنسبة لاطار العمل

شغلت الرنامج من داخل الفيجوال ستديو 2012
او طلعت المشكلة ابهذا الكود

Imports System
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Public Class MemAPI
   <DllImport("kernel32.dll")> _
   Private Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As Integer, <Out()> _
   ByVal lpBuffer As Byte(), ByVal nSize As Integer, ByVal lpNumberOfBytesRead As Byte) As Boolean
   End Function

   <DllImport("kernel32.dll")> _
   Private Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As Integer, _
   ByVal lpBuffer As Byte(), ByVal nSize As Integer, ByVal lpNumberOfBytesWritten As Byte) As Boolean
   End Function

   Public Shared Function Peek(ByVal proc As Process, ByVal address As Integer, ByVal data As Byte()) As Boolean
       Return ReadProcessMemory(proc.Handle, address, data, data.Length, 0)
   End Function

   Public Shared Function Poke(ByVal proc As Process, ByVal address As Integer, ByVal data As Byte()) As Boolean
       Return WriteProcessMemory(proc.Handle, address, data, data.Length, 0)
   End Function
End Class

او هاي صورة للمشكلة

ملاحظ في الكودReadProcessMemory و WriteProcessMemory
واعتقد المشكلة في ان المشروع ليس لديه صلاحية

اجعل البرنامج له صلاحية مسؤول
او اضغط على ملف التشغيل بالزر اليمين للماوس واختار Run As Administrator

(23-09-17, 10:28 PM)wale90 كتب : [ -> ]ملاحظ في الكودReadProcessMemory و WriteProcessMemory
واعتقد المشكلة في ان المشروع ليس لديه صلاحية

اجعل البرنامج له صلاحية مسؤول
او اضغط على ملف التشغيل بالزر اليمين للماوس واختار Run As Administrator

شغلت البرنامج كمسؤول لاكن نفس المشكلة 
اريد معرفة ماهية المشكلة في الكود لان الكود يعتمد على جميع الاكواد الموجودة في الفورم

---

او هذا الكود يقرا الكود الفوق الذي فية المشكلة
Private Function Commander() As Boolean
Dim flag As Boolean
Dim address As Integer = Me.Adr_Commander
Dim data As Byte() = New Byte() {&HB0, 1, &H90, &H90, &H90, &H90}
MemAPI.Poke(Me.mGameProcess, address, data)
Return flag
End Function

وهذا السطر هوة مربوط مع الكلاس
MemAPI.Poke(Me.mGameProcess, address, data)
وضعت هذا الرد لكي اجد الحل هل المشكلة في الكلاس او الفنكتاون