流氓窗口隐藏器0.02

hyp · 发表于 2008-5-9 22:48:32

旧版本在这里:http://www.chengyi.org/bbs/thread-70391-1-2.html\

加入了自动获取窗口标题功能
和尝试销毁该窗口功能
呃,其他的貌似没有了,要断网了,明天再来贴源码
流氓窗口隐藏器.rar

hyp · 发表于 2008-5-9 22:58:02

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  h: HWND;
  FormStyle: Integer;
begin
  h := FindWindow(nil, pchar(Edit1.Text));
  if (h<>0) then
  begin
  Label3.Caption:='透明度(0-255):'+ IntToStr(trackbar1.position);
  FormStyle := GetWindowLong(h, GWL_EXSTYLE);
  SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);
  SetLayeredWindowAttributes(h, 0,trackbar1.Position, LWA_ALPHA);
  end
  else
  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  h: HWND;
begin
  h := FindWindow(nil, pchar(Edit1.Text));
  if (h<>0) then
  if(Edit1.Text<>'HI检测结果')then
  postmessage(h,WM_DESTROY,0,0)
  else
  postmessage(h,wm_keydown,27,65537)
  else
  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
setwindowpos(form1.Handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
  arr: array[0..254] of Char;
  h:HWND;
begin
  h:=getforegroundwindow;
  GetWindowText(h, @arr, SizeOf(arr));
  if(arr<>'流氓窗口隐藏器')then
  Edit1.Text:=arr;
end;
:loveliness:

[ 本帖最后由 hyp 于 2008-5-10 08:16 编辑 ]

blueghost · 发表于 2008-5-10 23:36:37

了不起，开源就更了不起了
顺便一说，流氓HI只要ESC就可以退出了....................

hyp · 发表于 2008-5-11 08:35:18

postmessage(h,wm_keydown,27,65537); 这句就是所谓的按ESC
呃,知道啊

账号		自动登录	找回密码
密码			注册

流氓窗口隐藏器0.02

本帖子中包含更多资源

评分

相关帖子