精易模块 BUG反馈 说明

蓝色冰屋

模块版本：精易模块 V5.22
所用系统：Win7 32位
命令名称：网页_取Cookie
BUG描述：
网页_取Cookie("http://www.baidu.com")
取出来就没有。精易模块源码看一下发现有bug问题

原写法：（有BUG）

  

子程序名	返回值类型	公开	备 注
网页_取Cookie	文本型
参数名	类 型	参考	可空	数组	备 注
域名	文本型				只接受域名
Cookie名称	文本型				为空返回全部Cookie

变量名	类 型	静态	数组	备 注
网址	文本型
读取内容	文本型
读取内容1	文本型

网址 ＝ “http://” ＋ 域名
连续赋值 (取空白文本 (3000), 读取内容, 读取内容1)
InternetGetCookieA (网址, 字符 (0), 读取内容, 3000)
InternetGetCookieExA (网址, 字符 (0), 读取内容1, 3000, 8192, 0)
网页_Cookie合并更新 (读取内容, 读取内容1)
如果真 (Cookie名称 ≠ “”)
读取内容 ＝ 网页_取单条Cookie (读取内容, Cookie名称)
返回 (读取内容)

.版本 2<br /> <br /> .子程序 网页_取Cookie, 文本型, 公开<br /> .参数 域名, 文本型, , 只接受域名<br /> .参数 Cookie名称, 文本型, 可空, 为空返回全部Cookie<br /> .局部变量 网址, 文本型<br /> .局部变量 读取内容, 文本型<br /> .局部变量 读取内容1, 文本型<br /> <br /> 网址 ＝ “http://” ＋ 域名<br /> 连续赋值 (取空白文本 (3000), 读取内容, 读取内容1)<br /> InternetGetCookieA (网址, 字符 (0), 读取内容, 3000)<br /> InternetGetCookieExA (网址, 字符 (0), 读取内容1, 3000, 8192, 0)<br /> 网页_Cookie合并更新 (读取内容, 读取内容1)<br /> .如果真 (Cookie名称 ≠ “”)<br />     读取内容 ＝ 网页_取单条Cookie (读取内容, Cookie名称)<br /> .如果真结束<br /> 返回 (读取内容)

正确写法：

  

子程序名	返回值类型	公开	备 注
网页_取Cookie	文本型
参数名	类 型	参考	可空	数组	备 注
域名	文本型				只接受域名
Cookie名称	文本型				为空返回全部Cookie

变量名	类 型	静态	数组	备 注
读取内容	文本型
读取内容1	文本型

如果真 (到小写 (取文本左边 (域名, 取文本长度 (“http://”))) ≠ “http://”)
域名 ＝ “http://” ＋ 域名
连续赋值 (取空白文本 (3000), 读取内容, 读取内容1)
InternetGetCookieA (域名, 字符 (0), 读取内容, 3000)
InternetGetCookieExA (域名, 字符 (0), 读取内容1, 3000, 8192, 0)
网页_Cookie合并更新 (读取内容, 读取内容1)
如果真 (Cookie名称 ≠ “”)
读取内容 ＝ 网页_取单条Cookie (读取内容, Cookie名称)
返回 (读取内容)

.版本 2<br /> <br /> .子程序 网页_取Cookie, 文本型, 公开<br /> .参数 域名, 文本型, , 只接受域名<br /> .参数 Cookie名称, 文本型, 可空, 为空返回全部Cookie<br /> .局部变量 读取内容, 文本型<br /> .局部变量 读取内容1, 文本型<br /> <br /> .如果真 (到小写 (取文本左边 (域名, 取文本长度 (“http://”))) ≠ “http://”)<br />     域名 ＝ “http://” ＋ 域名<br /> .如果真结束<br /> 连续赋值 (取空白文本 (3000), 读取内容, 读取内容1)<br /> InternetGetCookieA (域名, 字符 (0), 读取内容, 3000)<br /> InternetGetCookieExA (域名, 字符 (0), 读取内容1, 3000, 8192, 0)<br /> 网页_Cookie合并更新 (读取内容, 读取内容1)<br /> .如果真 (Cookie名称 ≠ “”)<br />     读取内容 ＝ 网页_取单条Cookie (读取内容, Cookie名称)<br /> .如果真结束<br /> 返回 (读取内容)

我的联系QQ：905427738

亲测成功，可以取出来。

蓝色冰屋

模块版本：精易模块 V5.22
所用系统：Win7 32位
命令名称：网页_取编码
BUG描述：QQ空间验证更新，取编码无效。在网页源代码发现<?xml version="1.0" encoding="utf-8"?>

网页地址的写法

  

子程序名	返回值类型	公开	备 注
网页_取编码	文本型		非正则表达式_用于取出网页地址的编码
参数名	类 型	参考	可空	数组	备 注
网页地址	文本型

变量名	类 型	静态	数组	备 注
局_网页内容	文本型
局_编码类型	文本型

局_网页内容 ＝ 到文本 (网页_访问 (网页地址))
如果真 (文本_取出中间文本 (局_网页内容, “charset=”, “>”) ≠ “”)
局_编码类型 ＝ 文本_替换 (文本_取出中间文本 (局_网页内容, “charset=”, “>”), , , , #引号, “”, “/”, “”, “ ”, “”)
如果真 (文本_取出中间文本 (局_网页内容, “encoding=”, “>”) ≠ “”)
局_编码类型 ＝ 文本_替换 (文本_取出中间文本 (局_网页内容, “encoding=”, “>”), , , , #引号, “”, #引号, “”, “?”, “”)
如果真 (局_编码类型 ≠ “”)
返回 (到大写 (局_编码类型))
返回 (“”)

.版本 2<br /> <br /> .子程序 网页_取编码, 文本型, 公开, 非正则表达式_用于取出网页地址的编码<br /> .参数 网页地址, 文本型<br /> .局部变量 局_网页内容, 文本型<br /> .局部变量 局_编码类型, 文本型<br /> <br /> 局_网页内容 ＝ 到文本 (网页_访问 (网页地址))<br /> .如果真 (文本_取出中间文本 (局_网页内容, “charset=”, “>”) ≠ “”)<br />     局_编码类型 ＝ 文本_替换 (文本_取出中间文本 (局_网页内容, “charset=”, “>”), , , , #引号, “”, “/”, “”, “ ”, “”)<br /> .如果真结束<br /> .如果真 (文本_取出中间文本 (局_网页内容, “encoding=”, “>”) ≠ “”)<br />     局_编码类型 ＝ 文本_替换 (文本_取出中间文本 (局_网页内容, “encoding=”, “>”), , , , #引号, “”, #引号, “”, “?”, “”)<br /> .如果真结束<br /> .如果真 (局_编码类型 ≠ “”)<br />     返回 (到大写 (局_编码类型))<br /> .如果真结束<br /> 返回 (“”)

网页内容的写法

  

子程序名	返回值类型	公开	备 注
网页_取编码1	文本型		非正则表达式_用于取出网页内容的编码
参数名	类 型	参考	可空	数组	备 注
网页内容	字节集

变量名	类 型	静态	数组	备 注
局_源代码	文本型
局_编码类型	文本型

局_源代码 ＝ 到文本 (网页内容)
如果真 (文本_取出中间文本 (局_源代码, “charset=”, “>”) ≠ “”)
局_编码类型 ＝ 文本_替换 (文本_取出中间文本 (局_源代码, “charset=”, “>”), , , , #引号, “”, “/”, “”, “ ”, “”)
如果真 (文本_取出中间文本 (局_源代码, “encoding=”, “>”) ≠ “”)
局_编码类型 ＝ 文本_替换 (文本_取出中间文本 (局_源代码, “encoding=”, “>”), , , , #引号, “”, #引号, “”, “?”, “”)
如果真 (局_编码类型 ≠ “”)
返回 (到大写 (局_编码类型))
返回 (“”)

.版本 2<br /> <br /> .子程序 网页_取编码1, 文本型, 公开, 非正则表达式_用于取出网页内容的编码<br /> .参数 网页内容, 字节集<br /> .局部变量 局_源代码, 文本型<br /> .局部变量 局_编码类型, 文本型<br /> <br /> 局_源代码 ＝ 到文本 (网页内容)<br /> .如果真 (文本_取出中间文本 (局_源代码, “charset=”, “>”) ≠ “”)<br />     局_编码类型 ＝ 文本_替换 (文本_取出中间文本 (局_源代码, “charset=”, “>”), , , , #引号, “”, “/”, “”, “ ”, “”)<br /> .如果真结束<br /> .如果真 (文本_取出中间文本 (局_源代码, “encoding=”, “>”) ≠ “”)<br />     局_编码类型 ＝ 文本_替换 (文本_取出中间文本 (局_源代码, “encoding=”, “>”), , , , #引号, “”, #引号, “”, “?”, “”)<br /> .如果真结束<br /> .如果真 (局_编码类型 ≠ “”)<br />     返回 (到大写 (局_编码类型))<br /> .如果真结束<br /> 返回 (“”)

我的联系QQ：905427738

ps:非正则表达式，取出中间文本+文本_替换

zyxk

• 模块版本：最新版5.22
• 所用系统：XP、Win7 都测试了
• 命令名称：系统_取桌面快捷方式
• BUG描述： 将 系统_取桌面快捷方式 放在 线程 中运行后，此命令无效，取不到结果。
  

           解决办法，在模块源码中 对象操作的命令前后加上CoInitialize (0) 和 CoUninitialize () 即可。

金哥专用

金哥专用 发表于 2015-9-26 00:33
模块版本：V5.22
所用系统：Win 7 64位
命令名称：时间_格式化()

多谢！！！

金哥专用

模块版本：V5.22
所用系统：Win 7 64位
命令名称：时间_格式化()
希望能支持显示24小时制。

落叶已飞

模块版本：V5.22
所用系统：Win7 64
命令名称：类_json.取所有属性名
BUG描述：返回的数组里会多出一些内容

难忘的回忆

其实还有个 不知道算不算  就是文本_取随机数字（）    取到的文本要么全是奇数 要么全是偶数  这样不太随机啊

詠不言敗

• 模块版本：V5.22
• 所用系统：Win 7 64位
• 命令名称：注册表操作.是否存在()
• BUG描述：一用这个命令，调试时会出现
  错误(10165): 所指定参数需要以"参考"方式传递,但是此处无法将所提供参数的地址传递过去.
• 我的联系QQ：990230510
  

一用这个命令，调试时会出现
错误(10165): 所指定参数需要以"参考"方式传递,但是此处无法将所提供参数的地址传递过去.




BUG.zip (167.23 KB, 下载次数: 0)

2015-9-16 19:56 上传

点击文件名下载附件



源码：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
注册表操作	注册表操作

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

注册表操作.是否存在 (“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 注册表操作, 注册表操作<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 注册表操作.是否存在 (“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons”)

solo2pm2

  

模块版本：精易模块3.80- 2014年7月31日
所用系统：Win7 64
命令名称：创建字节流
BUG描述：CreateStreamOnHGlobal的参数类型不正确
我的联系QQ：1023981634

    模块版本：精易模块3.80- 2014年7月31日<br />     所用系统：Win7 64<br />     命令名称：创建字节流<br />     BUG描述：CreateStreamOnHGlobal的参数类型不正确<br />     我的联系QQ：1023981634<br />    

使用模块的图片组操作类时，调试总是提示｛错误(10044): 不能将“整数型”数据转换到“逻辑型”数据。｝
经过测试模块发现问题出在字节流这个类下。
字节流类下的创建字节流方法调用CreateStreamOnHGlobal的第二个参数应为逻辑型
这是原先的代码

  

子程序名	返回值类型	公开	备 注
创建字节流	整数型		创建一个字节集流,并返回字节流对象指针
参数名	类 型	参考	可空	数组	备 注
字节集	字节集

变量名	类 型	静态	数组	备 注
局_指针	整数型
局_字节集长度	整数型

释放字节流 ()
如果 (是否为空 (字节集))
内存指针 ＝ GlobalAlloc (2, 0)  ' GMEM_MOVEABLE=2
CreateStreamOnHGlobal (内存指针, 1, 字节流对象)
局_字节集长度 ＝ 取字节集长度 (字节集)
内存指针 ＝ GlobalAlloc (0, 局_字节集长度)  ' GMEM_FIXED=0
局_指针 ＝ GlobalLock (内存指针)
写到内存 (字节集, 局_指针, 局_字节集长度)
GlobalUnlock (内存指针)
CreateStreamOnHGlobal (内存指针, 0, 字节流对象)
返回 (字节流对象)

.版本 2<br /> <br /> .子程序 创建字节流, 整数型, 公开, 创建一个字节集流,并返回字节流对象指针<br /> .参数 字节集, 字节集, 可空<br /> .局部变量 局_指针, 整数型<br /> .局部变量 局_字节集长度, 整数型<br /> <br /> 释放字节流 ()<br /> .如果 (是否为空 (字节集))<br />     内存指针 ＝ GlobalAlloc (2, 0)  ' GMEM_MOVEABLE=2<br />     CreateStreamOnHGlobal (内存指针, 1, 字节流对象)<br /> .否则<br />     局_字节集长度 ＝ 取字节集长度 (字节集)<br />     内存指针 ＝ GlobalAlloc (0, 局_字节集长度)  ' GMEM_FIXED=0<br />     局_指针 ＝ GlobalLock (内存指针)<br />     写到内存 (字节集, 局_指针, 局_字节集长度)<br />     GlobalUnlock (内存指针)<br />     CreateStreamOnHGlobal (内存指针, 0, 字节流对象)<br /> .如果结束<br /> 返回 (字节流对象)

这是改正后的代码，只需要将第二个参数1或0改为真假即可

  

子程序名	返回值类型	公开	备 注
创建字节流	整数型		创建一个字节集流,并返回字节流对象指针
参数名	类 型	参考	可空	数组	备 注
字节集	字节集

变量名	类 型	静态	数组	备 注
局_指针	整数型
局_字节集长度	整数型

释放字节流 ()
如果 (是否为空 (字节集))
内存指针 ＝ GlobalAlloc (2, 0)  ' GMEM_MOVEABLE=2
CreateStreamOnHGlobal (内存指针, 真, 字节流对象)
局_字节集长度 ＝ 取字节集长度 (字节集)
内存指针 ＝ GlobalAlloc (0, 局_字节集长度)  ' GMEM_FIXED=0
局_指针 ＝ GlobalLock (内存指针)
写到内存 (字节集, 局_指针, 局_字节集长度)
GlobalUnlock (内存指针)
CreateStreamOnHGlobal (内存指针, 假, 字节流对象)
返回 (字节流对象)

.版本 2<br /> <br /> .子程序 创建字节流, 整数型, 公开, 创建一个字节集流,并返回字节流对象指针<br /> .参数 字节集, 字节集, 可空<br /> .局部变量 局_指针, 整数型<br /> .局部变量 局_字节集长度, 整数型<br /> <br /> 释放字节流 ()<br /> .如果 (是否为空 (字节集))<br />     内存指针 ＝ GlobalAlloc (2, 0)  ' GMEM_MOVEABLE=2<br />     CreateStreamOnHGlobal (内存指针, 真, 字节流对象)<br /> .否则<br />     局_字节集长度 ＝ 取字节集长度 (字节集)<br />     内存指针 ＝ GlobalAlloc (0, 局_字节集长度)  ' GMEM_FIXED=0<br />     局_指针 ＝ GlobalLock (内存指针)<br />     写到内存 (字节集, 局_指针, 局_字节集长度)<br />     GlobalUnlock (内存指针)<br />     CreateStreamOnHGlobal (内存指针, 假, 字节流对象)<br /> .如果结束<br /> 返回 (字节流对象)

wskdhbdjb336116

模块版本：模块版本：V4.25
所用系统：Win7 32位
命令名称：网页填表.FLASH_上传文件()
BUG描述：只点击不能上传
我的联系QQ：239364825