开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

楼主: y7072
收起左侧

[易语言纯源码] 禁用Windows自动更新,win10,win11亲测可用

[复制链接]
发表于 2024-1-15 06:46:57 | 显示全部楼层   广东省湛江市
66666666666666666
回复 支持 反对

使用道具 举报

结帖率:100% (3/3)

签到天数: 18 天

发表于 2024-1-15 03:20:41 | 显示全部楼层   广东省深圳市
66666666666666666
回复 支持 反对

使用道具 举报

结帖率:100% (2/2)

签到天数: 13 天

发表于 2024-1-15 03:13:44 | 显示全部楼层   江苏省苏州市
486二哥任人7会天8加
回复 支持 反对

使用道具 举报

结帖率:96% (50/52)

签到天数: 10 天

发表于 2024-1-15 00:35:45 | 显示全部楼层   广东省汕尾市
6666666666666666666666666
回复 支持 反对

使用道具 举报

签到天数: 4 天

发表于 2024-1-14 23:51:22 | 显示全部楼层   河北省廊坊市
1111111111111111111
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)

签到天数: 22 天

发表于 2024-1-14 22:28:03 | 显示全部楼层   湖北省鄂州市
扣了一份精易模块命令

  
子程序名返回值类型公开备 注
禁用Windows自动更新逻辑型 
变量名类 型静态数组备 注
temp逻辑型 
temp1逻辑型 
temp2逻辑型 
temp3逻辑型 
temp4逻辑型 
' https://support.microsoft.com/zh-cn/topic/%E5%8D%B3%E4%BD%BF-au-%E9%80%89%E9%A1%B9%E8%A2%AB%E7%A6%81%E7%94%A8-windows-8-1-%E5%92%8C-windows-server-2012-r2-%E4%B8%AD%E6%8E%A5%E6%94%B6%E5%88%B0%E4%B8%8D%E6%AD%A3%E7%A1%AE%E7%9A%84%E8%87%AA%E5%8A%A8%E6%9B%B4%E6%96%B0%E9%80%9A%E7%9F%A5-18b4b73a-3910-9408-809c-7eaad0e1fbc7
temp = 写注册项 ( #本地机器, “SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoUpdate”, 1)
temp1 = 写注册项 ( #本地机器, “SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\AUOptions”, 1)
判断 (注册项是否存在 ( #本地机器, “SYSTEM\CurrentControlSet\Services\wuauserv”))
temp2 = 写注册项 ( #本地机器, “SYSTEM\CurrentControlSet\Services\wuauserv\Start”, 4)  ' 设置 Windows Update 更新服务为禁用
temp3 = 运行 (“net stop wuauserv”, 假, #隐藏窗口 )
temp4 = 注册表项重命名 (“HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wuauserv”, “wuauservbak”)  ' 将Windows Update服务的注册表更名,使该服务不可用
判断 (注册项是否存在 ( #本地机器, “SYSTEM\CurrentControlSet\Services\wuauservbak”))
返回 ()



返回 (位与 (1, 到整数 (temp), 到整数 (temp1), 到整数 (temp2), 到整数 (temp3), 到整数 (temp4)) = 1)
子程序名返回值类型公开备 注
启用Windows自动更新逻辑型 
变量名类 型静态数组备 注
temp逻辑型 
temp1逻辑型 
temp2逻辑型 
temp3逻辑型 
temp4逻辑型 
' https://support.microsoft.com/zh-cn/topic/%E5%8D%B3%E4%BD%BF-au-%E9%80%89%E9%A1%B9%E8%A2%AB%E7%A6%81%E7%94%A8-windows-8-1-%E5%92%8C-windows-server-2012-r2-%E4%B8%AD%E6%8E%A5%E6%94%B6%E5%88%B0%E4%B8%8D%E6%AD%A3%E7%A1%AE%E7%9A%84%E8%87%AA%E5%8A%A8%E6%9B%B4%E6%96%B0%E9%80%9A%E7%9F%A5-18b4b73a-3910-9408-809c-7eaad0e1fbc7
temp = 删除注册项 ( #本地机器, “SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoUpdate”)
temp1 = 删除注册项 ( #本地机器, “SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\AUOptions”)
判断 (注册项是否存在 ( #本地机器, “SYSTEM\CurrentControlSet\Services\wuauservbak”))
temp2 = 注册表项重命名 (“HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wuauservbak”, “wuauserv”)  ' 恢复Windows Update服务的注册表名
temp3 = 写注册项 ( #本地机器, “SYSTEM\CurrentControlSet\Services\wuauserv\Start”, 3)  ' 设置 Windows Update 更新服务为启用
temp4 = 运行 (“net start wuauserv”, 假, #隐藏窗口 )

返回 ()

返回 (位与 (1, 到整数 (temp), 到整数 (temp1), 到整数 (temp2), 到整数 (temp3), 到整数 (temp4)) = 1)
子程序名返回值类型公开备 注
注册表项重命名逻辑型 成功返回真
参数名类 型参考可空数组备 注
项名称文本型如:HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\NetBT\Parameters
新项名文本型如:3600
变量名类 型静态数组备 注
hKey整数型 
Unicode字节集 
NewNameUNICODE_STRING 
bRes整数型 
hKey = _打开注册表项 (项名称, )
如果真 (hKey = 0)
返回 ()
Unicode = 编码_Ansi到Unicode (新项名, )
RtlInitUnicodeString (NewName, Unicode)
bRes = NtRenameKey (hKey, NewName)
RegCloseKey (hKey)
返回 (bRes = 0)
子程序名返回值类型公开备 注
_打开注册表项整数型 
参数名类 型参考可空数组备 注
项名称文本型
是否创建逻辑型默认为假:打开 真:如果项不存在则创建项
变量名类 型静态数组备 注
局_根句柄整数型 
局_项句柄整数型 
局_项文本文本型 
局_位置整数型 
b整数型 
局_位置 = 寻找文本 (项名称, “\”, , )
局_项文本 = 取文本左边 (项名称, 局_位置 - 1)
局_项文本 = 到大写 (局_项文本)
判断 (局_项文本 = “HKEY_CLASSES_ROOT”)
局_根句柄 = 2147483648
判断 (局_项文本 = “HKEY_CURRENT_USER”)
局_根句柄 = 2147483649
判断 (局_项文本 = “HKEY_LOCAL_MACHINE”)
局_根句柄 = 2147483650
判断 (局_项文本 = “HKEY_USERS”)
局_根句柄 = 2147483651
判断 (文本比较 (局_项文本, “HKEY_CURRENT_CONFIG”, ) = 0)
局_根句柄 = 2147483653
返回 (0)
如果 (是否创建)
b = RegCreateKeyA (局_根句柄, 取文本右边 (项名称, 取文本长度 (项名称) - 局_位置), 局_项句柄)
b = RegOpenKeyA (局_根句柄, 取文本右边 (项名称, 取文本长度 (项名称) - 局_位置), 局_项句柄)
如果真 (b = 0)
返回 (局_项句柄)
返回 (0)
子程序名返回值类型公开备 注
编码_Ansi到Unicode字节集 将Ansi码转换为Unicode码;成功返回转换后的字节集;
参数名类 型参考可空数组备 注
Ansi文本型欲转换的Ansi文本
非标准Unicode编码逻辑型默认为假,为标准Unicode编码
变量名类 型静态数组备 注
szChar字节集 
szChar = A2W_CP (到字节集 (Ansi), 936)  ' CP_gb2312
如果真 (非标准Unicode编码)
szChar = 删除Unicode结尾空白字节 (szChar)
返回 (szChar)
子程序名返回值类型公开备 注
删除Unicode结尾空白字节字节集 
参数名类 型参考可空数组备 注
欲被处理的字节集字节集
标准Unicode编码逻辑型默认为假,非标准Unicode编码
变量名类 型静态数组备 注
dwSize整数型 
ptr整数型 
s短整数型 
i整数型 
dwSize = 取字节集长度 (欲被处理的字节集)
如果真 (dwSize < 2)
返回 ({  })
ptr = 取指针_字节集型 (欲被处理的字节集)
变量循环首 (0, dwSize - 2, 2, i)
s = 指针_到短整数型_汇编 (ptr + i)
如果真 (s = 0)
跳出循环 ()

变量循环尾 ()
判断 (i = 0 i > dwSize)
返回 ({  })
判断 (标准Unicode编码)
返回 (指针到字节集 (ptr, i){ 0, 0 })
返回 (指针到字节集 (ptr, i))

子程序名返回值类型公开备 注
指针_到短整数型_汇编短整数型 
参数名类 型参考可空数组备 注
指针整数型
置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
' mov eax , dword ptr [ebp+08h]
' mov eax , dword ptr [eax]
' leave
' retn 0004h
返回 (0)
子程序名返回值类型公开备 注
编码_Unicode到Ansi文本型 将Unicode码转换为Ansi码;成功返回转换后的文本;
参数名类 型参考可空数组备 注
Unicode字节集欲转换的Unicode字节集
目标编码整数型#CP_ACP
变量名类 型静态数组备 注
szChar字节集 
如果真 (是否为空 (目标编码))
目标编码 = 0  ' CP_ACP
szChar = W2A_CP (Unicode, 目标编码)
返回 (取字节集数据 (szChar, #文本型, ))
子程序名返回值类型公开备 注
A2W_CP字节集 
参数名类 型参考可空数组备 注
lpa字节集
acp整数型#CP_x
变量名类 型静态数组备 注
ByteStr字节集 
lpsz整数型 
len整数型 
CharStr字节集 
ByteStr = lpa + { 0 }
lpsz = 取指针字节集_ (ByteStr)
如果真 (lpsz ≠ 0 strlen (lpsz) > 0)
len = MultiByteToWideChar (acp, 0, lpsz, -1, 0, 0)
CharStr = 取空白字节集 (len × 2)
MultiByteToWideChar (acp, 0, lpsz, -1, 取指针_字节集型 (CharStr), len)
返回 (CharStr)
子程序名返回值类型公开备 注
取指针_字节集型整数型 取到的是变量堆地址,和 取变量数据地址() 一样
参数名类 型参考可空数组备 注
字节集字节集
置入代码 ({ 139, 69, 8, 139, 0, 133, 192, 15, 132, 3, 0, 0, 0, 131, 192, 8, 201, 194, 4, 0 })
返回 (0)
子程序名返回值类型公开备 注
取指针字节集_整数型 
参数名类 型参考可空数组备 注
参数_字节集字节集
置入代码 ({ 139, 69, 8, 139, 0, 5, 8, 0, 0, 0, 201, 194, 4, 0 })
' mov eax,[ebp+08]
' mov eax,[eax]
' add eax,08
' leave
' retn 04
返回 (0)
子程序名返回值类型公开备 注
W2A_CP字节集 
参数名类 型参考可空数组备 注
lpw字节集
acp整数型#CP_x
变量名类 型静态数组备 注
CharStr字节集 
lpwsz整数型 
len整数型 
ByteStr字节集 
lpsz整数型 
CharStr = lpw + { 0, 0 }
lpwsz = 取指针字节集_ (CharStr)
如果真 (lpwsz ≠ 0 lstrlenW (lpwsz) > 0)
len = WideCharToMultiByte (acp, 0, lpwsz, -1, 0, 0, 0, 0)
ByteStr = 取空白字节集 (len)
lpsz = 取指针_字节集型 (ByteStr)
WideCharToMultiByte (acp, 0, lpwsz, -1, lpsz, len, 0, 0)
ByteStr = 指针到字节集 (lpsz, strlen (lpsz))  ' 不保留结尾的0
返回 (ByteStr)
  
数据类型名公开备 注
UNICODE_STRING 进程_取父ID
成员名类 型传址数组备 注
长度短整数型 Length
最大长度短整数型 MaximumLength
缓冲区整数型 Buffer

  
DLL命令名返回值类型公开备 注
MultiByteToWideChar整数型 该函数映射一个字符串到一个宽字符(unicode)的字符
DLL库文件名:
Kernel32.dll
在DLL库中对应命令名:
MultiByteToWideChar
参数名类 型传址数组备 注
CodePage整数型
dwFlags整数型
lpMultiByteStr整数型
cchMultiByte整数型
lpWideCharStr整数型
cchWideChar整数型
DLL命令名返回值类型公开备 注
RtlInitUnicodeString 
DLL库文件名:
ntdll.dll
在DLL库中对应命令名:
RtlInitUnicodeString
参数名类 型传址数组备 注
DestinationStringUNICODE_STRING
SourceString字节集
DLL命令名返回值类型公开备 注
NtRenameKey整数型 
DLL库文件名:
ntdll.dll
在DLL库中对应命令名:
NtRenameKey
参数名类 型传址数组备 注
KeyHandle整数型
ReplacementNameUNICODE_STRING
DLL命令名返回值类型公开备 注
RegCloseKey整数型 _注册表_关闭项 advapi32.dll关闭系统注册表中的一个项(或键)  零(ERROR_SUCCESS)表示成功。其他任何值都代表一个错误代码
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
RegCloseKey
参数名类 型传址数组备 注
hKey整数型要关闭的项;
DLL命令名返回值类型公开备 注
RegCreateKeyA整数型 _注册表_创建项 advapi32.dll在指定的项下创建一个新项。如指定的项已经存在,那么函数会打开现有的项  零(ERROR_SUCCESS)表示成功。其他任何值都代表一个错误代码
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
RegCreateKeyA
参数名类 型传址数组备 注
hKey整数型要打开项的句柄,或者一个标准项名
lpSubKey文本型欲创建的新子项。可同时创建多个项,只需用反斜杠将它们分隔开即可。例如level1\level2\newkey
phkResult整数型指定一个变量,用于装载新子项的句柄;
DLL命令名返回值类型公开备 注
RegOpenKeyA整数型 _注册表_打开项 打开一个现有的注册表项  零(ERROR_SUCCESS)表示成功。其他任何值都代表一个错误代码
DLL库文件名:
advapi32.dll
在DLL库中对应命令名:
RegOpenKeyA
参数名类 型传址数组备 注
hKey整数型一个已打开项的句柄,或指定一个标准项名
lpSubKey文本型要打开的项名
phkResult整数型指定一个变量,用于装载(保存)打开注册表项的一个句柄;
DLL命令名返回值类型公开备 注
strlen整数型 
DLL库文件名:
msvcrt.dll
在DLL库中对应命令名:
@strlen
参数名类 型传址数组备 注
lpsz整数型
DLL命令名返回值类型公开备 注
lstrlenW整数型 
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
lstrlenW
参数名类 型传址数组备 注
lpString整数型
DLL命令名返回值类型公开备 注
WideCharToMultiByte整数型 
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
WideCharToMultiByte
参数名类 型传址数组备 注
CodePage整数型
dwFlags整数型
lpWideCharStr整数型
cchWideChar整数型
lpMultiByteStr整数型
cbMultiByte整数型
lpDefaultChar整数型
lpUsedDefaultChar整数型


回复 支持 反对

使用道具 举报

结帖率:100% (2/2)
发表于 2024-1-14 22:25:09 | 显示全部楼层   湖南省永州市
收藏了,我就是因为系统老是强制更新,才老老实实用WIN7的。谢谢分享
回复 支持 反对

使用道具 举报

结帖率:100% (14/14)

签到天数: 19 天

发表于 2024-1-14 22:08:12 | 显示全部楼层   广东省肇庆市
看看学习一下
回复 支持 反对

使用道具 举报

签到天数: 18 天

发表于 2024-1-14 21:08:30 | 显示全部楼层   江苏省连云港市
支持开源~!感谢分享
回复 支持 反对

使用道具 举报

结帖率:80% (4/5)

签到天数: 2 天

发表于 2024-1-14 20:59:09 | 显示全部楼层   山东省潍坊市
已经顶贴,感谢您对论坛的支持!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表