我正在尝试通过下载最后一个 'Query the database
Sheets("FullRecordFromSS").Select
ActiveSheet.Unprotect
DoEvents
Range("Table_ExternalData_1[ID]").Select
Let stSQL1 = "SELECT * FROM libInfo.dbo.tblMain where LibUserID = " & "'" & SelectedLibUserID & "'" & ";"
Range("A2").Select
With ActiveWorkbook.Connections("GetRecordToUpdate").ODBCConnection
.BackgroundQuery = True
.CommandText = stSQL1
.CommandType = xlCmdSql
.Connection = _
"ODBC;DRIVER=SQL Server;SERVER=db1d.acsu.buffalo.edu,14360;UID=libinfo;PWD=inf014lib;APP=Microsoft Office 2016;WSID=LIBJBG6281"
.RefreshOnFileOpen = False
.SavePassword = True
.SourceConnectionFile = ""
.SourceDataFile = ""
.ServerCredentialsMethod = xlCredentialsMethodIntegrated
.AlwaysUseConnectionFile = False
End With
图片并将其设置为墙纸来更改我的墙纸的批处理文件。我已经完成了，但是有一部分我不理解。
这是批处理脚本：
APOD没有bitsadmin.exe /transfer GETWALLPAPER %LastImg% %SaveDest%
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /t REG_SZ /d %savedest% /f
timeout /t 01
RUNDLL32.EXE USER32.DLL,UpdatePerUserSystemParameters
for /l %%x in (1,1,10) do (
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /t REG_SZ /d %savedest% /f
RUNDLL32.EXE USER32.DLL,UpdatePerUserSystemParameters
timeout /t 01
)
循环。有时墙纸会更新，有时不会。我不明白。
有没有一种方法可以使此脚本可靠而无需结束循环？
我运行Windows 10-64位
编辑23/01/19：如果有人有答案，问题仍然悬而未决。该脚本可以工作，但是我需要循环执行此reg命令50次才能以可靠的方式对其进行更新。