في فرق من برنامج الى اخر على حسب قيمتة بالرجستري يجب عليك فهم بعض خواص الريجستري
ضع الأمر التالي :
كود :
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 كتب :وهذا مثال جاهز من الإنترنت حمل من هنا
بعد تطبيق المثال على برنامج الكاسبر لم يغلق البرنامج هل من حل اخي الكريم ؟
شاهد الصورة لتوضيح ذلك
عن طريق المثال الذي وضعت انت ؟
الكاسبر عليه حماية ولا يمكن إغلاقه بواسطة برنامج آخر على ما أعتقد (ربما يمكك إغلاقه إذا شغلت المثال كمسوؤول)
اخي الكريم لا يختلف اثنان انك تريد تصميم فايروس