Advertisement
Guest User

Untitled

a guest
Mar 28th, 2012
528
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.24 KB | None | 0 0
  1. Proc1 = xxd.xem
  2. Proc2 = xsherlock.xem
  3.  
  4. ;----------------------------------------------------------------------------------------------------
  5.  
  6. Process, Priority, , High
  7. SetBatchLines, -1
  8. Params = %1%
  9. If Params {
  10. Process, Wait, %Proc2%
  11. ProcSus(Proc2)
  12. } Else {
  13. Run, "%A_AhkPath%" "%A_ScriptFullPath%" berban
  14. Process, Wait, %Proc1%
  15. ProcSus(Proc1)
  16. Process, Wait, %Proc2%
  17. MsgBox, 262144, %A_ScriptName%: Alert, Processes have been suspended!`n`nPress OK when you are done cheating :)
  18. ProcRes(Proc1), ProcRes(Proc2)
  19. }
  20.  
  21. ExitApp
  22.  
  23. ;=============================================[Std.ahk]=============================================
  24.  
  25. ProcSus(PID_or_Name)
  26. {
  27. If InStr(PID_or_Name, ".") {
  28. Process, Exist, %PID_or_Name%
  29. PID_or_Name := ErrorLevel
  30. }
  31. If !(h := DllCall("OpenProcess", "uInt", 0x1F0FFF, "Int", 0, "Int", PID_or_Name))
  32. Return -1
  33. DllCall("ntdll.dll\NtSuspendProcess", "Int", h), DllCall("CloseHandle", "Int", h)
  34. }
  35.  
  36. ProcRes(PID_or_Name)
  37. {
  38. If InStr(PID_or_Name, ".") {
  39. Process, Exist, %PID_or_Name%
  40. PID_or_Name := ErrorLevel
  41. }
  42. If !(h := DllCall("OpenProcess", "uInt", 0x1F0FFF, "Int", 0, "Int", PID_or_Name))
  43. Return -1
  44. DllCall("ntdll.dll\NtResumeProcess", "Int", h), DllCall("CloseHandle", "Int", h)
  45. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement