vb.net اسهل طريقة لجلب مقبض للعملية لاستخدامه في winAPI

[SEMO.Pa3x]

السلام عليكم، احببت ان اوضح لكم اسهل طريقة لجلب مقبض لاي عملية في الدوت نت
ما فائدة المقبض؟ بواسطة المقبض سنتمكن من التحكم بالوافذ الاخرى عن طريق winAPI

[ الطريقة الاولى: الاسهل والاسرع جلب المقبض عن طريق اسم العملية ]

 

Dim xNameProcess As Process = Process.GetProcessesByName("Process Name")(0)
  MsgBox(Process.GetProcessById(xNameProcess.Id).Handle)
' SEMO.Pa3x
' Skype: security.najaf

استبدل كلمة "Process Name" بإسم عمليتك المراد جلب المقبض لها..

[ الطريقة الثانية: طويلة شوي وايضا تحتاج الى اسم العملية وهي عن طريق دالة OpenProcess ]
 

مثال على استخدام دالتي [ Suspend/Resume Process ] ايقاف العملية واستئناف العملية

 

' SEMO.Pa3x
' Skype: security.najaf
 
<DllImport("NTDLL")> _
Public Shared Function NtSuspendProcess(ByVal hProc As IntPtr) As IntPtr
End Function
<DllImport("NTDLL")> _
Public Shared Function NtResumeProcess(ByVal hProc As IntPtr) As IntPtr
End Function
Sub main()
Dim xNameProcess As Process = Process.GetProcessesByName("Process name")(0)
 
' SuspendProcess
NtSuspendProcess(Process.GetProcessById(xNameProcess.Id).Handle)
 
' ResumeProcess
NtResumeProcess(Process.GetProcessById(xNameProcess.Id).Handle)
End Sub

 

بالتوفيق.

تم تعديل أبريل 8, 2019 بواسطه SEMO.Pa3x