منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف اجبر التطبيق على التوقف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اجبر التطبيق على التوقف (/showthread.php?tid=6678)

الصفحات: 1 2


كيف اجبر التطبيق على التوقف - SaLoOoMX - 27-10-12

في فرق من برنامج الى اخر على حسب قيمتة بالرجستري يجب عليك فهم بعض خواص الريجستري


كيف اجبر التطبيق على التوقف - Osama_Ghareeb - 27-10-12

ضع الأمر التالي :
كود :
Public Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As Int32) As Int32
    Public Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As Int32) As Int32
    Public Declare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccess As Int32, ByVal bInheritHandle As Int32, ByVal dwThreadId As Int32) As Int32
    Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Int32) As Int32
    Public Function Thread_GetHandle(ByVal ThreadID As Integer) As IntPtr
        Return OpenThread(ThreadAccess.SUSPEND_RESUME, False, ThreadID)
    End Function
    <Flags()> _
  Public Enum ThreadAccess As Integer
        TERMINATE = (&H1)
        SUSPEND_RESUME = (&H2)
        GET_CONTEXT = (&H8)
        SET_CONTEXT = (&H10)
        SET_INFORMATION = (&H20)
        QUERY_INFORMATION = (&H40)
        SET_THREAD_TOKEN = (&H80)
        IMPERSONATE = (&H100)
        DIRECT_IMPERSONATION = (&H200)
    End Enum


بعدين إذا بدك توقف مثلا برنامج المفكرة :
كود :
Dim Proc As Process = Process.GetProcessesByName("[color=#ff0000]notepad[/color]")(0)
        For Each thread As ProcessThread In Proc.Threads
            SuspendThread(Thread_GetHandle(thread.Id))
        Next

ولإعادة تشغيلها :
كود :
Dim Proc As Process = Process.GetProcessesByName("[color=#ff0000]notepad[/color]")(0)
        For Each thread As ProcessThread In Proc.Threads
            ResumeThread(Thread_GetHandle(thread.Id))
        Next


بالتوفيق


كيف اجبر التطبيق على التوقف - Osama_Ghareeb - 27-10-12

وهذا مثال جاهز من الإنترنت حمل من هنا


كيف اجبر التطبيق على التوقف - محترف البرمجة اوي - 28-10-12

Osama_Ghareeb كتب :وهذا مثال جاهز من الإنترنت حمل من هنا


بعد تطبيق المثال على برنامج الكاسبر لم يغلق البرنامج هل من حل اخي الكريم ؟

شاهد الصورة لتوضيح ذلك
عن طريق المثال الذي وضعت انت ؟




كيف اجبر التطبيق على التوقف - Osama_Ghareeb - 28-10-12

الكاسبر عليه حماية ولا يمكن إغلاقه بواسطة برنامج آخر على ما أعتقد (ربما يمكك إغلاقه إذا شغلت المثال كمسوؤول)


كيف اجبر التطبيق على التوقف - aiman - 28-10-12

اخي الكريم لا يختلف اثنان انك تريد تصميم فايروس