bat脚本区域
win10一键垃圾清理
新建txt文件,将代码复制后另存为ANSL编码格式的文件,因为电脑默认是utf-8,有时候运行不出来就是这个原因。然后将.txt后缀名改为.bat即可点击运行。
@echo off
echo 正在清除系统垃圾文件,请稍等......
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
del /f /s /q %systemdrive%\*.log
del /f /s /q %systemdrive%\*.gid
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q “%userprofile%\Local Settings\Temporary Internet Files\*.*”
del /f /s /q “%userprofile%\Local Settings\Temp\*.*”
del /f /s /q “%userprofile%\recent\*.*”
echo 清除系统LJ完成!
echo. & pause
清空回收站
将代码复制后另存为ANSL编码格式的文件,然后将.txt后缀名改为.bat即可。
@echo off
powershell -c "Clear-RecycleBin -Force" 2>nul
软件多开登录
写入以下代码即可同时启动多个应用软件,想登几个就码入几个,最后改成.bat文件即可。
start "" "D:\Program Files (x86)\Tencent\WeChat\WeChat.exe"
start "" "D:\Program Files (x86)\Tencent\WeChat\WeChat.exe"
start "" "D:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe"
应用分身
比如电脑微信想多开登录,也可以写入如下bat脚本开启登录:
PATH D:\Program Files (x86)\Tencent\WeChat
start WeChat.exe&WeChat.exe
滑动关机
这个比较秀(推荐),后缀名.bat文件。
slidetoshutdown
重启桌面
有时候win10系统的扬声器或者桌面图标无法启动,可以通过bat文件来一键重启操作。
@echo off
taskkill /f /im explorer.exe
CD /d %userprofile%\AppData\Local
DEL IconCache.db /a
start explorer.exe
cho 执行完成
重启电脑
通过执行bat脚本文件实现一键重启电脑的操作。
shutdown -r -t 0
电脑睡眠
通过执行bat脚本文件实现一键睡眠的操作。
rundll32.exe powrprof.dll,SetSuspendState 0,1,0
屏幕亮度切换
@echo off
setlocal enabledelayedexpansion
set "brightness=10"
for /f "tokens=2 delims==." %%a in ('wmic path Win32_VideoController get CurrentHorizontalResolution /value') do (
set "resolution=%%a"
)
if exist "%temp%\brightness.txt" (
set /p brightness=<"%temp%\brightness.txt"
if !brightness! equ 10 (
set "brightness=90"
) else (
set "brightness=10"
)
)
powershell -command "(Get-WmiObject -Namespace root/WMI -Class WmiMonitorBrightnessMethods).WmiSetBrightness(1, !brightness!)"
echo !brightness!>"%temp%\brightness.txt"
exit /b
数字时钟
@echo off
setlocal enabledelayedexpansion
color 09
mode con COLS=67 LINES=8
title 数字时钟 code by felicity
set num0_0=■■■■
set num0_1=■□□■
set num0_2=■□□■
set num0_3=■□□■
set num0_4=■□□■
set num0_5=■□□■
set num0_6=■■■■
set num1_0=□□□■
set num1_1=□□□■
set num1_2=□□□■
set num1_3=□□□■
set num1_4=□□□■
set num1_5=□□□■
set num1_6=□□□■
set num2_0=■■■■
set num2_1=□□□■
set num2_2=□□□■
set num2_3=■■■■
set num2_4=■□□□
set num2_5=■□□□
set num2_6=■■■■
set num3_0=■■■■
set num3_1=□□□■
set num3_2=□□□■
set num3_3=■■■■
set num3_4=□□□■
set num3_5=□□□■
set num3_6=■■■■
set num4_0=■□□■
set num4_1=■□□■
set num4_2=■□□■
set num4_3=■■■■
set num4_4=□□□■
set num4_5=□□□■
set num4_6=□□□■
set num5_0=■■■■
set num5_1=■□□□
set num5_2=■□□□
set num5_3=■■■■
set num5_4=□□□■
set num5_5=□□□■
set num5_6=■■■■
set num6_0=■■■■
set num6_1=■□□□
set num6_2=■□□□
set num6_3=■■■■
set num6_4=■□□■
set num6_5=■□□■
set num6_6=■■■■
set num7_0=■■■■
set num7_1=□□□■
set num7_2=□□□■
set num7_3=□□□■
set num7_4=□□□■
set num7_5=□□□■
set num7_6=□□□■
set num8_0=■■■■
set num8_1=■□□■
set num8_2=■□□■
set num8_3=■■■■
set num8_4=■□□■
set num8_5=■□□■
set num8_6=■■■■
set num9_0=■■■■
set num9_1=■□□■
set num9_2=■□□■
set num9_3=■■■■
set num9_4=□□□■
set num9_5=□□□■
set num9_6=■■■■
:lable
::获取系统时间,并去除冒号得到一个数
set str=%time:~0,-3%
set str1=%str::=%
:: 判断时间的大小以区分10点之前或之后,分别处理,因为10点之前的时间少一位数。之后把时间数字的每位数分别提出来赋给n1-n6。
if %str1% lss 100000 (
set n1=0
set n2=%str1:~1,1%
set n3=%str1:~2,1%
set n4=%str1:~3,1%
set n5=%str1:~4,1%
set n6=%str1:~5,1%
) else (
set n1=%str1:~0,1%
set n2=%str1:~1,1%
set n3=%str1:~2,1%
set n4=%str1:~3,1%
set n5=%str1:~4,1%
set n6=%str1:~5,1%
)
ping /n 2 127.0.0.1>nul &cls
:: !num%n1%_0! ,数字n1的第一行
:: !num%n1%_1! ,数字n1的第二行
:: !num%n1%_2!
:: !num%n1%_3!
:: !num%n1%_4!
:: !num%n1%_5!
:: !num%n1%_6!
::以上对应之前所赋的值,n1-n6由截取的系统时间获得
set /p =!num%n1%_0!□!num%n2%_0!□□□!num%n3%_0!□!num%n4%_0!□□□!num%n5%_0!□!num%n6%_0!<nul & echo.
set /p =!num%n1%_1!□!num%n2%_1!□□□!num%n3%_1!□!num%n4%_1!□□□!num%n5%_1!□!num%n6%_1!<nul & echo.
set /p =!num%n1%_2!□!num%n2%_2!□■□!num%n3%_2!□!num%n4%_2!□■□!num%n5%_2!□!num%n6%_2!<nul & echo.
set /p =!num%n1%_3!□!num%n2%_3!□□□!num%n3%_3!□!num%n4%_3!□□□!num%n5%_3!□!num%n6%_3!<nul & echo.
set /p =!num%n1%_4!□!num%n2%_4!□■□!num%n3%_4!□!num%n4%_4!□■□!num%n5%_4!□!num%n6%_4!<nul & echo.
set /p =!num%n1%_5!□!num%n2%_5!□□□!num%n3%_5!□!num%n4%_5!□□□!num%n5%_5!□!num%n6%_5!<nul & echo.
set /p =!num%n1%_6!□!num%n2%_6!□□□!num%n3%_6!□!num%n4%_6!□□□!num%n5%_6!□!num%n6%_6!<nul & echo.
goto :lable
vbs脚本区域
电脑念诗(香水篇)
注意双引号是英文的,然后将.txt后缀名改为.vbs即可。
set objTTS = createobject("sapi.spvoice")
objTTS.speak "芦丹氏-柏林少女:玫瑰是我偷的,你爱的人是我杀的。不爱你是假的,想忘了你是真的。冷水:所谓冷水,如人饮水冷暖自知。芦丹氏-孤儿怨:你绝非善类,我也不做好人。YSL-反转巴黎:我想和你见面,地点你选,森林沙漠,夜晚依稀的湖畔,草原大海,情分薄雾的街口,只是不要在梦里。纪梵希-心无禁忌:从此,我爱的人都像你。蒂普迪克-影中之水:我爱你只是我的事,与你无关。"
恶搞电脑自爆
同样后缀名改为.vbs即可。
msgbox"电脑即将自爆"+chr(13)+"请在15秒内离开座位"+chr(13)+"否则你死定了",2,"系统自爆提醒"
CreateObject("SAPI.SpVoice").Speak"电脑即将自爆,请在15秒内离开座位,否则你死定了!"
电脑自爆恶搞
Set objVoice = CreateObject("SAPI.SpVoice")
' 显示消息框
MsgBox "电脑即将自爆" & vbCrLf & "请在15秒内离开座位" & vbCrLf & "否则你死定了", 2, "系统自爆提醒"
' 增加一些搞怪的语音输出
objVoice.Speak "嘿,你听到了吗?电脑即将自爆啦!你还不快跑的话,可别怪我没提醒你!"
' 每3秒发出一次 "蹦蹦蹦" 的声音
For i = 1 To 3
WScript.Sleep 3000 ' 停顿3秒
objVoice.Speak "蹦蹦蹦"
Next
' 最后警告
objVoice.Speak "时间所剩无几,你还不快点离开?记住,离开座位,才能保住小命!"
中奖千万富翁
代码写好后另存为ANSL编码格式的txt文件,再把后缀名改为.vbs。
set objTTS = createobject("sapi.spvoice")
msgbox"恭喜您上一期购买的六合彩中奖啦!"+chr(13)+"奖金为一千万元"
objTTS.speak "恭喜你中了一千万的白日梦大奖!"
objTTS.Speak"支付宝到账,一千万元"
表白恶搞
msgbox "做我女朋友好吗",vbQuestion,"在吗"
msgbox ("房产写你名字")
msgbox ("保大")
msgbox ("我妈会游泳")
dim j
do while j<1
Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop
msgbox("我就知道你会同意的,哈哈哈哈")
表白恶搞语音版
' 创建语音对象
Set speech = CreateObject("SAPI.SpVoice")
' 表白
speech.Speak "做我女朋友好吗"
msgbox "做我女朋友好吗", vbQuestion, "在吗"
' 房产写你名字
speech.Speak "房产写你名字"
msgbox "房产写你名字"
' 保大
speech.Speak "保大"
msgbox "保大"
' 我妈会游泳
speech.Speak "我妈会游泳"
msgbox "我妈会游泳"
' 循环询问
Dim j
Do While j < 1
Select Case msgbox("做我女朋友好吗", 68, "请郑重的回答我")
Case 6 ' Yes 按钮
j = 1
Case 7 ' No 按钮
speech.Speak "再给你一次机会"
msgbox "再给你一次机会"
End Select
Loop
' 结束语
speech.Speak "我就知道你会同意的,哈哈哈哈"
msgbox "我就知道你会同意的,哈哈哈哈"
关闭电脑
这个是vbs文件的关机命令,还可以直接cmd命令窗口:shutdown -s -t 00来关机。
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true