|
楼主 |
发表于 2013-8-28 10:59:47
|
显示全部楼层
上海市上海市
.版本 2
.支持库 EThread
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 线程句柄, 整数型
启动线程 (&线程, 13, 线程句柄)
.子程序 线程
.参数 参数
.局部变量 POstdata, 文本型
.局部变量 返回数据, 文本型
POstdata = “__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUJNDY0Mzg3NTA0D2QWAgIDD2QWAgIND2QWAmYPZBYCAgEPPCsADQBkGAEFDWd2d1dvcmtlckxpc3QPZ2TApfSgmfg86ldzY5bSQcFQz0C3iQ%3D%3D&__EVENTVALIDATION=%2FwEWBQLiqqPXCQLEhISFCwKO%2B%2BaLBAKZ%2B%2BLAAgL9kpmPAVlANF62T%2ByoLQ6UFzLkd6u0PVrV&txtName=&txtSfz=” + 编辑框1.内容 + “&txtZsh=&btnOk=%E6%9F%A5++%E8%AF%A2”
返回数据 = 文本_取出中间文本 (网页访问u (“http://worker.ciac.sh.cn/WorkerWebmis/SpecSkillQueryModule/SpecWorkPerList.aspx”, “post”, POstdata), “<span id=#引号gvwWorkerList_ctl02_lbl_no#引号”, #换行符)
编辑框2.内容 = 文本_取出中间文本 (返回数据, “>”, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lbl_name#引号>”)
编辑框9.内容 = 文本_取出中间文本 (返回数据, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lbl_name#引号>”, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lbl_type#引号>”)
编辑框3.内容 = 文本_取出中间文本 (返回数据, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lbl_type#引号>”, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lbl_from#引号>”)
编辑框4.内容 = 文本_取出中间文本 (返回数据, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lbl_from#引号>”, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lbl_to#引号>”)
编辑框5.内容 = 文本_取出中间文本 (返回数据, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lbl_to#引号>”, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lblFirstCheck#引号>”)
编辑框7.内容 = 文本_取出中间文本 (返回数据, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lblFirstCheck#引号>”, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lblSecondCheck#引号>”)
编辑框6.内容 = 文本_取出中间文本 (返回数据, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lblSecondCheck#引号>”, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lbl_jg#引号>”)
编辑框8.内容 = 文本_取出中间文本 (返回数据, “</span></td><td><span id=#引号gvwWorkerList_ctl02_lbl_jg#引号>”, “</span></td>”)
|
|