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

运行环境：分辨率：1280×800 色深：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