Delay 500
                    LeftUp 1
                    Delay 1000
End Sub
Sub 网络答题
    Rem 开始网络答题
    dtflag = 1
    While dtflag = 1
        MoveTo 0,0
        Delay 50
        dm_ret = dm.FindStr(XL, YL, XR, YR, "回答", "fff263-000000", 1.0, x1, y1)
        If x1 > 0 and y1 > 0 Then 
            handle = dm.FaqCapture(x1, y1 +20, x1 +200, y1 + 200, 80, 0, 0)
            server = dati_ip & ":" & dati_port
            result = dm.FaqSend(server,handle,1,50*1000)
            result = split(result, ":")
            If result(0) = "OK" Then 
                Rem 重新点击答案
                If result(1) = "1" Then
                    MoveTo x1 + 45, y1 + 110
                    call 点选
                    dm_ret = dm.FindStr(X1+100, Y1+150, X1+260, Y1+260, "确定", "bbbbbb-000000", 1.0, xz, yz)
                    If xz > 0 and yz > 0 Then 
                    	Goto 重新点击答案
                    	Else 
                    	call 点击确定
                    End If                    
                ElseIf result(1) = "2" Then
                                        MoveTo x1 + 45, y1 + 135
                    call 点选
                    dm_ret = dm.FindStr(X1+100, Y1+150, X1+260, Y1+260, "确定", "bbbbbb-000000", 1.0, xz, yz)
                    If xz > 0 and yz > 0 Then 
                    	Goto 重新点击答案
                    	Else 
                    	call 点击确定
                    End If 
                ElseIf result(1) = "3" Then
                                        MoveTo x1 + 45, y1 + 160
                    call 点选
                    dm_ret = dm.FindStr(X1+100, Y1+150, X1+260, Y1+260, "确定", "bbbbbb-000000", 1.0, xz, yz)
                    If xz > 0 and yz > 0 Then 
                    	Goto 重新点击答案
                    	Else 
                    	call 点击确定
                    End If 
                ElseIf result(1) = "4" Then
                                        MoveTo x1 + 45, y1 + 185
                    call 点选
                    dm_ret = dm.FindStr(X1+100, Y1+150, X1+260, Y1+260, "确定", "bbbbbb-000000", 1.0, xz, yz)
                    If xz > 0 and yz > 0 Then 
                    	Goto 重新点击答案
                    	Else 
                    	call 点击确定
                    End If 
                End If 
            Else     
                Delay 300
            End If
        Else 
            dtflag=2
        End If
    Wend 
End Sub
Sub 点击确定
    ksdjt=now
    Rem 重新确定
    If datediff("s", ksdjt, now) >= 10 Then 
        Goto 防卡死
    End If
    flag = 1
    dm_ret = dm.FindStr(X1+100, Y1+150, X1+260, Y1+260, "确定", "fdeb78-000000", 1.0, xz, yz)
    If xz > 0 And yz >0 Then 
        MoveTo xz + 10, yz + 10
        Delay 20
        LeftDown 1
        Delay 500
        LeftUp 1
        Delay 200
        MoveTo xz + 60, yz + 10
        Delay 20
        djt = now
        flag=1
        While flag=1 and  datediff("s",djt,now)<2 and datediff("s",ksdjt,now)<10
            dm_ret = dm.FindStr(X1+100, Y1+150, X1+260, Y1+260, "确定", "fdeb78-000000", 1.0, xz, yz)
            If xz > 0 And yz >0 Then 
                MoveTo xz + 60, yz + 10
                Delay 50
                flag=1
            Else 
                flag=2
            End If
        Wend
        While flag = 1 and datediff("s", djt, now) >= 2 and datediff("s",ksdjt,now)<10
            Goto 重新确定
        Wend
    else
        MoveTo xz + 60, yz + 10
        Delay 50
        flag=2
    End If