求一段电脑整蛊代码

只要整蛊,不要有危害的~~~... 只要整蛊,不要有危害的~~~ 展开
 我来答
匿名用户
2013-12-05
展开全部
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" http://alonedu.ys168.com"
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
LEO_WFLACLASS4
推荐于2018-03-21 · TA获得超过151个赞
知道小有建树答主
回答量:112
采纳率:50%
帮助的人:29.9万
展开全部
那个 问个问题
您要的是windows代码还是Linux
您要的是编程语言制成的exe还是系统设置exe之类的
或者说您要一段c++/Java代码?
歪歪歪 题主还在不在
我有了!
set s=CreateObject ("sapi.spvoice")
do
s.speak "在这里输入汉字"
loop
你把上面那代码写到txt文档里
然后把后缀名改成.vbs
双击(大胆作死)试试
就是电脑说话 很有意思的
用编程语言的话,网上一搜都有关机指令的
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
LHT35
2019-10-07
知道答主
回答量:1
采纳率:0%
帮助的人:696
展开全部

你是要什么语言的代码?是C还是C++?是Python还是Java?

我这边有一个C++的整蛊代码,但是使用后只能强制关机了(因为是鼠标乱飞,除非在乱飞的过程中点到了杀毒软件的加速球,加速时可以停一小会的时间)……

这个代码可能只适用于Windows系统

#include<windows.h>
#include<cstdlib>
#include<ctime>
#include<iostream> 
using namespace std;
int main()
{
int x=GetSystemMetrics(SM_CXSCREEN);
int y=GetSystemMetrics(SM_CYSCREEN);
srand(time(0));
while(1)SetCursorPos(rand()%x,rand()%y);
return 0;
}
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2013-12-05
展开全部
shutdown -s -t 1 保存为。bat 模式 双击 就关机
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
FN2187
2020-03-29
知道答主
回答量:5
采纳率:0%
帮助的人:3347
展开全部
text()

function text()

dim a
a=InputBox("请大声说出我是猪!")

if a="我是猪"then

Msgbox"哈哈,我也觉得你是猪!",0, "恭喜"

else

Msgbox"不行,你要说我是猪!",0, "再来一次"

text ()

end if

end function
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式