诚毅小家|集美大学生活【集美大学,诚毅学院,水产学院,师范学院,美术学院,财经学院,体育学院,航海学院,集美学村,石鼓路,龙舟池】

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
热搜: 活动 交友 discuz
查看: 596|回复: 3

流氓窗口隐藏器0.02

[复制链接]
发表于 2008-5-9 22:48:32 | 显示全部楼层 |阅读模式
旧版本在这里:http://www.chengyi.org/bbs/thread-70391-1-2.html\
# I4 H0 F) v, X  C4 g6 b
- o% n8 N/ @0 L3 ^5 y! E& g加入了自动获取窗口标题功能
3 m. c, A/ w, e2 W0 q和尝试销毁该窗口功能& p+ L5 x: m, f; t
呃,其他的貌似没有了,要断网了,明天再来贴源码# k# Q( P3 n1 a7 K' r: ]
流氓窗口隐藏器.rar

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 1 +2 收起 理由
没票请上车 + 2 orz

查看全部评分

 楼主| 发表于 2008-5-9 22:58:02 | 显示全部楼层
procedure TForm1.TrackBar1Change(Sender: TObject);
$ }; F8 V+ f9 E8 Y, b2 D8 Bvar; N7 w4 D+ D; J* R0 M2 D
  h: HWND;8 q- h5 M9 c9 m9 ^
  FormStyle: Integer;3 u8 C4 W5 W( J' }: d' W3 y
begin
& w4 d2 h2 n! h' D  h := FindWindow(nil, pchar(Edit1.Text));* T8 h7 L0 X& s$ \4 ]  R7 g( E
  if (h<>0) then
# B. p- T3 ?( w; j6 u2 j- t  begin9 Z1 ~& _/ S0 e; h; J2 k9 k% ~
  Label3.Caption:='透明度(0-255):'+ IntToStr(trackbar1.position);
+ k9 y0 u# G. r: I( Y% v# p8 O, ^  FormStyle := GetWindowLong(h, GWL_EXSTYLE);5 E- S4 j$ n/ |* H
  SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);: f2 s4 p, M% {8 d/ r# G+ r# P
  SetLayeredWindowAttributes(h, 0,trackbar1.Position, LWA_ALPHA);2 j7 K- k& ~7 p( O
  end( E: {# c7 q( Y3 f9 b
  else
6 ]" F  a+ M5 L' ^( I  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
6 C/ E1 m7 M& ~7 u  ?end;- r. Y. z! \; t' C+ `6 h
procedure TForm1.Button1Click(Sender: TObject);+ |2 U" j, d- Q- I1 f7 w
var# w3 v8 D) M0 g: q& C
  h: HWND;
& ~6 v- C. [( Y! l* j1 V7 sbegin
- l7 R6 b  J( a6 L  E; ~, @) V1 f. q" e  h := FindWindow(nil, pchar(Edit1.Text));
9 }5 u5 ^' q6 z  if (h<>0) then- N" r3 K8 U! I8 J6 Y2 Q8 N- a0 s
  if(Edit1.Text<>'HI检测结果')then
& t8 _, o7 G& p) v1 J0 X. L  postmessage(h,WM_DESTROY,0,0)
2 P$ u' o9 ]  m) D  else
: B, l- _0 V% l+ H3 C; s# w3 H  postmessage(h,wm_keydown,27,65537)
1 O. C" m9 K8 v, p; ?# A& q  else6 H( o- j. s* `5 p
  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';$ l  y0 L7 p+ S& e% \$ Q
end;% }  {1 d8 |3 D4 T+ _
procedure TForm1.FormCreate(Sender: TObject);
3 N$ H3 ?* Y( s4 M  lbegin
( ]5 H( Z. L/ I! E' @( Asetwindowpos(form1.Handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0);$ m% s8 a1 {" b$ U
end;
* Y: b/ E0 v/ F! Z' N1 @$ cprocedure TForm1.Timer1Timer(Sender: TObject);
6 C& U& u/ k2 e* Q: V1 j+ wvar
* \+ B) i+ K3 [: `- v& k- i$ R  arr: array[0..254] of Char;
$ h8 a2 @6 o" G" V  h:HWND;
. Q" ^/ |- O% J: g# r' {- |4 M# qbegin) U0 e) ]  ?6 i& b% p5 Z& Q
  h:=getforegroundwindow;
) e  P+ c: E6 F  GetWindowText(h, @arr, SizeOf(arr));
9 V: \# x" Q0 O* B  if(arr<>'流氓窗口隐藏器')then. X: r4 d! n) V# d9 N( k' N
  Edit1.Text:=arr;
) _8 n9 F8 y9 r7 r* W8 hend;: c- \; a6 C+ o/ x/ [, {
:loveliness:
2 m$ y# }2 |. n0 ]) l  N8 Q0 l0 J- l- Y% }" K7 B9 l, N
[ 本帖最后由 hyp 于 2008-5-10 08:16 编辑 ]
发表于 2008-5-10 23:36:37 | 显示全部楼层
了不起,开源就更了不起了
8 I2 N1 g! k1 S& u0 D3 x9 |+ A顺便一说,流氓HI只要ESC就可以退出了....................
 楼主| 发表于 2008-5-11 08:35:18 | 显示全部楼层
postmessage(h,wm_keydown,27,65537);       这句就是所谓的按ESC
( D1 V! Y! X8 ~8 c' v3 w呃,知道啊
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|小黑屋|诚毅小家 ( 小家社区工作室 闽ICP备05007965号 )

GMT+8, 2024-11-1 15:31 , Processed in 0.053922 second(s), 25 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表