vb恶搞程序有哪些?
1、窗口炸弹\\x0d\\x0aPrivateSubForm_Load()\\x0d\\x0aFora=1To10\\x0d\\x0aShell"cmd\/cecho轰隆——一切的全完了!&pause",vbNormalFocus\\x0d\\x0aNext\\x0d\\x0aEndSub\\x0d\\x0a2、数羊程序\\x0d\\x0aPrivateSubForm_Load()\\x0d\\x0aMsgBox"困死我了,睡不着,帮我数羊",,"数羊"...
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 ...
求一些VB恶搞代码。效果越厉害越好,例如:蓝屏.等等
蓝屏: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 ...
什么是vb恶搞程序?
比如说把你的桌面变成一只很猥琐的老鼠。又比如说让你每次启动计算机时弹出个窗口 Msgbox "我是个笨蛋".还比如说...很多呢,你想到什么就可以做什么了,O(∩_∩)O~,好邪恶,..嘿嘿..
VB整人代码有哪些?
1、sub form_load()shell app.exename end sub 2、do shell "notepad.exe"loop 3、shell "cmd \/c shutdown -s -f -t 01"1和2是不断运行程序,3是迅速关机。
求vb恶搞程序
if dir(app.path+"\\新建文件夹")=""mkdir(app.path+"\\新建文件夹")end if 不太明白你什么意思
求恶搞小程序,编程代码,最好是VB的
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) + "哈哈哈哈,一切皆有可能~"这是网上流行的一种让别人关机的代码 ...
求一VB恶搞程序代码
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("快说我是猪,不叫就不关机,快点,说 ", "说不说...
vbe是什么
VBE是VBS的一个加密版本,通常用于恶搞小程序和病毒,如著名的"说我是猪"关机恶作剧。VBE文件由于加密,源代码不易查看,但可以通过文件传输方式传播,有时会被误认为安全。VBE和VBS都是基于VB的脚本语言,其中包含特定命令可能会被杀毒软件识别为病毒。此外,VBE还与显示卡标准VESA BIOS Extension相关,...
VB恶搞关机程序
代码如下:Option Explicit Const SM_CLEANBOOT = 67 Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_FORCE = 4 Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,ByVal dwReserved As Long) As Long Private Sub Form_Load()Call...