国产精品网红尤物福利在线观看,人人妻人人狠人人爽天天综合网,国产精品成人av一区二区

Wscript.Echo "恢復(fù)成功!"
Wscript.Quit
取消禁用注冊(cè)表編輯器

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

Set ws = CreateObject("WScript.Shell")
ws.SendKeys Chr(&H88AD)
把當(dāng)前vbs復(fù)制到指定路徑

path1=WScript.ScriptFullName '獲取你的vbs路徑
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFile(path1)
fs.Copy("d:\") '把你的vbs復(fù)制到D盤，也可以是其他路徑，具體你自己設(shè)置
MsgBox "已經(jīng)復(fù)制成功"'如果達(dá)到隱形目的，這排可以刪除
計(jì)算本地日落時(shí)間

Dim JD, WD, Days, SunDown, TimeArea, X, ACOS, Arr, Today
JD = 105.1 '經(jīng)度，東為正西為負(fù)，我國都是東經(jīng)
WD = 31.4 '緯度，北為正南為負(fù)，我國都是北緯
TimeArea = 8 '時(shí)區(qū)，東正西負(fù)，有東九、東八、東七、東六、東五五個(gè)時(shí)區(qū)
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 & "日落時(shí)間為：" & SunDown
顯示指定路徑的文件創(chuàng)建時(shí)間，最后修改時(shí)間，文件最后訪問時(shí)間

set fso=createobject("Scripting.FileSystemObject")
set fn=fso.GetFile("C:\Users\Administrator\Desktop\what how感嘆用法.txt")
msgbox "文件創(chuàng)建時(shí)間："&fn.DateCreated
msgbox "文件最后修改時(shí)間："&fn.DateLastModified
msgbox "文件最后訪問時(shí)間："&fn.DateLastAccessed
set fn=nothing
set fso=nothing
最后，我給大家來一個(gè)長一點(diǎn)兒的。

找出本地磁盤中空的東西并刪除它們

'/// 主程序部分
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盤使用，錯(cuò)誤刪除與本作者無關(guān)" , vbOKOnly +vbExclamation ,"提示"

do
getchoice = InputBox ("請(qǐng)輸入需要處理的事項(xiàng):" & vbCr & choices)

if isnumeric(getchoice) then
exit do
else
msgbox "請(qǐng)輸入數(shù)字"
end If

Loop

getchoice = CInt(getchoice)

Select Case getchoice

Case 1: '搜索空文件

getdrv = InputBox("請(qǐng)輸入需要處理的盤符"& "格式如下:E:\","盤符","E")
getdrv = getdrv & ":\"
ext = InputBox("請(qǐng)輸入需要搜索的文件擴(kuò)展名"& "比如：txt","擴(kuò)展名","txt")

以上關(guān)于本文的內(nèi)容，僅作參考！溫馨提示：如遇健康、疾病相關(guān)的問題，請(qǐng)您及時(shí)就醫(yī)或請(qǐng)專業(yè)人士給予相關(guān)指導(dǎo)!

「愛刨根生活網(wǎng)」www.malaban59.cn小編還為您精選了以下內(nèi)容，希望對(duì)您有所幫助：

vbs實(shí)用代碼 vbs代碼，純自己采集，絕對(duì)良心！( 二 )

vbs實(shí)用代碼 vbs代碼，純自己采集，絕對(duì)良心！( 二 )