流氓窗口隐藏器0.02

hyp

旧版本在这里:http://www.chengyi.org/bbs/thread-70391-1-2.html\
; C: V/ d( U2 C( ~+ K
加入了自动获取窗口标题功能
和尝试销毁该窗口功能
8 k, M& s! U  x. {+ R! G呃,其他的貌似没有了,要断网了,明天再来贴源码
" ^% I( _( b, O2 M9 z流氓窗口隐藏器.rar

hyp

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  h: HWND;
) F8 ?' Q8 {! ]% o0 s0 Q3 S7 c- c  FormStyle: Integer;
begin
) `2 S) i& B, k4 ^" A: U6 B5 i  h := FindWindow(nil, pchar(Edit1.Text));
  if (h<>0) then
  begin
( {7 s* `8 g$ y2 x& v  Label3.Caption:='透明度(0-255):'+ IntToStr(trackbar1.position);
) y2 v$ N( c$ [& {4 _4 K" k  FormStyle := GetWindowLong(h, GWL_EXSTYLE);
  SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);
% J/ Z2 y5 G4 l. L4 T, Q  SetLayeredWindowAttributes(h, 0,trackbar1.Position, LWA_ALPHA);
, t  q* O0 {; y7 w  }  end
* B8 p7 W7 h! f  C5 I  else
, i) j" P' I6 s) T4 y  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
+ z: a% @$ @% [end;
procedure TForm1.Button1Click(Sender: TObject);
var
  h: HWND;
begin
  h1 t0 u% O0 J9 `. n* R6 H. Y& M  h := FindWindow(nil, pchar(Edit1.Text));
  if (h<>0) then
  if(Edit1.Text<>'HI检测结果')then
  postmessage(h,WM_DESTROY,0,0)
  else
$ B/ R3 n2 I8 |( I& C8 O  postmessage(h,wm_keydown,27,65537)
+ R: ^8 ^* Q, u0 f5 w2 S4 c  else
. m5 h& m4 q9 r9 F# k! ~  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
2 T0 R, \# ?/ A4 i: c: r2 eend;
, S0 h, F2 D- F- `procedure TForm1.FormCreate(Sender: TObject);
' i, v( b1 @" k9 M. G7 j- j0 ?begin
& |) [) k9 `; i& Hsetwindowpos(form1.Handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0);
% q9 P7 V5 P) m' @4 Pend;
4 V2 ]0 ~7 A, V2 y, k2 D9 Gprocedure TForm1.Timer1Timer(Sender: TObject);
var
1 s2 X& X8 }6 ]& y6 o: }" d5 [  arr: array[0..254] of Char;
2 @4 K$ U: R. o" K. I  h:HWND;
begin
" `- A$ f" x/ R4 G0 i( Z- p5 Q  h:=getforegroundwindow;
, S8 l% k! H) M% i$ e+ E) C  GetWindowText(h, @arr, SizeOf(arr));
  if(arr<>'流氓窗口隐藏器')then
4 M" e& v! v. s1 ~* w) S5 @" Q& D  Edit1.Text:=arr;
% S2 ]1 |/ F# h9 ^5 D$ H1 ?end;
:loveliness:

' a5 C: L  h+ J. s[ 本帖最后由 hyp 于 2008-5-10 08:16 编辑 ]

blueghost

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

hyp

postmessage(h,wm_keydown,27,65537);       这句就是所谓的按ESC
& `' J+ j, J& y6 k- u呃,知道啊