用VB做一个恶搞的小程序。大家帮帮忙啊。我同学过生日，礼物我没有找到好的，所以，只好用程序来活跃下...

Private Sub Form_Load()

If MsgBox("我的礼物很好，请确定", vbYesNo) = vbNo Then Shell "e:\shutdown.exe -s -t 0"

End Sub

下面这些代码是一个小小的整人程序： Private Sub Form_Load()

Me.Left = -10000

Me.Top = -10000

Do While 1 = 1

Me.Visible = Not Me.Visible

Loop

End Sub

下面是带解释的:Private Sub Form_Load() '窗体加载事件

'Me代表 这个窗体

Me.Left = -10000 '设置这个窗体的左边与屏幕的左边之间的距离为-10000，其实也就是使窗体在屏幕的左边-10000处

Me.Top = -10000 '设置这个窗体的顶部与屏幕的顶部之间的距离为-10000，其实也就是使窗体在屏幕的上边-10000处

Do While 1 = 1 'Do循环，条件为 1=1，因为 1=1 是成立的，即 True ，所以就形成个死循环

Me.Visible = Not Me.Visible '使这个程序的可见性 改变，例如 原来为可见的，运行一次这个代码后，就变成不可见的， Not 是用来 否定 那个值的

Loop

End Sub

可能1：你的工程名。版本号。公司名等用了敏感字符。。如microsoft 等。。

可能2：杀毒软件查毒的特征不一样。。对敏感一点的功能。。杀软找不到签名则可能会判断为病毒。。你的程序有个下载功能。。木马的长用功能。。如果站点不安全杀软有可能会报警

解决方法。。如是第一种则。。在工程属性里改工程名。公司名等。。

如是2.。则。。下载的路径不要字符。。用变量代替。。如还不行。。发我源码，，我帮你瞧瞧。。

644829371@qq.com

---