单独分离这个界面提交数据不成功。不知道怎么修改了。

sagelw

[e]
.版本 2.支持库 spec.程序集 窗口程序集1.程序集变量 viewstate, 文本型.程序集变量 eventalidation, 文本型.程序集变量 par, 文本型.程序集变量 cookie, 文本型.子程序 __启动窗口_创建完毕getHTML ().子程序 BeginVote.局部变量 url, 文本型.局部变量 data, 文本型.局部变量 result, 文本型viewstate ＝ 编码_URL编码 (viewstate, 真, )par ＝ 编码_URL编码 (par, 真, )eventalidation ＝ 编码_URL编码 (eventalidation, 真, )url ＝ “http://tp.fway.com.cn/tpSLT1.aspx?Key=” ＋ par ＋ “”data ＝ “__VIEWSTATE=” ＋ viewstate ＋ “&__EVENTVALIDATION=” ＋ eventalidation ＋ “&Hidden_Par=” ＋ par ＋ “&SQLText_Mobile=” ＋ txtPhone.内容 ＋ “&SQLText_Validate=” ＋ txtCode.内容 ＋ “&Button_TP=”' 调试输出 (data)result ＝ 到文本 (网页_访问 (url, 1, data, , cookie, , , , , , ))调试输出 (result).子程序 getHTML.局部变量 key, 文本型.局部变量 tempURL, 文本型.局部变量 result, 文本型.局部变量 regex, 正则表达式类.局部变量 regexCode, 文本型.局部变量 picUrl, 文本型key ＝ 到文本 (网页_访问 (“http://tp.fway.com.cn/ini/js/Handler.ashx?Datas=19692-8-8-19693-1&t=” ＋ 时间_取随机时间戳 () ＋ “”, , , , , , , , , , ))par ＝ keytempURL ＝ “http://tp.fway.com.cn/tpSLT1.aspx?Key=” ＋ key ＋ “”result ＝ 到文本 (网页_访问 (tempURL, , , , cookie, , , , , , ))regexCode ＝ “id=” ＋ #引号 ＋ “__[VE].*” ＋ #引号 ＋ “(.*)” ＋ #引号 ＋ “”regex.创建 (regexCode, result, , , , )viewstate ＝ regex.取子匹配文本 (1, 1)eventalidation ＝ regex.取子匹配文本 (2, 1)regexCode ＝ “<img.*src=” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “”' 调试输出 (regexCode)regex.创建 (regexCode, result, , , , )picUrl ＝ “http://tp.fway.com.cn” ＋ regex.取子匹配文本 (1, 1)imgCode.图片 ＝ 网页_访问 (picUrl).子程序 _txtCode_内容被改变.如果真 (取文本长度 (txtCode.内容) ＝ 4)    BeginVote ().如果真结束.子程序 _imgCode_鼠标左键被放开, 逻辑型.参数 横向位置, 整数型.参数 纵向位置, 整数型.参数 功能键状态, 整数型getHTML ()
[/e]