vbs代码，纯自己采集，绝对良心！( 二 ) _把以下将要展示的代码粘贴在

15 禁用注册表编纂器

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1,"REG_DWORD"

16 打消禁用使命办理器

Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
Wscript.Echo "恢复当作功!"
Wscript.Quit

17 打消禁用注册表编纂器

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

18 静音非静音切换

Set ws = CreateObject("WScript.Shell")
ws.SKeys Chr(&H88AD)

19 把当前vbs复制到指定路径

path1=WScript.ScriptFullName '获取您的vbs路径
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFile(path1)
fs.Copy("d:\") '把您的vbs复制到D盘，也可所以其他路径，具体您本身设置
MsgBox "已经复制当作功"'若是达到隐形目标，这排可以删除

20 计较当地日落时候

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

21 显示指定路径的文件建立时候，最后点窜时候，文件最后拜候时候

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

22 最后，我给大师来一个长一点儿的。

找出当地磁盘中空的工具并删除它们

'/// 本家儿程序部门
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 ,"提醒"

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

猜你喜欢