求一个锁定电脑时间的源码

小白龙来学习

比如打开软件 点击按钮后 电脑的右下角的时间就不会动了 强制锁住，如果关闭软件那么恢复 正常

519948746

最简单的 你可以做一个死循环 不停的设置系统时间为某一个时间

huayuanderen

  

子程序名	返回值类型	公开	备 注
停止系统时间显示

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
是否停止	逻辑型

.局部变量 注册表键, 文本型
.局部变量 原值, 文本型

注册表键 ＝ "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Parameters"

如果 (是否停止)
' 备份原值
原值 ＝ 取文本注册项 (注册表键, "Type", "")
写注册项 (注册表键, "Type_Backup", 原值)

' 停止时间服务
写注册项 (注册表键, "Type", "NoSync")
运行 ("net stop w32time", 假, )
' 恢复原值
原值 ＝ 取文本注册项 (注册表键, "Type_Backup", "")
如果 (原值 ≠ "")
写注册项 (注册表键, "Type", 原值)
删除注册项 (注册表键, "Type_Backup")
运行 ("net start w32time", 假, )

.子程序结束
' 主程序

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

停止系统时间显示 (真)
.子程序结束

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

停止系统时间显示 (假)
.子程序结束

.版本 2<br /> <br /> .子程序 停止系统时间显示<br />     .参数 是否停止, 逻辑型<br />     .局部变量 注册表键, 文本型<br />     .局部变量 原值, 文本型<br />     <br />     注册表键 ＝ "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Parameters"<br />     <br />     .如果 (是否停止)<br />         ' 备份原值<br />         原值 ＝ 取文本注册项 (注册表键, "Type", "")<br />         写注册项 (注册表键, "Type_Backup", 原值)<br />         <br />         ' 停止时间服务<br />         写注册项 (注册表键, "Type", "NoSync")<br />         运行 ("net stop w32time", 假, )<br />     .否则<br />         ' 恢复原值<br />         原值 ＝ 取文本注册项 (注册表键, "Type_Backup", "")<br />         .如果 (原值 ≠ "")<br />             写注册项 (注册表键, "Type", 原值)<br />             删除注册项 (注册表键, "Type_Backup")<br />             运行 ("net start w32time", 假, )<br />         .如果结束<br />     .如果结束<br /> .子程序结束<br /> <br /> ' 主程序<br /> .子程序 __启动窗口_创建完毕<br />     停止系统时间显示 (真)<br /> .子程序结束<br /> <br /> .子程序 __启动窗口_将被销毁<br />     停止系统时间显示 (假)<br /> .子程序结束

aipca

huayuanderen 发表于 2025-5-3 15:50
[e=0].版本 2

.子程序 停止系统时间显示

这只是禁用NTP同步,要暂停,估计还得是笨办法,时钟或循环一直置一个固定时间

小白龙来学习

huayuanderen 发表于 2025-5-3 15:50
[e=0].版本 2

.子程序 停止系统时间显示

大佬   运行提示   原值 ＝ 取文本注册项 (注册表键, "Type", "")  不能将文本型数据转换到整数型数据

小白龙来学习

aipca 发表于 2025-5-3 17:37
这只是禁用NTP同步,要暂停,估计还得是笨办法,时钟或循环一直置一个固定时间 ...

大佬有空能写一段吗