只是在CSDN帖子里拷贝了一段代码，发在我的个人帖吧yzf911吧里，还是个人帖，一发就提示封一个月，若干次联系吧务组，得不到解决。
所以，以我为鉴，奉告大家，小心发言，小心转帖。

http://topic.csdn.net/u/20120719/22/e4655069-a807-452a-9277-0d9157aede65.html
这个是我当时的代码帖，回复最长的那段代码，一拷贝，然后在帖吧里一发，就自动被封号了，大家有兴趣的可以试下。（奶奶个熊！）

你被封也封的这么技术性

那我就问一个究极简单问题吧，你这边可能都不是问题
vb.net
如何在打开自己后立刻执行另一个程序，然后迅速将自己关掉，不给人反汇编的机会

可怜的孩子……

这。。。太冤枉了。。。

我说我看你发了那么多广告贴- -

我去试试去——当然了，不是用这个号

或许你的代码涉及到贴吧的代码
这个还是比较敏感的……

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CheckLst;
type
TCheckListBox = class(CheckLst.TCheckListBox)
private
FOldMessageEvent: TMessageEvent;
FMessageEventAssigned: Boolean;
procedure DoMessage(var Msg: TMsg; var Handled: Boolean);
public
procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;
end;
TForm1 = class(TForm)
CheckListBox1: TCheckListBox;
Edit1: TEdit;
procedure Edit1Click(Sender: TObject);
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1Click(Sender: TObject);
begin
CheckListBox1.Show;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
Text := Classname + DateTimeToStr(now)
end;
{ TCheckListBox }
procedure TCheckListBox.CMShowingChanged(var Message: TMessage);
begin
inherited;
if not FMessageEventAssigned then
if not (csDesigning in ComponentState) then
begin
if Showing then
begin
FMessageEventAssigned := True;
FOldMessageEvent := Application.OnMessage;
Application.OnMessage := DoMessage;
end;
end;
end;
procedure TCheckListBox.DoMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Assigned(FOldMessageEvent) then
FOldMessageEvent(Msg, Handled);
Handled := False;
if (Msg.message = WM_LBUTTONDOWN) and ((Msg.hwnd <> Self.Handle) and
(Msg.hwnd <> Form1.Edit1.Handle))
then
Hide
end;
end.

Hook这个词敏感吧

恭喜您有了一个月的休息时间