ASM看得有点晕。。

好东西 创意很好 嘿嘿收下~谢谢

阴险啊~~

好，支持开源

呵呵  谢谢分享

杀进程？

Procedure Kill(ExeName: String);
Var
  hSnapshot: THandle; //用于获得进程列表
  lppe: TProcessEntry32; //用于查找进程
  Found: Boolean; //用于判断进程遍历是否完成
  KillHandle: THandle; //用于杀死进程
Begin
  hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //获得系统进程列表
  lppe.dwSize := SizeOf(TProcessEntry32); //在调用Process32First API之前,需要初始化lppe记录的大小
  Found := Process32First(hSnapshot, lppe); //将进程列表的第一个进程信息读入lppe记录中
  While Found Do
  Begin
    If CompareText(ExeName, lppe.szExeFile) = 0 Then //判断该进程是否为KpExport.exe的进程
    Begin
           //由于我的操作系统是xp，所以在调用TerminateProcess API之前
           //我必须先获得关闭进程的权限,如果操作系统是NT以下可以直接中止进程
      KillHandle := OpenProcess(PROCESS_TERMINATE, False, lppe.th32ProcessID);
      TerminateProcess(KillHandle, 0); //强制关闭进程
      CloseHandle(KillHandle);
    End;
    Found := Process32Next(hSnapshot, lppe); //将进程列表的下一个进程信息读入lppe记录中
  End;
End;

....

  Kill('Dede.exe');

  Kill('flyODBG.exe');

....

喜欢你的技术，可是却让我恨死你这人了，玩个QQ都不让。
真是太那个啥了！ 我要当网管，非拔了你的网线不可，要不
就关了你的网络接入，让你这么霸道！ 要不就乘你不注意，弄
点水到你的机箱里。 我就不信你不死翘翘！

哈哈，别当真，开玩笑呢！ 就算是我倒的水我也不能说啊！！！哈哈哈

好东西，学习了！

不过资源占用太严重了！能否有更节省资源的方法？比如Hook相应的API是否会更好些？又或者将定时器设置触发时间长一些？

QQ改个名字?

GOOD!

佩服好地，你真厉害

谢谢共享，学习中。

我上班这有几家伙个把我的游戏删除，只装他们的游戏，就写个DLL文件放在电脑上，半小时重启一次

这算不了什么的呀！我可以SetTimer
当WM_TIMER我就EnumProcess
当发现QQ.exe进程我就，ExitProcess （QQ.exe）就行了呀！
顺便再给它设个开机自起动
实现功能很简单的。。