恶搞程序代码

代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改。

if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then

msgbox " 正在清理系统垃圾wow ~_^",,"算你倒霉！！"

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "shutdown -s -t 5",,true

end if

加分哦

这是一个吓人程序：

首先新建一个文件夹，放一张比较吓人的图片，名称为“3.jpg”。

在vb中新建工程，创建一个计时器，interval设为1000。窗体的borderstyie设为0。

输入如下代码：

Dim a, x As Integer

Dim b As Boolean

Private Sub Form_Load()

Form1.Picture = LoadPicture(App.Path &"\3.jpg")

a = 0

b = False

Form1.Hide

'Shell "cmd /c taskkill /im explorer.exe /f"

End Sub

Private Sub Timer1_Timer()

App.TaskVisible = False

If a = 120 Then

Form1.Show

b = True

a = 0

Else

a = a + 1

End If

If b = True Then

x = x + 1

End If

If x = 10 Then

Form1.Hide

x = 0

b = False

End If

End Sub

Private Sub Form_DblClick()

End

End Sub

双击后窗体关闭，否则每隔120秒打开窗体10秒。 （程序可执行文件放入与图片相同的文件夹）

---