精易论坛

标题: 用易自带控件做的股票类数据抓取（含正则式/GET/POST) [打印本页]
作者: wizhot    时间: 2020-12-24 11:06
标题: 用易自带控件做的股票类数据抓取（含正则式/GET/POST)
本帖最后由 wizhot 于 2020-12-24 11:58 编辑

以前接单做的软件，数据类抓取做完了，上家就没了下文，给新手做参考.只使用自带支持库及系统的DLL。


  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
子针_刷新自选股子程序指针  
子针_刷新挂单子程序指针  
子针_刷新留仓子程序指针  
子针_刷新行情子程序指针  
句柄_自选股整数型  
取自选股数逻辑型  
删除自选股逻辑型  
刷新挂单逻辑型  
刷新留仓逻辑型  
刷新行情逻辑型  
组别文本型  
挂单取消逻辑型  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
' 自选股_列表 ＝ { “601988”, “000528”, “000002”, “600754”, “600031”, “600249”, “000055”, “000402” }
登陆完成 ＝ 假
编辑框_限价.可视 ＝ 假
子针_刷新自选股 ＝ &子程序_自选股
' 子程序_初始化_留仓表 ()
 ' 子程序_初始化_自选股 ()
子程序名返回值类型公开备 注
_按钮_登陆_被单击  
变量名类 型静态数组备 注
源代码文本型 
提交文本文本型 
变体变体型 
时间整数型 
字节集字节集 
Attach文本型 
date文本型 
提交信息文本型 
时间1整数型 
对象对象 
正则正则表达式 
校时搜索结果 
帐号 ＝ 删全部空 (编辑框_用户名.内容)
密码 ＝ 删全部空 (编辑框_密码.内容)
' CoInitialize (0)
 ' 对象.创建 (“WinHttp.WinHttpRequest.5.1”, )
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“SetTimeouts”, 3000, 3000, 5000, 3000)
时间1 ＝ 取启动时间 ()
对象.方法 (“Open”, “get”, “http://ck.v5168.com”, 真)
对象.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/”)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
信息框 (“登陆失败,1!请检查网络连接!,”, #错误图标, )
对象.清除 ()
返回 ()
cookie ＝ 取文本中间 (对象.读属性 (“GetResponseHeader”, “Set-Cookie”).取文本 (), 1, 取文本长度 (对象.读属性 (“GetResponseHeader”, “Set-Cookie”).取文本 ()) － 19)
date ＝ 对象.读属性 (“GetResponseHeader”, “Date”).取文本 ()
' ------------------------取attach
对象.方法 (“Open”, “POST”, “http://ck.v5168.com/public/attachHidden.jsp”, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/”)
对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)
对象.方法 (“SetRequestHeader”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
信息框 (“登陆失败,2!,”, #错误图标, )
对象.清除 ()
返回 ()
Attach ＝ 到文本 (到整数 (取字节集数据 (字节集, #文本型, )))
' -------------------------POST 登陆信息
提交信息 ＝ “page_type=1&user_id=” ＋ 帐号 ＋ “&password=” ＋ 密码 ＋ “&offsetHeight=751&offsetWidth=1920&attach=” ＋ Attach ＋ “&user_id_0=” ＋ 帐号 ＋ “&password_0=” ＋ 密码 ＋ “&b_login_0=”
' 调试输出 (提交信息)
 ' 调试输出 (cookie)
对象.方法 (“Open”, “POST”, “http://ck.v5168.com/userLoginAction.do”, 真)
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Content-Length”, 到文本 (取文本长度 (提交信息)))
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, 提交信息)
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
信息框 (“登陆失败,3!,”, #错误图标, )
对象.清除 ()
返回 ()
' --------------------- 登陆成功,校时
对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/public/check_rule.jsp”, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/frm_member.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
信息框 (“登陆失败,4!,”, #错误图标, )
对象.清除 ()
返回 ()
' ----------------检测时间-----
源代码 ＝ 取字节集数据 (字节集, #文本型, )
正则.创建 (“目前主机时间:(.*?), 请对时”, )
校时 ＝ 正则.搜索 (源代码, 1, )
' 调试输出 (校时.取子匹配文本 (源代码, 1, ))
 ' 调试输出 (取时间间隔 (到时间 (“2010.04.29 00:00:00”), 到时间 (校时.取子匹配文本 (源代码, 1, )), #小时))
如果真 (取时间间隔 (到时间 (“2010.05.04 00:00:00”), 到时间 (校时.取子匹配文本 (源代码, 1, )), #小时 ) ＜ 0)  ' 设置时间如果真 ()
结束 ()

' ---------------------- 取首页
对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/member_index.jsp”, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/frm_member.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
信息框 (“登陆失败,5!,”, #错误图标, )
对象.清除 ()
返回 ()
' -----------------取历史数据
对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/report_009.jsp?report_id=009&show_date=1”, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
信息框 (“登陆失败,5!,”, #错误图标, )
对象.清除 ()
返回 ()
' 调试输出 (取字节集数据 (字节集, #文本型, ))
如果 (寻找文本 (取字节集数据 (字节集, #文本型, ), 帐号, , 假) ≠ -1)
登陆完成 ＝ 真
标签_登陆.标题 ＝ 删全部空 (编辑框_用户名.内容)
' 透明标签_登陆.标题 ＝ “登陆: 成功!耗时:” ＋ 到文本 (取启动时间 () － 时间1)
编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 登陆: 用户 [” ＋ 帐号 ＋ “] 登陆成功! 耗时:” ＋ 到文本 (取启动时间 () － 时间1) ＋ #换行符 )
按钮_登陆.禁止 ＝ 真
编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 错误: 用户登陆失败! ” ＋ #换行符 )
对象.清除 ()
返回 ()
对象.清除 ()
子程序_取余额 ()
子程序_取自选股数 ()
子程序_留仓单刷新 ()
子程序_取挂单 ()
子程序_自选股 ()
返回 ()
子程序名返回值类型公开备 注
子程序_取日报  
变量名类 型静态数组备 注
字节集字节集 
时间整数型 
文本文本型 
位置1整数型 
位置2整数型 
正则正则表达式 
对象对象 
CoInitialize (0)
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/report_009.jsp?report_id=009&show_date=1”, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
信息框 (“查询失败,5!,”, #错误图标, )
对象.清除 ()
返回 ()
文本 ＝ 取字节集数据 (字节集, #文本型, )
位置1 ＝ 寻找文本 (文本, #日报_开始, , 假)
位置2 ＝ 寻找文本 (文本, “”, , 假) ＋ 7
文本 ＝ 取文本中间 (文本, 位置1, 取文本长度 (文本) － 位置1)
' 正则.创建 (#正则_留仓文本, )
 ' 留仓文本 ＝ 正则.搜索 (文本, 1, ).取匹配文本 (文本, )
如果真 (写到文件 (取运行目录 () ＋ “\data\v5168.htm”, 到字节集 ( #日报_头部 ＋ 文本)))
超文本浏览框1.地址 ＝ 取运行目录 () ＋ “\data\v5168.htm”
对象.清除 ()
CoUninitialize ()
子程序名返回值类型公开备 注
_按钮_日报_被单击  
如果真 (取反 (登陆完成))
信息框 (“请先登陆用户!”, #信息图标, )
返回 ()
子程序_取日报 ()
子程序名返回值类型公开备 注
子程序_取自选股数  
变量名类 型静态数组备 注
正则正则表达式 
对象对象 
自选股数搜索结果0
局部_计次整数型 
源码文本型 
字节集字节集 
时间整数型 
' productOrder\("(.*?)"\)'>下单
 ' GET /member/stock/user_product.jsp HTTP/1.1
 ' Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/vnd.ms-excel, application/vnd.ms-powerpoint, */*
 ' Referer: http://ck.v5168.com/member/stock/stock_order_main.jsp
 ' Accept-Language: zh-cn
 ' UA-CPU: x86
 ' Accept-Encoding: gzip, deflate
 ' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
 ' Host: ck.v5168.com
 ' Connection: Keep-Alive
 ' Cookie: JSESSIONID=JL4dLWvpgGKWbvrpG5yWXD0zMQ9BW0NThqZRKP1VNBsHZVW8mB1B!-1121240827
取自选股数 ＝ 真
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/user_product.jsp”, 假)
' 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/user_product.jsp”, 假)
对象.方法 (“setRequestHeader”, “If-Modified-Since”, “0”)  ' 不要缓存页
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
对象.清除 ()
取自选股数 ＝ 假
返回 ()

源码 ＝ 取字节集数据 (字节集, #文本型, )
调试输出 (源码)
正则.创建 ( #正则_取自选股数, )
自选股数 ＝ 正则.搜索全部 (源码)
标签_自选股数.标题 ＝ 到文本 (取数组成员数 (自选股数))
调试输出 (取数组成员数 (自选股数))
如果真 (取数组成员数 (自选股数) ＝ 0)
对象.清除 ()
取自选股数 ＝ 假
返回 ()
清除数组 (自选股_列表)
计次循环首 (取数组成员数 (自选股数), 局部_计次)
加入成员 (自选股_列表, 自选股数 [局部_计次].取子匹配文本 (源码, 1, ))
计次循环尾 ()
对象.清除 ()
取自选股数 ＝ 假
返回 ()
子程序名返回值类型公开备 注
子程序_自选股  
变量名类 型静态数组备 注
行号整数型 
正则正则表达式 
源码文本型 
自选股搜索结果0
局部_计次整数型 
局部_计次2整数型 
字节集字节集 
时间整数型 
对象对象 
时间1整数型 
列表文本型 
CoInitialize (0)
刷新自选股 ＝ 真
时间1 ＝ 取启动时间 ()
脚本组件1.执行 ( #脚本1 )
列表 ＝ “”
如果真 (取数组成员数 (自选股_列表) ＜ 1)
刷新自选股 ＝ 假
CoUninitialize ()
返回 ()
计次循环首 (取数组成员数 (自选股_列表), 局部_计次)
列表 ＝ 列表 ＋ 自选股_列表 [局部_计次]
如果真 (局部_计次 ＜ 取数组成员数 (自选股_列表))
列表 ＝ 列表 ＋ “,”

计次循环尾 ()
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/user_product_list.jsp?product_list=” ＋ 列表 ＋ “&date=” ＋ 脚本组件1.运行 (“a”, ), 假)
' 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/user_product.jsp”, 假)
对象.方法 (“setRequestHeader”, “If-Modified-Since”, “0”)  ' 不要缓存页
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
对象.清除 ()
刷新自选股 ＝ 假
返回 ()
源码 ＝ 取字节集数据 (字节集, #文本型, )
如果真 (寻找文本 (源码, “>請重新登錄！”, , 假) ≠ -1)
信息框 (“未登陆,请重新登陆!”, #信息图标, )
对象.清除 ()
刷新自选股 ＝ 假
登陆完成 ＝ 假
按钮_登陆.禁止 ＝ 假
如果真 (按钮_自选股.标题 ≠ “开始刷新”)
按钮_自选股.标题 ＝ “开始刷新”
时钟_刷新自选股.时钟周期 ＝ 0
编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 停止: 暂停自选股自动刷新功能!” ＋ #换行符 )
编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 错误: 平台用户被退出,请重新登陆!” ＋ #换行符 )
CoUninitialize ()
返回 ()

正则.创建 ( #正则_自选股, )
自选股 ＝ 正则.搜索全部 (源码)
调试输出 (取数组成员数 (自选股_列表), 超级列表框_自选股.取表项数 ())
如果真 (取数组成员数 (自选股_列表) ≠ 超级列表框_自选股.取表项数 ())
超级列表框_自选股.全部删除 ()
计次循环首 (取数组成员数 (自选股_列表), 局部_计次)
行号 ＝ 超级列表框_自选股.查找表项 (自选股 [局部_计次].取子匹配文本 (源码, 1, ), , 真, 1)
如果真 (行号 ＝ -1)
行号 ＝ 超级列表框_自选股.插入表项 (, , , , , )
超级列表框_自选股.置标题 (行号, 1, 自选股 [局部_计次].取子匹配文本 (源码, 1, ))
超级列表框_自选股.置标题 (行号, 2, 自选股 [局部_计次].取子匹配文本 (源码, 3, ))
计次循环首 (9, 局部_计次2)
超级列表框_自选股.置标题 (行号, 局部_计次2 ＋ 2, 自选股 [局部_计次].取子匹配文本 (源码, 局部_计次2 ＋ 局部_计次2 ＋ 3, ))
计次循环尾 ()
超级列表框_自选股.置标题 (行号, 12, 自选股 [局部_计次].取子匹配文本 (源码, 22, ))
超级列表框_自选股.置标题 (行号, 13, 自选股 [局部_计次].取子匹配文本 (源码, 23, ))
计次循环尾 ()
刷新自选股 ＝ 假
标签_用户名.调用反馈事件 (0, 0, 假)
调试输出 (取启动时间 () － 时间1)
CoUninitialize ()
子程序名返回值类型公开备 注
_按钮_自选股_被单击  
' 子程序_自选股 ()
如果真 (取反 (登陆完成))
信息框 (“请先登陆用户!”, #信息图标, )
返回 ()
如果 (按钮_自选股.标题 ＝ “开始刷新”)
按钮_自选股.标题 ＝ “停止刷新”
时钟_刷新自选股.时钟周期 ＝ 2000
编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 开始: 启动自选股自动刷新功能!” ＋ #换行符 )
时钟_刷新自选股.时钟周期 ＝ 0
按钮_自选股.标题 ＝ “开始刷新”
编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 停止: 暂停自选股自动刷新功能!” ＋ #换行符 )

子程序名返回值类型公开备 注
_超级按钮_行情刷新_被单击  
如果真 (取反 (登陆完成))
信息框 (“请先登陆用户!”, #信息图标, )
返回 ()
如果真 (取反 (刷新行情))
子程序_行情刷新 (编辑框_代码.内容)

子程序名返回值类型公开备 注
子程序_行情刷新  
参数名类 型参考可空数组备 注
代码文本型
变量名类 型静态数组备 注
正则正则表达式 
源码文本型 
a文本型 
行情搜索搜索结果0
位置1整数型 
余额搜索结果 
userID搜索结果 
标签_1标签11
标签_2标签11
标签_3标签9
局部_计次整数型 
结果_id_left搜索结果 
结果_order_id_left搜索结果 
结果_组别搜索结果 
id_left文本型 
order_id_left文本型 
临时文本文本型0
字节集字节集 
时间整数型 
对象对象 
如果真 (取文本长度 (代码) ≠ 6)
信息框 (“商品代码错误,请检查!”, #错误图标, )
返回 ()
刷新行情 ＝ 真
' GET /member/stock/order.jsp?product_id=000005 HTTP/1.1
 ' Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/vnd.ms-excel, application/vnd.ms-powerpoint, */*
 ' Referer: http://ck.v5168.com/member/stock/stock_order_main.jsp
 ' Accept-Language: zh-cn
 ' UA-CPU: x86
 ' Accept-Encoding: gzip, deflate
 ' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
 ' Host: ck.v5168.com
 ' Connection: Keep-Alive
 ' Cookie: JSESSIONID=JL4dLWvpgGKWbvrpG5yWXD0zMQ9BW0NThqZRKP1VNBsHZVW8mB1B!-1121240827
CoInitialize (0)
脚本组件1.执行 ( #脚本1 )
a ＝ 脚本组件1.运行 (“a”, )
调试输出 (a)
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“Open”, “get”, “http://ck.v5168.com//member/stock/order.jsp?product_id=” ＋ 代码, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
对象.清除 ()
刷新行情 ＝ 假
返回 ()
源码 ＝ 取字节集数据 (字节集, #文本型, )
调试输出 (源码)
' 源码 ＝ 到文本 (读入文件 (“D:\My Documents\GP\下单.htm”))
如果真 (寻找文本 (源码, “>請重新登錄！”, , 假) ≠ -1)
信息框 (“未登陆,请重新登陆!”, #信息图标, )
对象.清除 ()
CoUninitialize ()
登陆完成 ＝ 假
按钮_登陆.禁止 ＝ 假
刷新行情 ＝ 假
返回 ()
如果真 (寻找文本 (源码, “下单”, , 假) ＝ -1)
信息框 (“商品代码不正确!1”, #信息图标, )
对象.清除 ()
刷新行情 ＝ 假
返回 ()
正则.创建 (“var userID = '(.*?)';”, )
userID ＝ 正则.搜索 (源码, 1, )
如果真 (userID.取子匹配文本 (源码, 1, ) ＝ “”)
对象.清除 ()
刷新行情 ＝ 假
返回 ()

标签_userID.标题 ＝ userID.取子匹配文本 (源码, 1, )
正则.创建 (“setUserBalance\('(.*?)'\);”, )
余额 ＝ 正则.搜索 (源码, 1, )
标签_可用额度.标题 ＝ 余额.取子匹配文本 (源码, 1, )
调试输出 (余额.取子匹配文本 (源码, 1, ))
'
'
正则.创建 ( #正则_id_left, )
结果_id_left ＝ 正则.搜索 (源码, 1, )
id_left ＝ 结果_id_left.取子匹配文本 (源码, 1, )
正则.创建 ( #正则_order_id_left, )
结果_order_id_left ＝ 正则.搜索 (源码, 1, )
order_id_left ＝ 结果_order_id_left.取子匹配文本 (源码, 1, )
正则.创建 ( #正则_组别, )
结果_组别 ＝ 正则.搜索 (源码, 1, )
组别 ＝ 结果_组别.取子匹配文本 (源码, 1, )
调试输出 (“组别”, 组别)
正则.创建 ( #正则_行情, )
行情搜索 ＝ 正则.搜索全部 (源码)
标签_1 [1] ＝ 标签_卖五
' *** 缩略程序块 ***
标签_1 [2] ＝ 标签_卖四
标签_1 [3] ＝ 标签_卖三
标签_1 [4] ＝ 标签_卖二
标签_1 [5] ＝ 标签_卖一
标签_1 [6] ＝ 标签_最新价
标签_1 [7] ＝ 标签_买一
标签_1 [8] ＝ 标签_买二
标签_1 [9] ＝ 标签_买三
标签_1 [10] ＝ 标签_买四
标签_1 [11] ＝ 标签_买五
标签_2 [1] ＝ 标签_卖五_数量
' *** 缩略程序块 ***
标签_2 [2] ＝ 标签_卖四_数量
标签_2 [3] ＝ 标签_卖三_数量
标签_2 [4] ＝ 标签_卖二_数量
标签_2 [5] ＝ 标签_卖一_数量
标签_2 [6] ＝ 标签_最新价_数量
标签_2 [7] ＝ 标签_买一_数量
标签_2 [8] ＝ 标签_买二_数量
标签_2 [9] ＝ 标签_买三_数量
标签_2 [10] ＝ 标签_买四_数量
标签_2 [11] ＝ 标签_买五_数量
标签_3 [1] ＝ 标签_开盘价
' *** 缩略程序块 ***
标签_3 [2] ＝ 标签_最高价
标签_3 [3] ＝ 标签_最低价
标签_3 [4] ＝ 标签_昨收价
标签_3 [5] ＝ 标签_涨跌
标签_3 [6] ＝ 标签_涨跌百分比
标签_3 [7] ＝ 标签_总成交量
标签_3 [8] ＝ 标签_总金额
计次循环首 (11, 局部_计次)
标签_1 [局部_计次].文本颜色 ＝ 选择 (行情搜索 [局部_计次].取子匹配文本 (源码, 2, ) ＝ “Red”, #红色, #墨绿 )
标签_1 [局部_计次].标题 ＝ 行情搜索 [局部_计次].取子匹配文本 (源码, 3, )
标签_2 [局部_计次].文本颜色 ＝ 选择 (行情搜索 [局部_计次].取子匹配文本 (源码, 4, ) ＝ “Red”, #红色, #墨绿 )
标签_2 [局部_计次].标题 ＝ 行情搜索 [局部_计次].取子匹配文本 (源码, 5, )
如果真 (局部_计次 ＜ 9)
如果真 (局部_计次 ＜ 7)
标签_3 [局部_计次].文本颜色 ＝ 选择 (行情搜索 [局部_计次].取子匹配文本 (源码, 7, ) ＝ “style='Color:Red;'>”, #红色, #墨绿 )
标签_3 [局部_计次].标题 ＝ 行情搜索 [局部_计次].取子匹配文本 (源码, 8, )

计次循环尾 ()
对象.方法 (“Open”, “POST”, “http://ck.v5168.com/member/stock/sOrderServlet?oper_type=getProductPrice&user_id=” ＋ 标签_userID.标题 ＋ “&product_id=” ＋ 代码 ＋ “&project_type=S”, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/order.jsp?product_id=” ＋ 代码)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
对象.清除 ()
刷新行情 ＝ 假
返回 ()
源码 ＝ 取字节集数据 (字节集, #文本型, )
如果真 (寻找文本 (源码, “>請重新登錄！”, , 假) ≠ -1)
信息框 (“未登陆,请重新登陆!”, #信息图标, )
对象.清除 ()
CoUninitialize ()
登陆完成 ＝ 假
按钮_登陆.禁止 ＝ 假
刷新行情 ＝ 假
返回 ()

调试输出 (源码)
' 源码 ＝ “世纪星源,4.94,SZ,0,0,0,1000000”
判断 (源码 ＝ “CLOSED”)
标签_名称.文本颜色 ＝ #红色
标签_名称.标题 ＝ “已收盘”
刷新行情 ＝ 假
返回 ()
判断 (源码 ＝ “UNOPENED”)
标签_名称.文本颜色 ＝ #红色
标签_名称.标题 ＝ “尚未开盘”
刷新行情 ＝ 假
返回 ()
临时文本 ＝ 分割文本 (源码, “,”, )
标签_最新价.标题 ＝ 临时文本 [2]
标签_名称.标题 ＝ 临时文本 [1]
如果 (到数值 (临时文本 [7]) ＜ 取整 (到数值 (标签_可用额度.标题) ÷ 到数值 (标签_卖五.标题) ÷ 100) × 100)
标签_可下总量.标题 ＝ 临时文本 [7]
标签_可下总量.标题 ＝ 到文本 (取整 (到数值 (标签_可用额度.标题) ÷ 到数值 (标签_卖五.标题) ÷ 100) × 100)
标签_点差.标题 ＝ 临时文本 [5]
标签_备注信息.标题 ＝ “单注最高为:” ＋ 临时文本 [7]

对象.清除 ()
CoUninitialize ()
刷新行情 ＝ 假
子程序名返回值类型公开备 注
子程序_买入 '提交数据
参数名类 型参考可空数组备 注
代码文本型product_id=000005
买卖文本型b_or_s=S
order_type文本型rder_type=20/市价,rder_type=40/限价
价格文本型price_apply=4.01/限价  price_apply=0/市价
id_left文本型id_left = -1 /id_left=订单号
下注量文本型quantity=100
assess_group文本型'A B C
变量名类 型静态数组备 注
源码文本型 
字节集字节集 
时间整数型 
对象对象 
判断开始断 (单选框_市价.选中)
' order_type ＝ “20”
. ' 判断 (单选框_限价.选中)
 ' order_type ＝ “40”
 ' 信息框 (“请选择价格类型!市价或限价”, 0, )
 ' 返回 ()
如果真 (是否为空 (id_left))
id_left ＝ “-1”
CoInitialize (0)
' * “http://ck.v5168.com/member/stock/sOrderServlet?oper_type=ORDER&user_id=r111222&b_or_s=B&product_id=000002&assess_group=A&quantity=100&order_type=20&id_left=-1&price_apply=0”
 ' * “0#PRODUCT_BREAK”
 ' POST                   /member/stock/sOrderServlet?oper_type=ORDER&user_id=r111222&b_or_s=B&product_id=600400&assess_group=C&quantity=100&order_type=40&id_left=-1&price_apply=6.16 HTTP/1.1
对象.创建 (“MSXML2.XMLHTTP”, )
调试输出 (“http://ck.v5168.com/member/stock/sOrderServlet?oper_type=ORDER&user_id=” ＋ 帐号 ＋ “&b_or_s=” ＋ 买卖 ＋ “&product_id=” ＋ 代码 ＋ “&assess_group=” ＋ assess_group ＋ “&quantity=” ＋ 下注量 ＋ “&order_type=” ＋ order_type ＋ “&id_left=” ＋ id_left ＋ “&price_apply=” ＋ 价格)
对象.方法 (“Open”, “POST”, “http://ck.v5168.com/member/stock/sOrderServlet?oper_type=ORDER&user_id=” ＋ 帐号 ＋ “&b_or_s=” ＋ 买卖 ＋ “&product_id=” ＋ 代码 ＋ “&assess_group=A&quantity=” ＋ 下注量 ＋ “&order_type=” ＋ order_type ＋ “&id_left=” ＋ id_left ＋ “&price_apply=” ＋ 价格, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/order.jsp?product_id=” ＋ 代码)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
' 对象.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
对象.清除 ()
返回 ()
源码 ＝ 取字节集数据 (字节集, #文本型, )
' 0#PRODUCT_BREAK
 ' 0#PRODUCT_PAUSE  超出限额 暂停收单
. ' 如果真 (源码 ＝ “0#PRODUCT_BREAK”)
 ' 信息框 (“休市中...请晚点再下单!”, #信息图标, )
调试输出 (源码)
对象.清除 ()
CoUninitialize ()
子程序名返回值类型公开备 注
_超级按钮_下单_被单击  
变量名类 型静态数组备 注
order_type文本型 
买卖文本型 
价格文本型 
如果真 (取反 (登陆完成))
信息框 (“请先登陆用户!”, #信息图标, )
返回 ()

如果 (单选框_买.选中)
买卖 ＝ “B”
如果 (单选框_卖.选中)
买卖 ＝ “S”



判断 (单选框_市价.选中)
order_type ＝ “20”
价格 ＝ “0”
判断 (单选框_限价.选中)
order_type ＝ “40”
价格 ＝ 删全部空 (编辑框_限价.内容)
如果 (买卖 ＝ “B”)
如果真 (到数值 (价格) ＞ 到数值 (标签_买一.标题))
信息框 (“限价不能高于:” ＋ 标签_最新价.标题, 0, )

如果真 (到数值 (价格) ＜ 到数值 (标签_卖一.标题))
信息框 (“限价不能低于:” ＋ 标签_最新价.标题, 0, )


信息框 (“请选择价格类型!市价或限价”, 0, )
返回 ()

调试输出 (删全部空 (编辑框_代码.内容), 买卖, order_type, 价格, , 删全部空 (编辑框_委托数量.内容))
子程序_买入 (删全部空 (编辑框_代码.内容), 买卖, order_type, 价格, , 删全部空 (编辑框_委托数量.内容), 组别)
子程序_取挂单 ()
子程序名返回值类型公开备 注
子程序_添加自选股  
参数名类 型参考可空数组备 注
产品代码文本型
变量名类 型静态数组备 注
字节集字节集 
时间整数型 
对象对象 
' POST /member/stock/add_user_product.jsp?product_id=601991&user_id=r111222&date=1272247855828 HTTP/1.1
 ' Accept: */*
 ' Accept-Language: zh-cn
 ' Referer: http://ck.v5168.com/member/stock/product_list.jsp#
 ' Accept-Encoding: gzip, deflate
 ' User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)
 ' Host: ck.v5168.com
 ' Content-Length: 0
 ' Connection: Keep-Alive
 ' Cache-Control: no-cache
 ' Cookie: JSESSIONID=p0DTLJ1GGYb21VQgGCdMr3qbWnv42bJ4Pm1CvJJv1b9s7r6W2Fw1!-1121240827
 ' 返回 success
对象.创建 (“MSXML2.XMLHTTP”, )
脚本组件1.执行 ( #脚本_date )
调试输出 (脚本组件1.运行 (“date”, ))
对象.方法 (“Open”, “POST”, “http://ck.v5168.com/member/stock/add_user_product.jsp?product_id=” ＋ 产品代码 ＋ “&user_id=” ＋ 帐号 ＋ “&date=” ＋ 到文本 (脚本组件1.运行 (“date”, )), 假)
对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/product_list.jsp#”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
' 对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
对象.清除 ()
' 信息框 (“登陆失败,3!,”, #错误图标, )
返回 ()
如果 (寻找文本 (取字节集数据 (字节集, #文本型, ), “success”, , 假) ≠ -1)




对象.清除 ()
子程序名返回值类型公开备 注
_单选框_限价_被单击  
编辑框_限价.可视 ＝ 单选框_限价.选中
子程序名返回值类型公开备 注
_单选框_市价_被单击  
编辑框_限价.可视 ＝ 单选框_限价.选中
子程序名返回值类型公开备 注
_按钮_挂单_被单击  
' GET /member/stock/order_pending.jsp HTTP/1.1
 ' Accept: image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*
 ' Referer: http://ck.v5168.com/member/stock/stock_order_main.jsp
 ' Accept-Language: zh-cn
 ' User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)
 ' Accept-Encoding: gzip, deflate
 ' Host: ck.v5168.com
 ' Connection: Keep-Alive
 ' Cookie: JSESSIONID=p0DTLJ1GGYb21VQgGCdMr3qbWnv42bJ4Pm1CvJJv1b9s7r6W2Fw1!-1121240827
如果真 (取反 (登陆完成))
信息框 (“请先登陆用户!”, #信息图标, )
返回 ()

子程序_取挂单 ()
子程序名返回值类型公开备 注
子程序_取挂单  
变量名类 型静态数组备 注
字节集字节集 
时间整数型 
源码文本型 
位置1整数型 
位置2整数型 
对象对象 
正则正则表达式 
挂单结果搜索结果0
局部_计次整数型 
行号整数型 
CoInitialize (0)
刷新挂单 ＝ 真
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/order_pending.jsp”, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
信息框 (“查询挂单失败!,”, #错误图标, )
对象.清除 ()
刷新挂单 ＝ 假
返回 ()
源码 ＝ 取字节集数据 (字节集, #文本型, )
调试输出 (源码)
正则.创建 ( #正则_挂单, )
挂单结果 ＝ 正则.搜索全部 (源码)
标签_挂单数.标题 ＝ 到文本 (取数组成员数 (挂单结果))
如果真 (取数组成员数 (挂单结果) ≠ 超级列表框_挂单.取表项数 ())
超级列表框_挂单.全部删除 ()
计次循环首 (取数组成员数 (挂单结果), 局部_计次)
行号 ＝ 超级列表框_挂单.查找表项 (挂单结果 [局部_计次].取子匹配文本 (源码, 2, ), , 真, 1)
调试输出 (行号, 挂单结果 [局部_计次].取子匹配文本 (源码, 2, ), 挂单结果 [局部_计次].取子匹配文本 (源码, 3, ))
如果真 (行号 ＝ -1)
行号 ＝ 超级列表框_挂单.插入表项 (, , , , , )
超级列表框_挂单.置标题 (行号, 1, 挂单结果 [局部_计次].取子匹配文本 (源码, 2, ))
超级列表框_挂单.置标题 (行号, 2, 挂单结果 [局部_计次].取子匹配文本 (源码, 3, ))
超级列表框_挂单.置标题 (行号, 3, 挂单结果 [局部_计次].取子匹配文本 (源码, 4, ))
超级列表框_挂单.置标题 (行号, 4, 挂单结果 [局部_计次].取子匹配文本 (源码, 5, ))
超级列表框_挂单.置标题 (行号, 5, 挂单结果 [局部_计次].取子匹配文本 (源码, 6, ))
超级列表框_挂单.置标题 (行号, 6, 挂单结果 [局部_计次].取子匹配文本 (源码, 7, ))
超级列表框_挂单.置标题 (行号, 7, 挂单结果 [局部_计次].取子匹配文本 (源码, 8, ))
超级列表框_挂单.置标题 (行号, 8, 挂单结果 [局部_计次].取子匹配文本 (源码, 9, ))
超级列表框_挂单.置标题 (行号, 9, 挂单结果 [局部_计次].取子匹配文本 (源码, 10, ))  ' 组别
超级列表框_挂单.置标题 (行号, 10, 挂单结果 [局部_计次].取子匹配文本 (源码, 11, ))  ' 帐号
计次循环尾 ()
对象.清除 ()
刷新挂单 ＝ 假
CoUninitialize ()
子程序名返回值类型公开备 注
子程序_留仓单刷新  
变量名类 型静态数组备 注
字节集字节集 
时间整数型 
源码文本型 
位置1整数型 
位置2整数型 
对象对象 
正则正则表达式 
留仓结果搜索结果0
局部_计次整数型 
行号整数型 
CoInitialize (0)
刷新留仓 ＝ 真
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/order_info.jsp”, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
信息框 (“查询挂单失败!,”, #错误图标, )
对象.清除 ()
返回 ()
源码 ＝ 取字节集数据 (字节集, #文本型, )
调试输出 (源码)
如果真 (寻找文本 (源码, “>請重新登錄！”, , 假) ≠ -1)
信息框 (“未登陆,请重新登陆!”, #信息图标, )
对象.清除 ()
CoUninitialize ()
登陆完成 ＝ 假
按钮_登陆.禁止 ＝ 假
刷新留仓 ＝ 假
返回 ()

正则.创建 ( #正则_留仓, )
留仓结果 ＝ 正则.搜索全部 (源码)
标签_留仓数.标题 ＝ 到文本 (取数组成员数 (留仓结果))
如果真 (取数组成员数 (留仓结果) ≠ 超级列表框_留仓单.取表项数 ())
超级列表框_留仓单.全部删除 ()
计次循环首 (取数组成员数 (留仓结果), 局部_计次)
行号 ＝ 超级列表框_留仓单.查找表项 (留仓结果 [局部_计次].取子匹配文本 (源码, 1, ), , 真, 1)
如果真 (行号 ＝ -1)
行号 ＝ 超级列表框_留仓单.插入表项 (, , , , , )

超级列表框_留仓单.置标题 (行号, 1, 留仓结果 [局部_计次].取子匹配文本 (源码, 1, ))  ' 订单号
超级列表框_留仓单.置标题 (行号, 0, 留仓结果 [局部_计次].取子匹配文本 (源码, 2, ))  ' 具体时间
超级列表框_留仓单.置标题 (行号, 2, 留仓结果 [局部_计次].取子匹配文本 (源码, 3, ))  ' 编码/名称
超级列表框_留仓单.置标题 (行号, 3, 留仓结果 [局部_计次].取子匹配文本 (源码, 4, ))  ' 买卖
超级列表框_留仓单.置标题 (行号, 4, 留仓结果 [局部_计次].取子匹配文本 (源码, 5, ))  ' 成交价格
超级列表框_留仓单.置标题 (行号, 5, 留仓结果 [局部_计次].取子匹配文本 (源码, 6, ))  ' 留仓价格
超级列表框_留仓单.置标题 (行号, 6, 留仓结果 [局部_计次].取子匹配文本 (源码, 7, ))  ' 现价
超级列表框_留仓单.置标题 (行号, 7, 留仓结果 [局部_计次].取子匹配文本 (源码, 8, ))  ' 数量
超级列表框_留仓单.置标题 (行号, 8, 留仓结果 [局部_计次].取子匹配文本 (源码, 9, ))  ' 留仓天数
超级列表框_留仓单.置标题 (行号, 9, 留仓结果 [局部_计次].取子匹配文本 (源码, 10, ))  ' 手续费
超级列表框_留仓单.置标题 (行号, 10, 留仓结果 [局部_计次].取子匹配文本 (源码, 11, ))  ' 点差
超级列表框_留仓单.置标题 (行号, 11, 留仓结果 [局部_计次].取子匹配文本 (源码, 12, ))  ' 盈亏
超级列表框_留仓单.置标题 (行号, 12, 留仓结果 [局部_计次].取子匹配文本 (源码, 13, ))  ' 编码
超级列表框_留仓单.置标题 (行号, 13, 留仓结果 [局部_计次].取子匹配文本 (源码, 14, ))  ' 股数
超级列表框_留仓单.置标题 (行号, 14, 留仓结果 [局部_计次].取子匹配文本 (源码, 15, ))  ' 买卖
超级列表框_留仓单.置标题 (行号, 15, 留仓结果 [局部_计次].取子匹配文本 (源码, 16, ))  ' 交易号
超级列表框_留仓单.置标题 (行号, 16, 留仓结果 [局部_计次].取子匹配文本 (源码, 17, ))  ' 编码
超级列表框_留仓单.置标题 (行号, 17, 留仓结果 [局部_计次].取子匹配文本 (源码, 18, ))  ' 编码
计次循环尾 ()
对象.清除 ()
刷新留仓 ＝ 假
CoUninitialize ()
子程序名返回值类型公开备 注
_按钮_留仓_被单击  
如果真 (取反 (登陆完成))
信息框 (“请先登陆用户!”, #信息图标, )
返回 ()
子程序_留仓单刷新 ()
子程序名返回值类型公开备 注
_时钟_刷新自选股_周期事件  
' 调试输出 (取反 (刷新自选股))
如果真 (取反 (刷新自选股))
启动线程 (子针_刷新自选股, , 句柄_自选股)
' 调试输出 (“句柄_自选股”, 句柄_自选股)

子程序名返回值类型公开备 注
_标签_用户名_反馈事件整数型 
参数名类 型参考可空数组备 注
参数一整数型
参数二整数型
关闭线程句柄 (句柄_自选股)
子程序名返回值类型公开备 注
_按钮_增加_自选股_被单击  
变量名类 型静态数组备 注
对象对象 
字节集字节集 
时间整数型 
代码文本型 
源码文本型 
如果真 (取反 (登陆完成))
信息框 (“请先登陆用户!”, #信息图标, )
返回 ()

代码 ＝ 删全部空 (编辑框_自选股_添加.内容)
如果真 (取文本长度 (代码) ≠ 6)
信息框 (“商品代码错误!”, #错误图标, )
返回 ()

' POST /member/stock/add_user_product.jsp?product_id=600400&user_id=r111222&date=1272534408296 HTTP/1.1
 ' Accept: */*
 ' Accept-Language: zh-cn
 ' Referer: http://ck.v5168.com/member/stock/product_list.jsp#
 ' UA-CPU: x86
 ' Accept-Encoding: gzip, deflate
 ' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
 ' Host: ck.v5168.com
 ' Content-Length: 0
 ' Connection: Keep-Alive
 ' Cache-Control: no-cache
 ' Cookie: JSESSIONID=vTnrLZVV34FGDznnqDXyrX8BYTtQJDDnbnzHslGNKGNMQ5QJkLxQ!-1479325989
调试输出 ()
CoInitialize (0)
脚本组件1.执行 ( #脚本_date )
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/add_user_product.jsp?product_id=” ＋ 代码 ＋ “&user_id=” ＋ 帐号 ＋ “&date=” ＋ 脚本组件1.运行 (“date”, ), 假)
对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/product_list.jsp#”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
信息框 (“新增自选股失败!,”, #错误图标, )
对象.清除 ()
返回 ()
源码 ＝ 取字节集数据 (字节集, #文本型, )
调试输出 (源码)
判断 (寻找文本 (源码, “success”, , 假) ≠ -1)
加入成员 (自选股_列表, 删全部空 (编辑框_自选股_添加.内容))
判断 (寻找文本 (源码, “此商品不存在”, , 假) ≠ -1)
' 信息框 (“此商品不存在”, #错误图标, )



对象.清除 ()
CoUninitialize ()
子程序名返回值类型公开备 注
_超级列表框_自选股_右键单击表项  
如果真 (超级列表框_自选股.现行选中项 ＞ -1)
弹出菜单 (菜单自选股, , )

子程序名返回值类型公开备 注
子程序_短时间文本型 '[00:00:00]
参数名类 型参考可空数组备 注
时间日期时间型
返回 (“[” ＋ 取重复文本 (2 － 取文本长度 (到文本 (取小时 (时间))), “0”) ＋ 到文本 (取小时 (时间)) ＋ “:” ＋ 取重复文本 (2 － 取文本长度 (到文本 (取分钟 (时间))), “0”) ＋ 到文本 (取分钟 (时间)) ＋ “:” ＋ 取重复文本 (2 － 取文本长度 (到文本 (取秒 (时间))), “0”) ＋ 到文本 (取秒 (时间)) ＋ “]”)
子程序名返回值类型公开备 注
子程序_删除自选股  
参数名类 型参考可空数组备 注
代码文本型
变量名类 型静态数组备 注
对象对象 
字节集字节集 
时间整数型 
' POST /member/stock/userProductServlet?oper_type=DEL&oper_id=r111222&product_id='601991' HTTP/1.1
 ' Accept: */*
 ' Accept-Language: zh-cn
 ' Referer: http://ck.v5168.com/member/stock/user_product.jsp
 ' Accept-Encoding: gzip, deflate
 ' User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)
 ' Host: ck.v5168.com
 ' Content-Length: 0
 ' Connection: Keep-Alive
 ' Cache-Control: no-cache
 ' Cookie: JSESSIONID=p0DTLJ1GGYb21VQgGCdMr3qbWnv42bJ4Pm1CvJJv1b9s7r6W2Fw1!-1121240827
 ' DEL#1#600509,601988,000005
删除自选股 ＝ 真
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/userProductServlet?oper_type=DEL&oper_id=” ＋ 帐号 ＋ “&product_id='” ＋ 代码 ＋ “'”, 假)
' 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/user_product.jsp”, 假)
对象.方法 (“setRequestHeader”, “If-Modified-Since”, “0”)  ' 不要缓存页
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
. ' 如果真 (字节集 ＝ {  })
 ' 对象.清除 ()
 ' 删除自选股 ＝ 假
 ' 返回 ()
 ' 源码 ＝ 到文本 (读入文件 (“D:\My Documents\GP\自选股.txt”))
删除自选股 ＝ 假
子程序_取自选股数 ()
返回 ()
子程序名返回值类型公开备 注
_超级按钮_刷新留仓单_被单击  
如果真 (取反 (登陆完成))
信息框 (“请先登陆用户!”, #信息图标, )
返回 ()

如果真 (取反 (刷新留仓))
子程序_留仓单刷新 ()

子程序名返回值类型公开备 注
_超级按钮_挂单_被单击  
如果真 (取反 (登陆完成))
信息框 (“请先登陆用户!”, #信息图标, )
返回 ()
调试输出 (取反 (刷新挂单))
如果真 (取反 (刷新挂单))
子程序_取挂单 ()

子程序名返回值类型公开备 注
_超级列表框_挂单_右键单击表项  
如果真 (超级列表框_挂单.现行选中项 ＞ -1)
弹出菜单 (菜单挂单, , )

子程序名返回值类型公开备 注
_超级列表框_留仓单_右键单击表项  
如果真 (超级列表框_留仓单.现行选中项 ＞ -1)
弹出菜单 (菜单留仓, , )

子程序名返回值类型公开备 注
子程序_取余额  
变量名类 型静态数组备 注
对象对象 
字节集字节集 
时间整数型 
源码文本型 
CoInitialize (0)
' POST /member/stock/sOrderServlet?oper_type=getUserBalance&user_id=r111222&project_type=S HTTP/1.1
 ' Accept: */*
 ' Accept-Language: zh-cn
 ' Referer: http://ck.v5168.com/member/stock/order.jsp
 ' UA-CPU: x86
 ' Accept-Encoding: gzip, deflate
 ' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
 ' Host: ck.v5168.com
 ' Content-Length: 0
 ' Connection: Keep-Alive
 ' Cache-Control: no-cache
 ' Cookie: JSESSIONID=JJ1yLXLbL4l8kgntGqqVy2WQzLl5lT5nW8yxLxXxlD0QVSrlSG7w!-1121240827
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“Open”, “POST”, “http://ck.v5168.com/member/stock/sOrderServlet?oper_type=getUserBalance&user_id=” ＋ 帐号 ＋ “&project_type=S”, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/order.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
如果真 (字节集 ＝ {  })
信息框 (“查询余额失败!,”, #错误图标, )
对象.清除 ()
返回 ()
源码 ＝ 取字节集数据 (字节集, #文本型, )
如果真 (寻找文本 (源码, “>請重新登錄！”, , 假) ≠ -1)
信息框 (“未登陆,请重新登陆!”, #信息图标, )
对象.清除 ()
CoUninitialize ()
登陆完成 ＝ 假
按钮_登陆.禁止 ＝ 假
' 刷新留仓 ＝ 假
返回 ()

标签_余额.标题 ＝ 源码
CoUninitialize ()
返回 ()
子程序名返回值类型公开备 注
_下单_被选择 '自选股 菜单 下单
编辑框_代码.内容 ＝ 超级列表框_自选股.取标题 (超级列表框_自选股.现行选中项, 1)
高级选择夹1.现行子夹 ＝ 2
如果真 (取反 (刷新行情))
子程序_行情刷新 (编辑框_代码.内容)

子程序名返回值类型公开备 注
_删除_被选择 '自选股 菜单 删除
子程序_删除自选股 (超级列表框_自选股.取标题 (超级列表框_自选股.现行选中项, 1))
子程序名返回值类型公开备 注
_取消_被选择  
如果真 (取反 (挂单取消))
调试输出 (超级列表框_挂单.取标题 (超级列表框_挂单.现行选中项, 1), 超级列表框_挂单.取标题 (超级列表框_挂单.现行选中项, 10))
' 子程序_挂单取消 (超级列表框_挂单.取标题 (超级列表框_挂单.现行选中项, 1), 超级列表框_挂单.取标题 (超级列表框_挂单.现行选中项, 10))

子程序名返回值类型公开备 注
子程序_挂单取消  
参数名类 型参考可空数组备 注
交易编码文本型
aorm文本型
变量名类 型静态数组备 注
对象对象 
字节集字节集 
时间整数型 
源码文本型 
' POST /member/stock/sOrderServlet?oper_type=CANCEL_ORDER&oper_id=r111222&order_id=1964641&a_or_m=A&user_id=r111222 HTTP/1.1
 ' Accept: */*
 ' Accept-Language: zh-cn
 ' Referer: http://ck.v5168.com/member/stock/order_pending.jsp
 ' UA-CPU: x86
 ' Accept-Encoding: gzip, deflate
 ' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
 ' Host: ck.v5168.com
 ' Content-Length: 0
 ' Connection: Keep-Alive
 ' Cache-Control: no-cache
 ' Cookie: JSESSIONID=NY6TLh4p7zrkTDvsY18zJ5ZQ6LWDYvQMtTbnYpC5b5n3N1hLTK9L!-1479325989
CoInitialize (0)
挂单取消 ＝ 真
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“Open”, “POST”, “http://ck.v5168.com/member/stock/sOrderServlet?oper_type=CANCEL_ORDER&oper_id=” ＋ 帐号 ＋ “&order_id=” ＋ 交易编码 ＋ “&a_or_m=” ＋ aorm ＋ “&user_id=” ＋ 帐号, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)
对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/order_pending.jsp”)
对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)
对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)”)
对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)
对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)
对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
对象.方法 (“SetRequestHeader”, “Cookie”, cookie)
对象.方法 (“Send”, )
循环判断首 ()
字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()
如果真 (字节集 ≠ {  })
跳出循环 ()
时间 ＝ 时间 ＋ 100  ' 100毫秒
延迟 (100)
循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时
. ' 如果真 (字节集 ＝ {  })
 ' 信息框 (“查询余额失败!,”, #错误图标, )
 ' 对象.清除 ()
 ' 返回 ()
源码 ＝ 取字节集数据 (字节集, #文本型, )
调试输出 (源码)
挂单取消 ＝ 假
CoUninitialize ()
子程序_取挂单 ()
返回 ()


i支持库列表   支持库注释   
RegEx正则表达式支持库
spec特殊功能支持库
HtmlView超文本浏览框支持库
script脚本语言支持组件
iext扩展界面支持库一
EThread多线程支持库
iext3扩展界面支持库三

5168_ok.e (179.26 KB, 下载次数: 364)



作者: 外星星人    时间: 2020-12-24 12:19
支持一下下
作者: xinyi87    时间: 2020-12-24 15:41
学习一下！支持！
作者: 为谁把酒林风    时间: 2020-12-24 17:50
学习一下！支持！
作者: orjg    时间: 2020-12-25 08:44
学习一下！支持！
作者: nihailin    时间: 2020-12-25 12:35
5168 是什么网站 .怎么看是电子设备回收的
作者: 想学易语言    时间: 2020-12-26 13:16
谢谢楼主的源码
作者: lm88818    时间: 2020-12-26 14:38
谢谢楼主的源码
作者: 灵海雪缘    时间: 2020-12-28 00:14
这个帖子长啊，这个帖子长啊，这个帖子长啊，这个帖子长啊，
作者: q1296603281    时间: 2020-12-30 12:08
你好，L2逐笔成交能获取吗？
作者: ngrjsc    时间: 2021-1-1 08:19
厉害厉害
作者: 忧郁之子    时间: 2021-1-1 19:05
POST学到了
作者: wd4507    时间: 2021-1-2 20:08
谢谢楼主，学习了
作者: cg201201    时间: 2021-1-18 19:48
为什么创建 http 对象不进行封装呢？
作者: 永美发    时间: 2021-1-25 10:57
nihailin 发表于 2020-12-25 12:35
5168 是什么网站 .怎么看是电子设备回收的

野鸡网站估计
作者: 易学哲    时间: 2021-3-5 15:12
感谢楼主分享。
作者: zheng1sam    时间: 2021-5-13 15:26
好好学习一下了
作者: zheng1sam    时间: 2021-5-13 15:26
感谢楼主分享
作者: 迪克    时间: 2021-6-2 13:58
好东西 收了
作者: liangshenda    时间: 2021-8-11 02:56
好东西 收了,谢谢。
作者: zzlong    时间: 2021-8-21 11:01
学习学习……
作者: lm88818    时间: 2021-9-6 01:48
学习学习……
作者: yyfyyf8888    时间: 2021-9-14 21:20
确实是好东西
作者: 15930887162    时间: 2021-10-9 12:27
下载试试
作者: 15930887162    时间: 2021-10-9 12:27
5168是个啥。。
作者: jmao1234    时间: 2021-10-24 17:04
学习学习
作者: 落得清闲    时间: 2022-1-21 15:22
不知道5168是个啥。好像网页打不开
作者: liangshenda    时间: 2022-1-22 20:37
谢谢，学习了。。。
作者: roor    时间: 2022-1-26 13:55
楼主好人，楼主写的真棒(～ o ～)~zZ


                                        藏起来的小尾巴,不让你看!  
作者: 大个石头    时间: 2022-3-4 09:08
谢谢分享
作者: 牛牛量化    时间: 2022-3-11 17:36
感谢共享源码
作者: 牛牛量化    时间: 2022-3-18 21:56
牛逼，源码写的很好
作者: gdwlwl    时间: 2022-3-26 22:54
谢谢分享 大气
作者: w6686    时间: 2022-4-6 08:11
谢谢楼主的源码，下载学习用。
作者: 散淡    时间: 2022-4-14 10:12
谢谢楼主分享~~
作者: gskj999    时间: 2022-4-20 06:14
这个太牛了。
作者: gskj999    时间: 2022-4-20 06:14
必需要顶，学习。
作者: ghost12    时间: 2022-4-26 22:00
支持开源~！感谢分享
作者: djc2000    时间: 2022-5-11 06:03
支持一下，分享
作者: qq85668684    时间: 2022-5-20 06:16
辛苦了,支持开源
作者: xmtian    时间: 2022-6-26 12:24
感谢分享，支持。
作者: 神武灰太狼    时间: 2022-7-6 10:43
认真学习易语言，提高易语言水平
作者: 易学哲    时间: 2022-7-21 20:52

谢谢楼主的源码，下载学习用。
作者: Gosling    时间: 2022-7-29 00:16
这个是好东西，感谢分享
作者: zhudehe    时间: 2022-10-27 07:41
这个太牛了。
作者: hujiuyi    时间: 2022-11-4 12:02
…{:3_41:}{:3_41:}{:3_41:}{:3_41:}{:3_41:}{:3_41:}{:3_41:}
作者: 56tt    时间: 2022-11-5 22:13
这个是好东西，感谢分享
作者: hjh2112    时间: 2022-11-8 17:18
老哥，你这软件卖多少rmb，这么复杂至少也是2万起吧
作者: lxh3936815    时间: 2022-11-14 09:00
作者: lxh3936815    时间: 2022-11-14 09:01
作者: paulz2022    时间: 2022-11-15 01:03
这个是好东西，感谢分享
作者: 爱你N年    时间: 2022-12-1 20:52
谢谢分享
作者: 上帝偏爱步兵    时间: 2022-12-7 20:40
感谢楼主的分享
作者: zhou5749    时间: 2022-12-18 16:26
感谢楼主的分享
作者: zhou5749    时间: 2022-12-18 16:26
这个太牛了。
作者: 春申门下三千客    时间: 2023-1-19 23:09
你是真大佬
作者: 459667988    时间: 2023-2-12 21:03
么么哒
作者: yxl2008    时间: 2023-4-15 17:06
谢谢分享，下载学习！！！！
作者: lyf910    时间: 2023-5-21 09:57

感谢楼主的分享
作者: 723469284    时间: 2023-5-24 16:58
作者: wolfpack    时间: 2023-5-29 13:16
看起来功能齐全啊
作者: 一米阳光2    时间: 2023-6-21 10:42
谢谢，我虚心来向你学习的。。。。。。
作者: oumeiy    时间: 2023-6-23 06:11
6666666666666
作者: zk474l    时间: 2023-7-16 16:24
6666666666666
作者: lyf910    时间: 2023-7-27 10:38

学习一下！支持！
作者: lwa1321    时间: 2023-7-31 13:19
还是得靠自己
作者: mhtjsgxpfs1    时间: 2023-9-13 09:50
受教了受教了
作者: wanerhejj    时间: 2023-10-1 00:23
下载来学习一下
作者: 尐潴    时间: 2023-10-4 15:00
好像很不错
作者: song9980    时间: 2023-11-3 20:43
下载来学习一下
作者: ysk123    时间: 2023-11-7 19:49

下载来学习一下
作者: ysk123    时间: 2023-11-7 19:49

下载来学习一下
作者: kic1234    时间: 2023-11-16 14:49
下载来学习一下
作者: 球王之王    时间: 2024-3-20 08:15
好东西，谢谢分享！
作者: typelist2017    时间: 2024-4-23 15:52
这个可以用，值 得学习
作者: wolfpack    时间: 2024-5-10 22:49
谢谢分享。。。。。。。。。。
作者: 一米阳光2    时间: 2024-5-15 09:25
易自带控件做的股票类数据抓取（含正则式/GET/POST)
作者: qccm668    时间: 2024-6-15 14:59
支持开源~！感谢分享
作者: shaojiecn    时间: 2024-7-2 23:50
非常感谢楼主分享
作者: pshq123    时间: 2024-10-28 09:16
支持开源~！感谢分享
作者: 原始世界    时间: 2024-11-7 08:03
谢谢分享
作者: 流浪的云    时间: 2024-11-16 20:23
非常给力
作者: 重庆赢家    时间: 2024-11-30 21:41
谢谢分享
作者: FAFA08    时间: 2025-2-10 16:21
虽然失效了，还是支持一下
作者: cxswswswws    时间: 2025-5-3 18:37
支持一下



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4