干公共卫生的可以试试，可以快速录入档案及随访信息

干公共卫生的朋友们，你的系统是河南郑州科鸿的软件，可以试试，可以快速录入档案及随访信息，要求屏幕分辨率是1024*768，首先下载啊按键精灵并安装打开，在我的脚本---新建脚本------复制下面的脚本-----起好名字---------设置启动键-------保存-------试试，下面脚本有好几个，不要都复制，根据完成任务可以多建几个
这个是系统自动登录
[General]
SyntaxVersion=2
BeginHotkey=32779
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=18742a8d-82e7-40f4-9a04-417e4e1ca8df
Description=cwsxt
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment]

[Script]
RunApp "C:\村卫生室\update.exe"
Delay 800
i =1
While i = 1
    Hwnd = Plugin.Window.Foreground()
sText = Plugin.Window.GetText(Hwnd)
// 下面是你们系统的名字，看好改过来
If sText = "xx县村卫生室管理系统" Then
        i =0
    Delay 200
        Else
        i = 1
    Delay 100
End If
Wend
Delay 300
// 在""内输入系统登陆账号
SayString "在此输入系统登陆账号"
KeyPress "Enter", 1
// 在""内输入登陆密码
SayString "在此输入系统登陆密码"
KeyPress "Enter", 1
个人档案信息
[General]
SyntaxVersion=2
BeginHotkey=46
BeginHotkeyMod=8
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=524cd507-33bb-4c16-9061-6b9e7c168f8e
Description=个人2
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment]

[Script]
'==========以下是按键精灵录制的内容==========
MoveTo 210, 632
// Delay 8658
LeftClick 1
// Delay 1856
MouseWheel -1
// Delay 32
MouseWheel -1
// Delay 24
MouseWheel -1
// Delay 32
MouseWheel -1
MoveTo 320, 465
// Delay 4888
LeftClick 1
MoveTo 293, 504
// Delay 640
LeftClick 1
MoveTo 316, 496
// Delay 537
LeftClick 1
MoveTo 266, 609
// Delay 1607
MouseWheel -1
MoveTo 266, 597
// Delay 945
LeftClick 1
MoveTo 319, 533
// Delay 987
LeftClick 1
MoveTo 317, 568
// Delay 1120
LeftClick 1
// Delay 1072
MouseWheel -1
// Delay 368
MouseWheel -1
// Delay 376
MouseWheel -1
MoveTo 249, 624
// Delay 1775
LeftClick 1
MoveTo 317, 596
// Delay 2009
LeftClick 1
// Delay 681
MouseWheel -1
// Delay 376
MouseWheel -1
// Delay 431
MouseWheel -1
// Delay 512
MouseWheel -1
// Delay 384
MouseWheel -1
// Delay 1393
MouseWheel -1
// Delay 864
MouseWheel -1
// Delay 1447
MouseWheel -1
// Delay 849
MouseWheel -1
// Delay 679
MouseWheel -1
// Delay 376
MouseWheel -1
// Delay 424
MouseWheel -1
// Delay 656
MouseWheel -1
// Delay 472
MouseWheel -1
// Delay 472
MouseWheel -1
// Delay 505
MouseWheel -1
// Delay 439
MouseWheel -1
// Delay 432
MouseWheel -1
// Delay 528
MouseWheel -1
// Delay 488
MouseWheel -1
// Delay 512
MouseWheel -1
// Delay 456
MouseWheel -1
// Delay 408
MouseWheel -1
MoveTo 270, 634
// Delay 1184
LeftClick 1
MoveTo 311, 630
// Delay 1410
LeftClick 1
MoveTo 258, 549
// Delay 1817
LeftClick 1
MoveTo 496, 531
// Delay 2777
LeftClick 1
MoveTo 502, 437
// Delay 880
LeftClick 1
MoveTo 500, 339
// Delay 944
LeftClick 1
// Delay 704
MouseWheel 1
MoveTo 523, 368
// Delay 1225
LeftDown 1
MoveTo 524, 368
// Delay 64
LeftUp 1
LeftUp 1
MoveTo 479, 406
// Delay 631
LeftClick 1
MoveTo 478, 302
// Delay 1209
LeftClick 1
MoveTo 472, 236
// Delay 656
LeftClick 1
MoveTo 655, 202
// Delay 1208
LeftClick 1
MoveTo 520, 311
// Delay 2624
LeftClick 1
MoveTo 825, 205
// Delay 1529
LeftClick 1
MoveTo 729, 234
// Delay 1008
LeftClick 1
MoveTo 737, 312
// Delay 1223
LeftClick 1
MoveTo 732, 395
// Delay 991
LeftClick 1
MoveTo 732, 476
// Delay 960
LeftClick 1
MoveTo 787, 564
// Delay 1576
LeftClick 1
MoveTo 721, 595
// Delay 1360
LeftClick 1
MoveTo 768, 582
// Delay 977
MouseWheel -1
// Delay 760
MouseWheel -1
// Delay 120
MouseWheel -1
// Delay 439
MouseWheel -1
// Delay 57
MouseWheel -1
MoveTo 963, 447
// Delay 2639
LeftClick 1
MoveTo 862, 551
// Delay 1311
LeftClick 1
MoveTo 734, 493
// Delay 1425
LeftClick 1
MoveTo 961, 513
// Delay 2096
LeftClick 1
MoveTo 800, 567
// Delay 3456
LeftClick 1
MoveTo 761, 642
// Delay 1504
LeftClick 1
MoveTo 497, 327
LeftClick 1
'==========以上是按键精灵录制的内容==========
MoveTo 575, 622
Delay 50
LeftClick 1
// 输入名字
SayString "村医名字"
KeyPress "Enter", 1
// 输入名字
SayString "村医名字"
KeyPress "Enter", 1
// 输入日期，如果是现在日期，吧下面这个去掉
SayString "建档日期"
中医体质辨识
[General]
SyntaxVersion=2
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=5d221f83-ffa1-4329-951d-4a098b30b040
Description=中医体质辨识
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment]

[Script]
        Delay 200
MoveTo 458, 160
LeftClick 1
Call hk()
MoveTo 218, 190
LeftClick 1
        Delay 500
i=1
    While i=1
key = GetLastKey()
            Select Case key
                            Case 81 //按q键气虚质
        i=0
        i1=0
            While i1 < 34
        Call pd()
            If i1=2 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                i1 = i1 + 1
                ElseIf i1=3 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                                i1 = i1 + 1
    ElseIf i1=4 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                                i1 = i1 + 1
    ElseIf i1=14 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                                i1 = i1 + 1
Else  
            KeyPress "Down", 2
                KeyPress "Enter", 1
                                i1 = i1 + 1
End If  
                    Wend
        MouseWheel -2
        MoveTo 94, 485
                        Delay 50
        LeftClick 1
        Call xx()
        EndScript
                            Case 84 //按t建痰湿质
        i=0
                i1=0
            While i1 < 34
        Call pd()
            If i1=9 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                i1 = i1 + 1
                ElseIf i1=16 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                                i1 = i1 + 1
    ElseIf i1=28 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                                i1 = i1 + 1
    ElseIf i1=32 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                                i1 = i1 + 1
Else  
            KeyPress "Down", 2
                KeyPress "Enter", 1
                                i1 = i1 + 1
End If  
                    Wend
                MouseWheel -2
        MoveTo 398, 484
                        Delay 50
        LeftClick 1
        Call xx()
        EndScript
                                    Case 88 //按x建血瘀质
        i=0
                i1=0
            While i1 < 34
        Call pd()
            If i1=19 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                i1 = i1 + 1
                ElseIf i1=22 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                                i1 = i1 + 1
    ElseIf i1=24 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                                i1 = i1 + 1
    ElseIf i1=33 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                                i1 = i1 + 1
Else  
            KeyPress "Down", 2
                KeyPress "Enter", 1
                                i1 = i1 + 1
End If  
                    Wend
                MouseWheel -2
        MoveTo 601, 486
                        Delay 50
        LeftClick 1
        Call xx()
        EndScript
                                    Case 80 //按p建平和质
        i=0
                i1=0
            While i1 < 34
        Call pd()
            If i1=1 Then
            KeyPress "Down", 4
                KeyPress "Enter", 1
                i1 = i1 + 1
Else  
            KeyPress "Down", 2
                KeyPress "Enter", 1
                                i1 = i1 + 1
End If  
                    Wend
                MouseWheel -2
        MoveTo 904, 484
                Delay 50
        LeftClick 1
        Call xx()
        EndScript
                    End Select
        i=1
        Delay 100
Wend
Sub hk()
Delay 800
i =1
While i = 1
    Hwnd = Plugin.Window.Find(0, "科鸿小精灵 O.O.O.1")
    sRect = Plugin.Window.GetClientRect(Hwnd)
    dim MyArray   
MyArray = Split(sRect, "|")   
//下面这句将字符串转换成数值   
W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))
W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))
MoveTo w1+15, h1-15
Hwnd1 = Plugin.Window.MousePoint()
sText = Plugin.Window.GetText(Hwnd1)
If sText = "科鸿小精灵 O.O.O.1" Then
        i = 1
    Delay 200
        Else
        i =0
    Delay 100
End If
Wend
End Sub
Sub bc()
        Delay 80
// 保存
MoveTo 880, 664
    Delay 80
LeftClick 1
MoveTo 460, 657
Call hk()
KeyPress "Enter", 1
Delay 200
// 结束
End Sub
Sub pd()
If i1=9 Then
MoveTo 523, 486
Delay 64
LeftDoubleClick 1
ElseIf i1=14 Then
MoveTo 514, 583
Delay 50
LeftDoubleClick 1
    ElseIf i1=17 Then
MoveTo 515, 583
Delay 50
LeftDoubleClick 1
    ElseIf i1=28 Then
MoveTo 522, 568
Delay 50
LeftDoubleClick 1
//Else
End If  
End Sub
Sub xx()
    KeyPress "Enter", 2
    KeyPress "Space", 1
    KeyPress "Enter", 1
    KeyPress "Space", 1
MoveTo 539, 622
Delay 56
LeftClick 1
    SayString "村医名字"
MoveTo 781, 664
Delay 62
LeftClick 1
    Delay 200
    Call bc()
MoveTo 976, 666
Delay 56
LeftClick 1
End Sub
体检，年检辅助检查化验单
[General]
SyntaxVersion=2
BeginHotkey=222
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=86430cf8-ea84-4aaf-99ce-66a7d8e826e8
Description=化验单
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment]

[Script]
Sub kh()
Delay 800
i =1
While i = 1
    Hwnd = Plugin.Window.Find(0, "科鸿小精灵 O.O.O.1")
    sRect = Plugin.Window.GetClientRect(Hwnd)
    dim MyArray   
MyArray = Split(sRect, "|")   
//下面这句将字符串转换成数值   
W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))   
W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))   
MoveTo w1+15, h1-15
Hwnd1 = Plugin.Window.MousePoint()
sText = Plugin.Window.GetText(Hwnd1)
If sText = "科鸿小精灵 O.O.O.1" Then
        i = 1
    Delay 200
        Else
        i =0
    Delay 100
End If
Wend
    End Sub
Sub bc()
MoveTo 880, 664
    Delay 10
LeftClick 1
MoveTo 460, 657
    Call kh()
    KeyPress "Enter", 1
        Delay 100
End Sub
Sub ajjc()
    Key=0
Rem h1
    key = GetLastKey()
    Select Case key
Case 37//左箭头键
Goto h2
        Case Else
            Delay 300
Goto h1
        End Select
Rem h2
End Sub
MoveTo 47, 667
Delay 10
LeftClick 1
Call kh()
MoveTo 211, 161
Delay 10
LeftClick 1
MoveTo 586, 593
Delay 10
LeftClick 1
Call ajjc()
Call kh()
//老年人用
MoveTo 277, 162
//高血压糖尿病用
//MoveTo 350, 162
Delay 50
LeftClick 1
Call kh()
y = 236
Rem h3
MoveTo 422, y
Delay 10
LeftClick 1
IfColor 422,y,"C56A31",0 Then
y=y+20
    Goto h3
Else
y=y-20
    MoveTo 422, y
    Delay 10
    LeftDoubleClick 1
End If
    Call kh()
MoveTo 95, 165
    Delay 40
LeftClick 1
    Delay 100
MoveTo 204, 244
LeftDoubleClick 1
Randomize
SayString round(30*rnd+120)
KeyPress "Enter", 1
Randomize
SayString round(3*rnd+5)
KeyPress "Enter", 1
Randomize
SayString round(160*rnd+120)
KeyPress "Enter", 1
Randomize
SayString round(rnd+4,1)
'==========以下是按键精灵录制的内容==========
MoveTo 237, 269
    Delay 10
LeftClick 1
    Delay 10
MoveTo 207, 311
    Delay 10
LeftClick 1
    Delay 10
MoveTo 605, 272
    Delay 10
LeftClick 1
    Delay 10
MoveTo 569, 312
    Delay 10
LeftClick 1
    Delay 10
MoveTo 239, 299
    Delay 10
LeftClick 1
    Delay 10
MoveTo 200, 342
    Delay 10
LeftClick 1
    Delay 10
'==========以上是按键精灵录制的内容==========
MoveTo 268, 383
LeftDoubleClick 1
Randomize
SayString round(25*rnd+10)
KeyPress "Enter", 1
Randomize
SayString round(25*rnd+10)
KeyPress "Enter", 1
Randomize
SayString round(10*rnd+40)
KeyPress "Enter", 1
Randomize
SayString round(10*rnd+6)
KeyPress "Enter", 1
Randomize
SayString round(3*rnd+2)
KeyPress "Enter", 1
Randomize
SayString round(40*rnd+70)
KeyPress "Enter", 1
Randomize
SayString round(3*rnd+3.5,1)
KeyPress "Enter", 1
Randomize
SayString round(2*rnd+3.5,1)
KeyPress "Enter", 1
Randomize
SayString round(20*rnd+135)
MoveTo 221, 468
LeftClick 1
Randomize
SayString round(3*rnd+3.7,1)
KeyPress "Enter", 1
Randomize
SayString round(0.6*rnd+1.2,1)
Call bc()
MoveTo 524, 552
Delay 10
LeftClick 1
Text = Plugin.File.ReadFileEx("C:\村卫生室\temp.xml.txt")
dim xx
xx = Split(Text, "|")
MessageBox "年龄"&2014-CLng(Left(CStr(xx(201)), 4))
Delay 6000
Call ajjc()
MoveTo 965, 662
Delay 40
LeftClick 1
Delay 100
MoveTo 143, 472
Delay 10
LeftClick 1
Delay 100
KeyPress "BackSpace", 6
1-2岁儿童随访
[General]
SyntaxVersion=2
BeginHotkey=36
BeginHotkeyMod=8
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=51a84409-f7b6-4cb0-bbb8-7e5af0d1f685
Description=1-2岁儿童随访
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment]

[Script]
Sub hk()
Delay 800
i =1
While i = 1
    Hwnd = Plugin.Window.Find(0, "科鸿小精灵 O.O.O.1")
    sRect = Plugin.Window.GetClientRect(Hwnd)
    dim MyArray   
MyArray = Split(sRect, "|")   
//下面这句将字符串转换成数值   
W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))   
W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))   
MoveTo w1+15, h1-15
Hwnd1 = Plugin.Window.MousePoint()
sText = Plugin.Window.GetText(Hwnd1)
If sText = "科鸿小精灵 O.O.O.1" Then
        i = 1
    Delay 200
        Else
        i =0
    Delay 100
End If
Wend
End Sub
Delay 100
MoveTo 289, 174
Delay 100
LeftClick 1
Call hk()
MoveTo 216, 198
Delay 100
LeftClick 1
Delay 500
'==========以下是按键精灵录制的内容==========
MoveTo 568, 215
LeftClick 1
MoveTo 534, 299
LeftClick 1
MoveTo 762, 217
LeftClick 1
MoveTo 719, 298
LeftClick 1
MoveTo 178, 257
LeftClick 1
MoveTo 167, 284
LeftClick 1
MoveTo 281, 257
LeftClick 1
MoveTo 889, 257
LeftClick 1
MoveTo 665, 286
LeftClick 1
MoveTo 483, 288
LeftDown 1
MoveTo 484, 287
LeftUp 1
MoveTo 319, 286
LeftClick 1
MoveTo 136, 282
LeftClick 1
MoveTo 134, 311
LeftClick 1
MoveTo 320, 313
LeftClick 1
MoveTo 490, 314
LeftClick 1
MoveTo 671, 313
LeftClick 1
MoveTo 849, 319
LeftClick 1
MoveTo 370, 348
LeftClick 1
MoveTo 136, 349
LeftClick 1
MoveTo 176, 381
LeftClick 1
MoveTo 178, 407
LeftClick 1
MoveTo 267, 448
LeftClick 1
MoveTo 231, 508
LeftClick 1
MoveTo 730, 447
LeftClick 1
MoveTo 170, 483
LeftClick 1
MoveTo 169, 516
LeftClick 1
MoveTo 160, 548
LeftClick 1
MoveTo 246, 549
LeftClick 1
MoveTo 346, 548
LeftClick 1
MoveTo 430, 552
LeftClick 1
MoveTo 270, 448
LeftClick 1
MoveTo 254, 485
LeftDown 1
LeftClick 1
MoveTo 842, 615
LeftClick 1
SayString "村医名字"
MoveTo 726, 484
LeftClick 1
SayString "无"
MoveTo 765, 190
LeftClick 1
3-6岁儿童随访
[General]
SyntaxVersion=2
BeginHotkey=35
BeginHotkeyMod=8
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=11b84001-b40d-4407-a489-cc88e2145beb
Description=3-6岁儿童随访
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment]

[Script]
Delay 100
MoveTo 372, 169
Delay 50
LeftClick 1
Call hk()
MoveTo 225, 203
LeftClick 1
MoveTo 291, 233
LeftClick 1
KeyPress "Down", 3
KeyPress "Enter", 2
KeyPress "Down", 3
KeyPress "Enter", 1
KeyPress "Down", 1
KeyPress "Enter", 2
KeyPress "Down", 1
KeyPress "Enter", 3
KeyPress "Down", 1
KeyPress "Enter", 1
KeyPress "Down", 1
KeyPress "Enter", 1
KeyPress "Down", 1
KeyPress "Enter", 3
KeyPress "Space", 1
KeyPress "Enter", 6
KeyPress "Down", 1
MoveTo 383, 495
LeftClick 1
MoveTo 805, 576
LeftClick 1
SayString "村医名字"
KeyPress "Tab", 1
MoveTo 112, 496
LeftDown 1
LeftClick 1
MoveTo 200, 494
LeftClick 1
MoveTo 287, 494
LeftDown 1
LeftClick 1
MoveTo 109, 494
LeftClick 1
MoveTo 285, 494
LeftClick 1
'==========以下是按键精灵录制的内容==========
MoveTo 183, 292
LeftClick 1
SayString 1.5
MoveTo 591, 289
LeftClick 1
SayString 20
MoveTo 166, 362
LeftClick 1
SayString "无"
'==========以上是按键精灵录制的内容==========
MoveTo 724, 194
//Delay 50
LeftClick 1
//Delay 50
Sub hk()
Delay 800
i =1
While i = 1
    Hwnd = Plugin.Window.Find(0, "科鸿小精灵 O.O.O.1")
    sRect = Plugin.Window.GetClientRect(Hwnd)
    dim MyArray   
MyArray = Split(sRect, "|")   
//下面这句将字符串转换成数值   
W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))   
W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))   
MoveTo w1+15, h1-15
Hwnd1 = Plugin.Window.MousePoint()
sText = Plugin.Window.GetText(Hwnd1)
If sText = "科鸿小精灵 O.O.O.1" Then
        i = 1
    Delay 200
        Else
        i =0
    Delay 100
End If
Wend
End Sub

豫新蔡S-金树成

谢谢谢谢,想用还是搞不好.

来宏超

谢谢谢谢,想用还是不会搞

陕西帖孝厂

看不懂啊

李拥政

应该以示例演示一下，这样朋友们才能够看得明白。

河南邵软生

一头雾水，怎么用啊

闫凌云

商丘张琪

按键精灵是个键盘鼠标连点器，但是他可以设置启动键，很方便，主要是免费，并且有教程，可以去看看教程，再调试

河南孙红甫

看不懂 我试一试下载

陕西雒茂利

学习了，感谢。