找回密码
 加入
搜索
查看: 1670|回复: 3

[原创] 丽声阅卷辅助工具

[复制链接]
发表于 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[0],$XY[1],1,1)
                MouseMove($mXY[0],$mXY[1],0)
                ;让光标回到原来的位置,起迷惑作用,不让人看出是通过鼠标点击提交的
        EndFunc
        Func UU_BB()
                $mXY=MouseGetPos()
                MouseClick("LEFT",$XY1[0],$XY1[1],1,1)
                MouseMove($mXY[0],$mXY[1],0)
                ;让光标回到原来的位置,起迷惑作用,不让人看出是通过鼠标点击提交的
        EndFunc
 楼主| 发表于 2017-6-2 08:51:35 | 显示全部楼层
有需要的,自己复制编绎使用吧
发表于 2017-6-2 19:02:53 | 显示全部楼层
我们一直在用这个阅卷,用了7年了,自己就没那能耐写出你这种东西。
发表于 2017-6-2 19:07:26 | 显示全部楼层
你那是客户端操作,我都是服务端维护的,扫描,模板,识别,评分细则,成绩汇总。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-28 16:54 , Processed in 0.074263 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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