用易自带控件做的股票类数据抓取（含正则式/GET/POST)

wizhot

以前接单做的软件，数据类抓取做完了，上家就没了下文，给新手做参考.只使用自带支持库及系统的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	扩展界面支持库三

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> .支持库 HtmlView<br /> .支持库 script<br /> .支持库 iext<br /> .支持库 EThread<br /> .支持库 iext3<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 子针_刷新自选股, 子程序指针<br /> .程序集变量 子针_刷新挂单, 子程序指针<br /> .程序集变量 子针_刷新留仓, 子程序指针<br /> .程序集变量 子针_刷新行情, 子程序指针<br /> .程序集变量 句柄_自选股, 整数型<br /> .程序集变量 取自选股数, 逻辑型<br /> .程序集变量 删除自选股, 逻辑型<br /> .程序集变量 刷新挂单, 逻辑型<br /> .程序集变量 刷新留仓, 逻辑型<br /> .程序集变量 刷新行情, 逻辑型<br /> .程序集变量 组别, 文本型<br /> .程序集变量 挂单取消, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 自选股_列表 ＝ { “601988”, “000528”, “000002”, “600754”, “600031”, “600249”, “000055”, “000402” }<br /> 登陆完成 ＝ 假<br /> 编辑框_限价.可视 ＝ 假<br /> 子针_刷新自选股 ＝ &子程序_自选股<br /> ' 子程序_初始化_留仓表 ()<br /> ' 子程序_初始化_自选股 ()<br /> <br /> <br /> .子程序 _按钮_登陆_被单击<br /> .局部变量 源代码, 文本型<br /> .局部变量 提交文本, 文本型<br /> .局部变量 变体, 变体型<br /> .局部变量 时间, 整数型<br /> .局部变量 字节集, 字节集<br /> .局部变量 Attach, 文本型<br /> .局部变量 date, 文本型<br /> .局部变量 提交信息, 文本型<br /> .局部变量 时间1, 整数型<br /> .局部变量 对象, 对象<br /> .局部变量 正则, 正则表达式<br /> .局部变量 校时, 搜索结果<br /> <br /> 帐号 ＝ 删全部空 (编辑框_用户名.内容)<br /> 密码 ＝ 删全部空 (编辑框_密码.内容)<br /> ' CoInitialize (0)<br /> ' 对象.创建 (“WinHttp.WinHttpRequest.5.1”, )<br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 对象.方法 (“SetTimeouts”, 3000, 3000, 5000, 3000)<br /> 时间1 ＝ 取启动时间 ()<br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com”, 真)<br /> 对象.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/”)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     信息框 (“登陆失败,1!请检查网络连接!,”, #错误图标, )<br />     对象.清除 ()<br />     返回 ()<br /> .如果真结束<br /> cookie ＝ 取文本中间 (对象.读属性 (“GetResponseHeader”, “Set-Cookie”).取文本 (), 1, 取文本长度 (对象.读属性 (“GetResponseHeader”, “Set-Cookie”).取文本 ()) － 19)<br /> date ＝ 对象.读属性 (“GetResponseHeader”, “Date”).取文本 ()<br /> <br /> ' ------------------------取attach<br /> 对象.方法 (“Open”, “POST”, “http://ck.v5168.com/public/attachHidden.jsp”, 假)<br /> 对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/”)<br /> 对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)<br /> 对象.方法 (“SetRequestHeader”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     信息框 (“登陆失败,2!,”, #错误图标, )<br />     对象.清除 ()<br />     返回 ()<br /> .如果真结束<br /> Attach ＝ 到文本 (到整数 (取字节集数据 (字节集, #文本型, )))<br /> <br /> ' -------------------------POST 登陆信息<br /> 提交信息 ＝ “page_type=1&user_id=” ＋ 帐号 ＋ “&password=” ＋ 密码 ＋ “&offsetHeight=751&offsetWidth=1920&attach=” ＋ Attach ＋ “&user_id_0=” ＋ 帐号 ＋ “&password_0=” ＋ 密码 ＋ “&b_login_0=”<br /> ' 调试输出 (提交信息)<br /> ' 调试输出 (cookie)<br /> 对象.方法 (“Open”, “POST”, “http://ck.v5168.com/userLoginAction.do”, 真)<br /> 对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)<br /> 对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Content-Length”, 到文本 (取文本长度 (提交信息)))<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, 提交信息)<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     信息框 (“登陆失败,3!,”, #错误图标, )<br />     对象.清除 ()<br />     返回 ()<br /> .如果真结束<br /> ' --------------------- 登陆成功,校时<br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/public/check_rule.jsp”, 假)<br /> 对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/frm_member.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     信息框 (“登陆失败,4!,”, #错误图标, )<br />     对象.清除 ()<br />     返回 ()<br /> .如果真结束<br /> ' ----------------检测时间-----<br /> 源代码 ＝ 取字节集数据 (字节集, #文本型, )<br /> <br /> 正则.创建 (“目前主机时间:(.*?), 请对时”, )<br /> 校时 ＝ 正则.搜索 (源代码, 1, )<br /> ' 调试输出 (校时.取子匹配文本 (源代码, 1, ))<br /> ' 调试输出 (取时间间隔 (到时间 (“2010.04.29 00:00:00”), 到时间 (校时.取子匹配文本 (源代码, 1, )), #小时))<br /> .如果真 (取时间间隔 (到时间 (“2010.05.04 00:00:00”), 到时间 (校时.取子匹配文本 (源代码, 1, )), #小时) ＜ 0)  ' 设置时间如果真 ()<br />     结束 ()<br /> .如果真结束<br /> <br /> <br /> ' ---------------------- 取首页<br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/member_index.jsp”, 假)<br /> 对象.方法 (“SetRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/frm_member.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     信息框 (“登陆失败,5!,”, #错误图标, )<br />     对象.清除 ()<br />     返回 ()<br /> .如果真结束<br /> ' -----------------取历史数据<br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/report_009.jsp?report_id=009&show_date=1”, 假)<br /> 对象.方法 (“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, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> <br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     信息框 (“登陆失败,5!,”, #错误图标, )<br />     对象.清除 ()<br />     返回 ()<br /> .如果真结束<br /> ' 调试输出 (取字节集数据 (字节集, #文本型, ))<br /> .如果 (寻找文本 (取字节集数据 (字节集, #文本型, ), 帐号, , 假) ≠ -1)<br />     登陆完成 ＝ 真<br />     标签_登陆.标题 ＝ 删全部空 (编辑框_用户名.内容)<br />     ' 透明标签_登陆.标题 ＝ “登陆: 成功!耗时:” ＋ 到文本 (取启动时间 () － 时间1)<br />     编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 登陆: 用户 [” ＋ 帐号 ＋ “] 登陆成功! 耗时:” ＋ 到文本 (取启动时间 () － 时间1) ＋ #换行符)<br />     按钮_登陆.禁止 ＝ 真<br /> .否则<br />     编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 错误: 用户登陆失败! ” ＋ #换行符)<br />     对象.清除 ()<br />     返回 ()<br /> .如果结束<br /> 对象.清除 ()<br /> 子程序_取余额 ()<br /> 子程序_取自选股数 ()<br /> 子程序_留仓单刷新 ()<br /> 子程序_取挂单 ()<br /> 子程序_自选股 ()<br /> 返回 ()<br /> <br /> .子程序 子程序_取日报<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 位置1, 整数型<br /> .局部变量 位置2, 整数型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 对象, 对象<br /> <br /> CoInitialize (0)<br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/report_009.jsp?report_id=009&show_date=1”, 假)<br /> 对象.方法 (“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, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     信息框 (“查询失败,5!,”, #错误图标, )<br />     对象.清除 ()<br />     返回 ()<br /> .如果真结束<br /> 文本 ＝ 取字节集数据 (字节集, #文本型, )<br /> 位置1 ＝ 寻找文本 (文本, #日报_开始, , 假)<br /> 位置2 ＝ 寻找文本 (文本, “”, , 假) ＋ 7<br /> 文本 ＝ 取文本中间 (文本, 位置1, 取文本长度 (文本) － 位置1)<br /> ' 正则.创建 (#正则_留仓文本, )<br /> ' 留仓文本 ＝ 正则.搜索 (文本, 1, ).取匹配文本 (文本, )<br /> .如果真 (写到文件 (取运行目录 () ＋ “\data\v5168.htm”, 到字节集 (#日报_头部 ＋ 文本)))<br />     超文本浏览框1.地址 ＝ 取运行目录 () ＋ “\data\v5168.htm”<br /> .如果真结束<br /> 对象.清除 ()<br /> CoUninitialize ()<br /> <br /> <br /> .子程序 _按钮_日报_被单击<br /> <br /> .如果真 (取反 (登陆完成))<br />     信息框 (“请先登陆用户!”, #信息图标, )<br />     返回 ()<br /> .如果真结束<br /> 子程序_取日报 ()<br /> <br /> <br /> <br /> .子程序 子程序_取自选股数<br /> .局部变量 正则, 正则表达式<br /> .局部变量 对象, 对象<br /> .局部变量 自选股数, 搜索结果, , "0"<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 源码, 文本型<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> <br /> ' productOrder\("(.*?)"\)'>下单<br /> ' GET /member/stock/user_product.jsp HTTP/1.1<br /> ' Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/vnd.ms-excel, application/vnd.ms-powerpoint, */*<br /> ' Referer: http://ck.v5168.com/member/stock/stock_order_main.jsp<br /> ' Accept-Language: zh-cn<br /> ' UA-CPU: x86<br /> ' Accept-Encoding: gzip, deflate<br /> ' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)<br /> ' Host: ck.v5168.com<br /> ' Connection: Keep-Alive<br /> ' Cookie: JSESSIONID=JL4dLWvpgGKWbvrpG5yWXD0zMQ9BW0NThqZRKP1VNBsHZVW8mB1B!-1121240827<br /> 取自选股数 ＝ 真<br /> <br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/user_product.jsp”, 假)<br /> ' 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/user_product.jsp”, 假)<br /> 对象.方法 (“setRequestHeader”, “If-Modified-Since”, “0”)  ' 不要缓存页<br /> 对象.方法 (“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, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br /> <br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br /> <br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     对象.清除 ()<br />     取自选股数 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> <br /> 源码 ＝ 取字节集数据 (字节集, #文本型, )<br /> 调试输出 (源码)<br /> 正则.创建 (#正则_取自选股数, )<br /> 自选股数 ＝ 正则.搜索全部 (源码)<br /> 标签_自选股数.标题 ＝ 到文本 (取数组成员数 (自选股数))<br /> 调试输出 (取数组成员数 (自选股数))<br /> .如果真 (取数组成员数 (自选股数) ＝ 0)<br />     对象.清除 ()<br />     取自选股数 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> 清除数组 (自选股_列表)<br /> .计次循环首 (取数组成员数 (自选股数), 局部_计次)<br />     加入成员 (自选股_列表, 自选股数 [局部_计次].取子匹配文本 (源码, 1, ))<br /> .计次循环尾 ()<br /> 对象.清除 ()<br /> 取自选股数 ＝ 假<br /> 返回 ()<br /> <br /> .子程序 子程序_自选股<br /> .局部变量 行号, 整数型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 源码, 文本型<br /> .局部变量 自选股, 搜索结果, , "0"<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 局部_计次2, 整数型<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> .局部变量 对象, 对象<br /> .局部变量 时间1, 整数型<br /> .局部变量 列表, 文本型<br /> <br /> CoInitialize (0)<br /> 刷新自选股 ＝ 真<br /> 时间1 ＝ 取启动时间 ()<br /> 脚本组件1.执行 (#脚本1)<br /> 列表 ＝ “”<br /> .如果真 (取数组成员数 (自选股_列表) ＜ 1)<br />     刷新自选股 ＝ 假<br />     CoUninitialize ()<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (自选股_列表), 局部_计次)<br />     列表 ＝ 列表 ＋ 自选股_列表 [局部_计次]<br />     .如果真 (局部_计次 ＜ 取数组成员数 (自选股_列表))<br />         列表 ＝ 列表 ＋ “,”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/user_product_list.jsp?product_list=” ＋ 列表 ＋ “&date=” ＋ 脚本组件1.运行 (“a”, ), 假)<br /> ' 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/user_product.jsp”, 假)<br /> 对象.方法 (“setRequestHeader”, “If-Modified-Since”, “0”)  ' 不要缓存页<br /> 对象.方法 (“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, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     对象.清除 ()<br />     刷新自选股 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> 源码 ＝ 取字节集数据 (字节集, #文本型, )<br /> .如果真 (寻找文本 (源码, “>請重新登錄！”, , 假) ≠ -1)<br />     信息框 (“未登陆,请重新登陆!”, #信息图标, )<br />     对象.清除 ()<br />     刷新自选股 ＝ 假<br />     登陆完成 ＝ 假<br />     按钮_登陆.禁止 ＝ 假<br />     .如果真 (按钮_自选股.标题 ≠ “开始刷新”)<br />         按钮_自选股.标题 ＝ “开始刷新”<br />         时钟_刷新自选股.时钟周期 ＝ 0<br />         编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 停止: 暂停自选股自动刷新功能!” ＋ #换行符)<br />     .如果真结束<br />     编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 错误: 平台用户被退出,请重新登陆!” ＋ #换行符)<br />     CoUninitialize ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 正则.创建 (#正则_自选股, )<br /> 自选股 ＝ 正则.搜索全部 (源码)<br /> 调试输出 (取数组成员数 (自选股_列表), 超级列表框_自选股.取表项数 ())<br /> <br /> .如果真 (取数组成员数 (自选股_列表) ≠ 超级列表框_自选股.取表项数 ())<br />     超级列表框_自选股.全部删除 ()<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (自选股_列表), 局部_计次)<br />     行号 ＝ 超级列表框_自选股.查找表项 (自选股 [局部_计次].取子匹配文本 (源码, 1, ), , 真, 1)<br />     .如果真 (行号 ＝ -1)<br />         行号 ＝ 超级列表框_自选股.插入表项 (, , , , , )<br />     .如果真结束<br />     超级列表框_自选股.置标题 (行号, 1, 自选股 [局部_计次].取子匹配文本 (源码, 1, ))<br />     超级列表框_自选股.置标题 (行号, 2, 自选股 [局部_计次].取子匹配文本 (源码, 3, ))<br />     .计次循环首 (9, 局部_计次2)<br />         超级列表框_自选股.置标题 (行号, 局部_计次2 ＋ 2, 自选股 [局部_计次].取子匹配文本 (源码, 局部_计次2 ＋ 局部_计次2 ＋ 3, ))<br />     .计次循环尾 ()<br />     超级列表框_自选股.置标题 (行号, 12, 自选股 [局部_计次].取子匹配文本 (源码, 22, ))<br />     超级列表框_自选股.置标题 (行号, 13, 自选股 [局部_计次].取子匹配文本 (源码, 23, ))<br /> .计次循环尾 ()<br /> 刷新自选股 ＝ 假<br /> 标签_用户名.调用反馈事件 (0, 0, 假)<br /> 调试输出 (取启动时间 () － 时间1)<br /> CoUninitialize ()<br /> <br /> .子程序 _按钮_自选股_被单击<br /> <br /> ' 子程序_自选股 ()<br /> .如果真 (取反 (登陆完成))<br />     信息框 (“请先登陆用户!”, #信息图标, )<br />     返回 ()<br /> .如果真结束<br /> .如果 (按钮_自选股.标题 ＝ “开始刷新”)<br />     按钮_自选股.标题 ＝ “停止刷新”<br />     时钟_刷新自选股.时钟周期 ＝ 2000<br />     编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 开始: 启动自选股自动刷新功能!” ＋ #换行符)<br /> .否则<br />     时钟_刷新自选股.时钟周期 ＝ 0<br />     按钮_自选股.标题 ＝ “开始刷新”<br />     编辑框_记录.加入文本 (子程序_短时间 (取现行时间 ()) ＋ “ 停止: 暂停自选股自动刷新功能!” ＋ #换行符)<br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 _超级按钮_行情刷新_被单击<br /> <br /> .如果真 (取反 (登陆完成))<br />     信息框 (“请先登陆用户!”, #信息图标, )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (取反 (刷新行情))<br />     子程序_行情刷新 (编辑框_代码.内容)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 子程序_行情刷新<br /> .参数 代码, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 源码, 文本型<br /> .局部变量 a, 文本型<br /> .局部变量 行情搜索, 搜索结果, , "0"<br /> .局部变量 位置1, 整数型<br /> .局部变量 余额, 搜索结果<br /> .局部变量 userID, 搜索结果<br /> .局部变量 标签_1, 标签, , "11"<br /> .局部变量 标签_2, 标签, , "11"<br /> .局部变量 标签_3, 标签, , "9"<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 结果_id_left, 搜索结果<br /> .局部变量 结果_order_id_left, 搜索结果<br /> .局部变量 结果_组别, 搜索结果<br /> .局部变量 id_left, 文本型<br /> .局部变量 order_id_left, 文本型<br /> .局部变量 临时文本, 文本型, , "0"<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> .局部变量 对象, 对象<br /> <br /> .如果真 (取文本长度 (代码) ≠ 6)<br />     信息框 (“商品代码错误,请检查!”, #错误图标, )<br />     返回 ()<br /> .如果真结束<br /> 刷新行情 ＝ 真<br /> <br /> ' GET /member/stock/order.jsp?product_id=000005 HTTP/1.1<br /> ' Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/vnd.ms-excel, application/vnd.ms-powerpoint, */*<br /> ' Referer: http://ck.v5168.com/member/stock/stock_order_main.jsp<br /> ' Accept-Language: zh-cn<br /> ' UA-CPU: x86<br /> ' Accept-Encoding: gzip, deflate<br /> ' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)<br /> ' Host: ck.v5168.com<br /> ' Connection: Keep-Alive<br /> ' Cookie: JSESSIONID=JL4dLWvpgGKWbvrpG5yWXD0zMQ9BW0NThqZRKP1VNBsHZVW8mB1B!-1121240827<br /> CoInitialize (0)<br /> 脚本组件1.执行 (#脚本1)<br /> a ＝ 脚本组件1.运行 (“a”, )<br /> 调试输出 (a)<br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> <br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com//member/stock/order.jsp?product_id=” ＋ 代码, 假)<br /> 对象.方法 (“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, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br /> <br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br /> <br /> <br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     对象.清除 ()<br />     刷新行情 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> 源码 ＝ 取字节集数据 (字节集, #文本型, )<br /> 调试输出 (源码)<br /> ' 源码 ＝ 到文本 (读入文件 (“D:\My Documents\GP\下单.htm”))<br /> .如果真 (寻找文本 (源码, “>請重新登錄！”, , 假) ≠ -1)<br />     信息框 (“未登陆,请重新登陆!”, #信息图标, )<br />     对象.清除 ()<br />     CoUninitialize ()<br />     登陆完成 ＝ 假<br />     按钮_登陆.禁止 ＝ 假<br />     刷新行情 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> .如果真 (寻找文本 (源码, “下单”, , 假) ＝ -1)<br />     信息框 (“商品代码不正确!1”, #信息图标, )<br />     对象.清除 ()<br />     刷新行情 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> 正则.创建 (“var userID = '(.*?)';”, )<br /> userID ＝ 正则.搜索 (源码, 1, )<br /> .如果真 (userID.取子匹配文本 (源码, 1, ) ＝ “”)<br />     对象.清除 ()<br />     刷新行情 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> <br /> 标签_userID.标题 ＝ userID.取子匹配文本 (源码, 1, )<br /> 正则.创建 (“setUserBalance\('(.*?)'\);”, )<br /> 余额 ＝ 正则.搜索 (源码, 1, )<br /> 标签_可用额度.标题 ＝ 余额.取子匹配文本 (源码, 1, )<br /> 调试输出 (余额.取子匹配文本 (源码, 1, ))<br /> ' <br /> ' <br /> 正则.创建 (#正则_id_left, )<br /> 结果_id_left ＝ 正则.搜索 (源码, 1, )<br /> id_left ＝ 结果_id_left.取子匹配文本 (源码, 1, )<br /> 正则.创建 (#正则_order_id_left, )<br /> 结果_order_id_left ＝ 正则.搜索 (源码, 1, )<br /> order_id_left ＝ 结果_order_id_left.取子匹配文本 (源码, 1, )<br /> <br /> 正则.创建 (#正则_组别, )<br /> 结果_组别 ＝ 正则.搜索 (源码, 1, )<br /> 组别 ＝ 结果_组别.取子匹配文本 (源码, 1, )<br /> <br /> 调试输出 (“组别”, 组别)<br /> <br /> 正则.创建 (#正则_行情, )<br /> 行情搜索 ＝ 正则.搜索全部 (源码)<br /> 标签_1 [1] ＝ 标签_卖五<br /> ' *** 缩略程序块 ***<br /> 标签_1 [2] ＝ 标签_卖四<br /> 标签_1 [3] ＝ 标签_卖三<br /> 标签_1 [4] ＝ 标签_卖二<br /> 标签_1 [5] ＝ 标签_卖一<br /> 标签_1 [6] ＝ 标签_最新价<br /> 标签_1 [7] ＝ 标签_买一<br /> 标签_1 [8] ＝ 标签_买二<br /> 标签_1 [9] ＝ 标签_买三<br /> 标签_1 [10] ＝ 标签_买四<br /> 标签_1 [11] ＝ 标签_买五<br /> <br /> 标签_2 [1] ＝ 标签_卖五_数量<br /> ' *** 缩略程序块 ***<br /> 标签_2 [2] ＝ 标签_卖四_数量<br /> 标签_2 [3] ＝ 标签_卖三_数量<br /> 标签_2 [4] ＝ 标签_卖二_数量<br /> 标签_2 [5] ＝ 标签_卖一_数量<br /> 标签_2 [6] ＝ 标签_最新价_数量<br /> 标签_2 [7] ＝ 标签_买一_数量<br /> 标签_2 [8] ＝ 标签_买二_数量<br /> 标签_2 [9] ＝ 标签_买三_数量<br /> 标签_2 [10] ＝ 标签_买四_数量<br /> 标签_2 [11] ＝ 标签_买五_数量<br /> <br /> 标签_3 [1] ＝ 标签_开盘价<br /> ' *** 缩略程序块 ***<br /> 标签_3 [2] ＝ 标签_最高价<br /> 标签_3 [3] ＝ 标签_最低价<br /> 标签_3 [4] ＝ 标签_昨收价<br /> 标签_3 [5] ＝ 标签_涨跌<br /> 标签_3 [6] ＝ 标签_涨跌百分比<br /> 标签_3 [7] ＝ 标签_总成交量<br /> 标签_3 [8] ＝ 标签_总金额<br /> <br /> .计次循环首 (11, 局部_计次)<br />     标签_1 [局部_计次].文本颜色 ＝ 选择 (行情搜索 [局部_计次].取子匹配文本 (源码, 2, ) ＝ “Red”, #红色, #墨绿)<br />     标签_1 [局部_计次].标题 ＝ 行情搜索 [局部_计次].取子匹配文本 (源码, 3, )<br />     标签_2 [局部_计次].文本颜色 ＝ 选择 (行情搜索 [局部_计次].取子匹配文本 (源码, 4, ) ＝ “Red”, #红色, #墨绿)<br />     标签_2 [局部_计次].标题 ＝ 行情搜索 [局部_计次].取子匹配文本 (源码, 5, )<br />     .如果真 (局部_计次 ＜ 9)<br />         .如果真 (局部_计次 ＜ 7)<br />             标签_3 [局部_计次].文本颜色 ＝ 选择 (行情搜索 [局部_计次].取子匹配文本 (源码, 7, ) ＝ “style='Color:Red;'>”, #红色, #墨绿)<br />         .如果真结束<br />         标签_3 [局部_计次].标题 ＝ 行情搜索 [局部_计次].取子匹配文本 (源码, 8, )<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 对象.方法 (“Open”, “POST”, “http://ck.v5168.com/member/stock/sOrderServlet?oper_type=getProductPrice&user_id=” ＋ 标签_userID.标题 ＋ “&product_id=” ＋ 代码 ＋ “&project_type=S”, 假)<br /> 对象.方法 (“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, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/order.jsp?product_id=” ＋ 代码)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br /> <br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     对象.清除 ()<br />     刷新行情 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> 源码 ＝ 取字节集数据 (字节集, #文本型, )<br /> .如果真 (寻找文本 (源码, “>請重新登錄！”, , 假) ≠ -1)<br />     信息框 (“未登陆,请重新登陆!”, #信息图标, )<br />     对象.清除 ()<br />     CoUninitialize ()<br />     登陆完成 ＝ 假<br />     按钮_登陆.禁止 ＝ 假<br />     刷新行情 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> <br /> 调试输出 (源码)<br /> ' 源码 ＝ “世纪星源,4.94,SZ,0,0,0,1000000”<br /> .判断开始 (源码 ＝ “CLOSED”)<br />     标签_名称.文本颜色 ＝ #红色<br />     标签_名称.标题 ＝ “已收盘”<br />     刷新行情 ＝ 假<br />     返回 ()<br /> .判断 (源码 ＝ “UNOPENED”)<br />     标签_名称.文本颜色 ＝ #红色<br />     标签_名称.标题 ＝ “尚未开盘”<br />     刷新行情 ＝ 假<br />     返回 ()<br /> .默认<br />     临时文本 ＝ 分割文本 (源码, “,”, )<br />     标签_最新价.标题 ＝ 临时文本 [2]<br />     标签_名称.标题 ＝ 临时文本 [1]<br />     .如果 (到数值 (临时文本 [7]) ＜ 取整 (到数值 (标签_可用额度.标题) ÷ 到数值 (标签_卖五.标题) ÷ 100) × 100)<br />         标签_可下总量.标题 ＝ 临时文本 [7]<br />     .否则<br />         标签_可下总量.标题 ＝ 到文本 (取整 (到数值 (标签_可用额度.标题) ÷ 到数值 (标签_卖五.标题) ÷ 100) × 100)<br />     .如果结束<br />     标签_点差.标题 ＝ 临时文本 [5]<br />     标签_备注信息.标题 ＝ “单注最高为:” ＋ 临时文本 [7]<br /> .判断结束<br /> <br /> 对象.清除 ()<br /> CoUninitialize ()<br /> 刷新行情 ＝ 假<br /> <br /> .子程序 子程序_买入, , , '提交数据<br /> .参数 代码, 文本型, , product_id=000005<br /> .参数 买卖, 文本型, , b_or_s=S<br /> .参数 order_type, 文本型, , rder_type=20/市价,rder_type=40/限价<br /> .参数 价格, 文本型, , price_apply=4.01/限价  price_apply=0/市价<br /> .参数 id_left, 文本型, 可空, id_left = -1 /id_left=订单号<br /> .参数 下注量, 文本型, , quantity=100<br /> .参数 assess_group, 文本型, , 'A B C<br /> .局部变量 源码, 文本型<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> .局部变量 对象, 对象<br /> <br /> .判断开始断 (单选框_市价.选中)<br />     ' order_type ＝ “20”<br /> .' 判断 (单选框_限价.选中)<br />     ' order_type ＝ “40”<br /> .默认<br />     ' 信息框 (“请选择价格类型!市价或限价”, 0, )<br />     ' 返回 ()<br /> .判断结束<br /> .如果真 (是否为空 (id_left))<br />     id_left ＝ “-1”<br /> .如果真结束<br /> CoInitialize (0)<br /> ' * “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”<br /> ' * “0#PRODUCT_BREAK”<br /> ' 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<br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 调试输出 (“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=” ＋ 价格)<br /> 对象.方法 (“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=” ＋ 价格, 假)<br /> 对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/order.jsp?product_id=” ＋ 代码)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> ' 对象.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)<br /> 对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     对象.清除 ()<br />     返回 ()<br /> .如果真结束<br /> 源码 ＝ 取字节集数据 (字节集, #文本型, )<br /> ' 0#PRODUCT_BREAK<br /> ' 0#PRODUCT_PAUSE  超出限额 暂停收单<br /> .' 如果真 (源码 ＝ “0#PRODUCT_BREAK”)<br />     ' 信息框 (“休市中...请晚点再下单!”, #信息图标, )<br /> .如果真结束<br /> 调试输出 (源码)<br /> 对象.清除 ()<br /> CoUninitialize ()<br /> <br /> <br /> .子程序 _超级按钮_下单_被单击<br /> .局部变量 order_type, 文本型<br /> .局部变量 买卖, 文本型<br /> .局部变量 价格, 文本型<br /> <br /> .如果真 (取反 (登陆完成))<br />     信息框 (“请先登陆用户!”, #信息图标, )<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果 (单选框_买.选中)<br />     买卖 ＝ “B”<br /> .否则<br />     .如果 (单选框_卖.选中)<br />         买卖 ＝ “S”<br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> .判断开始 (单选框_市价.选中)<br />     order_type ＝ “20”<br />     价格 ＝ “0”<br /> .判断 (单选框_限价.选中)<br />     order_type ＝ “40”<br />     价格 ＝ 删全部空 (编辑框_限价.内容)<br />     .如果 (买卖 ＝ “B”)<br />         .如果真 (到数值 (价格) ＞ 到数值 (标签_买一.标题))<br />             信息框 (“限价不能高于:” ＋ 标签_最新价.标题, 0, )<br />         .如果真结束<br /> <br />     .否则<br />         .如果真 (到数值 (价格) ＜ 到数值 (标签_卖一.标题))<br />             信息框 (“限价不能低于:” ＋ 标签_最新价.标题, 0, )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .默认<br />     信息框 (“请选择价格类型!市价或限价”, 0, )<br />     返回 ()<br /> .判断结束<br /> <br /> 调试输出 (删全部空 (编辑框_代码.内容), 买卖, order_type, 价格, , 删全部空 (编辑框_委托数量.内容))<br /> <br /> 子程序_买入 (删全部空 (编辑框_代码.内容), 买卖, order_type, 价格, , 删全部空 (编辑框_委托数量.内容), 组别)<br /> 子程序_取挂单 ()<br /> <br /> .子程序 子程序_添加自选股<br /> .参数 产品代码, 文本型<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> .局部变量 对象, 对象<br /> <br /> ' POST /member/stock/add_user_product.jsp?product_id=601991&user_id=r111222&date=1272247855828 HTTP/1.1<br /> ' Accept: */*<br /> ' Accept-Language: zh-cn<br /> ' Referer: http://ck.v5168.com/member/stock/product_list.jsp#<br /> ' Accept-Encoding: gzip, deflate<br /> ' User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)<br /> ' Host: ck.v5168.com<br /> ' Content-Length: 0<br /> ' Connection: Keep-Alive<br /> ' Cache-Control: no-cache<br /> ' Cookie: JSESSIONID=p0DTLJ1GGYb21VQgGCdMr3qbWnv42bJ4Pm1CvJJv1b9s7r6W2Fw1!-1121240827<br /> ' 返回 success<br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 脚本组件1.执行 (#脚本_date)<br /> 调试输出 (脚本组件1.运行 (“date”, ))<br /> 对象.方法 (“Open”, “POST”, “http://ck.v5168.com/member/stock/add_user_product.jsp?product_id=” ＋ 产品代码 ＋ “&user_id=” ＋ 帐号 ＋ “&date=” ＋ 到文本 (脚本组件1.运行 (“date”, )), 假)<br /> 对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/product_list.jsp#”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)<br /> ' 对象.方法 (“SetRequestHeader”, “UA-CPU”, “x86”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br /> <br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     对象.清除 ()<br />     ' 信息框 (“登陆失败,3!,”, #错误图标, )<br />     返回 ()<br /> .如果真结束<br /> .如果 (寻找文本 (取字节集数据 (字节集, #文本型, ), “success”, , 假) ≠ -1)<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> 对象.清除 ()<br /> <br /> .子程序 _单选框_限价_被单击<br /> <br /> 编辑框_限价.可视 ＝ 单选框_限价.选中<br /> <br /> <br /> .子程序 _单选框_市价_被单击<br /> <br /> 编辑框_限价.可视 ＝ 单选框_限价.选中<br /> <br /> .子程序 _按钮_挂单_被单击<br /> <br /> ' GET /member/stock/order_pending.jsp HTTP/1.1<br /> ' 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, */*<br /> ' Referer: http://ck.v5168.com/member/stock/stock_order_main.jsp<br /> ' Accept-Language: zh-cn<br /> ' User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)<br /> ' Accept-Encoding: gzip, deflate<br /> ' Host: ck.v5168.com<br /> ' Connection: Keep-Alive<br /> ' Cookie: JSESSIONID=p0DTLJ1GGYb21VQgGCdMr3qbWnv42bJ4Pm1CvJJv1b9s7r6W2Fw1!-1121240827<br /> .如果真 (取反 (登陆完成))<br />     信息框 (“请先登陆用户!”, #信息图标, )<br />     返回 ()<br /> .如果真结束<br /> <br /> 子程序_取挂单 ()<br /> <br /> .子程序 子程序_取挂单<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> .局部变量 源码, 文本型<br /> .局部变量 位置1, 整数型<br /> .局部变量 位置2, 整数型<br /> .局部变量 对象, 对象<br /> .局部变量 正则, 正则表达式<br /> .局部变量 挂单结果, 搜索结果, , "0"<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 行号, 整数型<br /> <br /> CoInitialize (0)<br /> 刷新挂单 ＝ 真<br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/order_pending.jsp”, 假)<br /> 对象.方法 (“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, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     信息框 (“查询挂单失败!,”, #错误图标, )<br />     对象.清除 ()<br />     刷新挂单 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> 源码 ＝ 取字节集数据 (字节集, #文本型, )<br /> 调试输出 (源码)<br /> 正则.创建 (#正则_挂单, )<br /> 挂单结果 ＝ 正则.搜索全部 (源码)<br /> 标签_挂单数.标题 ＝ 到文本 (取数组成员数 (挂单结果))<br /> .如果真 (取数组成员数 (挂单结果) ≠ 超级列表框_挂单.取表项数 ())<br />     超级列表框_挂单.全部删除 ()<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (挂单结果), 局部_计次)<br />     行号 ＝ 超级列表框_挂单.查找表项 (挂单结果 [局部_计次].取子匹配文本 (源码, 2, ), , 真, 1)<br />     调试输出 (行号, 挂单结果 [局部_计次].取子匹配文本 (源码, 2, ), 挂单结果 [局部_计次].取子匹配文本 (源码, 3, ))<br />     .如果真 (行号 ＝ -1)<br />         行号 ＝ 超级列表框_挂单.插入表项 (, , , , , )<br />     .如果真结束<br />     超级列表框_挂单.置标题 (行号, 1, 挂单结果 [局部_计次].取子匹配文本 (源码, 2, ))<br />     超级列表框_挂单.置标题 (行号, 2, 挂单结果 [局部_计次].取子匹配文本 (源码, 3, ))<br />     超级列表框_挂单.置标题 (行号, 3, 挂单结果 [局部_计次].取子匹配文本 (源码, 4, ))<br />     超级列表框_挂单.置标题 (行号, 4, 挂单结果 [局部_计次].取子匹配文本 (源码, 5, ))<br />     超级列表框_挂单.置标题 (行号, 5, 挂单结果 [局部_计次].取子匹配文本 (源码, 6, ))<br />     超级列表框_挂单.置标题 (行号, 6, 挂单结果 [局部_计次].取子匹配文本 (源码, 7, ))<br />     超级列表框_挂单.置标题 (行号, 7, 挂单结果 [局部_计次].取子匹配文本 (源码, 8, ))<br />     超级列表框_挂单.置标题 (行号, 8, 挂单结果 [局部_计次].取子匹配文本 (源码, 9, ))<br />     超级列表框_挂单.置标题 (行号, 9, 挂单结果 [局部_计次].取子匹配文本 (源码, 10, ))  ' 组别<br />     超级列表框_挂单.置标题 (行号, 10, 挂单结果 [局部_计次].取子匹配文本 (源码, 11, ))  ' 帐号<br /> .计次循环尾 ()<br /> 对象.清除 ()<br /> 刷新挂单 ＝ 假<br /> CoUninitialize ()<br /> <br /> .子程序 子程序_留仓单刷新<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> .局部变量 源码, 文本型<br /> .局部变量 位置1, 整数型<br /> .局部变量 位置2, 整数型<br /> .局部变量 对象, 对象<br /> .局部变量 正则, 正则表达式<br /> .局部变量 留仓结果, 搜索结果, , "0"<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 行号, 整数型<br /> <br /> CoInitialize (0)<br /> 刷新留仓 ＝ 真<br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/order_info.jsp”, 假)<br /> 对象.方法 (“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, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     信息框 (“查询挂单失败!,”, #错误图标, )<br />     对象.清除 ()<br />     返回 ()<br /> .如果真结束<br /> 源码 ＝ 取字节集数据 (字节集, #文本型, )<br /> 调试输出 (源码)<br /> .如果真 (寻找文本 (源码, “>請重新登錄！”, , 假) ≠ -1)<br />     信息框 (“未登陆,请重新登陆!”, #信息图标, )<br />     对象.清除 ()<br />     CoUninitialize ()<br />     登陆完成 ＝ 假<br />     按钮_登陆.禁止 ＝ 假<br />     刷新留仓 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> <br /> 正则.创建 (#正则_留仓, )<br /> 留仓结果 ＝ 正则.搜索全部 (源码)<br /> 标签_留仓数.标题 ＝ 到文本 (取数组成员数 (留仓结果))<br /> .如果真 (取数组成员数 (留仓结果) ≠ 超级列表框_留仓单.取表项数 ())<br />     超级列表框_留仓单.全部删除 ()<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (留仓结果), 局部_计次)<br />     行号 ＝ 超级列表框_留仓单.查找表项 (留仓结果 [局部_计次].取子匹配文本 (源码, 1, ), , 真, 1)<br />     .如果真 (行号 ＝ -1)<br />         行号 ＝ 超级列表框_留仓单.插入表项 (, , , , , )<br />     .如果真结束<br /> <br />     超级列表框_留仓单.置标题 (行号, 1, 留仓结果 [局部_计次].取子匹配文本 (源码, 1, ))  ' 订单号<br />     超级列表框_留仓单.置标题 (行号, 0, 留仓结果 [局部_计次].取子匹配文本 (源码, 2, ))  ' 具体时间<br />     超级列表框_留仓单.置标题 (行号, 2, 留仓结果 [局部_计次].取子匹配文本 (源码, 3, ))  ' 编码/名称<br />     超级列表框_留仓单.置标题 (行号, 3, 留仓结果 [局部_计次].取子匹配文本 (源码, 4, ))  ' 买卖<br />     超级列表框_留仓单.置标题 (行号, 4, 留仓结果 [局部_计次].取子匹配文本 (源码, 5, ))  ' 成交价格<br />     超级列表框_留仓单.置标题 (行号, 5, 留仓结果 [局部_计次].取子匹配文本 (源码, 6, ))  ' 留仓价格<br />     超级列表框_留仓单.置标题 (行号, 6, 留仓结果 [局部_计次].取子匹配文本 (源码, 7, ))  ' 现价<br />     超级列表框_留仓单.置标题 (行号, 7, 留仓结果 [局部_计次].取子匹配文本 (源码, 8, ))  ' 数量<br />     超级列表框_留仓单.置标题 (行号, 8, 留仓结果 [局部_计次].取子匹配文本 (源码, 9, ))  ' 留仓天数<br />     超级列表框_留仓单.置标题 (行号, 9, 留仓结果 [局部_计次].取子匹配文本 (源码, 10, ))  ' 手续费<br />     超级列表框_留仓单.置标题 (行号, 10, 留仓结果 [局部_计次].取子匹配文本 (源码, 11, ))  ' 点差<br />     超级列表框_留仓单.置标题 (行号, 11, 留仓结果 [局部_计次].取子匹配文本 (源码, 12, ))  ' 盈亏<br />     超级列表框_留仓单.置标题 (行号, 12, 留仓结果 [局部_计次].取子匹配文本 (源码, 13, ))  ' 编码<br />     超级列表框_留仓单.置标题 (行号, 13, 留仓结果 [局部_计次].取子匹配文本 (源码, 14, ))  ' 股数<br />     超级列表框_留仓单.置标题 (行号, 14, 留仓结果 [局部_计次].取子匹配文本 (源码, 15, ))  ' 买卖<br />     超级列表框_留仓单.置标题 (行号, 15, 留仓结果 [局部_计次].取子匹配文本 (源码, 16, ))  ' 交易号<br />     超级列表框_留仓单.置标题 (行号, 16, 留仓结果 [局部_计次].取子匹配文本 (源码, 17, ))  ' 编码<br />     超级列表框_留仓单.置标题 (行号, 17, 留仓结果 [局部_计次].取子匹配文本 (源码, 18, ))  ' 编码<br /> .计次循环尾 ()<br /> 对象.清除 ()<br /> <br /> 刷新留仓 ＝ 假<br /> CoUninitialize ()<br /> <br /> <br /> .子程序 _按钮_留仓_被单击<br /> <br /> .如果真 (取反 (登陆完成))<br />     信息框 (“请先登陆用户!”, #信息图标, )<br />     返回 ()<br /> .如果真结束<br /> 子程序_留仓单刷新 ()<br /> <br /> .子程序 _时钟_刷新自选股_周期事件<br /> <br /> ' 调试输出 (取反 (刷新自选股))<br /> .如果真 (取反 (刷新自选股))<br /> <br />     启动线程 (子针_刷新自选股, , 句柄_自选股)<br />     ' 调试输出 (“句柄_自选股”, 句柄_自选股)<br /> .如果真结束<br /> <br /> <br /> .子程序 _标签_用户名_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> 关闭线程句柄 (句柄_自选股)<br /> <br /> .子程序 _按钮_增加_自选股_被单击<br /> .局部变量 对象, 对象<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> .局部变量 代码, 文本型<br /> .局部变量 源码, 文本型<br /> <br /> .如果真 (取反 (登陆完成))<br />     信息框 (“请先登陆用户!”, #信息图标, )<br />     返回 ()<br /> .如果真结束<br /> <br /> 代码 ＝ 删全部空 (编辑框_自选股_添加.内容)<br /> .如果真 (取文本长度 (代码) ≠ 6)<br />     信息框 (“商品代码错误!”, #错误图标, )<br />     返回 ()<br /> .如果真结束<br /> <br /> ' POST /member/stock/add_user_product.jsp?product_id=600400&user_id=r111222&date=1272534408296 HTTP/1.1<br /> ' Accept: */*<br /> ' Accept-Language: zh-cn<br /> ' Referer: http://ck.v5168.com/member/stock/product_list.jsp#<br /> ' UA-CPU: x86<br /> ' Accept-Encoding: gzip, deflate<br /> ' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)<br /> ' Host: ck.v5168.com<br /> ' Content-Length: 0<br /> ' Connection: Keep-Alive<br /> ' Cache-Control: no-cache<br /> ' Cookie: JSESSIONID=vTnrLZVV34FGDznnqDXyrX8BYTtQJDDnbnzHslGNKGNMQ5QJkLxQ!-1479325989<br /> <br /> 调试输出 ()<br /> <br /> CoInitialize (0)<br /> 脚本组件1.执行 (#脚本_date)<br /> <br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/add_user_product.jsp?product_id=” ＋ 代码 ＋ “&user_id=” ＋ 帐号 ＋ “&date=” ＋ 脚本组件1.运行 (“date”, ), 假)<br /> 对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/product_list.jsp#”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     信息框 (“新增自选股失败!,”, #错误图标, )<br />     对象.清除 ()<br />     返回 ()<br /> .如果真结束<br /> 源码 ＝ 取字节集数据 (字节集, #文本型, )<br /> 调试输出 (源码)<br /> .判断开始 (寻找文本 (源码, “success”, , 假) ≠ -1)<br />     加入成员 (自选股_列表, 删全部空 (编辑框_自选股_添加.内容))<br /> .判断 (寻找文本 (源码, “此商品不存在”, , 假) ≠ -1)<br />     ' 信息框 (“此商品不存在”, #错误图标, )<br /> .默认<br /> <br /> .判断结束<br /> <br /> 对象.清除 ()<br /> CoUninitialize ()<br /> <br /> <br /> .子程序 _超级列表框_自选股_右键单击表项<br /> <br /> .如果真 (超级列表框_自选股.现行选中项 ＞ -1)<br />     弹出菜单 (菜单自选股, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 子程序_短时间, 文本型, , '[00:00:00]<br /> .参数 时间, 日期时间型<br /> <br /> 返回 (“[” ＋ 取重复文本 (2 － 取文本长度 (到文本 (取小时 (时间))), “0”) ＋ 到文本 (取小时 (时间)) ＋ “:” ＋ 取重复文本 (2 － 取文本长度 (到文本 (取分钟 (时间))), “0”) ＋ 到文本 (取分钟 (时间)) ＋ “:” ＋ 取重复文本 (2 － 取文本长度 (到文本 (取秒 (时间))), “0”) ＋ 到文本 (取秒 (时间)) ＋ “]”)<br /> <br /> <br /> .子程序 子程序_删除自选股<br /> .参数 代码, 文本型<br /> .局部变量 对象, 对象<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> <br /> ' POST /member/stock/userProductServlet?oper_type=DEL&oper_id=r111222&product_id='601991' HTTP/1.1<br /> ' Accept: */*<br /> ' Accept-Language: zh-cn<br /> ' Referer: http://ck.v5168.com/member/stock/user_product.jsp<br /> ' Accept-Encoding: gzip, deflate<br /> ' User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)<br /> ' Host: ck.v5168.com<br /> ' Content-Length: 0<br /> ' Connection: Keep-Alive<br /> ' Cache-Control: no-cache<br /> ' Cookie: JSESSIONID=p0DTLJ1GGYb21VQgGCdMr3qbWnv42bJ4Pm1CvJJv1b9s7r6W2Fw1!-1121240827<br /> ' DEL#1#600509,601988,000005<br /> 删除自选股 ＝ 真<br /> <br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/userProductServlet?oper_type=DEL&oper_id=” ＋ 帐号 ＋ “&product_id='” ＋ 代码 ＋ “'”, 假)<br /> ' 对象.方法 (“Open”, “get”, “http://ck.v5168.com/member/stock/user_product.jsp”, 假)<br /> 对象.方法 (“setRequestHeader”, “If-Modified-Since”, “0”)  ' 不要缓存页<br /> 对象.方法 (“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, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/stock_order_main.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br /> <br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .' 如果真 (字节集 ＝ {  })<br />     ' 对象.清除 ()<br />     ' 删除自选股 ＝ 假<br />     ' 返回 ()<br /> .如果真结束<br /> ' 源码 ＝ 到文本 (读入文件 (“D:\My Documents\GP\自选股.txt”))<br /> 删除自选股 ＝ 假<br /> 子程序_取自选股数 ()<br /> 返回 ()<br /> <br /> <br /> .子程序 _超级按钮_刷新留仓单_被单击<br /> <br /> .如果真 (取反 (登陆完成))<br />     信息框 (“请先登陆用户!”, #信息图标, )<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (取反 (刷新留仓))<br />     子程序_留仓单刷新 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _超级按钮_挂单_被单击<br /> <br /> .如果真 (取反 (登陆完成))<br />     信息框 (“请先登陆用户!”, #信息图标, )<br />     返回 ()<br /> .如果真结束<br /> 调试输出 (取反 (刷新挂单))<br /> .如果真 (取反 (刷新挂单))<br />     子程序_取挂单 ()<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _超级列表框_挂单_右键单击表项<br /> <br /> .如果真 (超级列表框_挂单.现行选中项 ＞ -1)<br />     弹出菜单 (菜单挂单, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 _超级列表框_留仓单_右键单击表项<br /> <br /> .如果真 (超级列表框_留仓单.现行选中项 ＞ -1)<br />     弹出菜单 (菜单留仓, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 子程序_取余额<br /> .局部变量 对象, 对象<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> .局部变量 源码, 文本型<br /> <br /> CoInitialize (0)<br /> ' POST /member/stock/sOrderServlet?oper_type=getUserBalance&user_id=r111222&project_type=S HTTP/1.1<br /> ' Accept: */*<br /> ' Accept-Language: zh-cn<br /> ' Referer: http://ck.v5168.com/member/stock/order.jsp<br /> ' UA-CPU: x86<br /> ' Accept-Encoding: gzip, deflate<br /> ' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)<br /> ' Host: ck.v5168.com<br /> ' Content-Length: 0<br /> ' Connection: Keep-Alive<br /> ' Cache-Control: no-cache<br /> ' Cookie: JSESSIONID=JJ1yLXLbL4l8kgntGqqVy2WQzLl5lT5nW8yxLxXxlD0QVSrlSG7w!-1121240827<br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 对象.方法 (“Open”, “POST”, “http://ck.v5168.com/member/stock/sOrderServlet?oper_type=getUserBalance&user_id=” ＋ 帐号 ＋ “&project_type=S”, 假)<br /> 对象.方法 (“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, */*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/order.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br /> <br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br /> <br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .如果真 (字节集 ＝ {  })<br />     信息框 (“查询余额失败!,”, #错误图标, )<br />     对象.清除 ()<br />     返回 ()<br /> .如果真结束<br /> 源码 ＝ 取字节集数据 (字节集, #文本型, )<br /> .如果真 (寻找文本 (源码, “>請重新登錄！”, , 假) ≠ -1)<br />     信息框 (“未登陆,请重新登陆!”, #信息图标, )<br />     对象.清除 ()<br />     CoUninitialize ()<br />     登陆完成 ＝ 假<br />     按钮_登陆.禁止 ＝ 假<br />     ' 刷新留仓 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> <br /> 标签_余额.标题 ＝ 源码<br /> CoUninitialize ()<br /> 返回 ()<br /> <br /> .子程序 _下单_被选择, , , '自选股 菜单 下单<br /> <br /> 编辑框_代码.内容 ＝ 超级列表框_自选股.取标题 (超级列表框_自选股.现行选中项, 1)<br /> 高级选择夹1.现行子夹 ＝ 2<br /> .如果真 (取反 (刷新行情))<br />     子程序_行情刷新 (编辑框_代码.内容)<br /> .如果真结束<br /> <br /> <br /> .子程序 _删除_被选择, , , '自选股 菜单 删除<br /> <br /> 子程序_删除自选股 (超级列表框_自选股.取标题 (超级列表框_自选股.现行选中项, 1))<br /> <br /> .子程序 _取消_被选择<br /> <br /> .如果真 (取反 (挂单取消))<br />     调试输出 (超级列表框_挂单.取标题 (超级列表框_挂单.现行选中项, 1), 超级列表框_挂单.取标题 (超级列表框_挂单.现行选中项, 10))<br />     ' 子程序_挂单取消 (超级列表框_挂单.取标题 (超级列表框_挂单.现行选中项, 1), 超级列表框_挂单.取标题 (超级列表框_挂单.现行选中项, 10))<br /> .如果真结束<br /> <br /> <br /> .子程序 子程序_挂单取消<br /> .参数 交易编码, 文本型<br /> .参数 aorm, 文本型<br /> .局部变量 对象, 对象<br /> .局部变量 字节集, 字节集<br /> .局部变量 时间, 整数型<br /> .局部变量 源码, 文本型<br /> <br /> ' POST /member/stock/sOrderServlet?oper_type=CANCEL_ORDER&oper_id=r111222&order_id=1964641&a_or_m=A&user_id=r111222 HTTP/1.1<br /> ' Accept: */*<br /> ' Accept-Language: zh-cn<br /> ' Referer: http://ck.v5168.com/member/stock/order_pending.jsp<br /> ' UA-CPU: x86<br /> ' Accept-Encoding: gzip, deflate<br /> ' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)<br /> ' Host: ck.v5168.com<br /> ' Content-Length: 0<br /> ' Connection: Keep-Alive<br /> ' Cache-Control: no-cache<br /> ' Cookie: JSESSIONID=NY6TLh4p7zrkTDvsY18zJ5ZQ6LWDYvQMtTbnYpC5b5n3N1hLTK9L!-1479325989<br /> CoInitialize (0)<br /> 挂单取消 ＝ 真<br /> <br /> 对象.创建 (“MSXML2.XMLHTTP”, )<br /> 对象.方法 (“Open”, “POST”, “http://ck.v5168.com/member/stock/sOrderServlet?oper_type=CANCEL_ORDER&oper_id=” ＋ 帐号 ＋ “&order_id=” ＋ 交易编码 ＋ “&a_or_m=” ＋ aorm ＋ “&user_id=” ＋ 帐号, 假)<br /> 对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)<br /> 对象.方法 (“SetRequestHeader”, “Referer”, “http://ck.v5168.com/member/stock/order_pending.jsp”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)<br /> 对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip, deflate”)<br /> 对象.方法 (“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)”)<br /> 对象.方法 (“SetRequestHeader”, “Host”, “ck.v5168.com”)<br /> 对象.方法 (“SetRequestHeader”, “Content-Length”, “0”)<br /> 对象.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> 对象.方法 (“SetRequestHeader”, “Cookie”, cookie)<br /> 对象.方法 (“Send”, )<br /> .循环判断首 ()<br />     字节集 ＝ 对象.读属性 (“responseBody”, ).取字节集 ()<br />     .如果真 (字节集 ≠ {  })<br />         跳出循环 ()<br />     .如果真结束<br />     时间 ＝ 时间 ＋ 100  ' 100毫秒<br />     延迟 (100)<br /> .循环判断尾 (时间 ≤ 5000)  ' 1000毫秒超时<br /> .' 如果真 (字节集 ＝ {  })<br />     ' 信息框 (“查询余额失败!,”, #错误图标, )<br />     ' 对象.清除 ()<br />     ' 返回 ()<br /> .如果真结束<br /> 源码 ＝ 取字节集数据 (字节集, #文本型, )<br /> 调试输出 (源码)<br /> 挂单取消 ＝ 假<br /> CoUninitialize ()<br /> 子程序_取挂单 ()<br /> 返回 ()

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

2020-12-24 11:35 上传

点击文件名下载附件

流浪的云

非常给力

原始世界

谢谢分享

pshq123

支持开源~！感谢分享

shaojiecn

非常感谢楼主分享

qccm668

支持开源~！感谢分享

一米阳光2

易自带控件做的股票类数据抓取（含正则式/GET/POST)

wolfpack

谢谢分享。。。。。。。。。。

typelist2017

这个可以用，值 得学习

球王之王

好东西，谢谢分享！