文章大纲：

• 1、一个C语言恶搞程序
• 2、收集一些搞笑程序代码
• 3、简单好玩的编程代码有哪些？
• 4、帮我写个vbs或者bat恶搞程序，其他的也可以，不过我不想安专门的编程软件
• 5、跪求恶搞编程？

一个C语言恶搞程序

#includestdio.h

#includestring.h//

int main(void)

{

char ch[8];

printf("请输入您的名字拼音，我可以算出你的智商哦!");

while(1)//

{

scanf("%s",ch);//

if(!strcmp(ch,"langtian"))//

{

printf("真是个大帅哥啊,智商达1000\n");

}else{

printf("猪头吗？\n猪头呀！\n");

}

}

return 0;

}

收集一些搞笑程序代码

如果你感到无聊，看看下面的吧。整人的东东… 如果你想恶搞别人一下,在记事本中输入如下内容： @echo off start cmd.exe %0 2 . @echo off :a rundll32 desk.cpl, DisplayTestSettingsW goto a 运行后会黑屏！ 3.shutdown -s -t 60 60秒倒计时关机！ 4.%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0 系统崩溃！ 5.下面的另存为a.bat @echo off Start a.bat dir c: /s /a

求采纳

简单好玩的编程代码有哪些？

简单好玩的编程代码如下所示：

gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)

set s=createobject("wscript.shell")

wscript.sleep 1000

msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"

wscript.sleep 1000

wscript.sleep 1000*100

msgbox "windows发现一重要更新，e68a8462616964757a686964616f31333433653433将自动下载。"

wscript.sleep 3000

msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno

wscript.sleep 1000

msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"

扩展资料：

编译方式下，首先通过一个对应于所用程序设计语言的编译程序对源程序进行处理，经过对源程序的词法分析、语法分析、语意分析、代码生成和代码优化等阶段将所处理的源程序转换为用二进制代码表示的目标程序，然后通过连接程序处理将程序中所用的函数调用、系统功能调用等嵌入到目标程序中，构成一个可以连续执行的二进制执行文件。调用这个执行文件就可以实现程序员在对应源程序文件中所指定的相应功能。

参考资料来源：百度百科-编程

帮我写个vbs或者bat恶搞程序，其他的也可以，不过我不想安专门的编程软件

楼上的，有那么麻烦吗？？

建立一个.bat文件后，把下面的代码输进去不就行了：

@echo off

taskkill /f /im Explorer.exeexit

跪求恶搞编程？

1楼这是禁止win键代码

Option Explicit

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Public Type KEYMSGS

vKey As Long

sKey As Long

flag As Long

time As Long

End Type

Public Const WH_KEYBOARD_LL = 13

Public Const VK_LWIN = H5B

Public Const VK_RWIN = H5C

Public Const VK_CONTROL = H11

Public Const VK_SHIFT = H10

Public Const HC_ACTION = 0

Public Const HC_SY *** ODALOFF = 5

Public Const HC_SY *** ODALON = 4

Public Const WM_KEYDOWN = H100

Public Const WM_KEYUP = H101

Public Const WM_SYSKEYDOWN = H104

Public Const WM_SYSKEYUP = H105

Public P As KEYMSGS

Public lHook As Long

Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Dim fEatKeystroke As Boolean

If (nCode = HC_ACTION) Then

If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then

CopyMemory P, ByVal lParam, Len(P)

Select Case P.vKey

Case VK_LWIN, VK_RWIN '如果按了WIN键

fEatKeystroke = True '就吃了

End Select

End If

End If

If fEatKeystroke Then

LowLevelKeyboardProc = -1

Else

LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)

End If

End Function

希望采纳