erdaxia 发表于 2017-6-2 08:50:43

丽声阅卷辅助工具

本帖最后由 erdaxia 于 2017-6-2 08:52 编辑

说明：丽声网上阅卷软件的“提交”对话框存在如下不足（也是与控制者的设置有关）：当输入0分或1分时，往往对ENTER键无响应（即不执行“提交”操作）
此工具作用：1、保证每次按ENTER时能执行“提交”，2、通过点击数字键盘上的“+”实现返回上一份卷的调阅重新给分。
代码如下Opt("WinTitleMatchMode", 1)
        HotKeySet("{ENTER}", "UU_AA")
        HotKeySet("{NUMPADADD}", "UU_BB")
               Global $DI,$XY,$XY1,$mXY
        If WinExists("丽升主观题")=0 Then
                MsgBox(16,"错误","须先运行丽声软件！")
                Exit
        EndIf
        WinWaitActive("丽升主观题","")
        MsgBox(16,"丽升提示","将【给分栏】调整到合适的位置后，再 点击[确定] 按钮")
        For $DI=1 To 5
                SplashTextOn("鼠标位置设定", "在 显示0 之前， ======= " & 5-$DI & " =======" & @CRLF & @CRLF & "将鼠标指针 放在【提交】按钮 所在位置", 642, 100,-1,-1,4,"黑体",20)
                Sleep(1000)
        NEXT
        SplashOff()
        $XY=MouseGetPos();提交所在位置
        For $DI=1 To 5
                SplashTextOn("上一份 按钮位置", "在 显示0 之前， ======= " & 5-$DI & " =======" & @CRLF & @CRLF & "将鼠标指针 放在【上一份】按钮 所在位置", 642, 100,50,250,20,"黑体",20)
                Sleep(1000)
        NEXT
        SplashOff()
        $XY1=MouseGetPos();上一份 所在位置

        While 1
                Sleep(100)
        WEnd
        Func UU_AA()
                $mXY=MouseGetPos()
                MouseClick("LEFT",$XY,$XY,1,1)
                MouseMove($mXY,$mXY,0)
                ;让光标回到原来的位置，起迷惑作用，不让人看出是通过鼠标点击提交的
        EndFunc
        Func UU_BB()
                $mXY=MouseGetPos()
                MouseClick("LEFT",$XY1,$XY1,1,1)
                MouseMove($mXY,$mXY,0)
                ;让光标回到原来的位置，起迷惑作用，不让人看出是通过鼠标点击提交的
        EndFunc

erdaxia 发表于 2017-6-2 08:51:35

有需要的，自己复制编绎使用吧

lpxx 发表于 2017-6-2 19:02:53

我们一直在用这个阅卷，用了7年了，自己就没那能耐写出你这种东西。

lpxx 发表于 2017-6-2 19:07:26

你那是客户端操作，我都是服务端维护的，扫描，模板，识别，评分细则，成绩汇总。
页: [1]
查看完整版本: 丽声阅卷辅助工具