TC官方合作论坛

标题: DNF自动登路.完整版源码.加EXE文件.另收尝收徒弟.有心着来.限10名. [打印本页]

作者: 米糖果 时间: 2012-5-22 23:26
标题: 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 时间: 2012-5-22 23:49

作者: a125624854 时间: 2012-5-22 23:50
支持源码

作者: tyuyan 时间: 2012-5-23 09:52
来看看。学习下

作者: 落叶归根 时间: 2012-5-23 10:41
学习了. 感谢楼主分享。。

作者: 无处藏身 时间: 2012-5-23 11:08
看看吧

作者: 麦兜兄弟 时间: 2012-5-23 16:15
好事，我来了。。。师傅

作者: dzh 时间: 2012-5-25 23:39
回复 1楼米糖果的帖子

学习了111

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

作者: sziamchl 时间: 2012-5-26 00:02
还有哪个截图的也有个错别字，登陆写成登路了

作者: dzh 时间: 2012-5-26 20:21
回复 1楼米糖果的帖子

我可以拜师吗

作者: 5933 时间: 2012-5-27 02:10
.......

作者: 453480439 时间: 2012-5-27 07:45
拜个师吧，，，qq加我吧

作者: 米糖果 时间: 2012-5-27 19:32
回复 11楼dzh的帖子

可以

作者: jq4561057 时间: 2012-6-3 16:56
看看学习

作者: bucks1964 时间: 2012-7-2 09:25
学习

作者: 无处藏身 时间: 2012-7-2 10:17
支持源码，建议加入游戏进程意外消失的情况，DNF在这个方面还是很突出的。不加的话10次登陆不了7次。

作者: 杨波 时间: 2012-7-4 01:58

[attach]4071[/attach]
我这个就可以！~~ 随便你DNF掉几次自己登录上去！~~~验证码代答也有

作者: hjsh1120 时间: 2012-7-23 12:29
带徒弟吗有尝求师傅

作者: amwssnsfi 时间: 2012-7-26 17:05
师傅收齐十人了没？还没的不知我可不可以拜在你的门下呀。

作者: xchenlongx 时间: 2012-7-26 23:10
顶师傅

作者: 872428952 时间: 2012-7-28 16:53
跪拜师父....求学精华我是新手.请加QQ872428952

作者: 创℃冷瞳 时间: 2012-8-28 14:17
收徒弟吗？！

作者: bd1994 时间: 2014-4-23 03:06
先留个脚印以后好找嘿嘿

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)