+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ما سبب هذه الرسالة عند تشغيل البرنامج (/showthread.php?tid=21842)
ما سبب هذه الرسالة عند تشغيل البرنامج - D-Z - 22-09-17
السلام عليكم
رايد حل هاذي المشكلة
عند تشغيل البرنامج مع العبة يظهر خطا ويتم غلق البرنامج
صورة المشكلة
وشكرا
RE: ماهية سب هاذي الرسالة عند تشغيل البرنامج - D-Z - 23-09-17
(23-09-17, 02:43 AM)Amir_alzubidy كتب : و عليكم السلام و رحمة الله
لا اعلم ما هي نواة نسخة الويندوز التي لديك
لكن على اي حال قم بتغييرها الى نواة 64 bit
هوة اني نظامي 64 bit ويندوز 7
RE: ما سبب هذه الرسالة عند تشغيل البرنامج - سعود - 23-09-17
في الغالب توجد اضافة غير موجودة مثلا ...wmp او اي شي من هذا القبيل.
RE: ما سبب هذه الرسالة عند تشغيل البرنامج - alsouf - 23-09-17
اظهر التفاصيل في الزر اسفل النافذة
و الظاهر المشكل هي عدم التوافق بالنسبة لاطار العمل
RE: ما سبب هذه الرسالة عند تشغيل البرنامج - D-Z - 23-09-17
شغلت الرنامج من داخل الفيجوال ستديو 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
او هاي صورة للمشكلة
RE: ما سبب هذه الرسالة عند تشغيل البرنامج - wale90 - 23-09-17
ملاحظ في الكودReadProcessMemory و WriteProcessMemory
واعتقد المشكلة في ان المشروع ليس لديه صلاحية
اجعل البرنامج له صلاحية مسؤول
او اضغط على ملف التشغيل بالزر اليمين للماوس واختار Run As Administrator
RE: ما سبب هذه الرسالة عند تشغيل البرنامج - D-Z - 23-09-17
(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)
وضعت هذا الرد لكي اجد الحل هل المشكلة في الكلاس او الفنكتاون