按键精灵验证码远程代答脚本源码

按键精灵验证码远程代答脚本源码

运行环境：分辨率：1280x800 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.20.10818

@wfsyq    2012/3/30

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