WWW.YOUINFO.SITE
标签聚合 option

/tag/option

LinuxDo 最新话题 · 2026-05-25 17:50:48+08:00 · tech

Option Explicit ' ================= 配置区域 ================= Dim wsh, SaveFolder Set wsh = CreateObject("WScript.Shell") ' 设置保存图片的文件夹路径 SaveFolder = wsh.ExpandEnvironmentStrings("%USERPROFILE%") & "\Pictures\BingWallpapers" Set wsh = Nothing ' =========================================== Dim objFSO, objShell, objHTTP, objStream Dim apiUrl, jsonText, imgUrl, fileName, localPath Dim regPath, ws ' 1. 初始化对象 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") Set ws = CreateObject("WScript.Shell") ' 2. 清理并创建保存目录 ' 如果文件夹存在,则删除整个文件夹 If objFSO.FolderExists(SaveFolder) Then objFSO.DeleteFolder SaveFolder, True ' True 表示强制删除只读文件或非空文件夹 End If ' 重新创建全新的空文件夹 objFSO.CreateFolder SaveFolder ' 3. 获取 Bing API 数据 apiUrl = "https://www.bing.com/HPImageArchive.aspx?format=js&idx=0&n=1&mkt=zh-CN" Set objHTTP = CreateObject("MSXML2.XMLHTTP") objHTTP.Open "GET", apiUrl, False objHTTP.Send If objHTTP.Status = 200 Then jsonText = objHTTP.ResponseText ' 4. 解析 JSON 提取图片 URL Dim urlStart, urlEnd, rawUrl urlStart = InStr(jsonText, """url"":""") + 7 If urlStart > 7 Then urlEnd = InStr(urlStart, jsonText, """") rawUrl = Mid(jsonText, urlStart, urlEnd - urlStart) ' 尝试获取更高清的UHD版本 (4K),如果不行则回退到原图 If InStr(rawUrl, "1920x1080") > 0 Then imgUrl = "https://www.bing.com" & Replace(rawUrl, "1920x1080", "UHD") Else imgUrl = "https://www.bing.com" & rawUrl End If ' 5. 确定文件名 (使用当前日期命名,格式:bing_YYYYMMDD.jpg) fileName = "bing_" & Year(Date) & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) & ".jpg" localPath = SaveFolder & "\" & fileName ' 6. 下载图片 Set objHTTP = Nothing Set objHTTP = CreateObject("MSXML2.XMLHTTP") objHTTP.Open "GET", imgUrl, False objHTTP.Send If objHTTP.Status = 200 Then Set objStream = CreateObject("ADODB.Stream") objStream.Type = 1 ' adTypeBinary objStream.Open objStream.Write objHTTP.ResponseBody objStream.SaveToFile localPath, 2 ' adSaveCreateOverWrite objStream.Close Set objStream = Nothing ' 7. 设置为桌面壁纸 regPath = "HKEY_CURRENT_USER\Control Panel\Desktop\" ws.RegWrite regPath & "Wallpaper", localPath, "REG_SZ" ws.RegWrite regPath & "WallpaperStyle", "2", "REG_SZ" ' 2=拉伸, 6=适应, 10=填充 ws.RegWrite regPath & "TileWallpaper", "0", "REG_SZ" ' 刷新桌面 ws.Run "rundll32.exe user32.dll,UpdatePerUserSystemParameters", 0, True End If End If End If ' 清理对象 Set objHTTP = Nothing Set objFSO = Nothing Set objShell = Nothing Set ws = Nothing 另存为 .vbs 使用win自带的任务计划,运行此脚本,每日自动获取必应4k壁纸并设置为桌面 1 个帖子 - 1 位参与者 阅读完整话题

v2ex.com · 2026-04-30 11:09:44+08:00 · tech

LinguaX 是一个轻量级的状态栏鼠标+输入法切换的小工具。旨在减轻工作中的上下文切换,减少心流的打断,保持顺畅的工作状态。 核心功能是: App 级别的输入法自动切换 网站级别的输入法自动切换 鼠标的平滑滚动+翻转 鼠标的多种手势+动作的支持,自定义快捷键 数据本地保存,iCloud 自动同步 差别于 Options+ 更加轻量,安装包、内存占用小一点。目前还在持续打磨,如果你有需求或建议欢迎提出。 官网: https://linguax.app 邮箱:hello#linguax.app 抽奖 抽奖送 LinguaX 永久 License 2 个 规则: 回复本帖参与,截止时间:明晚 20:00 截止后随机抽取一个楼层中奖: Math.floor(Math.random() * 总楼层) + 1

v2ex.com · 2026-04-30 11:02:49+08:00 · tech

LinguaX 是一个轻量级的状态栏鼠标+输入法切换的小工具。旨在减轻工作中的上下文切换,减少心流的打断,保持顺畅的工作状态。 核心功能是: App 级别的输入法自动切换 网站级别的输入法自动切换 鼠标的平滑滚动+翻转 鼠标的多种手势+动作的支持,自定义快捷键 数据本地保存,iCloud 自动同步 差别于 Options+ 更加轻量,安装包、内存占用小一点。目前还在持续打磨,如果你有需求或建议欢迎提出。 官网: https://linguax.app 邮箱:hello#linguax.app 抽奖 抽奖送 LinguaX 永久 License 2 个 规则: 回复本帖参与,截止时间:明晚 20:00 截止后随机抽取一个楼层中奖: Math.floor(Math.random() * 总楼层) + 1

v2ex.com · 2026-04-30 10:51:14+08:00 · tech

LinguaX 是一个轻量级的状态栏鼠标+输入法切换的小工具。旨在减轻工作中的上下文切换,减少心流的打断,保持顺畅的工作状态。 核心功能是: App 级别的输入法自动切换 网站级别的输入法自动切换 鼠标的平滑滚动+翻转 鼠标的多种手势+动作的支持,自定义快捷键 数据本地保存,iCloud 自动同步 差别于 Options+ 更加轻量,安装包、内存占用小一点。目前还在持续打磨,如果你有需求或建议欢迎提出。 官网: https://linguax.app 邮箱:hello#linguax.app 抽奖 抽奖送 LinguaX 永久 License 2 个 规则: 回复本帖参与,截止时间:明晚 20:00 截止后随机抽取一个楼层中奖: Math.floor(Math.random() * 总楼层) + 1

v2ex.com · 2026-04-30 10:18:34+08:00 · tech

LinguaX 是一个轻量级的状态栏鼠标+输入法切换的小工具。旨在减轻工作中的上下文切换,减少心流的打断,保持顺畅的工作状态。 核心功能是: App 级别的输入法自动切换 网站级别的输入法自动切换 鼠标的平滑滚动+翻转 鼠标的多种手势+动作的支持,自定义快捷键 数据本地保存,iCloud 自动同步 差别于 Options+ 更加轻量,安装包、内存占用小一点。目前还在持续打磨,如果你有需求或建议欢迎提出。 官网: https://linguax.app 邮箱:hello#linguax.app 抽奖 抽奖送 LinguaX 永久 License 2 个 规则: 回复本帖参与,截止时间:明晚 20:00 截止后随机抽取一个楼层中奖: Math.floor(Math.random() * 总楼层) + 1

v2ex.com · 2026-04-30 10:18:34+08:00 · tech

LinguaX 是一个轻量级的状态栏鼠标+输入法切换的小工具。旨在减轻工作中的上下文切换,减少心流的打断,保持顺畅的工作状态。 核心功能是: App 级别的输入法自动切换 网站级别的输入法自动切换 鼠标的平滑滚动+翻转 鼠标的多种手势+动作的支持,自定义快捷键 数据本地保存,iCloud 自动同步 差别于 Options+ 更加轻量,安装包、内存占用小一点。目前还在持续打磨,如果你有需求或建议欢迎提出。 官网: https://linguax.app 邮箱:hello#linguax.app 抽奖 抽奖送 LinguaX 永久 License 2 个 规则: 回复本帖参与,截止时间:明晚 20:00 截止后随机抽取一个楼层中奖: Math.floor(Math.random() * 总楼层) + 1

v2ex.com · 2026-04-30 10:00:39+08:00 · tech

LinguaX 是一个轻量级的状态栏鼠标+输入法切换的小工具。旨在减轻工作中的上下文切换,减少心流的打断,保持顺畅的工作状态。 核心功能是: App 级别的输入法自动切换 网站级别的输入法自动切换 鼠标的平滑滚动+翻转 鼠标的多种手势+动作的支持,自定义快捷键 数据本地保存,iCloud 自动同步 差别于 Options+ 更加轻量,安装包、内存占用小一点。目前还在持续打磨,如果你有需求或建议欢迎提出。 官网: https://linguax.app 邮箱:hello#linguax.app 抽奖 抽奖送 LinguaX 永久 License 2 个 规则: 回复本帖参与,截止时间:明晚 20:00 截止后随机抽取一个楼层中奖: Math.floor(Math.random() * 总楼层) + 1

v2ex.com · 2026-04-30 09:45:14+08:00 · tech

LinguaX 是一个轻量级的状态栏鼠标+输入法切换的小工具。旨在减轻工作中的上下文切换,减少心流的打断,保持顺畅的工作状态。 核心功能是: App 级别的输入法自动切换 网站级别的输入法自动切换 鼠标的平滑滚动+翻转 鼠标的多种手势+动作的支持,自定义快捷键 数据本地保存,iCloud 自动同步 差别于 Options+ 更加轻量,安装包、内存占用小一点。目前还在持续打磨,如果你有需求或建议欢迎提出。 官网: https://linguax.app 邮箱:hello#linguax.app 抽奖 抽奖送 LinguaX 永久 License 2 个 规则: 回复本帖参与,截止时间:明晚 20:00 截止后随机抽取一个楼层中奖: Math.floor(Math.random() * 总楼层) + 1

v2ex.com · 2026-04-30 09:40:42+08:00 · tech

LinguaX 是一个轻量级的状态栏鼠标+输入法切换的小工具。旨在减轻工作中的上下文切换,减少心流的打断,保持顺畅的工作状态。 核心功能是: App 级别的输入法自动切换 网站级别的输入法自动切换 鼠标的平滑滚动+翻转 鼠标的多种手势+动作的支持,自定义快捷键 数据本地保存,iCloud 自动同步 差别于 Options+ 更加轻量,安装包、内存占用小一点。目前还在持续打磨,如果你有需求或建议欢迎提出。 官网: https://linguax.app 邮箱:hello#linguax.app 抽奖 抽奖送 LinguaX 永久 License 2 个 规则: 回复本帖参与,截止时间:明晚 20:00 截止后随机抽取一个楼层中奖: Math.floor(Math.random() * 总楼层) + 1

v2ex.com · 2026-04-30 09:17:58+08:00 · tech

LinguaX 是一个轻量级的状态栏鼠标+输入法切换的小工具。旨在减轻工作中的上下文切换,减少心流的打断,保持顺畅的工作状态。 核心功能是: App 级别的输入法自动切换 网站级别的输入法自动切换 鼠标的平滑滚动+翻转 鼠标的多种手势+动作的支持,自定义快捷键 数据本地保存,iCloud 自动同步 差别于 Options+ 更加轻量,安装包、内存占用小一点。目前还在持续打磨,如果你有需求或建议欢迎提出。 官网: https://linguax.app 邮箱:hello#linguax.app 抽奖 抽奖送 LinguaX 永久 License 2 个 规则: 回复本帖参与,截止时间:明晚 20:00 截止后随机抽取一个楼层中奖: Math.floor(Math.random() * 总楼层) + 1

v2ex.com · 2026-04-30 09:17:58+08:00 · tech

LinguaX 是一个轻量级的状态栏鼠标+输入法切换的小工具。旨在减轻工作中的上下文切换,减少心流的打断,保持顺畅的工作状态。 核心功能是: App 级别的输入法自动切换 网站级别的输入法自动切换 鼠标的平滑滚动+翻转 鼠标的多种手势+动作的支持,自定义快捷键 数据本地保存,iCloud 自动同步 差别于 Options+ 更加轻量,安装包、内存占用小一点。目前还在持续打磨,如果你有需求或建议欢迎提出。 官网: https://linguax.app 邮箱:hello#linguax.app 抽奖 抽奖送 LinguaX 永久 License 2 个 规则: 回复本帖参与,截止时间:明晚 20:00 截止后随机抽取一个楼层中奖: Math.floor(Math.random() * 总楼层) + 1