[Windows] 一键关闭win10更新【可见源码】

天阳

自己一直在用，忘记从哪搞到的了
txt改为的vbs脚本
可以一键开启或关闭win10更新
右键选择编辑可看源码
新建记事本，复制以下代码粘贴保存，修改后缀为vbs，双击运行即可
----------------------------------------------------------------------------
更新一下，很多人说遇到乱码的问题了，很好解决，改时区或保存的时候修改txt编码
具体可参照此教程：解决txt乱码
乱码不影响功能，双击弹出输入框，输入“1”是关闭更新，“2”是开启更新



' 管理Win10自动更新v3.vbs.
Const usosvc_reg = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\usosvc"
Set fso = createobject("scripting.filesystemobject")
Set shell = createobject("wscript.shell")
curdir = fso.getparentfoldername(wscript.scriptfullname)
If wscript.arguments.count = 0 Then
        Set sh = createobject("shell.application")
        sh.shellexecute wscript.fullname,"""" & wscript.scriptfullname & """ -admin",,"runas"
ElseIf wscript.arguments.count = 1 And wscript.arguments(0) = "-admin" Then
        run
Else
        msgbox "脚本启动参数错误!"
End If
Sub Run()
        Do
                ret = inputbox("1. 禁止Win10自动更新;" & vbcrlf & _
                                                "2. 恢复Win10自动更新;" & vbcrlf & _
                                                vbcrlf & _
                                                "请输入序号:","管理Win10自动更新v3","1")
                Select Case ret
                Case "1"
                        retnum = shell.run("sc.exe stop usosvc",0,True)
                        shell.regwrite usosvc_reg & "\WOW64",&H14c,"REG_DWORD"
                        msgbox "已禁止Win10自动更新!",vbexclamation
                        Exit Do
                Case "2"
                        shell.regdelete usosvc_reg & "\WOW64"
                        retnum = shell.run("sc.exe start usosvc",0,True)
                        msgbox "已恢复Win10自动更新!",vbexclamation
                        Exit Do
                Case ""
                        Exit Do
                Case Else
                        msgbox "输入错误!请重新输入!",vbcritical
                End Select
        Loop
End Sub

zgy7529

6666666666666