UserVar ip="49.72.185.76" "自定义ip地址"

Call 注册()
//<>------------------------------
hwnd = dm.GetMousePointWindow()
TracePrint hwnd
//
Call 绑定()
//<>--------------------------
dm_ret = dm.FindPic(0,0,2000,2000,"验证码.bmp","000000",0.9,0,intX,intY)
Delay 20
TracePrint intX&","&intY
If intX > 0 And intY > 0 Then
    Call 远程代答()
    
End If
//<>------------------------------


//<>------------------------------
Sub 远程代答()

    handle = dm.FaqCapture(intX+44,intY+87,intX+173,intY+139,50,0,0)
    Delay 20
    //
    TracePrint "开始答题"
    Do

        答案 = dm.FaqSend(ip&":12345",handle,2,250 * 1000)
        TracePrint 答案
        MyArray = Split(答案, ":")
        //
        If MyArray(0) = "OK" Then
            Exit Do
        Else
            Call Plugin.Msg.Tips("发送题目，出错了")
        End If
    Loop While 7=7
    //
    Delay 4000
    //
    dm.MoveTo intX+55,intY+192
    Delay 5
    dm.LeftClick
    Delay 20
    //
    SayString MyArray(1)
    Delay 500
    dm.moveto intX + 113, intY + 263
    Delay 20
    dm.LeftClick
    
    //

End Sub
//<>--------------------------------------------------------------------<>
//<>------------------------------子程序------------------------------<>
//<>--------------------------------------------------------------------<>
Sub 注册()
    PutAttachment ".\plugin","*.dll"
    PutAttachment ".\plugin\大漠梦想","*.bmp"
    PutAttachment ".\plugin\大漠梦想","*.txt"
    PutAttachment ".\plugin\大漠梦想","dm.dll"
    //↑PutAttachment释放附件
    Call Plugin.DBSoft.RegDBSoft("0731A74F3AA9DC55C27CA168D151F792")
    //↑大兵·注册
    Call Plugin.RegDll.Reg(".\plugin\大漠梦想\dm.dll")
    set dm = createobject("dm.dmsoft")
    dm.SetPath ".\plugin\大漠梦想"
    //↑大漠·注册
    Delay 20
End Sub
//
Sub OnScriptExit()
    dm_ret = dm.UnBindWindow() 
End Sub

Sub 绑定()
    Do
        dm_ret = dm.SetWindowState(hwnd,12)
        //↑设置“窗口”状态
        dm.MoveWindow hwnd,0,0
        //↑移动“窗口”到指定位置，允许移到“屏幕”外
        Delay 500
        dm_ret = dm.BindWindow(hwnd,"dx","windows","windows",0)
        Delay 200
        If dm_ret=1 Then
            Exit Do
        End If
    Loop While 7=7
    //↑如果，成功，退出Do循环
    //↑如果，失败，就一直绑定，直到成功
End Sub