TC官方合作论坛
标题:
【有源码】天龙八部后台跑商！！！本人测试，绝对好用！
[打印本页]
作者:
stevenxiexie
时间:
2012-3-11 11:15
标题:
【有源码】天龙八部后台跑商！！！本人测试，绝对好用！
:D
终于开贴了！期间无聊做了个
天龙八部N开跑商
！一个脚本对应一个游戏！可
无限多开
，所有功能运行正常！本脚本可实现天龙任何路线跑商，只要你写对了。
超级防卡
，因为本人是在全程延迟的时候写的！此脚本微中不足的是绑定大漠后台的时候卡一下，也有些占用资源。因为天龙八部3本论坛资源太少，也希望各位大虾多多上传。:P 小弟以后改做内存挂..........内存牛的各位大神，多发些内存资料上论坛啊！做个广告，本人YY
蜗牛帅哥
！:*
记得多多回复
，也好以后有资源再上传！废话不说，直接上源码和截图：
[attach]2469[/attach]
代码如下:
#import "LYYDT.LYYDTClass" lyydt
#import "dm.dmsoft" DM
#import "Microrui.Reply" WR
空间 TL蜗牛多开跑商
//定义默认空间
整型 线程句柄
整型 窗口句柄
整型 找到窗口个数
整型 坐标X
整型 坐标Y
整型 过渡X
整型 过渡Y
整型 卡路X
整型 卡路Y
整型 验证码X
整型 验证码Y
整型 目的地X
整型 目的地Y
整型 过场景X
整型 过场景Y
整型 实际场景总数
整型 要到的地图X
整型 要到的地图Y
整型 是否出验证
字符型 路径
字符型 实际跑商路线
字符型 本帮商品图片
字符型 对帮商品图片
//..................全局变量.............................//
功能 整型 跑商调用过程()
如果(下拉框.得到选项("路线选择")==0)
实际跑商路线=编辑框.获得文本("跑商路线")
否则
实际跑商路线=编辑框.获得文本("跑商路线二")
如果结束
//..................先选择是哪一条路线........................//
辅助.等待(100)
TL蜗牛多开跑商.保存跑商路线(实际跑商路线)
辅助.等待(50)
路径=辅助.获取资源路径("rc:")
辅助.等待(50)
DM.SetPath(路径)
DM.SetDict(0,"TLZK.txt")
//设置好RC路径,以便大漠使用
辅助.等待(600)
DM.BindWindow(窗口句柄,"dx2","dx2","dx",0)
辅助.等待(4000)
//.........................设置好路径以及绑定大漠........................//
如果(复选框.获得状态("锁定鼠标")==真)
DM.LockInput(1)
辅助.等待(1000)
如果结束
//.........................是否锁定外部鼠标..................................//
如果(复选框.获得状态("降CPU")==真)
DM.DownCpu(70)
如果结束
//.......................是否选择减低CPU.....................................//
//....................................以上为执行之前的准备.............................................//
如果(单选框.获得状态("全新开始")==真)
TL蜗牛多开跑商.全新开始()
如果结束
//.........................全新开始............................//
如果(单选框.获得状态("购买完毕离开本帮")==真)
TL蜗牛多开跑商.购买完毕离开本帮()
如果结束
//........................购买完毕离开本帮........................//
如果(单选框.获得状态("去对帮任意场景")==真)
TL蜗牛多开跑商.去对帮任意场景()
如果结束
//..........................去对帮任意城市..........................//
如果(单选框.获得状态("在对方城市未买卖")==真)
TL蜗牛多开跑商.在对帮城市未买卖()
如果结束
//..............................在对帮城市未买卖....................//
如果(单选框.获得状态("对方购买完毕离开")==真)
TL蜗牛多开跑商.对帮购买完毕离开()
如果结束
//..............................对帮购买完毕离开......................//
如果(单选框.获得状态("回本帮的任意场景")==真)
TL蜗牛多开跑商.回本帮任意场景()
如果结束
//................................回本帮任意场景..........................//
如果(单选框.获得状态("交还银票继续")==真)
TL蜗牛多开跑商.交还银票继续()
如果结束
//..............................交还银票继续...................................//
返回 0
功能结束
//........................................以上为跑商的函数调用主函数..............................//
功能 整型 全新开始()
整型 N去
整型 N回
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.移动商铺()
//.................................可从这里开始循环.......................................................//
循环(真)
N去=3
N回=实际场景总数
TL蜗牛多开跑商.领取银票()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("本帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",2))
循环(N去<(实际场景总数-2))//...............................
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",N去))
N去=N去+1
循环结束 //假如是洱海到雁南。。。一共有6个城市
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",实际场景总数-2))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("对帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",实际场景总数-3))
循环((N回-5)>0)
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",N回-4))
N回=N回-1
辅助.等待(100)
循环结束
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",1))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.交还银票()
循环结束
返回 0
功能结束
//.....................................全新开始函数......................................................//
功能 整型 购买完毕离开本帮()
整型 G去
整型 G回
循环(真)
G去=3
G回=实际场景总数
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",2))
循环(G去<(实际场景总数-2))//...............................
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",G去))
G去=G去+1
循环结束 //假如是洱海到雁南。。。一共有6个城市
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",实际场景总数-2))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.移动商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("对帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",实际场景总数-3))
循环((G回-5)>0)
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",G回-4))
G回=G回-1
辅助.等待(100)
循环结束
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",1))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.交还银票()
TL蜗牛多开跑商.领取银票()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("本帮价格编辑框"))
循环结束
返回 0
功能结束
//....................................购买完毕离开本帮函数...............................................//
功能 整型 去对帮任意场景()
整型 BL去
整型 BL回
TL蜗牛多开跑商.半路去对帮()
循环(真)
BL去=3
BL回=实际场景总数
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",实际场景总数-2))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.移动商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("对帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",实际场景总数-3))
循环((BL回-5)>0)
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",BL回-4))
BL回=BL回-1
辅助.等待(100)
循环结束
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",1))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.交还银票()
TL蜗牛多开跑商.领取银票()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("本帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",2))
循环(BL去<(实际场景总数-2))//...............................
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",BL去))
BL去=BL去+1
循环结束
循环结束
返回 0
功能结束
//........................................去对帮任意场景.....................................................//
功能 整型 在对帮城市未买卖()
整型 K去
整型 K回
循环(真)
K去=3
K回=实际场景总数
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.移动商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("对帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",实际场景总数-3))
循环((K回-5)>0)
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",K回-4))
K回=K回-1
辅助.等待(100)
循环结束
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",1))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.交还银票()
TL蜗牛多开跑商.领取银票()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("本帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",2))
循环( K去<(实际场景总数-2))//...............................
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框", K去))
K去= K去+1
循环结束 //假如是洱海到雁南。。。一共有6个城市
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",实际场景总数-2))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
循环结束
返回 0
功能结束
//.......................................在对帮城市未买卖.................................................//
功能 整型 对帮购买完毕离开()
整型 L去
整型 L回
循环(真)
L去=3
L回=实际场景总数
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",实际场景总数-3))
循环((L回-5)>0)
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",L回-4))
L回=L回-1
辅助.等待(100)
循环结束
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",1))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.移动商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.交还银票()
TL蜗牛多开跑商.领取银票()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("本帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",2))
循环( L去<(实际场景总数-2))//...............................
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框", L去))
L去= L去+1
循环结束 //假如是洱海到雁南。。。一共有6个城市
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",实际场景总数-2))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("对帮价格编辑框"))
循环结束
返回 0
功能结束
//........................................对帮购买完毕离开..............................................//
功能 整型 回本帮任意场景()
整型 Q去
整型 Q回
TL蜗牛多开跑商.半路回本帮()
循环(真)
Q去=3
Q回=实际场景总数
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",1))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.移动商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.交还银票()
TL蜗牛多开跑商.领取银票()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("本帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",2))
循环(Q去<(实际场景总数-2))//...............................
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",Q去))
Q去=Q去+1
循环结束 //假如是洱海到雁南。。。一共有6个城市
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",实际场景总数-2))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("对帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",实际场景总数-3))
循环((Q回-5)>0)
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",Q回-4))
Q回=Q回-1
辅助.等待(100)
循环结束
循环结束
返回 0
功能结束
//.......................................回本帮的任意场景................................................//
功能 整型 交还银票继续()
整型 B去
整型 B回
循环(真)
B去=3
B回=实际场景总数
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.移动商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.交还银票()
TL蜗牛多开跑商.领取银票()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("本帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",2))
循环( B去<(实际场景总数-2))//...............................
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框", B去))
B去= B去+1
循环结束 //假如是洱海到雁南。。。一共有6个城市
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",实际场景总数-2))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",实际场景总数-1)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
TL蜗牛多开跑商.寻找钱唯一()
TL蜗牛多开跑商.点击钱唯一()
TL蜗牛多开跑商.打开商铺()
TL蜗牛多开跑商.粮食卖出()
TL蜗牛多开跑商.购买商品(编辑框.获得文本("对帮价格编辑框"))
TL蜗牛多开跑商.买完离开帮会(列表框.获得文本("跑商路线列表框",实际场景总数-3))
循环((B回-5)>0)
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",B回-4))
B回=B回-1
辅助.等待(100)
循环结束
TL蜗牛多开跑商.寻找校尉(列表框.获得文本("跑商路线列表框",1))
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0))
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环(过场景X>0&&过场景Y>0)
TL蜗牛多开跑商.进入帮会(列表框.获得文本("跑商路线列表框",0)) //防止点击的时候卡
DM.FindPic(0,0, 295, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
循环结束
返回 0
功能结束
//....................................交还银票继续........................................................//
功能 整型 保存跑商路线(字符型 跑商路线)
整型 横线位置
整型 最多城市个数
字符型 城市
最多城市个数=12
列表框.清空("跑商路线列表框")
循环(最多城市个数>0)
横线位置=字符串.查找字符串(跑商路线,"-")
如果(横线位置>0)
城市=字符串.截取(跑商路线,0,横线位置)
列表框.增加文本("跑商路线列表框",城市)
跑商路线=字符串.移除(跑商路线,横线位置+1,真)
如果结束
最多城市个数=最多城市个数-1
循环结束
列表框.增加文本("跑商路线列表框",跑商路线)
实际场景总数=列表框.得到个数("跑商路线列表框")
返回 0
返回 0
功能结束
//.........................用列表框来保存跑商路线.................................................//
功能 整型 枚举句柄()
字符型 窗口句柄集
字符型 截取的句柄
整型 分隔符位置
整型 循环枚举次数
循环枚举次数=30
窗口句柄集=系统.枚举("TianLongBaBu WndClass",1)
列表框.清空("句柄列表框")
循环(循环枚举次数>0)
分隔符位置=字符串.查找字符串(窗口句柄集,"|")
如果(分隔符位置>0)
截取的句柄=字符串.截取(窗口句柄集,0,分隔符位置)
列表框.增加文本("句柄列表框",截取的句柄)
窗口句柄集=字符串.移除(窗口句柄集,分隔符位置+1,真)
如果结束
循环枚举次数=循环枚举次数-1
循环结束
列表框.增加文本("句柄列表框",窗口句柄集)
找到窗口个数=列表框.得到个数("句柄列表框")
返回 0
功能结束
//.....................................枚举窗口句柄以获取所需的句柄..............................//
功能 整型 跑商完成()
//................................................................................................................//
整型 跑满X
整型 跑满Y
整型 退出确定X
整型 退出确定Y
DM.FindStrFast(0,0,800,300,"没有银票","00ffff-000000",1.0,跑满X,跑满Y)
如果(跑满X>0&&跑满Y>0)
如果(下拉框.得到选项("跑满8次")==0)
窗口.关闭(窗口句柄)
辅助.等待(2000)
DM.FindStr(0,349,295,600,"查看活动日程","fdeb78-000000",1.0,退出确定X,退出确定Y)
辅助.等待(200)
循环(退出确定X<=0&&退出确定Y<=0)
辅助.等待(200)
DM.FindStr(0,349,295,600,"查看活动日程","fdeb78-000000",1.0,退出确定X,退出确定Y)
循环结束
辅助.等待(200)
DM.MoveTo(退出确定X+450,退出确定Y+6)
辅助.等待(200)
重复(3)
DM.LeftClick()
辅助.等待(200)
重复结束
辅助.等待(100)
DM.UnBindWindow()
辅助.等待(50)
线程.关闭(线程句柄)
如果结束
//.............................上面是跑完8次关游戏........................................//
如果(下拉框.得到选项("跑满8次")==1)
如果(复选框.获得状态("锁定鼠标")==真)
DM.LockInput(0)
如果结束
DM.UnBindWindow()
辅助.等待(50)
线程.关闭(线程句柄)
如果结束
//....................................跑满8次关闭脚本..........................................//
如果(下拉框.得到选项("跑满8次")==2)
辅助.关机(3)
如果结束
//......................................跑满8次关机..............................................//
如果结束
返回 0
功能结束
//................跑商8次完成函数................................//
功能 整型 答题()
如果(下拉框.得到选项("答题选择")==0)
TL蜗牛多开跑商.手动答题()
否则
如果(复选框.获得状态("答题2")==真)
TL蜗牛多开跑商.微锐答题()
否则
TL蜗牛多开跑商.远程答题()
如果结束
如果结束
返回 0
功能结束
//......................验证码答题总函数........................//
功能 整型 手动答题()
string 手动答题字符串
整型 答题编号
是否出验证=DM.ReadInt(窗口句柄,"[[[0088AE18]+0]+c]+64",0) //@@@@验证码地址。。。。。@@@@验证码地址
如果(是否出验证==1)
DM.FindStr(0,0,800,600,"果回答","fff263-180f08",0.9,验证码X,验证码Y)
辅助.等待(50)
循环(验证码X<=0&&验证码Y<=0)
DM.FindStr(0,0,800,600,"果回答","fff263-180f08",0.9,验证码X,验证码Y)
辅助.等待(200)
循环结束
辅助.播放("rc:报警.mp3")
辅助.等待(50)
help.inputbox(DM.ReadString(窗口句柄,"[[[[008AA530]+70]+1BC]+4]+30",0,20)+"窗口的答案为:","请输入",手动答题字符串)//@@@@人物名字地址@@@@人物名字地址
辅助.等待(200)
循环(手动答题字符串=="")
help.inputbox(DM.ReadString(窗口句柄,"[[[[008AA530]+70]+1BC]+4]+30",0,20)+"窗口的答案为:","请输入",手动答题字符串)//@@@@人物名字地址@@@@人物名字地址
辅助.等待(200)
循环结束
答题编号=转换.字符型转整型(手动答题字符串,0)
辅助.等待(100)
循环(是否出验证==1)
如果(答题编号==1)
DM.MoveTo(验证码X+61,验证码Y+110)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
否则
如果(答题编号==2)
DM.MoveTo(验证码X+61,验证码Y+135)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
否则
如果(答题编号==3)
DM.MoveTo(验证码X+61,验证码Y+160)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
否则
如果(答题编号==4)
DM.MoveTo(验证码X+61,验证码Y+185)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
如果结束
如果结束
如果结束
如果结束
是否出验证=DM.ReadInt(窗口句柄,"[[[0088AE18]+0]+c]+64",0)//@@@@@@验证码地址@@@@@@验证码地址@@@@@@验证码地址
循环结束
如果结束
辅助.等待(100)
返回 0
功能结束
//........................以上为手动答题函数..........................//
////........................微锐答题...........................................//
功能 整型 微锐答题() // .......................微锐答题
字符型 WR题目ID
字符型 WR远程答案
是否出验证=DM.ReadInt(窗口句柄,"[[[0088AE18]+0]+c]+64",0) // @@@@@@验证码地址 // @@@@@@验证码地址
如果(是否出验证==1)
辅助.等待(1000)
DM.FindStr(0,0,800,600,"果回答","fff263-180f08",0.9,验证码X,验证码Y)
循环(验证码X<=0&&验证码Y<=0)
辅助.等待(100)
DM.FindStr(0,0,800,600,"果回答","fff263-180f08",0.9,验证码X,验证码Y)
辅助.等待(200)
循环结束
DM.Capture(验证码X+20,验证码Y+20,验证码X+200,验证码Y+195,"screenP.bmp")
辅助.等待(50)
WR题目ID="-1"
循环(字符串.长度(WR题目ID)==2)
WR题目ID=WR.SendFile(编辑框.获得文本("密码串"), 1005,路径+"//screenP.bmp",45)
循环结束
辅助.等待(100)
WR远程答案="-1"
循环(WR远程答案=="-1")
辅助.等待(500)
WR远程答案=WR.GetAnswer(WR题目ID)
循环结束
//.........................................下面是以防答题返回无法确认.................................................//
循环(WR远程答案=="-9")
DM.FindStr(0,0,800,600,"果回答","fff263-180f08",0.9,验证码X,验证码Y)
辅助.等待(50)
循环(验证码X<=0&&验证码Y<=0)
辅助.等待(100)
DM.FindStr(0,0,800,600,"果回答","fff263-180f08",0.9,验证码X,验证码Y)
循环结束
辅助.等待(100)
DM.Capture(验证码X+20,验证码Y+20,验证码X+200,验证码Y+195,"screenP.bmp")
辅助.等待(100)
WR题目ID="-1"
循环(字符串.长度(WR题目ID)==2)
WR题目ID=WR.SendFile(编辑框.获得文本("密码串"), 1005,路径+"//screenP.bmp",45)
循环结束
辅助.等待(100)
WR远程答案="-1"
循环(WR远程答案=="-1")
辅助.等待(500)
WR远程答案=WR.GetAnswer(WR题目ID)
循环结束
循环结束
循环(是否出验证==1)
如果(WR远程答案=="1")
DM.MoveTo(验证码X+61,验证码Y+110)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
否则
如果(WR远程答案=="2")
DM.MoveTo(验证码X+61,验证码Y+135)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
否则
如果(WR远程答案=="3")
DM.MoveTo(验证码X+61,验证码Y+160)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
否则
如果(WR远程答案=="4")
DM.MoveTo(验证码X+61,验证码Y+185)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
如果结束
如果结束
如果结束
如果结束
是否出验证=DM.ReadInt(窗口句柄,"[[[0088AE18]+0]+c]+64",0) // @@@@@@验证码地址 // @@@@@@验证码地址 // @@@@@@验证码地址
循环结束
如果结束
辅助.等待(100)
返回 0
功能结束
//........................以上为微锐答题..................................//
//........................这一段是冷夜雨答题.........................//
功能 整型 远程答题()
整型 题目ID
字符型 远程答案
是否出验证=DM.ReadInt(窗口句柄,"[[[0088AE18]+0]+c]+64",0) // @@@@@@验证码地址 // @@@@@@验证码地址
如果(是否出验证==1)
辅助.等待(1000)
DM.FindStr(0,0,800,600,"果回答","fff263-180f08",0.9,验证码X,验证码Y)
循环(验证码X<=0&&验证码Y<=0)
辅助.等待(100)
DM.FindStr(0,0,800,600,"果回答","fff263-180f08",0.9,验证码X,验证码Y)
辅助.等待(200)
循环结束
DM.Capture(验证码X+20,验证码Y+20,验证码X+200,验证码Y+195,"screenP.bmp")
辅助.等待(50)
题目ID=-1
循环(题目ID<0)
题目ID = lyydt.SendImages(编辑框.获得文本("ZH"),编辑框.获得文本("MM"),"11100","1","45",路径+"//screenP.bmp","答案：1,2,3,4")
循环结束
辅助.等待(2000)
远程答案=""
循环(远程答案=="")
远程答案 = lyydt.GetAnswer(编辑框.获得文本("ZH"),编辑框.获得文本("MM"),题目ID)
辅助.等待(1000)
循环结束
//.........................................下面是以防答题返回无法确认.................................................//
循环(远程答案=="无法确认")
DM.FindStr(0,0,800,600,"果回答","fff263-180f08",0.9,验证码X,验证码Y)
辅助.等待(50)
循环(验证码X<=0&&验证码Y<=0)
辅助.等待(100)
DM.FindStr(0,0,800,600,"果回答","fff263-180f08",0.9,验证码X,验证码Y)
循环结束
辅助.等待(100)
DM.Capture(验证码X+20,验证码Y+20,验证码X+200,验证码Y+195,"screenP.bmp")
辅助.等待(100)
题目ID=-1
循环(题目ID<0)
题目ID = lyydt.SendImages(编辑框.获得文本("ZH"),编辑框.获得文本("MM"),"11100","1","45",路径+"//screenP.bmp","答案：1,2,3,4")
循环结束
辅助.等待(2000)
远程答案=""
循环(远程答案=="")
远程答案 = lyydt.GetAnswer(编辑框.获得文本("ZH"),编辑框.获得文本("MM"),题目ID)
辅助.等待(1000)
循环结束
循环结束
循环(是否出验证==1)
如果(远程答案=="1")
DM.MoveTo(验证码X+61,验证码Y+110)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
否则
如果(远程答案=="2")
DM.MoveTo(验证码X+61,验证码Y+135)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
否则
如果(远程答案=="3")
DM.MoveTo(验证码X+61,验证码Y+160)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
否则
如果(远程答案=="4")
DM.MoveTo(验证码X+61,验证码Y+185)
辅助.等待(100)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.LeftClick()
辅助.等待(50)
DM.MoveTo(验证码X+200,验证码Y+210)
辅助.等待(200)
DM.LeftClick()
辅助.等待(800)
如果结束
如果结束
如果结束
如果结束
是否出验证=DM.ReadInt(窗口句柄,"[[[0088AE18]+0]+c]+64",0) // @@@@@@验证码地址 // @@@@@@验证码地址 // @@@@@@验证码地址
循环结束
如果结束
辅助.等待(100)
返回 0
功能结束
//.......................冷夜雨远程答题函数.........................//
功能 整型 确认进入场景()
int 确定X
int 确定Y
DM.FindPic(200,200,800,600,"确定.bmp","000000",0.9,0,确定X,确定Y)
如果(确定X>0&&确定Y>0)
DM.MoveTo(确定X+14,确定Y+6)
辅助.等待(100)
DM.LeftClick()
辅助.等待(100)
如果结束
辅助.等待(200)
DM.FindPic(200,200,800,600,"确定.bmp","000000",0.9,0,确定X,确定Y)
如果(确定X>0&&确定Y>0)
DM.MoveTo(确定X+14,确定Y+6)
辅助.等待(100)
DM.LeftClick()
辅助.等待(100)
如果结束
返回 0
功能结束
//................................确认进入场景..........................//
功能 整型 游戏托盘()
字符型 我的托盘
我的托盘=DM.ReadString(窗口句柄,"[[[[008AA530]+70]+1BC]+4]+30",0,20) //@@@@@@@@@@@@@@@@@@@@.人物名字地址...
辅助.设置托盘(我的托盘,假)
返回 0
功能结束
//.........................游戏托盘................................//
功能 整型 找字坐标函数()
DM.KeyDown(165)
辅助.等待(50)
DM.KeyPress(192)
辅助.等待(50)
DM.KeyUp(165)
辅助.等待(1500)
DM.FindStr(400, 100, 800, 600,"坐标","fff263-64523e",1.0,坐标X,坐标Y)
循环(坐标X<=0||坐标Y<=0)
DM.KeyDown(165)
辅助.等待(50)
DM.KeyPress(192)
辅助.等待(50)
DM.KeyUp(165)
辅助.等待(1500)
DM.FindStr(400, 100, 800, 600,"坐标","fff263-64523e",1.0,坐标X,坐标Y)
循环结束
返回 0
功能结束
//....................................以上为打开寻路找坐标的函数....................................//
功能 整型 帮会防止卡路(字符型 终点X,字符型 终点Y,字符型 终点坐标串)
DM.FindStrFast(717, 0, 786, 20, 终点坐标串,"fdff73-000000",1.0,卡路X,卡路Y)
循环(卡路X<=0&&卡路Y<=0)
如果(DM.ReadInt(窗口句柄,"[[[[008AA530]+70]+1BC]+8]+1C0",0)==0) //@@@@@@@@@@@@@@@@@@@@.人物状态地址...
辅助.等待(200)
DM.FindStrFast(717, 0, 786, 20, 终点坐标串,"fdff73-000000",1.0,卡路X,卡路Y)
如果(卡路X>0&&卡路Y>0)
跳出
如果结束
辅助.等待(200)
TL蜗牛多开跑商.找字坐标函数()
如果(复选框.获得状态("F7加速")==真)
DM.KeyPress(118)
如果结束
辅助.等待(200)
DM.MoveTo(坐标X+41,坐标Y+6)
辅助.等待(200)
DM.LeftClick()
辅助.等待(200)
窗口.提交字符串(窗口句柄,终点X)
辅助.等待(250)
DM.KeyPress(13)
辅助.等待(250)
窗口.提交字符串(窗口句柄,终点Y)
辅助.等待(200)
DM.KeyPress(13)
辅助.等待(100)
如果结束
辅助.等待(200)
DM.FindStrFast(717, 0, 786, 20, 终点坐标串,"fdff73-000000",1.0,卡路X,卡路Y)
循环结束
返回 0
功能结束
//..............................以上为帮会以防卡路函数..............................................//
功能 整型 寻找钱唯一()
TL蜗牛多开跑商.找字坐标函数()
TL蜗牛多开跑商.角色加血蓝宠物()
如果(复选框.获得状态("F7加速")==真)
DM.KeyPress(118)
辅助.等待(200)
如果结束
重复(2)
DM.MoveTo(坐标X+41,坐标Y+6)
辅助.等待(200)
DM.LeftClick()
辅助.等待(200)
重复结束
窗口.提交字符串(窗口句柄,"148")
辅助.等待(250)
DM.KeyPress(13)
辅助.等待(250)
窗口.提交字符串(窗口句柄,"56")
辅助.等待(200)
DM.KeyPress(13)
辅助.等待(200)
TL蜗牛多开跑商.帮会防止卡路("148","56","14856")
辅助.等待(200)
返回 0
功能结束
//....................寻找财政官员钱唯一,坐标是(148,56)..............................................//
功能 整型 点击钱唯一()
整型 官员X
整型 官员Y
DM.FindPic(200, 100, 650, 500, "财政官员.bmp","000000",0.9,0,官员X,官员Y)
循环(官员X<=0||官员Y<=0)
DM.FindPic(200, 100, 650, 500, "财政官员.bmp","000000",0.9,0,官员X,官员Y)
辅助.等待(100)
循环结束
重复(2)
DM.MoveTo(官员X+11,官员Y+96)
辅助.等待(100)
DM.LeftClick()
辅助.等待(100)
重复结束
返回 0
功能结束
//.......................点击钱唯一...................................................//
功能 整型 打开商铺()
整型 DKX
整型 DKY
DM.FindStr(10, 100, 400, 600,"商人店铺","ffd555-180d08",1.0,DKX,DKY)
循环(DKX<=0||DKY<=0)
TL蜗牛多开跑商.点击钱唯一()
DM.FindStr(10, 100, 400, 600,"商人店铺","ffd555-180d08",1.0,DKX,DKY)
辅助.等待(100)
循环结束
重复(2)
DM.MoveTo(DKX+5,DKY+8)
辅助.等待(100)
DM.LeftClick()
辅助.等待(200)
重复结束
辅助.等待(800)
返回 0
功能结束
//.....................................打开商铺................................................//
功能 整型 领取银票()
整型 领取银票X
整型 领取银票Y
DM.FindStr(10,100,400,600,"领取银票","ffd555-180d08",1.0,领取银票X,领取银票Y)
循环(领取银票X<=0||领取银票Y<=0)
TL蜗牛多开跑商.点击钱唯一()
DM.FindStr(10,100,400,600,"领取银票","ffd555-180d08",1.0,领取银票X,领取银票Y)
辅助.等待(100)
循环结束
重复(3)
DM.MoveTo(领取银票X+15,领取银票Y+8)
辅助.等待(100)
DM.LeftClick()
辅助.等待(100)
重复结束
辅助.等待(2000) //..........等待2秒以防出现关闭游戏读取错误....................//
返回 0
功能结束
//..................................领取银票函数........................................//
功能 整型 交还银票()
整型 交还银票X
整型 交还银票Y
DM.FindStr(10,100,400,600,"交还银票","ffd555-000000",1.0,交还银票X,交还银票Y)
循环(交还银票X<=0||交还银票Y<=0)
DM.FindStr(10,100,400,600,"交还银票","ffd555-000000",1.0,交还银票X,交还银票Y)
辅助.等待(100)
循环结束
辅助.等待(100)
DM.MoveTo(交还银票X+15,交还银票Y+8)
辅助.等待(100)
重复(2)
DM.LeftClick()
辅助.等待(100)
重复结束
辅助.等待(1000)
返回 0
功能结束
//...................................以上为交还银票.........................//
功能 整型 移动商铺()
整型 商会金钱X
整型 商会金钱Y
DM.FindStrFast(0,0,800,400,"商票金钱","fff263-181008",0.9,商会金钱X,商会金钱Y)
循环(商会金钱X<=0||商会金钱Y<=0)
TL蜗牛多开跑商.打开商铺()
DM.FindStrFast(0,0,800,400,"商票金钱","fff263-181008",0.9,商会金钱X,商会金钱Y)
辅助.等待(100)
循环结束
辅助.等待(100)
DM.MoveTo(商会金钱X+118,商会金钱Y-25)
辅助.等待(200)
DM.LeftDown()
辅助.等待(100)
DM.MoveTo(435,150)
辅助.等待(200)
DM.LeftUp ()
辅助.等待(1000)
返回 0
功能结束
//.......................移动商铺函数.............................................//
功能 逻辑型 找粮食最高价()
int x
int y
DM.FindPic(190,60, 670, 480, "粮食最高价.bmp","000000",0.9,0,x,y)
循环(x<=0||y<=0)
TL蜗牛多开跑商.打开商铺() //这个便是刷新,而且刷新时间为4秒
DM.FindPic(190,60, 670, 480, "粮食最高价.bmp","000000",0.9,0,x,y)
辅助.等待(4000)
循环结束
辅助.等待(100)
返回 真
功能结束
//........................判断是否已经找到了最高价,同时起到刷新的效果........................//
功能 字符型 判断商品图片(字符型 商品)
字符型 图片
如果(商品=="粮食")
图片="粮食.bmp"
如果结束
//.....................买的是粮食
如果(商品=="面粉")
图片="面粉.bmp"
如果结束
//...........购买的是面粉
如果(商品=="大米")
图片="大米.bmp"
如果结束
//.........购买的是大米
如果(商品=="羊肉")
图片="羊肉.bmp"
如果结束
//...........购买的是羊肉
如果(商品=="大豆")
图片="大豆.bmp"
如果结束
//.............购买的是大豆
如果(商品=="红枣")
图片="红枣.bmp"
如果结束
//........购买的是红枣
如果(商品=="荔枝")
图片="荔枝.bmp"
如果结束
//............购买的是荔枝
如果(商品=="干花")
图片="干花.bmp"
如果结束
//.........购买的是干花
如果(商品=="蜂蜜")
图片="蜜蜂.bmp"
如果结束
//.........购买的是蜂蜜
如果(商品=="野马")
图片="野马.bmp"
如果结束
//.........购买的是野马
如果(商品=="漆器")
图片="漆器.bmp"
如果结束
//.........购买的是漆器
如果(商品=="扎染")
图片="扎染.bmp"
如果结束
//.........购买的是扎染
如果(商品=="豆鼓")
图片="豆鼓.bmp"
如果结束
//.........购买的是豆鼓
如果(商品=="洱丝")
图片="洱丝.bmp"
如果结束
//.........购买的是洱丝
如果(商品=="笋干")
图片="笋干.bmp"
如果结束
//.........购买的是笋干
如果(商品=="菠萝")
图片="菠萝.bmp"
如果结束
//.........购买的是菠萝
如果(商品=="琉璃")
图片="琉璃.bmp"
如果结束
//.........购买的是琉璃
如果(商品=="白药")
图片="白药.bmp"
如果结束
//.........购买的是白药
如果(商品=="玛瑙")
图片="玛瑙.bmp"
如果结束
//.........购买的是玛瑙
如果(商品=="发菜")
图片="发菜.bmp"
如果结束
//.........购买的是发菜
如果(商品=="虎骨")
图片="虎骨.bmp"
如果结束
//.........购买的是虎骨
如果(商品=="汾酒")
图片="汾酒.bmp"
如果结束
//.........购买的是汾酒
如果(商品=="罗汉果")
图片="罗汉果.bmp"
如果结束
//.........购买的是罗汉果
如果(商品=="苦丁茶")
图片="苦丁茶.bmp"
如果结束
//.........购买的是苦丁茶
如果(商品=="不老草")
图片="不老草.bmp"
如果结束
//.........购买的是不老草
如果(商品=="太湖珍珠")
图片="太湖珍珠.bmp"
如果结束
//.........购买的是太湖珍珠
如果(商品=="优质龙井")
图片="优质龙井.bmp"
如果结束
//.........购买的是优质龙井
返回 图片
功能结束
//...................................................以上为判断是购买什么函数.............................................//
功能 字符型 人物所在地图() //......................速度有些慢,看有什么良招................................//
整型 所在地图X
整型 所在地图Y
字符型 人物所在地图
DM.FindPic(635,0,725,21,"雁南.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="雁南"
如果结束
//...................................雁南
DM.FindPic(635,0,725,21,"敦煌.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="敦煌"
如果结束
//.......................敦煌
DM.FindPic(635,0,725,21,"大理.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="大理"
如果结束
//.........................大理
DM.FindPic(635,0,725,21,"洱海.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="洱海"
如果结束
//.......................洱海
DM.FindPic(635,0,725,21,"剑阁.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="剑阁"
如果结束
//.......................剑阁
DM.FindPic(635,0,725,21,"洛阳.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="洛阳"
如果结束
//........................洛阳
DM.FindPic(635,0,725,21,"嵩山.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="嵩山"
如果结束
//.................................嵩山
DM.FindPic(635,0,725,21,"苏州.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="苏州"
如果结束
//.................................苏州
DM.FindPic(635,0,725,21,"太湖.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="太湖"
如果结束
//................................太湖
DM.FindPic(635,0,725,21,"西湖.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="西湖"
如果结束
//.................................西湖
DM.FindPic(635,0,725,21,"雁北.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="雁北"
如果结束
//..................................雁北
DM.FindPic(635,0,725,21,"草原.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="草原"
如果结束
//..............草原
DM.FindPic(635,0,725,21,"苍山.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="苍山"
如果结束
//.............苍山
DM.FindPic(635,0,725,21,"黄龙府.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="黄龙府"
如果结束
//.......................黄龙府
DM.FindPic(635,0,725,21,"辽西.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="辽西"
如果结束
//........................辽西
DM.FindPic(635,0,725,21,"龙泉.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="龙泉"
如果结束
//........................龙泉
DM.FindPic(635,0,725,21,"梅岭.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="梅岭"
如果结束
//..............................梅岭
DM.FindPic(635,0,725,21,"苗疆.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="苗疆"
如果结束
//...............................苗疆
DM.FindPic(635,0,725,21,"南海.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="南海"
如果结束
//..............................南海
DM.FindPic(635,0,725,21,"南诏.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="南诏"
如果结束
//.................................南诏
DM.FindPic(635,0,725,21,"琼州.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="琼州"
如果结束
//.................................琼州
DM.FindPic(635,0,725,21,"石林.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="石林"
如果结束
//................................石林
DM.FindPic(635,0,725,21,"武夷.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="武夷"
如果结束
//................................武夷
DM.FindPic(635,0,725,21,"玉溪.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="玉溪"
如果结束
//.................................玉溪
DM.FindPic(635,0,725,21,"长白山.bmp","000000",0.9,0,所在地图X,所在地图Y)
如果(所在地图X>0&&所在地图Y>0)
人物所在地图="长白山"
如果结束
//...................................长白山
返回 人物所在地图
功能结束
//.................................................以上是判断是在哪个地图的函数.........................................//
功能 整型 所在城市序号()
整型 序号
序号=-1
循环(序号<实际场景总数-1)
序号=序号+1
如果(列表框.获得文本("跑商路线列表框",序号)==TL蜗牛多开跑商.人物所在地图())
break
如果结束
循环结束
返回 序号
功能结束
//.................................................判断该地图处于城市列表框中的第几个城市并返回城市序号.............//
功能 整型 半路去对帮()
整型 去对帮时城市序号
去对帮时城市序号=TL蜗牛多开跑商.所在城市序号()
循环(去对帮时城市序号<实际场景总数-3)
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",去对帮时城市序号+1))
去对帮时城市序号=去对帮时城市序号+1
循环结束
返回 0
功能结束
//................................................半路去对帮的寻路.......................................................................//
功能 整型 半路回本帮()
整型 回本帮序号
回本帮序号=TL蜗牛多开跑商.所在城市序号()
循环(回本帮序号>2)
TL蜗牛多开跑商.自动寻路(列表框.获得文本("跑商路线列表框",回本帮序号-1))
回本帮序号=回本帮序号-1
循环结束
返回 0
功能结束
//................................................半路回本帮的寻路.......................................................................//
功能 整型 购买商品(字符型 实际商品) //..........................不需要判断9450....//
字符型 实际图片
整型 无法再购买X
整型 无法再购买Y
整型 实际图片X
整型 实际图片Y
实际图片=TL蜗牛多开跑商.判断商品图片(实际商品)
DM.FindStr(0, 0, 800, 600,"无法再购买","00ffff-010101",1.0,无法再购买X,无法再购买Y)
循环(无法再购买X<=0||无法再购买Y<=0)
DM.FindPic(190,60, 670, 480,实际图片,"000000",0.9,0,实际图片X,实际图片Y)
循环(实际图片X<=0||实际图片Y<=0)
DM.FindPic(190,60, 670, 480,实际图片,"000000",0.9,0,实际图片X,实际图片Y)
辅助.等待(100)
循环结束
辅助.等待(100)
DM.MoveTo(实际图片X+3,实际图片Y+16)
辅助.等待(100)
DM.LeftClick()
辅助.等待(1300)
TL蜗牛多开跑商.跑商完成()
TL蜗牛多开跑商.答题()
DM.FindStr(0, 0, 800, 600,"无法再购买","00ffff-010101",1.0,无法再购买X,无法再购买Y)
辅助.等待(50)
TL蜗牛多开跑商.打开商铺()
辅助.等待(1300)
循环结束
辅助.等待(200)
返回 0
功能结束
//........................购买商品..........................................//
功能 整型 粮食卖出() //本帮和对帮通用,都需要判断粮食的9450
整型 第一个格子X
整型 第一个格子Y
整型 Temp
整型 材料X
整型 材料Y
DM.FindStr(400,100,800,600,"材料","fdeb78-000000",1.0,材料X,材料Y)
循环(材料X<=0||材料Y<=0)
DM.KeyDown(165)
辅助.等待(50)
DM.KeyPress(65)
辅助.等待(50)
DM.KeyUp(165)
辅助.等待(1000)
DM.FindStr(400,100,800,600,"材料","fdeb78-000000",1.0,材料X,材料Y)
循环结束
重复(3)
DM.MoveTo(材料X+15,材料Y+6)
辅助.等待(200)
DM.LeftClick()
辅助.等待(200)
重复结束
TL蜗牛多开跑商.找粮食最高价()
第一个格子X=材料X-36
Temp=材料X-36
第一个格子Y=材料Y+36
重复(3)
重复(5)
DM.MoveTo(第一个格子X,第一个格子Y)
辅助.等待(100)
重复(3)
DM.RightClick()
辅助.等待(300)
重复结束
第一个格子X=第一个格子X+36
重复结束
第一个格子X=Temp
第一个格子Y=第一个格子Y+36
重复结束
辅助.等待(200)
返回 0
功能结束
//...............................粮食卖出................................................//
功能 整型 买完离开帮会(字符型 离开帮后的城市) //...............自己帮和对帮通用.....................//
//.........................买完后离开帮会,坐标是(100,156).........................//
辅助.等待(1000) //这里原本是要先关闭包裹的.................!!!!!!!!
TL蜗牛多开跑商.找字坐标函数() //alt+~
TL蜗牛多开跑商.角色加血蓝宠物()
如果(复选框.获得状态("F7加速")==真)
DM.KeyPress(118)
辅助.等待(100)
如果结束
辅助.等待(800)
重复(3)
DM.MoveTo(坐标X+42,坐标Y+6)
辅助.等待(200)
DM.LeftClick()
辅助.等待(250)
重复结束
窗口.提交字符串(窗口句柄,"100")
辅助.等待(200)
DM.KeyPress(13)
辅助.等待(250)
窗口.提交字符串(窗口句柄,"156")
辅助.等待(200)
DM.KeyPress(13)
辅助.等待(200)
//TL蜗牛多开跑商.帮会防止卡路("100","156","156")
DM.FindPic(635,0,725,21,离开帮后的城市+".bmp","000000",0.9,0,过场景X,过场景Y) //打算通过找下一城市图片的坐标
循环(过场景X<=0&&过场景Y<=0)
DM.FindStr(717, 0, 786, 20,"156","fdff73-000000",1.0,卡路X,卡路Y)
如果((卡路X<=0||卡路Y<=0)&&DM.ReadInt(窗口句柄,"[[[[008AA530]+70]+1BC]+8]+1C0",0)==0) //@@@@@@@@@@@@@@@@@@@@.人物状态地址...
TL蜗牛多开跑商.找字坐标函数()
如果(复选框.获得状态("F7加速")==真)
DM.KeyPress(118)
如果结束
辅助.等待(600)
重复(3)
DM.MoveTo(坐标X+42,坐标Y+6)
辅助.等待(200)
DM.LeftClick()
辅助.等待(200)
重复结束
窗口.提交字符串(窗口句柄,"100")
辅助.等待(250)
DM.KeyPress(13)
辅助.等待(250)
窗口.提交字符串(窗口句柄,"156")
辅助.等待(200)
DM.KeyPress(13)
辅助.等待(100)
如果结束
辅助.等待(500)
TL蜗牛多开跑商.确认进入场景()
辅助.等待(200)
DM.FindPic(635,0,725,21,离开帮后的城市+".bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
辅助.等待(200)
返回 0
功能结束
//.....................................以下是地图跑路....................................................//
功能 整型 自动寻路(字符型 要到的地图)
TL蜗牛多开跑商.找字坐标函数()
TL蜗牛多开跑商.角色加血蓝宠物()
如果(复选框.获得状态("F7加速")==真)
DM.KeyPress(118)
辅助.等待(100)
如果结束
辅助.等待(300)
DM.FindStr(400,100,800,600,要到的地图,"ffffff-000000",1.0,目的地X,目的地Y)
循环(目的地X<=0||目的地Y<=0)
DM.FindStr(400,100,800,600,要到的地图,"ffffff-000000",1.0,目的地X,目的地Y)
辅助.等待(200)
循环结束
辅助.等待(200)
DM.MoveTo(目的地X+22,目的地Y+6)
辅助.等待(200)
重复(2)
DM.LeftClick()
辅助.等待(200)
重复结束
辅助.等待(200)
DM.FindPic(635,0,725,21,要到的地图+".bmp","000000",0.9,0,要到的地图X,要到的地图Y) //打算通过找下一城市图片的坐标
循环(要到的地图X<=0&&要到的地图Y<=0)
DM.FindPic(220,200, 600, 400,"场景切换中.bmp","000000",0.9,0,过场景X,过场景Y)
如果(过场景X<=0&&过场景Y<=0&&DM.ReadInt(窗口句柄,"[[[[008AA530]+70]+1BC]+8]+1C0",0)==0) //@@@@@@@@@@@@@@@@@@@@.人物状态地址...
DM.FindStr(400,100,800,600,要到的地图,"ffffff-000000",1.0,目的地X,目的地Y)
辅助.等待(100)
如果(目的地X<=0||目的地Y<=0)
TL蜗牛多开跑商.找字坐标函数()
如果结束
辅助.等待(200)
DM.FindStr(400,100,800,600,要到的地图,"ffffff-000000",1.0,目的地X,目的地Y)
辅助.等待(50)
如果(目的地X>0&&目的地Y>0)
如果(复选框.获得状态("F7加速")==真)
DM.KeyPress(118)
如果结束
辅助.等待(200)
DM.MoveTo(目的地X+22,目的地Y+6)
辅助.等待(200)
重复(2)
DM.LeftClick()
辅助.等待(200)
重复结束
如果结束
如果结束
TL蜗牛多开跑商.确认进入场景()
辅助.等待(200)
DM.FindPic(635,0,725,21,要到的地图+".bmp","000000",0.9,0,要到的地图X,要到的地图Y)
循环结束
辅助.等待(200)
返回 0
功能结束
//.......................................以上为寻路的函数..................................//
功能 整型 寻找校尉(字符型 城市的校尉)
TL蜗牛多开跑商.找字坐标函数()
TL蜗牛多开跑商.角色加血蓝宠物()
如果(复选框.获得状态("F7加速")==真)
DM.KeyPress(118)
辅助.等待(100)
如果结束
DM.FindStr(400,100,800,600,城市的校尉,"ffffff-000000",1.0,目的地X,目的地Y)
循环(目的地X<0||目的地Y<0)
DM.FindStr(400,100,800,600,城市的校尉,"ffffff-000000",1.0,目的地X,目的地Y)
辅助.等待(200)
循环结束
辅助.等待(100)
DM.MoveTo(目的地X+22,目的地Y+6)
辅助.等待(200)
重复(2)
DM.LeftClick()
辅助.等待(100)
重复结束
DM.FindPic(0,0, 400, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
辅助.等待(100)
循环(过场景X<=0&&过场景Y<=0)
如果(过场景X<=0&&过场景Y<=0&&DM.ReadInt(窗口句柄,"[[[[008AA530]+70]+1BC]+8]+1C0",0)==0) //@@@@@@@@@@@@@@@@@@@@.人物状态地址...
TL蜗牛多开跑商.找字坐标函数()
如果(复选框.获得状态("F7加速")==真)
DM.KeyPress(118)
如果结束
辅助.等待(50)
DM.FindStr(400,100,800,600,城市的校尉,"ffffff-000000",1.0,目的地X,目的地Y)
辅助.等待(100)
如果(目的地X>0&&目的地Y>0)
DM.MoveTo(目的地X+22,目的地Y+6)
辅助.等待(200)
重复(2)
DM.LeftClick()
辅助.等待(100)
重复结束
如果结束
辅助.等待(2000)
如果结束
DM.FindPic(0,0, 400, 460,"城市.bmp","000000",0.9,0,过场景X,过场景Y)
循环结束
返回 0
功能结束
//...........................以上为寻找校尉函数..............................//
功能 整型 进入帮会(字符型 城市几)
如果(城市几=="城市1")
DM.MoveTo(过场景X+90,过场景Y+10)
辅助.等待(100)
DM.LeftClick()
辅助.等待(100)
否则
如果(城市几=="城市2")
DM.MoveTo(过场景X+90,过场景Y+35)
辅助.等待(100)
DM.LeftClick()
辅助.等待(100)
否则
如果(城市几=="城市3")
DM.MoveTo(过场景X+90,过场景Y+60)
辅助.等待(100)
DM.LeftClick()
辅助.等待(100)
否则
DM.MoveTo(过场景X+90,过场景Y+85)
辅助.等待(100)
DM.LeftClick()
辅助.等待(100)
如果结束
如果结束
如果结束
辅助.等待(600)
返回 0
功能结束
//..............................................判断进入哪个城市...........................................................//
功能 逻辑型 角色加血蓝宠物()
//这里添加你要执行的代码
整型 血
整型 蓝
整型 宠物血
血=DM.ReadInt(窗口句柄,"[[[[008AA530]+70]+1BC]+4]+2414",0)//@@@@@@@@@@@@@@@@@@@@.人物血地址...
辅助.等待(50)
蓝=DM.ReadInt(窗口句柄,"[[[[008AA530]+70]+1BC]+4]+2418",0) //@@@@@@@@@@@@@@@@@@@@.人物蓝地址...
辅助.等待(50)
宠物血=DM.ReadInt(窗口句柄,"[[008AA9FC]+4bdbc]+44",0)//@@@@@@@@@@@@@@@@@@@@.宠物血地址...
辅助.等待(50)
如果(血<转换.字符型转整型(编辑框.获得文本("加血编辑框"),0))
DM.KeyPress(119)
辅助.等待(200)
如果结束 //按下F8加血
如果(蓝<转换.字符型转整型(编辑框.获得文本("加蓝编辑框"),0))
DM.KeyPress(120)
辅助.等待(200)
如果结束 //按下F9加蓝
如果(宠物血<转换.字符型转整型(编辑框.获得文本("加宠物编辑框"),0))
DM.KeyPress(121)
辅助.等待(200)
如果结束 //按下F10加宠物血
返回 真
功能结束
//........................................以上为加血蓝宠物函数...............................................//
功能 逻辑型 保存设置_点击()
//这里添加你要执行的代码
辅助.写配置("配置","配置1",编辑框.获得文本("本帮价格编辑框"),系统.获取程序路径()+"
\\Config.ini
")
辅助.写配置("配置","配置2",编辑框.获得文本("对帮价格编辑框"),系统.获取程序路径()+"
\\Config.ini
")
辅助.写配置("配置","配置3",编辑框.获得文本("ZH"),系统.获取程序路径()+"
\\Config.ini
")
辅助.写配置("配置","配置4",编辑框.获得文本("MM"),系统.获取程序路径()+"
\\Config.ini
")
如果(复选框.获得状态("降CPU")==真)
辅助.写配置("配置","配置5","1",系统.获取程序路径()+"
\\Config.ini
")
否则
辅助.写配置("配置","配置5","0",系统.获取程序路径()+"
\\Config.ini
")
如果结束
辅助.写配置("配置","配置6",编辑框.获得文本("加血编辑框"),系统.获取程序路径()+"
\\Config.ini
")
辅助.写配置("配置","配置7",编辑框.获得文本("加蓝编辑框"),系统.获取程序路径()+"
\\Config.ini
")
辅助.写配置("配置","配置8",编辑框.获得文本("加宠物编辑框"),系统.获取程序路径()+"
\\Config.ini
")
如果(单选框.获得状态("全新开始")==真)
辅助.写配置("配置","配置9","1",系统.获取程序路径()+"
\\Config.ini
")
否则
辅助.写配置("配置","配置9","0",系统.获取程序路径()+"
\\Config.ini
")
如果结束
//1
如果(单选框.获得状态("购买完毕离开本帮")==真)
辅助.写配置("配置","配置10","1",系统.获取程序路径()+"
\\Config.ini
")
否则
辅助.写配置("配置","配置10","0",系统.获取程序路径()+"
\\Config.ini
")
如果结束
//2
如果(单选框.获得状态("去对帮任意场景")==真)
辅助.写配置("配置","配置11","1",系统.获取程序路径()+"
\\Config.ini
")
否则
辅助.写配置("配置","配置11","0",系统.获取程序路径()+"
\\Config.ini
")
如果结束
//3
如果(单选框.获得状态("在对方城市未买卖")==真)
辅助.写配置("配置","配置12","1",系统.获取程序路径()+"
\\Config.ini
")
否则
辅助.写配置("配置","配置12","0",系统.获取程序路径()+"
\\Config.ini
")
如果结束
//4
如果(单选框.获得状态("对方购买完毕离开")==真)
辅助.写配置("配置","配置13","1",系统.获取程序路径()+"
\\Config.ini
")
否则
辅助.写配置("配置","配置13","0",系统.获取程序路径()+"
\\Config.ini
")
如果结束
//5
如果(单选框.获得状态("回本帮的任意场景")==真)
辅助.写配置("配置","配置14","1",系统.获取程序路径()+"
\\Config.ini
")
否则
辅助.写配置("配置","配置14","0",系统.获取程序路径()+"
\\Config.ini
")
如果结束
//6
如果(单选框.获得状态("交还银票继续")==真)
辅助.写配置("配置","配置15","1",系统.获取程序路径()+"
\\Config.ini
")
否则
辅助.写配置("配置","配置15","0",系统.获取程序路径()+"
\\Config.ini
")
如果结束
//7
辅助.写配置("配置","配置16",编辑框.获得文本("跑商路线"),系统.获取程序路径()+"
\\Config.ini
")
如果(复选框.获得状态("F7加速")==真)
辅助.写配置("配置","配置17","1",系统.获取程序路径()+"
\\Config.ini
")
否则
辅助.写配置("配置","配置17","0",系统.获取程序路径()+"
\\Config.ini
")
如果结束
辅助.写配置("配置","配置18",转换.整型转字符型(下拉框.得到选项("跑满8次")),系统.获取程序路径()+"
\\Config.ini
")
辅助.写配置("配置","配置19",转换.整型转字符型(下拉框.得到选项("答题选择")),系统.获取程序路径()+"
\\Config.ini
")
辅助.写配置("配置","配置20",编辑框.获得文本("跑商路线二"),系统.获取程序路径()+"
\\Config.ini
")
辅助.写配置("配置","配置21",编辑框.获得文本("密码串"),系统.获取程序路径()+"
\\Config.ini
")
如果(复选框.获得状态("锁定鼠标")==真)
辅助.写配置("配置","配置22","1",系统.获取程序路径()+"
\\Config.ini
")
否则
辅助.写配置("配置","配置22","0",系统.获取程序路径()+"
\\Config.ini
")
如果结束
如果(复选框.获得状态("答题2")==真)
辅助.写配置("配置","配置23","1",系统.获取程序路径()+"
\\Config.ini
")
否则
辅助.写配置("配置","配置23","0",系统.获取程序路径()+"
\\Config.ini
")
如果结束
辅助.消息框("配置保存成功！")
返回 真
功能结束
//............................................以上为保存配置..........................................................//
功能 逻辑型 初始化()
//这里添加你要执行的代码
整型 列表框序号
列表框序号=0
控件.可见("句柄列表框",假)
控件.可见("跑商路线列表框",假)
下拉框.设置选项("路线选择",0)
编辑框.设置文本("本帮价格编辑框",辅助.读配置("配置","配置1",系统.获取程序路径()+"
\\Config.ini
"))
编辑框.设置文本("对帮价格编辑框",辅助.读配置("配置","配置2",系统.获取程序路径()+"
\\Config.ini
"))
编辑框.设置文本("ZH",辅助.读配置("配置","配置3",系统.获取程序路径()+"
\\Config.ini
"))
编辑框.设置文本("MM",辅助.读配置("配置","配置4",系统.获取程序路径()+"
\\Config.ini
"))
如果(辅助.读配置("配置","配置5",系统.获取程序路径()+"
\\Config.ini")=="1
")
复选框.选中("降CPU",真)
否则
复选框.选中("降CPU",假)
如果结束
编辑框.设置文本("加血编辑框",辅助.读配置("配置","配置6",系统.获取程序路径()+"
\\Config.ini
"))
编辑框.设置文本("加蓝编辑框",辅助.读配置("配置","配置7",系统.获取程序路径()+"
\\Config.ini
"))
编辑框.设置文本("加宠物编辑框",辅助.读配置("配置","配置8",系统.获取程序路径()+"
\\Config.ini
"))
如果(辅助.读配置("配置","配置9",系统.获取程序路径()+"
\\Config.ini")=="1
")
单选框.选中("全新开始",真)
否则
单选框.选中("全新开始",假)
如果结束
//1
如果(辅助.读配置("配置","配置10",系统.获取程序路径()+"
\\Config.ini")=="1
")
单选框.选中("购买完毕离开本帮",真)
否则
单选框.选中("购买完毕离开本帮",假)
如果结束
//2
如果(辅助.读配置("配置","配置11",系统.获取程序路径()+"
\\Config.ini")=="1
")
单选框.选中("去对帮任意场景",真)
否则
单选框.选中("去对帮任意场景",假)
如果结束
//3
如果(辅助.读配置("配置","配置12",系统.获取程序路径()+"
\\Config.ini")=="1
")
单选框.选中("在对方城市未买卖",真)
否则
单选框.选中("在对方城市未买卖",假)
如果结束
//4
如果(辅助.读配置("配置","配置13",系统.获取程序路径()+"
\\Config.ini")=="1
")
单选框.选中("对方购买完毕离开",真)
否则
单选框.选中("对方购买完毕离开",假)
如果结束
//5
如果(辅助.读配置("配置","配置14",系统.获取程序路径()+"
\\Config.ini")=="1
")
单选框.选中("回本帮的任意场景",真)
否则
单选框.选中("回本帮的任意场景",假)
如果结束
//6
如果(辅助.读配置("配置","配置15",系统.获取程序路径()+"
\\Config.ini")=="1
")
单选框.选中("交还银票继续",真)
否则
单选框.选中("交还银票继续",假)
如果结束
//7
编辑框.设置文本("跑商路线",辅助.读配置("配置","配置16",系统.获取程序路径()+"
\\Config.ini
"))
如果(辅助.读配置("配置","配置17",系统.获取程序路径()+"
\\Config.ini")=="1
")
复选框.选中("F7加速",真)
否则
复选框.选中("F7加速",假)
如果结束
下拉框.设置选项("跑满8次",转换.字符型转整型(辅助.读配置("配置","配置18",系统.获取程序路径()+"
\\Config.ini"),0
))
下拉框.设置选项("答题选择",转换.字符型转整型(辅助.读配置("配置","配置19",系统.获取程序路径()+"
\\Config.ini"),0
))
编辑框.设置文本("跑商路线二",辅助.读配置("配置","配置20",系统.获取程序路径()+"
\\Config.ini
"))
编辑框.设置文本("密码串",辅助.读配置("配置","配置21",系统.获取程序路径()+"
\\Config.ini
"))
如果(辅助.读配置("配置","配置22",系统.获取程序路径()+"
\\Config.ini")=="1
")
复选框.选中("锁定鼠标",真)
否则
复选框.选中("锁定鼠标",假)
如果结束
如果(辅助.读配置("配置","配置23",系统.获取程序路径()+"
\\Config.ini")=="1
")
复选框.选中("答题2",真)
否则
复选框.选中("答题2",假)
如果结束
//.........................................以上是内容的勾选..................................//
辅助.注册插件("rc:dm.dll",真)
辅助.等待(20)
辅助.注册插件("rc:LYYDT.DLL",真)
辅助.等待(20)
辅助.注册插件("Microrui.dll",真)
辅助.等待(20)
TL蜗牛多开跑商.枚举句柄()
辅助.等待(20)
循环(找到窗口个数>0)
下拉框.增加文本("角色名字",DM.ReadString(转换.字符型转整型(列表框.获得文本("句柄列表框",列表框序号),0),"[[[[008AA530]+70]+1BC]+4]+30",0,20)) //@@@@@@@@@@@@@@@@@@@@.人物名字地址...
找到窗口个数=找到窗口个数-1
列表框序号=列表框序号+1
循环结束
返回 真
功能结束
//........................................................以上为初始化............................................................//
功能 整型 获取名字对应的句柄()
整型 窗口句柄1
整型 i
整型 选项
字符型 所选的名字
i=0
选项=下拉框.得到选项("角色名字")
所选的名字=下拉框.获得内容("角色名字",选项)
循环(所选的名字!=DM.ReadString(转换.字符型转整型(列表框.获得文本("句柄列表框",i),0),"[[[[008AA530]+70]+1BC]+4]+30",0,20)) //@@@@@@@@@@@@@@@@@@@@.人物名字地址...
i=i+1
循环结束
窗口句柄1=转换.字符型转整型(列表框.获得文本("句柄列表框",i),0)
辅助.等待(50)
返回 窗口句柄1
功能结束
//...................................获取游戏名字对应的窗口句柄......................................................................//
功能 逻辑型 查询剩余题分_点击()
//这里添加你要执行的代码
整型 剩余题分
如果(复选框.获得状态("答题2")==真)
辅助.消息框("目前暂无查询功能,将直接进入网站查询！")
辅助.命令("
http://dati.microrui.com/daida/default.aspx",false
)
否则
剩余题分=lyydt.Surplus(编辑框.获得文本("ZH"),编辑框.获得文本("MM"))/10
辅助.消息框("剩余"+转换.整型转字符型(剩余题分)+"题")
如果结束
返回 真
功能结束
//................................................查询剩余题分.......................................//
功能 逻辑型 设置标题_点击()
//这里添加你要执行的代码
窗口.设置标题(TL蜗牛多开跑商.获取名字对应的句柄(),下拉框.获得内容("角色名字",下拉框.得到选项("角色名字")))
返回 真
功能结束
//............................把游戏角色名设置为游戏标题...................................//
功能 逻辑型 开始跑商_点击()
//这里添加你要执行的代码
窗口句柄=TL蜗牛多开跑商.获取名字对应的句柄()
辅助.等待(50)
TL蜗牛多开跑商.游戏托盘()
辅助.等待(50)
线程句柄=线程.开启("TL蜗牛多开跑商.跑商调用过程")
返回 真
功能结束
//..........................开始跑商.....................................//
功能 逻辑型 停止跑商_点击()
//这里添加你要执行的代码
如果(复选框.获得状态("锁定鼠标")==真)
DM.LockInput(0)
如果结束
DM.UnBindWindow()
辅助.等待(50)
线程.关闭(线程句柄)
辅助.消息框("辅助已成功退出！")
返回 真
功能结束
//...............................停止跑商..............................//
空间结束
//空间结束语句
//.......................................................................................//
:Q
记得回复哈!代码一共写了1900行，能看懂原理，思路，写其他游戏的脚本就很简单了！:P
另外期待TC的新版本。另外期待大神们多上传一些有用的插件！！！！！！！！！！！
作者:
lyf1314
时间:
2012-3-11 11:25
aaaa[\color]
作者:
lyf1314
时间:
2012-3-11 11:25
测试
作者:
stxuhong
时间:
2012-3-11 11:34
直接把源码共享吧，你发这个代码不是那么好，要让下载者直接打开代码才好
作者:
stevenxiexie
时间:
2012-3-11 11:59
:D自己复制到文本不就一样了啊！
作者:
lyf1314
时间:
2012-3-11 11:59
jhjhjh
作者:
Rae
时间:
2012-3-11 12:02
回复
1楼
stevenxiexie
的帖子
虽然不知道LZ在说什么,但好像很厉害的样子.
作者:
stevenxiexie
时间:
2012-3-11 12:06
:D:P 忘记写了,此脚本是用列表框在脚本初始化的时候枚举并保持好了游戏句柄，然后通过读内存的方式把人物名字读取出来再保存到另外的列表框。这样直接选中人物名字就可以对应具体的窗口操作了！
作者:
stevenxiexie
时间:
2012-3-11 12:09
:P 跑商路线也是先分割保持在一个列表框里，这样方便.....找图寻路的时候直接通过列表框序号就能操作了，就没必要那些看似复杂实际不知道怎么用的算法了！！
作者:
Rae
时间:
2012-3-11 12:11
LZ,第一个是什么插件?
第三是微锐答题吧?
作者:
小西
时间:
2012-3-11 12:13
好东西,必须顶...:*
作者:
stevenxiexie
时间:
2012-3-11 12:14
回复
10楼
Rae
的帖子
:-D答题选择一共是第一个是手动答题，第二个是微锐答题，第三个是冷夜雨答题！:D答题部分通用其他游戏，本人也专门发了个答题器的源码.........................
作者:
Rae
时间:
2012-3-11 12:40
回复
12楼
stevenxiexie
的帖子
LZ 好人呐,微锐答题 脚本里不可以直接查询么?
冷雨夜官网登陆进去后是空白页面啊,
自己写了个简单挂机脚本,在写进去答题,然后就可以去睡觉了,嘿嘿
作者:
Rae
时间:
2012-3-11 13:51
汗,LZ啊,地址都是读的内存啊?
倒是下了个CE可是完全不明白.
最小化必须要读内存么?
作者:
woodfish
时间:
2012-3-11 13:52
tc总算又开了，一上来就看到个神器
作者:
stevenxiexie
时间:
2012-3-11 14:22
回复
13楼
Rae
的帖子
:D貌似现在要最小化也判断出出验证现在就必须要读取内存。出验证 数据就是1 没验证就是0.至于大漠貌似有个什么收费的伪最小化，没搞懂...收费的也懒得去搞
作者:
4661654
时间:
2012-3-11 16:21
额 很强大
作者:
869618449
时间:
2012-3-11 19:32
看看
作者:
zblp120110
时间:
2012-3-11 19:52
学习学习:D
作者:
776466362
时间:
2012-3-12 15:51
顶下，楼主希望可以帮下忙，不太会用，是小白
作者:
q721874106
时间:
2012-3-12 17:45
asdfasdfgasdgj
作者:
q721874106
时间:
2012-3-12 17:46
看见了斯蒂芬金科洛夫和快乐的风景更好
作者:
tyuyan
时间:
2012-3-12 18:02
不错。 来学习下。。 膜拜中
作者:
无处藏身
时间:
2012-3-14 19:19
不错..不知道好不好用
作者:
WO5523
时间:
2012-3-14 22:58
回复
1楼
stevenxiexie
的帖子
新手学习！拜帖拿分！:D
作者:
流冰
时间:
2012-3-15 10:39
看完了,感觉自己思路跟不上
作者:
stevenxiexie
时间:
2012-3-15 12:34
回复
26楼
流冰
的帖子
:P知道大概就行了.........写东西还是要靠自己想为主...............
作者:
jack123
时间:
2012-3-15 18:00
牛啊
作者:
VIP
时间:
2012-3-16 00:03
楼主，这个是什么语句“TL蜗牛多开跑商.寻找钱唯一() ”
作者:
lian8088
时间:
2012-3-17 02:35
哥们，你真是太牛太给力了！不过天龙跑商读内存封号的！
作者:
551748
时间:
2012-3-17 04:16
这个怎么用啊 通宵学了一晚上 还是没有搞懂 自己想编个种植的 效果不理想啊 楼主能不发个这个跑商的 做好的脚本给我啊 有意可以的话加我QQ377034609
作者:
stevenxiexie
时间:
2012-3-17 14:46
回复
30楼
lian8088
的帖子
:P这个脚本从写完到现在我天天5开跑商.............大号跑....60+的号也跑...............内存封号只能说你还不够熟悉天龙.........:L话说真正的内存挂我也用了三年了.................................难道是我人品好?
作者:
无处藏身
时间:
2012-3-22 14:42
不是把
作者:
chenhaonb
时间:
2012-3-23 11:48
看看内容
作者:
460508322
时间:
2012-3-27 13:39
:Q看的头疼。。。不打包郁闷！
作者:
852621030
时间:
2012-3-27 16:40
看不懂
作者:
qixingzhaoxun
时间:
2012-4-2 14:07
神人啊？给传个试试吧谢谢了
作者:
qixingzhaoxun
时间:
2012-4-2 14:14
楼主给传个试试吧
作者:
stevenxiexie
时间:
2012-4-2 22:16
回复
39楼
qixingzhaoxun
的帖子
221035900 我都传到这个QQ群了
作者:
mxng
时间:
2012-4-3 09:43
感谢分享，收益良多。比起这个，论坛的其他教程都是垃圾堆中的垃圾。
作者:
xdpxcici2
时间:
2012-4-3 12:05
好东西，谢谢楼主了！
作者:
bfm007
时间:
2012-4-3 12:24
楼主可否发这个脚本的代码给我好吗？谢谢
作者:
muguwen
时间:
2012-4-3 19:06
必须 学习
作者:
1231
时间:
2012-4-3 23:26
我好想要这个脚本 就是不会弄 教教我好吧
作者:
zjjzww
时间:
2012-4-20 21:49
回复
22楼
q721874106
的帖子
来学习下。。
作者:
cxz52099
时间:
2012-4-21 00:56
看晕了
作者:
wqsaxz
时间:
2012-4-22 08:14
打不开啊
作者:
460091827
时间:
2012-4-22 16:50
学习下
作者:
zhang898600
时间:
2012-4-26 16:46
怎么没源码
作者:
lishunzheng
时间:
2012-4-30 17:20
看不明白，还需学习学习
作者:
宜宾阳光
时间:
2012-4-30 22:50
找了半年终于发现一个不需要充值VIP就能拿到源码的,强烈支持楼主行为.楼主辛苦了
作者:
pengxinyu268
时间:
2012-5-1 08:49
真厉害 佩服下
作者:
520021zml
时间:
2012-5-1 12:24
没办法看啊。怎么办
作者:
zjjzww
时间:
2012-5-1 13:55
天龙八部后台跑商！！！
作者:
xj_51love
时间:
2012-5-1 14:01
LZ,第一个是什么插件?
作者:
moguangwu
时间:
2012-5-1 23:30
dddddddddddddddd
作者:
wrt350514
时间:
2012-5-6 18:33
噶热噶EG
作者:
081323
时间:
2012-5-6 23:44
谢谢楼主分享。辛苦了。
作者:
liaoduan
时间:
2012-5-7 05:47
非常好，少个加速。下来看下源码
作者:
wrg222
时间:
2012-5-15 20:37
顶下
作者:
carter425
时间:
2012-5-18 13:04
我地神啊 学习中 看看
作者:
fang2018
时间:
2012-5-18 20:54
强大那么多
欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)
Powered by Discuz! X3.1