2025年【批处理脚本——更新电脑日期格式，自动下载软件到指定文件夹下】

科技前沿 • 2025-01-18 13:45 • 阅读 68

大家好，我是讯享网，很高兴认识大家。

#批处理脚本——更新电脑日期格式，自动下载软件到指定文件夹下
一、批处理（.bat文件)自动更改电脑日期格式为xx-xx-xx
@echo off & title 更改系统日期格式 By WO
taskkill /f /im explorer.exe
reg add “HKCU\Control Panel\International” /v sShortDate /t REG_SZ /d yyyy-MM-dd /f
explorer
exit

二、批处理（.bat文件）自动从指定网址中下载软件放入指定文件夹下，及创建快捷方式
@echo off & title Bat+Vbs 下载器 By WO

::设置文件保存目录，若下载至当前目录，请留空
set Save=%UserProfile%
if exist %Save% (echo 位置：%Save%) else (mkdir %Save% & echo 已创建：%Save%)

for %%a in (“%Url%”) do set “FileName=%%~nxa”
if not defined Save set “Save=%cd%”
(echo Download Wscript.Arguments⁽⁰),Wscript.Arguments⁽¹)
echo Sub Download^(url,target)
echo Const adTypeBinary = 1
echo Const adSaveCreateOverWrite = 2
echo Dim http,ado
echo Set http = CreateObject^{(“Msxml2.ServerXMLHTTP”})
echo http.open “GET”,url,False
echo http.send
echo Set ado = createobject^{(“Adodb.Stream”})
echo ado.Type = adTypeBinary
echo ado.Open
echo ado.Write http.responseBody
echo ado.SaveToFile target
echo ado.Close
echo End Sub)>DownloadFile.vbs

DownloadFile.vbs “%Url%” “%Save%%FileName%”
::下载完删除生成的vbs文件
del DownloadFile.vbs

讯享网

@echo off
echo 正在创建桌面快捷方式，请勿关闭本窗口.
::设置程序或文件的完整路径（必选）
set Program=%USERPROFILE%\LongMarch.exe

if not defined WorkDir call:GetWorkDir “%Program%”
(echo Set WshShell=CreateObject(“WScript.Shell”^)
echo strDesKtop=WshShell.SpecialFolders(“DesKtop”^)
echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^{&“%LnkName%.lnk”})
echo oShellLink.TargetPath=“%Program%”
echo oShellLink.WorkingDirectory=“%WorkDir%”
echo oShellLink.WindowStyle=1
echo oShellLink.Description=“%Desc%”
echo oShellLink.Save)>makelnk.vbs
echo 桌面快捷方式创建成功！
makelnk.vbs
del /f /q makelnk.vbs
exit
goto :eof
:GetWorkDir
set WorkDir=%~dp1
set WorkDir=%WorkDir:~,-1%
goto :eof

2025年【批处理脚本——更新电脑日期格式，自动下载软件到指定文件夹下】

相关推荐