开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 1129|回复: 1
收起左侧

[求助] 微凉外置浏览器穿透框架点击

[复制链接]
结帖率:76% (13/17)
发表于 2019-8-28 08:34:50 | 显示全部楼层 |阅读模式   河南省郑州市
玩不明白,求大佬给个例子,点击登陆的例子和取登录按钮的元素内容
地址https://cbss.10010.com/essframe
结帖率:0% (0/1)
发表于 6 天前 | 显示全部楼层   广东省东莞市
.版本 2 .支持库 spec .支持库 EThread  .子程序 获取平台患者信息, 逻辑型 .参数 患者姓名参数, 逻辑型, , 逻辑型,如需要读取填“真”,默认不需要的为“假”,以下参数相同 .参数 身份证号参数, 逻辑型, 可空 .参数 年龄参数, 逻辑型, 可空 .参数 性别参数, 逻辑型, 可空 .参数 诊断参数, 逻辑型, 可空 .参数 主诉参数, 逻辑型, 可空 .参数 接诊医生参数, 逻辑型, 可空 .参数 站点参数, 逻辑型, 可空 .参数 患者电话参数, 逻辑型, 可空 .参数 现病史参数, 逻辑型, 可空 .参数 户籍参数, 逻辑型, 可空 .参数 住址参数, 逻辑型, 可空 .参数 家庭医生参数, 逻辑型, 可空 .参数 目前血压参数, 逻辑型, 可空 .参数 体温参数, 逻辑型, 可空 .参数 呼吸参数, 逻辑型, 可空 .参数 脉搏参数, 逻辑型, 可空 .参数 家属参数, 逻辑型, 可空 .局部变量 句柄2, 整数型 .局部变量 窗口句柄2, 整数型 .局部变量 身份对象, 对象 .局部变量 a, 对象 .局部变量 i, 整数型 .局部变量 id, 文本型  窗口句柄2 = 窗口_取句柄 (, , , ) 句柄2 = 获取社卫平台句柄IE () 网页填表.初始化 (句柄2, , ) .如果 (句柄2 = 0)     MessageBoxTimeoutA (窗口句柄2, “请先打开平台”, “标题”, 0, 0, 1500) .否则     .如果 (网页填表.就绪判断 (“东莞市”) = 假)         MessageBoxTimeoutA (窗口句柄2, “请打开医生工作台-寮步内)”, “标题”, 0, 0, 2000)     .否则         .如果真 (住址参数 = 真)             住址1 = 网页填表.文本框_取内容 (“id=hrperson*caddress”)             .如果真 (住址1 = “” 且 窗口3常用文书.选择框2.选中 = 假)                 id = 网页填表.通用方法_取值 (“id=personId2”, “input”)                 网页填表.链接_点击 (“href=javascript:toPersonHealth('” + id + “')”)                 延时 (1500)                 住址1 = 网页填表.文本框_取内容 (“id=hrperson*caddress”)             .如果真结束             调试输出 (0)         .如果真结束         调试输出 (11)         .如果真 (患者姓名参数 = 真)             现病人名字1 = 文本_取出文本中汉字 (取文本左边 (网页填表.div_取文本 (“Id=personSummary”), 8))             现病人名字1 = 删首尾空 (现病人名字1)         .如果真结束         调试输出 (1)         .如果真 (身份证号参数 = 真)             网页填表.取操作元素 (“innerText=  健康监测”, 身份对象, “a”)  ' 配合提取身份证号             身份证号1 = 删首尾空 (文本_取出中间文本 (网页填表.操作元素_属性 (身份对象, “href”, ), “idno=”, #引号 + “)”, , ))  ' 提取身份证号             .如果真 (身份证号1 = “”)                 身份证号1 = 删首尾空 (网页填表.文本框_取内容 (“id=hrperson*idno”))  ' 在个人档案中取,如果不行+IE句柄获取             .如果真结束          .如果真结束         调试输出 (2)         .如果真 (年龄参数 = 真)             i = 到整数 (取文本左边 (时间_取身份证日期 (身份证号1), 4))             .如果 (i > 0)                 年龄1 = 到文本 (取年份 (取现行时间 ()) - i)             .否则                 网页填表.取操作元素 (“id=birthday”, a, “td”)                 年龄1 = 删首尾空 (文本_取出中间文本 (网页填表.表格_取文本 (a), “”, “岁”, , ))  ' 取文本右边 (文本_取出中间文本 (网页填表.div_取文本 (“Id=personSummary”), “)”, “岁”, , ), 2)  ' 年龄微凉模块             .如果结束          .如果真结束         调试输出 (3)         .如果真 (性别参数 = 真)             性别1 = 时间_取身份证性别 (身份证号1)             .如果真 (性别1 = “”)                 性别1 = 删首尾空 (文本_取出中间文本 (网页填表.div_取文本 (“Id=personSummary”), #换行符 + #换行符, “ (”, , ))  ' 现病人年龄             .如果真结束          .如果真结束         调试输出 (4)         .如果真 (诊断参数 = 真)             诊断1 = 删首尾空 (网页填表.div_取文本 (“class=datagrid-cell datagrid-cell-c8-issueName”))  ' 诊断         .如果真结束         调试输出 (5)         .如果真 (主诉参数 = 真)             主诉1 = 网页填表.div_取文本 (“className=datagrid-cell datagrid-cell-c7-value”)         .如果真结束         调试输出 (6)         .如果真 (接诊医生参数 = 真)             .如果真 (接诊医生1 = “”)                 接诊医生1 = 删首尾空 (文本_取出中间文本 (文本_取出文本中汉字 (网页填表.span_取文本 (“2”)), “”, “医生”, , ))  ' 医生名,微凉模块             .如果真结束          .如果真结束         调试输出 (7)         .如果真 (站点参数 = 真)             站点1 = 读配置项 (#启动目录C盘 + “confi2025.ini”, “站点记录”, “站点”, )             ' 文本_取出文本中汉字 (取文本中间 (网页填表.div_取文本 (“className=head2”), 10, 32))         .如果真结束         调试输出 (8)         .如果真 (患者电话参数 = 真)             患者电话1 = 删首尾空 (取文本中间 (网页填表.通用方法_取文本 (“id=phone”, “td”), 10, 11))  ' 电话与病种相近位置             .如果真 (患者电话1 = “”)                 患者电话1 = 网页填表.文本框_取内容 (“id=hrperson*telephone”)  ' ’在个人档案中取             .如果真结束          .如果真结束         调试输出 (9)         .如果真 (现病史参数 = 真)             现病史1 = 网页填表.多行文本框_取文本 (“Id=illnessContent”)  ' 风险告知书要用到         .如果真结束         调试输出 (10)         .如果真 (户籍参数 = 真)             户籍1 = 网页填表.文本框_取内容 (“id=hrperson*domiciliaryAddress”)         .如果真结束          .如果真 (家庭医生参数 = 真)             家庭医生1 = 网页填表.通用方法_取文本 (“id=famliyId”, “td”)         .如果真结束         调试输出 (13)         .如果真 (目前血压参数 = 真)             收缩压1 = 到整数 (网页填表.文本框_取内容 (“Id=systolicPressure”))  ' 获取收缩压             舒张压1 = 到整数 (网页填表.文本框_取内容 (“Id=diastolicPressure”))  ' 获取舒张压             目前血压1 = 到文本 (收缩压1) + “/” + 到文本 (舒张压1)         .如果真结束          .如果真 (呼吸参数 = 真)             呼吸1 = 网页填表.文本框_取内容 (“Id=breathe”)         .如果真结束          .如果真 (脉搏参数 = 真)             脉搏1 = 网页填表.文本框_取内容 (“Name=pulse”)  ' 脉搏         .如果真结束          .如果真 (体温参数 = 真)             体温1 = 网页填表.文本框_取内容 (“Id=temperature”)  ' 体温         .如果真结束          .如果真 (家属参数 = 真)             家属姓名1 = 网页填表.文本框_取内容 (“Id=hrperson*guardian”)         .如果真结束          倒计时计次循环逻辑 = 真         返回 (真)     .如果结束     倒计时计次循环逻辑 = 真     返回 (假) .如果结束 倒计时计次循环逻辑 = 真 返回 (假)  .子程序 子程序2打印启动线程, , , 5秒后自动关闭线程 .参数 打印子程序, 子程序指针, , 如:&子程序1无第3方打印 .局部变量 线程句柄局变量, 整数型  启动线程 (打印子程序, , 线程句柄局变量) 程序_延时 (10, 1) 关闭线程句柄 (线程句柄局变量)  .子程序 获取社卫平台句柄IE, 整数型 .局部变量 句柄局, 整数型  句柄局 = 窗口_取句柄_模糊 (“东莞社区卫生平台”, “IEFrame”) 句柄局 = 窗口_取IE浏览框句柄 (句柄局) 返回 (句柄局)
回复 支持 反对

使用道具 举报

  高级模式
B Color Image Link Quote Code Smilies |上传

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表