vbs实用代码 vbs代码，纯自己采集，绝对良心！( 二 )

Wscript.Echo "恢复成功!"
Wscript.Quit
取消禁用注册表编辑器

Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"
Wscript.Echo "恢复成功!"
Wscript.Quit
静音非静音切换

Set ws = CreateObject("WScript.Shell")
ws.SendKeys Chr(&H88AD)
把当前vbs复制到指定路径

path1=WScript.ScriptFullName '获取你的vbs路径
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFile(path1)
fs.Copy("d:\") '把你的vbs复制到D盘，也可以是其他路径，具体你自己设置
MsgBox "已经复制成功"'如果达到隐形目的，这排可以删除
计算本地日落时间

Dim JD, WD, Days, SunDown, TimeArea, X, ACOS, Arr, Today
JD = 105.1 '经度，东为正西为负，我国都是东经
WD = 31.4 '纬度，北为正南为负，我国都是北纬
TimeArea = 8 '时区，东正西负，有东九、东八、东七、东六、东五五个时区
TodAy = Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日"
Days = DateDiff("d", Year(Now) & "-1-1 00:00:00", Now) + 1
X = -TAN(-23.4*COS(2*3.14*(Days+9)/365)*3.14/180)*TAN(WD*3.14/180)
ACOS = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
SunDown = Round(24*(1+(TimeArea*15-JD)/180)-24*(180+TimeArea*15-JD-ACOS*180/3.14)/360, 2)
Arr = Split(SunDown, ".")
SunDown = Arr(0) & ":" & Int((0&"."&Int(Arr(1)))*60)
WScript.Echo "本地" & Today & "日落时间为：" & SunDown
显示指定路径的文件创建时间，最后修改时间，文件最后访问时间

set fso=createobject("Scripting.FileSystemObject")
set fn=fso.GetFile("C:\Users\Administrator\Desktop\what how感叹用法.txt")
msgbox "文件创建时间："&fn.DateCreated
msgbox "文件最后修改时间："&fn.DateLastModified
msgbox "文件最后访问时间："&fn.DateLastAccessed
set fn=nothing
set fso=nothing
最后，我给大家来一个长一点儿的。

找出本地磁盘中空的东西并删除它们

'/// 主程序部分
Dim objfso, WshShell, ext
Set objfso = WScript.CreateObject("Scripting.Filesystemobject")
Set WshShell = CreateObject("Wscript.Shell")

choices ="1.删除空的文档" & vbCr & "2.删除空的文件夹" & vbCr& "3.退出"
prompt ="日志文档保存在 " & "C:\EmptyDelete.log" & vbCrLf & vbCrLf & "单击是(开始)，否(退出)！" & vbCrLf & vbCrLf &_
"(c) Zero 2014"

confirm = MsgBox("本工具将在本地磁盘上搜索空的东西(文件夹和文件)!"& vbCr & prompt, vbYesNo +vbInformation + vbdefaultbutton1,"欢迎使用！")
If confirm = vbyes Then

MsgBox "不建议在C盘和D盘使用，错误删除与本作者无关" , vbOKOnly +vbExclamation ,"提示"

do
getchoice = InputBox ("请输入需要处理的事项:" & vbCr & choices)

if isnumeric(getchoice) then
exit do
else
msgbox "请输入数字"
end If

Loop

getchoice = CInt(getchoice)

Select Case getchoice

Case 1: '搜索空文件

getdrv = InputBox("请输入需要处理的盘符"& "格式如下:E:\","盘符","E")
getdrv = getdrv & ":\"
ext = InputBox("请输入需要搜索的文件扩展名"& "比如：txt","扩展名","txt")

以上关于本文的内容，仅作参考！温馨提示：如遇健康、疾病相关的问题，请您及时就医或请专业人士给予相关指导!

「四川龙网」www.sichuanlong.com小编还为您精选了以下内容，希望对您有所帮助：