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

Defender

自己一直在用，忘记从哪搞到的了 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