1、A1列输入所有IP地址；

2、按 Alt + F11键 启用键 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块 创建一个新模块。 看截图；

3、在里面 模块 脚本，将下面的代码粘贴到该脚本，然后保存代码并关闭VBA窗口；

 Function IP(Txt As String) As String
'UpdatebyExtendoffice20170725
    Dim xList As Variant
    Dim I As Long
    xList = Split(Txt, ".")
    For I = LBound(xList) To UBound(xList)
        xList(I) = Format(xList(I), "000")
    Next
    IP = Join(xList, ".")
End Function

1、计算机配置——策略——管理模板——控制面板——个性化

2、启用“强制显示特定的默认锁屏界面图像和登录图像”和“阻止更改锁屏界面图像和登录图像”

3、在“强制显示特定的默认锁屏界面图像和登录图像”中添加锁屏图像的路径，可以是本地图片或是网络路径图片

提取Win10聚焦锁屏壁纸.rar

1、下载软件Troubleshoot.zip到本地

Troubleshoot.zip