【精易模块】系统_设置时区、窗口_禁止截图

观音

  

子程序名	返回值类型	公开	备 注
系统_取所有时区	整数型		返回时区数量
参数名	类 型	参考	可空	数组	备 注
时区信息	精易_时区信息				用于接收时区信息

变量名	类 型	静态	数组	备 注
局_时区信息	精易_时区信息
Str	文本型
正则	正则表达式类
i	整数型

重定义数组 (时区信息, 假, 0)
Str ＝ 系统_取DOS执行结果 (“tzutil /l”)
正则.创建 (“\((UTC[+,-]*[\d,:]*)\) (.*?)\n([\s,\w,\d,+,-]+)”, Str)
如果真 (取反 (是否为空 (时区信息)))
计次循环首 (正则.取匹配数量 (), i)
局_时区信息.时区 ＝ 正则.取子匹配文本 (i, 1)
局_时区信息.时区名 ＝ 正则.取子匹配文本 (i, 2)
局_时区信息.时区代码 ＝ 正则.取子匹配文本 (i, 3)
加入成员 (时区信息, 局_时区信息)
计次循环尾 ()
返回 (正则.取匹配数量 ())

子程序名	返回值类型	公开	备 注
系统_设置时区	逻辑型
参数名	类 型	参考	可空	数组	备 注
时区代码	文本型				如：China Standard Time，为空则自动设为北京时区
错误信息	文本型

如果真 (是否为空 (时区代码))
时区代码 ＝ “China Standard Time”
时区代码 ＝ 删首尾空 (时区代码)
错误信息 ＝ 系统_取DOS执行结果 (“tzutil /s ” ＋ #引号 ＋ 时区代码 ＋ #引号 )
如果 (错误信息 ＝ “”)
返回 (真)
错误信息 ＝ 文本_取出中间文本 (错误信息, “TZUTIL: ”, #换行符 )
返回 (假)

子程序名	返回值类型	公开	备 注
窗口_禁止截图	逻辑型
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
是否禁止	逻辑型				真：禁止 假：取消 为空则禁止
错误代码	整数型

如果真 (是否为空 (是否禁止))
是否禁止 ＝ 真
如果 (SetWindowDisplayAffinity (窗口句柄, 选择 (是否禁止, 1, 0)))
返回 (真)
错误代码 ＝ GetLastError ()
返回 (假)

.版本 2<br /> <br /> .子程序 系统_取所有时区, 整数型, 公开, 返回时区数量<br /> .参数 时区信息, 精易_时区信息, 参考 可空 数组, 用于接收时区信息<br /> .局部变量 局_时区信息, 精易_时区信息, 静态<br /> .局部变量 Str, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 i, 整数型<br /> <br /> 重定义数组 (时区信息, 假, 0)<br /> Str ＝ 系统_取DOS执行结果 (“tzutil /l”)<br /> 正则.创建 (“\((UTC[+,-]*[\d,:]*)\) (.*?)\n([\s,\w,\d,+,-]+)”, Str)<br /> .如果真 (取反 (是否为空 (时区信息)))<br />     .计次循环首 (正则.取匹配数量 (), i)<br />         局_时区信息.时区 ＝ 正则.取子匹配文本 (i, 1)<br />         局_时区信息.时区名 ＝ 正则.取子匹配文本 (i, 2)<br />         局_时区信息.时区代码 ＝ 正则.取子匹配文本 (i, 3)<br />         加入成员 (时区信息, 局_时区信息)<br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (正则.取匹配数量 ())<br /> <br /> .子程序 系统_设置时区, 逻辑型, 公开<br /> .参数 时区代码, 文本型, 可空, 如：China Standard Time，为空则自动设为北京时区<br /> .参数 错误信息, 文本型, 参考 可空<br /> <br /> .如果真 (是否为空 (时区代码))<br />     时区代码 ＝ “China Standard Time”<br /> .如果真结束<br /> 时区代码 ＝ 删首尾空 (时区代码)<br /> 错误信息 ＝ 系统_取DOS执行结果 (“tzutil /s ” ＋ #引号 ＋ 时区代码 ＋ #引号)<br /> .如果 (错误信息 ＝ “”)<br />     返回 (真)<br /> .否则<br />     错误信息 ＝ 文本_取出中间文本 (错误信息, “TZUTIL: ”, #换行符)<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 窗口_禁止截图, 逻辑型, 公开<br /> .参数 窗口句柄, 整数型<br /> .参数 是否禁止, 逻辑型, 可空, 真：禁止 假：取消 为空则禁止<br /> .参数 错误代码, 整数型, 参考 可空<br /> <br /> .如果真 (是否为空 (是否禁止))<br />     是否禁止 ＝ 真<br /> .如果真结束<br /> .如果 (SetWindowDisplayAffinity (窗口句柄, 选择 (是否禁止, 1, 0)))<br />     返回 (真)<br /> .否则<br />     错误代码 ＝ GetLastError ()<br />     返回 (假)

系统_设置时区.e (865.24 KB, 下载次数: 74)

2020-12-5 12:55 上传

点击文件名下载附件 望添加

观音

紫色阳光 发表于 2024-6-23 01:42
编译出来就不行了 ，调试过程有效果

以管理员身份运行试试，精易模块已经收录了，看一下命令是不是写在了调试输出里

紫色阳光

编译出来就不行了 ，调试过程有效果

晚风听

        此处应该有鼓励~

6848161

牛逼。、。。。感谢分享、、、、、

爱学习的猪

感谢大佬分享

李泽勇2

y7072 发表于 2022-5-24 15:16
我找到问题所在了 。稍后发帖@你

谢谢

y7072

李泽勇2 发表于 2021-12-23 14:25
你好，禁止截图开启后 关闭win7的Aero后就失效了，请问有没有修复的方法？

我找到问题所在了 。稍后发帖@你

elephant100

感谢分享

somebody12

111111111111111