刚注册，不能发贴子，借一步说话
在线急等：按ALT+TAB切出游戏死机:
网吧老有人非法上网，于是想搞个监控网管软件的小东西，可是编译后能起到正常监视edyClient.exe（其实是万象网管客户端，在附件里我用记事本代替），现在是不能非法上网了，但是程序在98下运行只要一按ALT+TAB切出“网络游戏”电脑就会死机。在线急等解决方法。
Internot.exe监视edyClient.exe和Internvt.exe，只要结束了edyClient.exe或Internvt.exe ，edyClient.exe和Internvt.exe又会行。
然后：
Internvt.exe监视edyClient.exe和Internot.exe，只要结束了edyClient.exe或Internot.exe ，edyClient.exe和Internot.exe又会行。
源代码如下：附件为编译好的软件
附件1:
http://delxp.go.nease.net/bak.rar
附件2:
http://page.freett.com/freexp/pic/bak.rar
--------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls,Tlhelp32,registry,inifiles, StdCtrls;
type
TForm1 = class(TForm)
tmr2: TTimer;
Function KillTask(ExeFileName: string): integer;
procedure FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
procedure FormActivate(Sender: TObject);
procedure tmr2Timer(Sender: TObject);
private
ID,ID1:Integer;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ini:tinifile;
const RSP_SIMPLE_SERVICE=1;
function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord;
stdcall;
external 'KERNEL32.DLL';
implementation
{$R *.dfm}
function tform1.KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);
while integer(ContinueLoop) <> 0do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile))=
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
end;
end;
function FindProcessName:THandle;
var
lppe:tprocessentry32;
sshandle:thandle;
found:boolean;
begin
result:=0;
sshandle:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
found:=process32first(sshandle,lppe);
while founddo
begin
if ansiComparetext(ExtractFileName(lppe.szExeFile),'edyClient.exe')=0 then
begin
result:=lppe.th32ProcessID;
break;
end;
found:=process32next(sshandle,lppe);
end;
closehandle(sshandle);
end;
function xxxxx:THandle;
var
lppe:tprocessentry32;
sshandle:thandle;
found:boolean;
begin
result:=0;
sshandle:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
found:=process32first(sshandle,lppe);
while founddo
begin
if ansiComparetext(ExtractFileName(lppe.szExeFile),'Internvt.exe')=0 then
begin
result:=lppe.th32ProcessID;
break;
end;
found:=process32next(sshandle,lppe);
end;
closehandle(sshandle);
end;
procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
var
akey:Integer;
iRtn:Shortint;
begin
aKey := VK_MENU;
iRtn := GetKeyState(akey);
if (iRtn And $80) <> 0 then
begin
aKey := VK_F4;
iRtn := GetKeyState(akey);
if (iRtn And $80) <> 0 then
CanClose:=False;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
const
WH_KEYBOARD_LL=13;
begin
//98下从任务列表里隐藏,2000下不能用，最后编译时加上
//RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE);
end;
procedure TForm1.tmr2Timer(Sender: TObject);
var
h:thandle;
xx:thandle;
begin
h:=findprocessname;
xx:=xxxxx;
if h=0 then
winexec('C:/Octopus/edyClient.exe',1);
if xx=0 then
winexec('Internvt.exe',1);
RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE);
end;
end.
