一个专门抄病历的脚本

乒埠丄晝 · 发表于 2007-11-29 22:55:00

俺用按键精灵编的小脚本，针对中联医护管理系统软件。可无限制保存病历及医嘱。省去手工复制保存的麻烦。大概1分钟就能保存一份病历，包括医嘱，入院记录，病程记录，出院小结等等。使用方法：

乒埠丄晝 · 发表于 2007-11-29 22:57:07

使用说明：1、        运行word程序；2、        运行医护管理软件ZLHIS，登陆到医生工作站；3、运行按键精灵程序，并将本窗口最小化；4、启动和中止程序：按一下数字小键盘的“-”（就是键盘最右边上角的那个键啦：），本程序即刻启动。中止本程序请按数字小键盘的“*”（就是紧靠“-”的那个键啦：）；<p class="MsoNormal" style="MARGIN: 0cm -88.6pt 0pt 36pt; VERTICAL-ALIGN: baseline; TEXT-INDENT: -36pt; LINE-HEIGHT: 21pt; mso-line-height-rule: exactly; mso-list: l1 level1 lfo2; tab-stops: 36.0pt; mso-para-margin-right: -8.44gd; mso-para-margin-top: 0cm; mso-para-margin-bottom: .0001pt; mso-para-margin-left: 36.0pt;">5、        注意事项：保存的文件按1、2、3、…（无限制）…命名，默认的保存位置在E盘根目录下。当某种原因中断程序时，请把已保存的文件移到别处，不然重新启动本程序后会覆盖原文件。如果按照以上1、2、3、4做了以后程序运行不正常，请换一台电脑试试；程序启动后，请勿移动鼠标。<p class="MsoNormal" style="MARGIN: 0cm -88.6pt 0pt 36pt; VERTICAL-ALIGN: baseline; TEXT-INDENT: -36pt; LINE-HEIGHT: 21pt; mso-line-height-rule: exactly; mso-list: l1 level1 lfo2; tab-stops: 36.0pt; mso-para-margin-right: -8.44gd; mso-para-margin-top: 0cm; mso-para-margin-bottom: .0001pt; mso-para-margin-left: 36.0pt;">6、        免责声明：。病历是病人的隐私，保存下来的病历和医嘱仅供教学研究之用，请勿作非法用途。由此产生的法律责任本人概不承担。 图示：<div><img alt="" src="http://w.886.cn/4pmH/58301006/58301006_2612.jpg"/></div><div></div>

乒埠丄晝 · 发表于 2007-11-29 22:58:01

启动按键精灵：<div><img alt="" src="http://w.886.cn/4pmH/58301008/58301008_8897.jpg"/></div><div></div>

乒埠丄晝 · 发表于 2007-11-29 22:59:08

脚本源程序：[General] Description=病历医嘱保存无限制版 BeginHotkey=109 BeginHotkeyMod=0 RunOnce=0 Enable=1 [Repeat] Type=0 Number=1 [Comment] Content=[Script] VBSCall Call FindColor(48,111,900,120,"fce7d8",x,y) If x>0     MoveTo x y     MoveR 3 0     Delay 300 EndIf LeftDown 1 Delay 500 MoveTo 195 114 Delay 500 LeftUp 1 LeftUp 1 LeftUp 1 Delay 500 MoveTo 343 139 Delay 500 LeftClick 1 Delay 500 VBSCall Call FindColor(947,200,957,600,"fce7d8",J,K) If J>0     MoveTo J K     MoveR 0 2     Delay 500 EndIf LeftDown 1 Delay 500 MoveTo 950 568 Delay 500 LeftUp 1 LeftUp 1 LeftUp 1 Delay 500 MoveTo 2 300 Delay 100 VBSCall Call FindColor(2,300,4,683,"fce7d8",V,W) If V>0     MoveTo V W     MoveR 0 1     Delay 100 EndIf LeftDown 1 Delay 500 MoveTo 2 684 Delay 500 LeftUp 1 LeftUp 1 LeftUp 1 Delay 500 VBS Dim R VBS Dim M VBS Dim U U=1 Rem 第二遍 R=159 M=1 While M<25     Gosub 医嘱记录的保存_sub     Delay 200     MoveTo 344 139     LeftClick 1     Delay 600     MoveTo 247 176     LeftClick 1     Delay 500     Gosub 病历记录的保存_sub     VBS Dim N     VBS Dim L     N=197     L=191     Rem 43     IfColor 207 N ffffff 1         IfColor 294 L 000000 1             MoveTo 300 N             MoveR 0 3             LeftClick 1             Delay 200             Gosub 病历记录的保存_sub             N=N+17             L=L+17             Goto 43         Else             Gosub 保存word文档_sub         EndIf     Else         Gosub 保存word文档_sub     EndIf     M=M+1     R=R+19     U=U+1 EndWhile MoveTo 181 639  //点击滚动条 Delay 500 LeftClick 1 Delay 300 Goto 第二遍 EndScript Sub 病历记录的保存_sub     MoveTo 573 625     Delay 100     LeftClick 1     Delay 300     KeyDown 17 1     KeyPress 36 1     KeyUp 17 1     Delay 300     KeyDown 17 1     KeyDown 18 1     MoveTo 214 590     Delay 200     LeftClick 1     Delay 200     KeyUp 18 1     KeyUp 17 1     Delay 200     KeyDown 17 1     KeyPress 67 1     KeyUp 17 1     Delay 300     KeyDown 18 1     Delay 100     KeyPress 9 1     Delay 200     KeyPress 9 1     //正式版中要记得按两下alt     Delay 200     KeyUp 18 1     Delay 300     KeyDown 17 1     KeyPress 86 1     KeyUp 17 1     Delay 600     KeyDown 18 1     Delay 300     KeyPress 9 1     Delay 300     KeyUp 18 1     Delay 500 Return 病历记录的保存_sub Sub 保存word文档_sub     KeyDown 18 1     KeyPress 9 1     KeyUp 18 1     Delay 800     KeyDown 18 1     KeyPress 70 1     KeyUp 18 1     Delay 300     KeyPress 65 1     Delay 300     SayString E:\     SayExpression U     SayString .doc     Delay 500     KeyPress 13 1     Delay 2000     KeyDown 17 1     KeyPress 65 1     KeyUp 17 1     Delay 300     KeyPress 46 1     Delay 300     KeyDown 18 1     KeyPress 9 1     KeyUp 18 1     Delay 800 Return 保存word文档_sub Sub 医嘱记录的保存_sub     IfColor 18 R ffffff 0         R=R+34     Else     EndIf     MoveTo 38 R     LeftClick 1     Delay 400     MoveTo 254 140     LeftClick 1     Delay 1000     MoveTo 37 37     LeftClick 1     Delay 2000     MoveTo 47 122     LeftClick 1     If U<3         Delay 11000     EndIf     Delay 5500     KeyDown 17 1     KeyPress 83 1     KeyUp 17 1     Delay 400     KeyDown 18 1     KeyPress 78 1     KeyUp 18 1     Delay 400     SayString E:\     SayExpression U     SayString .xls     Delay 500     KeyDown 18 1     KeyPress 84 1     KeyUp 18 1     Delay 400     KeyPress 38 4     Delay 400     KeyPress 13 1     Delay 200     KeyDown 18 1     KeyPress 83 1     KeyUp 18 1     Delay 500     KeyDown 18 1     KeyPress 115 1     KeyUp 18 1     Delay 1000 Return 医嘱记录的保存_sub

乒埠丄晝 · 发表于 2007-11-29 23:00:08

兹作备份。

[此贴子已经被作者于2007-11-29 23:00:31编辑过]

不让阿错爱看云 · 发表于 2007-11-30 09:30:07

看不明白......欢迎书包妞回来,凤体安否?

乒埠丄晝 · 发表于 2007-12-1 11:19:12

多谢阿错牵挂，你好我好大家好哈儿科专用的脚本，和上面的脚本相比，增加了对病历评分表的判断剔除：[General] Description=儿科专用 BeginHotkey=109 BeginHotkeyMod=0 RunOnce=0 Enable=1 [Repeat] Type=0 Number=1 [Comment] Content=[Script] VBSCall Call FindColor(48,111,900,120,"fce7d8",x,y) If x>0     MoveTo x y     MoveR 3 0     Delay 300 EndIf LeftDown 1 Delay 500 MoveTo 195 114 Delay 500 LeftUp 1 LeftUp 1 LeftUp 1 Delay 500 MoveTo 343 139 Delay 500 LeftClick 1 Delay 500 VBSCall Call FindColor(947,200,957,600,"fce7d8",J,K) If J>0     MoveTo J K     MoveR 0 2     Delay 500 EndIf LeftDown 1 Delay 500 MoveTo 950 568 Delay 500 LeftUp 1 LeftUp 1 LeftUp 1 Delay 500 MoveTo 2 300 Delay 100 VBSCall Call FindColor(2,300,4,683,"fce7d8",V,W) If V>0     MoveTo V W     MoveR 0 1     Delay 100 EndIf LeftDown 1 Delay 500 MoveTo 2 684 Delay 500 LeftUp 1 LeftUp 1 LeftUp 1 Delay 500 VBS Dim R VBS Dim M VBS Dim U U=1 Rem 第二遍 R=159 M=1 While M<25     Gosub 医嘱记录的保存_sub     Delay 200     MoveTo 344 139     LeftClick 1     Delay 600     MoveTo 247 176     LeftClick 1     Delay 500     Gosub 病历记录的保存_sub     VBS Dim N     VBS Dim L     N=197     L=191     Rem 43     IfColor 207 N ffffff 1         IfColor 294 L 808080 0             MoveTo 300 N             MoveR 0 3             LeftClick 1             Delay 200             Gosub 病历记录的保存_sub             N=N+17             L=L+17             Goto 43         Else             Rem 病程白色栏点             IfColor 294 L ffffff 0                 MoveTo 300 N                 MoveR 0 3                 LeftClick 1                 Delay 200                 Gosub 病历记录的保存_sub                 N=N+17                 L=L+17                 Goto 病程白色栏点             Else                 Gosub 保存word文档_sub             EndIf         EndIf     Else         Gosub 保存word文档_sub     EndIf     M=M+1     R=R+19     U=U+1 EndWhile MoveTo 181 639  //点击滚动条 Delay 500 LeftClick 1 Delay 300 Goto 第二遍 EndScript Sub 病历记录的保存_sub     MoveTo 573 625     Delay 100     LeftClick 1     Delay 300     KeyDown 17 1     KeyPress 36 1     KeyUp 17 1     Delay 300     KeyDown 17 1     KeyDown 18 1     MoveTo 214 590     Delay 200     LeftClick 1     Delay 200     KeyUp 18 1     KeyUp 17 1     Delay 200     KeyDown 17 1     KeyPress 67 1     KeyUp 17 1     Delay 300     KeyDown 18 1     Delay 100     KeyPress 9 1     Delay 200     KeyPress 9 1     //正式版中要记得按两下alt     Delay 200     KeyUp 18 1     Delay 300     KeyDown 17 1     KeyPress 86 1     KeyUp 17 1     Delay 600     KeyDown 18 1     Delay 300     KeyPress 9 1     Delay 300     KeyUp 18 1     Delay 500 Return 病历记录的保存_sub Sub 保存word文档_sub     KeyDown 18 1     KeyPress 9 1     KeyUp 18 1     Delay 800     KeyDown 18 1     KeyPress 70 1     KeyUp 18 1     Delay 300     KeyPress 65 1     Delay 300     SayString E:\     SayExpression U     SayString .doc     Delay 500     KeyPress 13 1     Delay 2000     KeyDown 17 1     KeyPress 65 1     KeyUp 17 1     Delay 300     KeyPress 46 1     Delay 300     KeyDown 18 1     KeyPress 9 1     KeyUp 18 1     Delay 800 Return 保存word文档_sub Sub 医嘱记录的保存_sub     IfColor 18 R ffffff 0         R=R+34     Else     EndIf     MoveTo 38 R     LeftClick 1     Delay 400     MoveTo 254 140     LeftClick 1     Delay 1000     MoveTo 37 37     LeftClick 1     Delay 2000     MoveTo 47 122     LeftClick 1     If U<3         Delay 11000     EndIf     Delay 5500     KeyDown 17 1     KeyPress 83 1     KeyUp 17 1     Delay 400     KeyDown 18 1     KeyPress 78 1     KeyUp 18 1     Delay 400     SayString E:\     SayExpression U     SayString .xls     Delay 500     KeyDown 18 1     KeyPress 84 1     KeyUp 18 1     Delay 400     KeyPress 38 4     Delay 400     KeyPress 13 1     Delay 200     KeyDown 18 1     KeyPress 83 1     KeyUp 18 1     Delay 500     KeyDown 18 1     KeyPress 115 1     KeyUp 18 1     Delay 1000 Return 医嘱记录的保存_sub

0的姐姐 · 发表于 2007-12-5 22:13:16

看晕了。。[em19]

落霞 · 发表于 2007-12-8 17:40:35

没看明白先晕。。。。。