ElseIf 编号 = 3 Then
       dm.MoveTo intX + 55, intY + 225
       Delay 50
       dm.LeftClick 
       Delay 1000
       dm.MoveTo intX + 135, intY + 275
       Delay 50
       dm.LeftClick 
       Delay 1000
     ElseIf 编号 = 4 Then
       dm.MoveTo intX + 55, intY + 250
       Delay 50
       dm.LeftClick 
       Delay 1000
       dm.MoveTo intX + 135, intY + 275
       Delay 50
       dm.LeftClick 
       Delay 1000
     Else 
       Delay 200
     End If
     
End Sub
Sub 远程答题
//答题截图
    Rem 远程答题
    dm_ret = dm.FindPic(0, 0, 800, 600,"C:\TLPS\答题.bmp","000000",0.9,0,intX,intY)
    If intX >= 0 and intY >= 0 Then 
       Delay 1000
    Else 
       Goto 远程答题
    End If
    dm_ret = dm.Capture(intX-40,intY+73,intX+140,intY+260,"screen.bmp")
    Delay 20

     Do
     
     Rem 发送

        If 题目ID > 0 Then
            Exit Do
        ElseIf 题目ID < 0 Then
            Goto 发送
        End If
        Loop
        
        
        答案 = ""
             While 答案 = ""
 
             Delay 20
                   If 答案 = "1" Then 
                      dm.MoveTo intX + 55, intY + 175
                      Delay 50
                      dm.LeftClick 
                      Delay 1000
                      dm.MoveTo intX + 135, intY + 275
                      Delay 50
                      dm.LeftClick 
                      Delay 1000
                   End If
                   If 答案 = "2" Then 
                      dm.MoveTo intX + 55, intY + 200
                      Delay 50
                      dm.LeftClick 
                      Delay 1000
                      dm.MoveTo intX + 135, intY + 275
                      Delay 50
                      dm.LeftClick 
                      Delay 1000
                   End If
                   If 答案 = "3" Then 
                      dm.MoveTo intX + 55, intY + 225
                      Delay 50
                      dm.LeftClick 
                      Delay 1000
                      dm.MoveTo intX + 135, intY + 275
                      Delay 50
                      dm.LeftClick 
                      Delay 1000
                   End If
                   If 答案 = "4" Then 
                      dm.MoveTo intX + 55, intY + 250
                      Delay 50
                      dm.LeftClick 
                      Delay 1000
                      dm.MoveTo intX + 135, intY + 275
                      Delay 50
                      dm.LeftClick 
                      Delay 1000
                   End If
               Wend
               
End Sub