这一篇笔记我在新浪博客记录过，在这里也记录一遍，新浪博客地址quantumPLC与南京德宏数采仪通讯，citect画面日期时间控件和复选框控件控制趋势交互功能_来自金沙江的小鱼_新浪博客 (sina.com.cn)
最近上级管理部门要求在现场生产控制计算机上新建一幅画面，生产关键参数趋势、环保监测数据趋势在一个趋势控件显示，保存五年，在趋势空间外部通过复选框控件可以设定显示/隐藏全部趋势，复选框来显示/隐藏单个趋势、设定趋势控件查询的开始时间和结束时间范围，还可以直接让趋势控件跳转到当前时间，趋势标签整齐排列。最终成品效果如下图：
与数采仪通讯使用unity编程，数采仪设定IP地址与PLC和上位机在同一个网段，地址是192.168.10.201，4321编码方式，unity程序如下：
上图把IP地址四个数字分配给四个byte变量
上图TCP_IP_ADDR功能块slot_ID指的是quantum PLC上用于通讯的模板槽号，现场实际是6#槽。如果是带TCP/IP的CPU模板，此处数值是254，注意后面的IP_B1至IP_B4与现场仪表设备的IP地址是反顺序的。
CREAD_REG功能块的SLAVEREG表示寄存器的偏移量，这个练习是从现场数采仪40071开始采集数据，所以偏移量是71，NO_REG是读取多少个WORD，现场项目需要读取22个WORD。我给输出部分REG_READ传输数值到一个整型数组变量，下标从71到92，正好对应现场仪表寄存器40071到40092，要注意这个数组变量必须分配一个PLC地址，COMM_CEMS_STATUS表示通讯状态，是一个word类型变量，数值含义可以查看帮助文件。 连续的WORD读取上来之后，需要拆分、组合，转换成实际的工程数值，由于数采仪编码4321模式，所以使用下图的方式对WORD进行组合，71是高字节，72低字节，组合成一个REAL数据。74是低字节，75是高字节，组合成一个REAL数据，以此类推。
将所有需要的数据组合成real数值之后，在citect项目程序中建立变量标签，对应PLC地址，再建立趋势标签，对应变量标签。趋势标签可以定义趋势数据窜访的路径、趋势文件生成时间，趋势文件的个数，趋势数据采集的频率，这几个参数可以根据硬盘分区的大小来灵活设定。如果有双硬盘的话，后面的脚本可以定时将趋势数据备份到第二硬盘，一定程度上可以保障五年的数据存储要求。
下面是画面交互功能的实现的步骤 1. 在新建画面上放一排导航按钮，用于画面切换，这个好理解。 2. 对OCX控件注册，将空间文件拷贝到c:\windows\system32\路径下，使用regsvr32指令进行注册，还要运行一下注册表文件，那个注册表文件再我的其它博客有过介绍，使microsoft date and time picker控件和microsoft form 2.0 checkbox控件有效。 3. 在新建画面上放置microsoft date and time picker控件、microsoft form 2.0 checkbox控件、过程分析器控件。 4. 过程分析器控件上按照顺序配置趋势笔，这个简单不截图了。记下过程分析其的AN编号为4 5. 记下各checkbox控件的编号。 6. 新建citectVBA程序文件。新建过程分析器初始化sub Sub PAIni() '趋势控件初始化，现时显示游标、数据板命名、趋势笔命名 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Dim hCursor As Object Dim cb As Object Set cb=HUANBAO_AN11 cb.value=true Set cb=HUANBAO_AN13 cb.value=true Set cb=HUANBAO_AN17 cb.value=true Set cb=HUANBAO_AN19 cb.value=true Set cb=HUANBAO_AN21 cb.value=true Set cb=HUANBAO_AN23 cb.value=true Set cb=HUANBAO_AN25 cb.value=true Set cb=HUANBAO_AN27 cb.value=true Set cb=HUANBAO_AN29 cb.value=true Set cb=HUANBAO_AN31 cb.value=true Set cb=HUANBAO_AN33 cb.value=true Set cb=HUANBAO_AN35 cb.value=true Set cb=HUANBAO_AN37 cb.value=true Set cb=HUANBAO_AN39 cb.value=true Set cb=HUANBAO_AN41 cb.value=true Set cb=HUANBAO_AN43 cb.value=true Set cb=HUANBAO_AN45 cb.value=true Set cb=HUANBAO_AN47 cb.value=true Set cb=HUANBAO_AN48 cb.value=true Set pa=HUANBAO_AN4 '趋势控件 Set hCursor=pa.cursors.create("cursor1",500) hCursor.visible=true Set hPanes=pa.Panes Set hPane=hPanes.item(1) hPane.Name="1#2#焦炉干熄焦排放口数据" Set hPens=hPane.Pens Set hPen=hPens.item(1) hCursor.PenlabelX(hPen)=100 hCursor.PenlabelY(hPen)=40 hPen.Name="颗粒物" Set hPen=hPens.item(2) hCursor.PenlabelX(hPen)=300 hCursor.PenlabelY(hPen)=40 hPen.Name="SO2" Set hPen=hPens.item(3) hCursor.PenlabelX(hPen)=100 hCursor.PenlabelY(hPen)=90 hPen.Name="O2" Set hPen=hPens.item(4) hCursor.PenlabelX(hPen)=300 hCursor.PenlabelY(hPen)=90 hPen.Name="流速" Set hPen=hPens.item(5) hCursor.PenlabelX(hPen)=100 hCursor.PenlabelY(hPen)=140 hPen.Name="温度" Set hPen=hPens.item(6) hCursor.PenlabelX(hPen)=300 hCursor.PenlabelY(hPen)=140 hPen.Name="压力" Set hPen=hPens.item(7) hCursor.PenlabelX(hPen)=100 hCursor.PenlabelY(hPen)=190 hPen.Name="湿度" Set hPen=hPens.item(8) hCursor.PenlabelX(hPen)=300 hCursor.PenlabelY(hPen)=190 hPen.Name="流量" Set hPen=hPens.item(9) hCursor.PenlabelX(hPen)=100 hCursor.PenlabelY(hPen)=240 hPen.Name="提升机作业时间" Set hPen=hPens.item(10) hCursor.PenlabelX(hPen)=300 hCursor.PenlabelY(hPen)=240 hPen.Name="提升机装载量" Set hPen=hPens.item(11) hCursor.PenlabelX(hPen)=100 hCursor.PenlabelY(hPen)=290 hPen.Name="1#提升机提升电流" Set hPen=hPens.item(12) hCursor.PenlabelX(hPen)=300 hCursor.PenlabelY(hPen)=290 hPen.Name="2#提升机提升电流" Set hPen=hPens.item(13) hCursor.PenlabelX(hPen)=100 hCursor.PenlabelY(hPen)=340 hPen.Name="1#提升机提升走行电流" Set hPen=hPens.item(14) hCursor.PenlabelX(hPen)=300 hCursor.PenlabelY(hPen)=340 hPen.Name="2#提升机提升走行电流" Set hPen=hPens.item(15) hCursor.PenlabelX(hPen)=100 hCursor.PenlabelY(hPen)=390 hPen.Name="预存室压力" Set hPen=hPens.item(16) hCursor.PenlabelX(hPen)=300 hCursor.PenlabelY(hPen)=390 hPen.Name="集尘电动阀开到位" Set hPen=hPens.item(17) hCursor.PenlabelX(hPen)=100 hCursor.PenlabelY(hPen)=440 hPen.Name="集尘电动阀关到位" Set hPen=hPens.item(18) hCursor.PenlabelX(hPen)=300 hCursor.PenlabelY(hPen)=440 hPen.Name="除尘风机电流" pa.Objectview.visible=false End Sub 这里面对趋势笔名称中文显示、趋势标签定位、复选框初始状态、显示游标及游标定位做了初始化。 在画面的“进入画面时”事件中使用cicode脚本调用这个citectVBA脚本 VbCallReturn(VbCallRun(vbcallopen("PAIni"))) 7. “全选趋势”复选框编号为11，对选中和取消事件的citectVBA脚本如下： Sub HUANBAO_AN11_Change() '全选趋势复选框 Dim cb As Object Set cb= HUANBAO_AN11 If cb.value Then '如果可见 Set cb=HUANBAO_AN13 cb.value=true Set cb=HUANBAO_AN17 cb.value=true Set cb=HUANBAO_AN19 cb.value=true Set cb=HUANBAO_AN21 cb.value=true Set cb=HUANBAO_AN23 cb.value=true Set cb=HUANBAO_AN25 cb.value=true Set cb=HUANBAO_AN27 cb.value=true Set cb=HUANBAO_AN29 cb.value=true Set cb=HUANBAO_AN31 cb.value=true Set cb=HUANBAO_AN33 cb.value=true Set cb=HUANBAO_AN35 cb.value=true Set cb=HUANBAO_AN37 cb.value=true Set cb=HUANBAO_AN39 cb.value=true Set cb=HUANBAO_AN41 cb.value=true Set cb=HUANBAO_AN43 cb.value=true Set cb=HUANBAO_AN45 cb.value=true Set cb=HUANBAO_AN47 cb.value=true Set cb=HUANBAO_AN48 cb.value=true Else Set cb=HUANBAO_AN13 cb.value=false Set cb=HUANBAO_AN17 cb.value=false Set cb=HUANBAO_AN19 cb.value=false Set cb=HUANBAO_AN21 cb.value=false Set cb=HUANBAO_AN23 cb.value=false Set cb=HUANBAO_AN25 cb.value=false Set cb=HUANBAO_AN27 cb.value=false Set cb=HUANBAO_AN29 cb.value=false Set cb=HUANBAO_AN31 cb.value=false Set cb=HUANBAO_AN33 cb.value=false Set cb=HUANBAO_AN35 cb.value=false Set cb=HUANBAO_AN37 cb.value=false Set cb=HUANBAO_AN39 cb.value=false Set cb=HUANBAO_AN41 cb.value=false Set cb=HUANBAO_AN43 cb.value=false Set cb=HUANBAO_AN45 cb.value=false Set cb=HUANBAO_AN47 cb.value=false Set cb=HUANBAO_AN48 cb.value=false End If End Sub 这个脚本影响其它单个趋势选中/取消复选框的选择状态 8. 单个趋势选择框事件的citectVBA脚本如下 Sub HUANBAO_AN13_Change() '趋势笔1-颗粒无物显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(1) If HUANBAO_AN13.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN17_Change() '趋势笔2-SO2物显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(2) If HUANBAO_AN17.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN19_Change() '趋势笔3-O2显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(3) If HUANBAO_AN19.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN21_Change() '趋势笔4-流速显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(4) If HUANBAO_AN21.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN23_Change() '趋势笔5-温度显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(5) If HUANBAO_AN23.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN25_Change() '趋势笔6-压力显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(6) If HUANBAO_AN25.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN27_Change() '趋势笔7-湿度显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(7) If HUANBAO_AN27.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN29_Change() '趋势笔8-流量显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(8) If HUANBAO_AN29.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN31_Change() '趋势笔9-提升机作业时间显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(9) If HUANBAO_AN31.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN33_Change() '趋势笔10-提升机装载量显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(10) If HUANBAO_AN33.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN35_Change() '趋势笔11-1#提升电流显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(11) If HUANBAO_AN35.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN37_Change() '趋势笔12-2#提升电流显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(12) If HUANBAO_AN37.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN39_Change() '趋势笔13-1#走行电流显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(13) If HUANBAO_AN39.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN41_Change() '趋势笔13-2#走行电流显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(14) If HUANBAO_AN41.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN43_Change() '趋势笔14-预存室压力显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(15) If HUANBAO_AN43.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN45_Change() '趋势笔15-预存室电动阀开到位显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(16) If HUANBAO_AN45.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN47_Change() '趋势笔16-预存室电动阀开关到位显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(17) If HUANBAO_AN47.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub Sub HUANBAO_AN48_Change() '趋势笔16-除尘风机干流显示和隐藏 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens Set hPen=hPens.item(18) If HUANBAO_AN48.value Then '如果可见 hPen.Visible=true Else hPen.Visible=false End If End Sub 9. 根据选择的开始时间和结束时间的查询citectVBA脚本如下，这里面要做一个容错检查，不能让开始日期晚于结束日期。由于脚本里面希望选择的时间默认为该日期的:0:0，系统里面又自动的+8小时，所以又一个根据选择的日期，将时间往昨天推8小时的脚本计算，由于查询历史趋势，不希望事件滚动，做了暂停功能。 '按照选择的时间查询趋势 Sub SearchTrend() '趋势按照开始时间和结束时间查询，趋势暂停 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Dim startDTPicker As Object Dim endDTPicker As Object Dim StartTime As date Dim EndTime As date Dim Year1 As Integer Dim Month1 As Integer Dim Day1 As Integer Dim Year2 As Integer Dim Month2 As Integer Dim Day2 As Integer Dim temp1 As Integer Dim temp2 As Integer Dim i As Integer Set pa=HUANBAO_AN4 '趋势控件 Set startDTPicker =HUANBAO_AN7 '开始日期选择控件 Set endDTPicker =HUANBAO_AN9 '结束日期选择控件 If startDTPicker.value > endDTPicker.value Then msgbox "开始日期不能晚于结束日期" Else '因为用户选择的日期时间属于UTC时间，与北京时间有8小时差距，这个版本的软件没有Citectvba函数直接转换，需要人工变成编程 Year1=startDTPicker.year Month1=startDTPicker.month day1=startDTPicker.day Year2 = endDTPicker.year Month2 =endDTPicker.month Day2 =endDTPicker.day temp1 = int(year1/4) temp2=int(year2/4) '计算开始时间前一天 If day1<>1 Then day1=day1-1 End If If day1=1 Then Select Case month1 Case 1 day1=31 month1=12 Case 2 day1=31 month1=1 Case 4 day1=31 month1=3 Case 5 day1=30 month1=4 Case 6 day1=31 month1=5 Case 7 day1=30 month1=6 Case 8 day1=31 month1=7 Case 9 day1=31 month1=8 Case 10 day1=30 month1=9 Case 11 day1=31 month1=10 Case 12 day1=30 month1=11 Case 3 month1=2 If year1-temp1*4=0 Then '闰年 day1=29 Else '平年 day1=28 End If End Select End If startTime=CDate(cstr(year1) & "-" & cstr(month1) & "-" & cstr(day1) & " 16:00:00") '计算开始结束时间前一天 If day2<>1 Then day2=day2-1 End If If day2=1 Then Select Case month2 Case 1 day2=31 month2=12 Case 2 day2=31 month2=1 Case 4 day2=31 month2=3 Case 5 day2=30 month2=4 Case 6 day2=31 month2=5 Case 7 day2=30 month2=6 Case 8 day2=31 month2=7 Case 9 day2=31 month2=8 Case 10 day2=30 month2=9 Case 11 day2=31 month2=10 Case 12 day2=30 month2=11 Case 3 month2=2 If year2-temp2*4=0 Then '闰年 day2=29 Else '平年 day2=28 End If End Select End If EndTime=CDate(cstr(year2) & "-" & cstr(month2) & "-" & cstr(day2) & " 16:00:00") '暂停刷新 pa.Autoscroll=false Set hPanes=pa.panes Set hPane=hPanes.item(1) Set hPens=hPane.pens '设置1#趋势笔的开始时间和结束时间 For i=1 To 18 Set hPen=hPens.item(i) hPen.PutHorizontalAxisTimeSpan startTime,0,EndTime,0 '设置2#趋势笔的开始时间和结束时间 'Set hPen=hPens.item(2) 'hPen.PutHorizontalAxisTimeSpan startTime,0,EndTime,0 Next End If End Sub 在趋势查询按钮鼠标事件使用cicode调用前面的脚本 VbCallReturn(VbCallRun(vbcallopen("SearchTrend"))) 10。 跳转到当前时刻的citectVBA脚本如下： Sub JumpToNow() '趋势跳转到当前 Dim pa As Object Dim hPanes As Object Dim hPane As Object Dim hPens As Object Dim hPen As Object Dim i As Integer Set pa = HUANBAO_AN4 '指向趋势控件 Set hPanes=pa.Panes Set hPane=hPanes.item(1) Set hPens=hPane.pens For i=1 To 18 Set hPen=hPens.item(i) hPen.GotoNow 'Set hPen=hPens.item(2) 'hPen.GotoNow Next pa.Autoscroll=true '自动滚动 End Sub 相关按钮的鼠标事件使用cicode调用上面的脚本 VbCallReturn(VbCallRun(vbcallopen("JumpToNow"))) 11. 还做了一个复制趋势文件的功能，这个是用的是cicode脚本 FUNCTION FileBakup() //复制趋势文件到指定的路径 STRING sPath,sBak //拷贝整个文件夹到目标文件夹 sPath=FileFind("C:\Program Files\Citect\CitectSCADA\Data\*.*", 0) WHILE StrLength(sPath) > 0 DO sBak ="E:\HISDATA" FileCopy(sPath,sBak, 0); ! Find the next file sPath =FileFind("", 0) END sPath=FileFind("C:\Program Files\Citect\CitectSCADA\Data\TRENDX\*.*", 0) WHILE StrLength(sPath) > 0 DO sBak ="E:\HISDATA\TRENDX" FileCopy(sPath,sBak, 0); ! Find the next file sPath =FileFind("", 0) END Message("注意","趋势数据备份到E:\HISDATA",0) END 至此，功能就做完了。标签：控件,Set,Dim,quantumPLC,cb,citect,Object,hPen,HUANBAO From： https://www.cnblogs.com/fishingsriver/p/17386052.html