精易模块 BUG反馈 说明

waweiggfnh

模块版本：精易模块V5.25
所用系统：Win7 32位
命令名称：时间_取现行时间戳，时间_取随机时间戳
BUG描述：缺少取指定时间戳命令，如“2015-10-15” 转换为 1444838400，目前这个缺少，只能取现行时间戳和随机时间戳，希望能添加一条上去。
我的联系QQ：113692315
-------如果可以，请把测试有问题的【源码】上传上来，方便我们测试。如果你有解决方案请一并提出，感谢！--------

希望添加的代码

  

子程序名	返回值类型	公开	备 注
时间_取时间戳	文本型		生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169
参数名	类 型	参考	可空	数组	备 注
是否取十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回
转换时间	日期时间型				待转换的时间格式，如“2015-11-30”或者“2015年11月30日 11:25：15”

变量名	类 型	静态	数组	备 注
时间b	精易_时间
返回值	文本型
毫秒数	文本型
时间a	文本型

GetLocalTime (时间b)
毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (时间b.毫)), “0”) ＋ 到文本 (时间b.毫)
时间a ＝ 到文本 (取时间间隔 (转换时间, 到时间 (“1970-01-01 08:00:00”), #秒 ))
返回 (选择 (是否取十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数))

.版本 2<br /> <br /> .子程序 时间_取时间戳, 文本型, 公开, 生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169<br /> .参数 是否取十位时间戳, 逻辑型, 可空, 本参数为真时，将生成10位时间戳返回<br /> .参数 转换时间, 日期时间型, , 待转换的时间格式，如“2015-11-30”或者“2015年11月30日 11:25：15”<br /> .局部变量 时间b, 精易_时间<br /> .局部变量 返回值, 文本型<br /> .局部变量 毫秒数, 文本型<br /> .局部变量 时间a, 文本型<br /> <br /> GetLocalTime (时间b)<br /> 毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (时间b.毫)), “0”) ＋ 到文本 (时间b.毫)<br /> 时间a ＝ 到文本 (取时间间隔 (转换时间, 到时间 (“1970-01-01 08:00:00”), #秒))<br /> 返回 (选择 (是否取十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数))

已有的代码：

  

子程序名	返回值类型	公开	备 注
时间_取现行时间戳	文本型		生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169
参数名	类 型	参考	可空	数组	备 注
是否取十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回

变量名	类 型	静态	数组	备 注
时间b	精易_时间
返回值	文本型
毫秒数	文本型
时间a	文本型

GetLocalTime (时间b)
毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (时间b.毫)), “0”) ＋ 到文本 (时间b.毫)
时间a ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒 ))
返回 (选择 (是否取十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数))

.版本 2<br /> <br /> .子程序 时间_取现行时间戳, 文本型, 公开, 生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169<br /> .参数 是否取十位时间戳, 逻辑型, 可空, 本参数为真时，将生成10位时间戳返回<br /> .局部变量 时间b, 精易_时间<br /> .局部变量 返回值, 文本型<br /> .局部变量 毫秒数, 文本型<br /> .局部变量 时间a, 文本型<br /> <br /> GetLocalTime (时间b)<br /> 毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (时间b.毫)), “0”) ＋ 到文本 (时间b.毫)<br /> 时间a ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒))<br /> 返回 (选择 (是否取十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数))

  

子程序名	返回值类型	公开	备 注
时间_取随机时间戳	文本型		生成一个随机的时间戳。如：0.842703761170252

变量名	类 型	静态	数组	备 注
VBscript	对象
局_文本	文本型

线程_初始化COM库 ()
VBscript.创建 (“ScriptControl”, )
VBscript.写属性 (“Language”, “JScript”)
VBscript.数值方法 (“ExecuteStatement”, “function time(){return Math.random()}”)
判断循环首 (取文本长度 (局_文本) ≠ 17)
局_文本 ＝ VBscript.通用方法 (“Run”, “time”, ).取文本 ()
如果真 (取文本左边 (局_文本, 1) ≠ “0”)
局_文本 ＝ “0” ＋ 局_文本
系统_处理事件 ()
判断循环尾 ()
VBscript.清除 ()
线程_取消COM库 ()
返回 (局_文本)

.版本 2<br /> <br /> .子程序 时间_取随机时间戳, 文本型, 公开, 生成一个随机的时间戳。如：0.842703761170252<br /> .局部变量 VBscript, 对象<br /> .局部变量 局_文本, 文本型<br /> <br /> 线程_初始化COM库 ()<br /> VBscript.创建 (“ScriptControl”, )<br /> VBscript.写属性 (“Language”, “JScript”)<br /> VBscript.数值方法 (“ExecuteStatement”, “function time(){return Math.random()}”)<br /> .判断循环首 (取文本长度 (局_文本) ≠ 17)<br /> 局_文本 ＝ VBscript.通用方法 (“Run”, “time”, ).取文本 ()<br /> .如果真 (取文本左边 (局_文本, 1) ≠ “0”)<br /> 局_文本 ＝ “0” ＋ 局_文本<br /> .如果真结束<br /> 系统_处理事件 ()<br /> .判断循环尾 ()<br /> VBscript.清除 ()<br /> 线程_取消COM库 ()<br /> 返回 (局_文本)

希望模块能添加一条上去，能省去不少时间，我为了转换指定的时间戳，网上也找了不少资料，都是把时间戳转换为时间格式的命令，这条转换指定时间戳的命令缺失，真诚希望添加上去！谢谢！@冰点 @精易客服 @果子

waweiggfnh

模块版本：精易模块V5.25
所用系统：Win7 32位
命令名称：时间_取现行时间戳，时间_取随机时间戳
BUG描述：缺少取指定时间戳命令，如“2015-10-15” 转换为 1444838400，目前这个缺少，只能取现行时间戳和随机时间戳，希望能添加一条上去。
我的联系QQ：113692315
-------如果可以，请把测试有问题的【源码】上传上来，方便我们测试。如果你有解决方案请一并提出，感谢！--------

希望添加的代码

  

子程序名	返回值类型	公开	备 注
时间_取时间戳	文本型		生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169
参数名	类 型	参考	可空	数组	备 注
是否取十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回
转换时间	日期时间型

变量名	类 型	静态	数组	备 注
时间b	精易_时间
返回值	文本型
毫秒数	文本型
时间a	文本型

GetLocalTime (时间b)
毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (时间b.毫)), “0”) ＋ 到文本 (时间b.毫)
时间a ＝ 到文本 (取时间间隔 (转换时间, 到时间 (“1970-01-01 08:00:00”), #秒 ))
返回 (选择 (是否取十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数))

.版本 2<br /> <br /> .子程序 时间_取时间戳, 文本型, 公开, 生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169<br /> .参数 是否取十位时间戳, 逻辑型, 可空, 本参数为真时，将生成10位时间戳返回<br /> .参数 转换时间, 日期时间型<br /> .局部变量 时间b, 精易_时间<br /> .局部变量 返回值, 文本型<br /> .局部变量 毫秒数, 文本型<br /> .局部变量 时间a, 文本型<br /> <br /> GetLocalTime (时间b)<br /> 毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (时间b.毫)), “0”) ＋ 到文本 (时间b.毫)<br /> 时间a ＝ 到文本 (取时间间隔 (转换时间, 到时间 (“1970-01-01 08:00:00”), #秒))<br /> 返回 (选择 (是否取十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数))

已有的代码：

  

子程序名	返回值类型	公开	备 注
时间_取现行时间戳	文本型		生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169
参数名	类 型	参考	可空	数组	备 注
是否取十位时间戳	逻辑型				本参数为真时，将生成10位时间戳返回

变量名	类 型	静态	数组	备 注
时间b	精易_时间
返回值	文本型
毫秒数	文本型
时间a	文本型

GetLocalTime (时间b)
毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (时间b.毫)), “0”) ＋ 到文本 (时间b.毫)
时间a ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒 ))
返回 (选择 (是否取十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数))

.版本 2<br /> <br /> .子程序 时间_取现行时间戳, 文本型, 公开, 生成一个13位或者10位的现行时间戳，默认生成13位时间戳。13位：1325252169718，10位：1325252169<br /> .参数 是否取十位时间戳, 逻辑型, 可空, 本参数为真时，将生成10位时间戳返回<br /> .局部变量 时间b, 精易_时间<br /> .局部变量 返回值, 文本型<br /> .局部变量 毫秒数, 文本型<br /> .局部变量 时间a, 文本型<br /> <br /> GetLocalTime (时间b)<br /> 毫秒数 ＝ 取重复文本 (3 － 取文本长度 (到文本 (时间b.毫)), “0”) ＋ 到文本 (时间b.毫)<br /> 时间a ＝ 到文本 (取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒))<br /> 返回 (选择 (是否取十位时间戳, 取文本左边 (时间a ＋ 毫秒数, 10), 时间a ＋ 毫秒数))

  

子程序名	返回值类型	公开	备 注
时间_取随机时间戳	文本型		生成一个随机的时间戳。如：0.842703761170252

变量名	类 型	静态	数组	备 注
VBscript	对象
局_文本	文本型

线程_初始化COM库 ()
VBscript.创建 (“ScriptControl”, )
VBscript.写属性 (“Language”, “JScript”)
VBscript.数值方法 (“ExecuteStatement”, “function time(){return Math.random()}”)
判断循环首 (取文本长度 (局_文本) ≠ 17)
局_文本 ＝ VBscript.通用方法 (“Run”, “time”, ).取文本 ()
如果真 (取文本左边 (局_文本, 1) ≠ “0”)
局_文本 ＝ “0” ＋ 局_文本
系统_处理事件 ()
判断循环尾 ()
VBscript.清除 ()
线程_取消COM库 ()
返回 (局_文本)

.版本 2<br /> <br /> .子程序 时间_取随机时间戳, 文本型, 公开, 生成一个随机的时间戳。如：0.842703761170252<br /> .局部变量 VBscript, 对象<br /> .局部变量 局_文本, 文本型<br /> <br /> 线程_初始化COM库 ()<br /> VBscript.创建 (“ScriptControl”, )<br /> VBscript.写属性 (“Language”, “JScript”)<br /> VBscript.数值方法 (“ExecuteStatement”, “function time(){return Math.random()}”)<br /> .判断循环首 (取文本长度 (局_文本) ≠ 17)<br /> 局_文本 ＝ VBscript.通用方法 (“Run”, “time”, ).取文本 ()<br /> .如果真 (取文本左边 (局_文本, 1) ≠ “0”)<br /> 局_文本 ＝ “0” ＋ 局_文本<br /> .如果真结束<br /> 系统_处理事件 ()<br /> .判断循环尾 ()<br /> VBscript.清除 ()<br /> 线程_取消COM库 ()<br /> 返回 (局_文本)

希望模块能添加一条上去，能省去不少时间，我为了转换指定的时间戳，网上也找了不少资料，都是把时间戳转换为时间格式的命令，这条转换指定时间戳的命令缺失，真诚希望添加上去！谢谢！@冰点 @精易客服 @果子

1686445581

希望精易模块能加入D3Dhook，手写麻烦，十里八都找不到这种模块啊。

ai126891

模块版本：5.23
所用系统：(如：XP、Win7 32位）
命令名称：正则表达式
BUG描述：句柄未关闭，调用过后句柄增加
我的联系QQ：122607113
-------如果可以，请把测试有问题的【源码】上传上来，方便我们测试。如果你有解决方案请一并提出，感谢！--------

zypwlgzs

模块版本：(如果你反馈的不是最新版本,请下载最新版的测试一下)
所用系统：(如：XP、Win7 32位）
命令名称：增加两个命令：选择夹_取句柄 、 选择夹_置选中
BUG描述：增加外部选择夹操控
我的联系QQ：1184143041
源代码：
.版本 2
.支持库 spec

.子程序 选择夹_取句柄, 文本型, 公开, 返回句柄   
.参数 父窗hwnd, 整数型
.参数 选择夹_ID, 整数型, , 选择夹ID
.局部变量 句柄组, 整数型, , "0"
.局部变量 t_zong
.局部变量 t_xzk_id, 文本型, , , 选择夹临时ID
.局部变量 N
.局部变量 t_wz

.如果真 (IsWindow (父窗hwnd) ≠ 0)
    t_zong ＝ 窗口_枚举子窗口 (父窗hwnd, 句柄组, “SysTabControl32”)
    .计次循环首 (t_zong, N)  ' 枚举符合规定的选择夹句柄
        .如果真 (窗口_取控件ID (句柄组 [N]) ＝ 选择夹_ID)
            t_xzk_id ＝ 到文本 (句柄组 [N])  ' 符合规定的句柄
        .如果真结束

    .计次循环尾 ()
    t_wz ＝ 倒找文本 (t_xzk_id, “;”, , 假)
    .如果真 (t_wz ≠ -1)
        返回 (取文本左边 (t_xzk_id, t_wz － 1))
    .如果真结束
    返回 (t_xzk_id)

.如果真结束
返回 (“”)

.子程序 选择夹_置选中, 逻辑型, 公开, 选择选择夹的指定子夹
.参数 选hwnd, 整数型, , 选择夹句柄
.参数 序列, 整数型, , 子夹序列 从0开始 ，子夹超出范围 是返回假的 //很好，创意发现

.如果真 (选hwnd ＝ 0)
    返回 (假)
.如果真结束
.如果真 (IsWindow (选hwnd) ＝ 0)
    返回 (假)
.如果真结束
.计次循环首 (5, )
    .如果真 (发送消息 (选hwnd, 4876, 序列, 1) ＝ 序列)  ' 如果系列超出范围将不返回对应的值，所以返回假。
        返回 (真)
    .如果真结束
    延迟 (10)
.计次循环尾 ()
返回 (假)



经过测试ok

993651481

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 json, 类_json

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击

启动线程 (&子程序1, , )


.子程序 子程序1

.计次循环首 (20, )
    json.解析 (#常量1)
    调试输出 (json.取通用属性 (“data.cnt”))
.计次循环尾 ()
这样就不行了？

wolongoyca

模块版本：5.2.5
所用系统：XP 或 windows 2003
命令名称：编码_Utf8到Ansi  和  编码_Utf8到Ansi_对象
BUG描述：编码_Utf8到Ansi 命令在XP或者2003的系统上大面积闪退或者弹出该内存不能为read，编码_Utf8到Ansi_对象少部分电脑上返回值为空
我的联系QQ：1595912550

.版本 2
.支持库 EThread

.子程序 _按钮_测试_被单击

.计次循环首 (100, )
    启动线程 (&线程, , )
.计次循环尾 ()

.子程序 线程
.局部变量 num, 整数型
.局部变量 str, 文本型

num ＝ -1
.循环判断首 ()
    str ＝ 编码_Utf8到Ansi (网页访问对象 (“http://www.mi.com/”))
.循环判断尾 (num ＜ 0)

超级小白王

模块版本：V5.23
所用系统：Win7 64位
命令名称：系统_远程关机()
BUG描述：这个命令是无效的，我用了，无法远程关机，（局域网）
我的联系QQ：925999475
-------如果可以，请把测试有问题的【源码】上传上来，方便我们测试。如果你有解决方案请一并提出，感谢！--------

上帝禁区

    模块版本：(5.x)
    所用系统：(win10,64位）
    命令名称：窗口_显示隐藏
    BUG描述：无效
    我的联系QQ：492340298
    -------如果可以，请把测试有问题的【源码】上传上来，方便我们测试。如果你有解决方案请一并提出，感谢！--------


.版本 2

.局部变量 主句柄, 整数型

窗口_取句柄_模糊 (“- MEmu”, “Qt5QWindowIcon”)
.如果 (主句柄 ＝ 0)

.否则
    .如果 (窗口_是否可见 (主句柄) ＝ 真)
        窗口_显示隐藏 (主句柄, 假)
    .否则
        窗口_显示隐藏 (主句柄, 真)

上帝禁区

    模块版本：(5.x)
    所用系统：(win10,64位）
    命令名称：窗口_是否可见
    BUG描述：无效
    我的联系QQ：492340298
    -------如果可以，请把测试有问题的【源码】上传上来，方便我们测试。如果你有解决方案请一并提出，感谢！--------