DNF自动登路.完整版 源码.加EXE文件.另收尝收徒弟.有心着来.限10名.

米糖果

#import "dm.dmsoft" dm

空间 地下城自动登路
//定义默认空间
整型 intX,intY,X,Y, intX1,intY1,X1,Y1,intX2,intY2
功能 整型 注册()
//这里添加你要执行的代码
辅助.注册插件("rc:\\dm.dll",真)
辅助.是否注册("dm.dmsoft")
辅助.获取资源路径("rc:")
//dm.SetPath (".\\DNF自动收贷和喊话器")
//系统.获取程序路径()
系统.设置路径(辅助.获取资源路径("rc:"))

dm.SetDict(0,"DNF刷树精.txt")
返回 0
//函数返回语句
功能结束
功能 整型 登路()
//这里添加你要执行的代码
地下城自动登路.注册()
辅助.写配置("保存设置","1",编辑框.获得文本("编辑框0"),"D:\\保存设置.ini")
辅助.写配置("保存设置","2",编辑框.获得文本("编辑框1"),"D:\\保存设置.ini")
辅助.写配置("保存设置","3",编辑框.获得文本("编辑框2"),"D:\\保存设置.ini")
辅助.写配置("保存设置","4",编辑框.获得文本("编辑框3"),"D:\\保存设置.ini")
辅助.写配置("保存设置","5",编辑框.获得文本("编辑框4"),"D:\\保存设置.ini")
进程.打开(编辑框.获得文本("编辑框0"))
辅助.等待(5000)
循环(真)
    字符型 大区=编辑框.获得文本("编辑框1")
dm.FindStrFast(0,0,2000,2000,大区,"a9caec-000000",1.0,intX,intY)
如果(intX>0)
                dm.MoveTo(intX, intY)
                辅助.等待(500)
                dm.LeftClick()
                辅助.等待(500)
                跳出
如果结束
循环结束
循环(真)
   
dm.FindStrFast(0,0,2000,2000,编辑框.获得文本("编辑框2"),"a9caec-000000",1.0,X,Y)
如果(X>0)
                dm.MoveTo(X, Y)
                辅助.等待(500)  
             dm.LeftClick()
                辅助.等待(500)
                跳出
如果结束
循环结束
循环(真)
dm.FindPic(0,0,2000,2000,"登路.bmp","000000",0.9,0,X1,Y1)
如果(intX>0)
                dm.MoveTo(X1,Y1)
                辅助.等待(500)
                dm.LeftClick()
                辅助.等待(500)
                跳出
如果结束
循环结束
//254178111
    循环(真)
   dm.FindStrFast(0,0,2000,2000,"登陆","ffffff-ded1a0",1.0,intX1,intY1)
   如果(intX1>0)
        dm.MoveTo( intX1+219, intY1+29)
        辅助.等待(500)
        dm.LeftDoubleClick()
        辅助.等待(1000)   

  整型 a = 13
    循环(a>0)
        dm.KeyPress (8)
        辅助.等待(50)
//        辅助.消息框(转换.整型转字符型(a))
       a=a-1
       循环结束
      
   整型 hwnd = dm.GetMousePointWindow()
   dm.SendString (hwnd, 编辑框.获得文本("编辑框3"))
   
   dm.FindStrFast(0,0,2000,2000,"登陆","ffffff-ded1a0",1.0,intX1,intY1)
   如果(intX1>0)
       dm.MoveTo (intX1+219, intY1+56)
        辅助.等待(500)
        dm.LeftClick()
       辅助.等待(500)
超级键盘.发送字符串(编辑框.获得文本("编辑框4"))
//
   如果结束
//
//
dm.FindPic(0,0,2000,2000,"登陆.bmp","000000",0.9,0,intX2,intY2)
如果(intX2>0)
                dm.MoveTo(intX2, intY2)
                辅助.等待(500)
                dm.LeftClick()
                辅助.等待(500)
         
如果结束
跳出

    如果结束
循环结束
返回 0
////函数返回语句
功能结束

功能 逻辑型 退出_点击()
//这里添加你要执行的代码
整型 线程句柄
线程.关闭(线程句柄)

辅助.退出()
返回 真
//函数返回语句
功能结束
功能 逻辑型 开始_点击()
//这里添加你要执行的代码
整型 线程句柄
线程句柄=线程.开启("地下城自动登路.登路","我是参数")
返回 真
功能结束

功能 逻辑型 初始化()
//这里添加你要执行的代码

字符型  字符串=辅助.读配置("保存设置","1","D:\\保存设置.ini")
编辑框.设置文本("编辑框0",字符串)
字符型  字符串1=辅助.读配置("保存设置","2","D:\\保存设置.ini")
编辑框.设置文本("编辑框1",字符串1)
字符型  字符串2=辅助.读配置("保存设置","3","D:\\保存设置.ini")
编辑框.设置文本("编辑框2",字符串2)
字符型  字符串3=辅助.读配置("保存设置","4","D:\\保存设置.ini")
编辑框.设置文本("编辑框3",字符串3)
字符型  字符串5=辅助.读配置("保存设置","5","D:\\保存设置.ini")
编辑框.设置文本("编辑框4",字符串5)
图片框.设置图片("图片框0","rc:图形1.bmp")

返回 真
功能结束
功能 逻辑型 热键0_热键()
//这里添加你要执行的代码
整型 线程句柄
线程.关闭(线程句柄)
辅助.退出()

返回 真
功能结束
空间结束
//空间结束语句
file:///C:/Documents%20and%20Settings/Administrator/Application%20Data/Tencent/Users/254178111/QQ/WinTemp/RichOle/P_PYZOQ5}GPX)31KG2`K4W5.jpg

a125624854

a125624854

支持源码

tyuyan

来看看 。 学习下

落叶归根

学习了. 感谢楼主分享。。

无处藏身

看看吧

麦兜兄弟

好事，我来了。。。师傅

dzh

回复 1楼米糖果的帖子

学习了111

sziamchl

请问你的代码对所有登录异常的问题都有考虑到了吗？比如：要输入验证码、服务器维护、选择哪个区后不会弹出QQ号输入框，但再双击地下城图标显示程序已运行等等该怎么处理？

sziamchl

还有哪个截图的也有个错别字，登陆写成登路了