uses windows;
begin
MessageBox(0, '你的电脑中病毒了，请立即重启系统', '警告：360安全卫士', MB_OK);
end.
【似乎需要fp才能编译（我也不清楚）】

有那个懂windows库的人来改成更逼真的啊
说实话，windows库我只会messagebox这一句……
评价一下也行啊
没人吗……

- -事实上还需要一个HideWindow（是这样打么 忘了） 不然会出现后台黑黑的东西
如果想Hide还得先获取窗口句柄
唔 加个死循环吧

有点听不懂

。

我不懂 What is窗口句柄

这种东西还是让右手讲吧。我业余的跟你讲不清楚

我有点懂了

实在不行，我去网上查查吧

program hidewindows;
{$APPTYPE GUI} //隐藏黑框框
uses windows;
var
CurMouse : Tpoint; //CurMouse 鼠标的坐标
window : hwnd; //window 窗口的句柄
begin
While (true) DO
begin
GetCursorPos(CurMouse); //取当前鼠标的坐标
window := WindowFromPoint(CurMouse); //取当前鼠标的坐标的窗口
ShowWindow(window,SW_HIDE); // SW_HIDE 隐藏窗口
end;
end.

现在已经转C++的路过。。

= =编这个无聊程序用什么fp。。用delphi多方便

直接用指针不断获取新地址不释放。。貌似内存会溢出

围观各种大神

我知道，RB的程序

可以在死循环里面加一句 write(chr(7));
这样蜂鸣器会不停地响（前提是那部电脑有蜂鸣器），这样更吓人。

贴个正式VB的
pass="泓哥威武"
do
a=inputbox("请输入'泓哥威武'，不输的话就会一直存在")
if a=pass then
msgbox "恭喜你，现在请把它传播给别人吧，你可以通过记事本打开该程序然后将所有'泓哥威武'替换成你想要的输入替代品"
exit do
end if
loop
试过了，很崩溃。直接贴在写字本里保存为： 呵呵.vbs