天龙八部跑商怎么一次满票？_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
天龙八部跑商怎么一次满票？
我现在65级 我的帮在黄龙府 商线分别是辽西 南诏
我有更好的答案
你这个商线不好啊
要不退帮重新加一个商线好点的
我不玩跑商，兄弟，跑商不如漕运
为您推荐：
其他类似问题
天龙八部跑商的相关知识
等待您来回答你的位置：
天龙八部2后台跑商源码（支持两次跑满）
13:38:16 |
来源: 按键精灵资源站
先声明一下，这个是我根据别人写的改过来的，在里面也有个天龙2的跑商源码和这差不多。
Set dm = createobject(&dm.dmsoft&)
PutAttachment &c:\test_game& ,&*.*&
PutAttachment &.\Plugin& ,&RegDll.dll&
Call Plugin.RegDll.Reg(&c:\test_game\dm.dll&)
Set dm = CreateObject(&dm.dmsoft&)
ver = dm.Ver()
If len(ver) = 0 Then
& & MessageBox &创建对象失败,检查系统是否禁用了vbs脚本权限&
& & EndScript
//正式开始
dm_ret = dm.SetPath(&c:\test_game&)
dm_ret = dm.SetDict(0, &dm_soft.txt&)&&'要用文字查找附件必须有这个字库文件
hwnd = dm.GetMousePointWindow()
TracePrint dm.Ver()
Call Plugin.lyy_dt.SetUserData(&帐号&,&密码&,&:81&)//自动答题用的
dm_ret2 = dm.BindWindow(hwnd, &dx&, &dx&, &dx&, 0)
//想还能操作鼠标的换成dm_ret2 = dm.BindWindow(hwnd, &dx&, &dx2&, &dx&, 0)
rect = dm.GetWindowRect(hwnd, x1, y1, x2, y2)
MyArray=Split(rect,&|&,-1,1)
x1=MyArray(0)
y1=MyArray(0)
UserVar luxian=&城市2-苗疆东北校尉-苗疆-南诏-石林-玉溪-玉溪西南校尉-城市2& &跑商路线&
UserVar jiasu=&否& &是否使用加速技能,可选择“是”或者“否”（仅支持非外功门派，选择是则需要将加速技能放置到F1）&
UserVar yanzhen=DropList{&警报&:&1&|&人工代答&:&2&}=0 &选择人工答题或警报&
UserVar Var3=&0& &音乐路径&
MyArray2=Split(luxian,&-&,-1,1)
Call 关闭()
a=InputBox(&1.全新开始。 &&(Chr(10))&&2.已领取银票。&&(Chr(10))&&3.准备在本城购买商品。&&(Chr(10))&&4.购买完成，准备离开本帮城市。&&(Chr(10))&&5.正在前往对方帮派城市。&&(Chr(13) & Chr(10))&&6.已在对方城市，准备找钱为一卖出商品。&&(Chr(13) & Chr(10))&&7.在对方城市，等待合适价格卖出。&&(Chr(13))&&8.已在对方城市卖出商品，准备购买。&&(Chr(13))&&9.已在对方城市购买商品，准备出城。&&(Chr(13))&&10.正在返回己方帮派城市。&&(Chr(13))&&11.已返回本帮城市，准备找钱为一。&&(Chr(13))&&12.已找到本帮钱为一，等待合适价格卖出。&&(Chr(13))&&13.交还银票，重新领取。&,&请选择您当前跑商状态:&)
If a=1 Then
& & Goto 重新开始
ElseIf a=2 Then
& & Goto QMScript_2
ElseIf a=3 Then
& & Goto QMScript_3
ElseIf a=4 Then
& & Goto QMScript_4
ElseIf a=5 Then
& & Goto QMScript_5
ElseIf a=6 Then
& & Goto QMScript_6
ElseIf a=7 Then
& & Goto QMScript_7
ElseIf a=8 Then
& & Goto QMScript_8
ElseIf a=9 Then
& & Goto QMScript_9
ElseIf a=10 Then
& & Goto QMScript_10
ElseIf a=11 Then
& & Goto QMScript_11
ElseIf a=12 Then
& & Goto QMScript_12
ElseIf a=13 Then
& & Goto QMScript_13
& & MessageBox &未知状态请重新选择&
& & Goto 开始
Rem 重新开始
Call 关闭()
Call 找财政官员()
Rem QMScript_2
Call 领取银票()
Rem QMScript_3
Call 购买商品()
Rem QMScript_4
Call 出城()
Rem QMScript_5
Call 前往对方帮派()
Call 进入对方城市()
Rem QMScript_6
Call 找财政官员()
Rem QMScript_7
Call 判断价格()
Call 卖出()
Rem QMScript_8
Call 购买商品()
Rem QMScript_9
Call 出城()
Rem QMScript_10
Call 返回己方帮派()
Call 进入已方城市()
Rem QMScript_11
Call 找财政官员()
Rem QMScript_12
Call 判断价格()
Call 卖出()
Rem QMScript_13
Call 交还银票()
Goto QMScript_2
dm_ret=dm.unbindwindow()
Sub 找财政官员()
& & Rem 城市_打开寻路
& & dm.KeyDown 18
& & dm.KeyPress 192
& & dm.KeyUp 18
& & Delay 500
& & dm.FindStr 0,0,,&坐标&,&fff263-.0,x,y
& & If x & 0 and y & 0 Then
& & dm.MoveTo x+45,y+8
& && &&&Delay 500
& && &&&dm.LeftClick
& && &&&Delay 100
& && &&&dm.SendString hwnd,&149&
& && &&&//SayString &149&
& && &&&Delay 100
& && &&&dm.MoveTo x+75,y+8
& && &&&Delay 500
& && &&&dm.LeftClick
& && &&&Delay 100
& && &&&dm.SendString hwnd,&56&
& && &&&//SayString &56&
& && &&&Delay 500
& && &&&Rem 寻找_钱为一
& && &&&dm.MoveTo x+105,y+8
& && &&&dm.LeftClick
& && &&&Goto 城市_打开寻路
& & End if
& & dm.KeyDown 18
& & dm.KeyPress 86
& & Delay 5000
& & dm.KeyUp 18
& &dm.MoveTo x1+410,y1+305
& & Delay 500
& & mouse_tz = dm.GetCursorShape()
& & If mouse_tz=&6ea90254& Then
& && &&&dm.LeftClick
& && &&&dm.KeyDown 18
& && &&&dm.KeyPress 192
& && &&&dm.KeyUp 18
& && & Delay 500
& && &&&Goto 城市_打开寻路
& & End if
& & Delay 2000
Sub 领取银票()
& & Rem 领银票
& & Delay 3000
& & dm_ret = dm.FindPic(0,0,,&领银票.bmp&,&.9,0,intX,intY)
If intx&0 and inty&0 Then
& && &&&dm.MoveTo intx+15,inty+8
& && &&&dm.LeftClick
& && &&&dm.SendString hwnd,&领取银票失败&
& && &&&dm.KeyPress 13
& & End if
& & dm.KeyDown 18
& & dm.KeyPress 65
& & dm.KeyUp 18
& & Delay 3000
& &dm_ret = dm.FindPic(x1,y1,x2,y2,&任务包袱.bmp&,&.9,0,intX,intY)
& & If intx&0 and inty&0 Then
& && &&&dm.MoveTo intx+10,inty+8
& && &&&dm.LeftClick
& && & dm.SendString hwnd,&没有找到包裹&
& && &&&dm.KeyPress 13
& & End if
& & Delay 2000
dm_ret = dm.FindPic(x1, y1, x2, y2, &银票.bmp&,&.9,0,intX,intY)
& & If intx&0 and inty&0 Then
& && & dm.SendString hwnd,&银票领取成功&
& && &&&dm.KeyPress 13
& && &&&dm.SendString hwnd,&没有找到银票&
& && &&&dm.KeyPress 13
& & End if
Sub 购买商品()
&&Rem 打开店铺
&&call 验证过程
& & Delay 1000
& & dm.FindStr 0,0,,&商人店铺&,&ffd555-.0,intX,intY
& & If intx&0 and inty&0 Then
& && &&&dm.MoveTo intx+5,inty+8
& && &&&dm.LeftClick
& && &&&Call 关闭()
& && &&&Call 找财政官员()
& && &&&Goto 打开店铺
& & End if
& & Delay 1000
& &&&dm.FindStr 0,0,,&后一页&,&bbbbbb-.0,intx,inty
& & If intx&0 and inty&0 Then
& && &&&dm.MoveTo intx,inty
& && &&&dm.LeftClick
& && & dm.SendString hwnd,&商店未打开&
& && &&&dm.KeyPress 13
& & End if
& & Delay 2000
Rem 粮食94
dm_ret = dm.FindPic(x1, y1, x2, y2, &粮食.bmp&,&.9,0,intX,intY)
If intX & 0 And intY & 0 Then
Goto 识别94
Goto 打开店铺
Rem 识别94
dm.FindStr 225,72,611,446, &94&, &ffffff-000000&, 1.0, intX, intY
If intX & 0 And intY & 0 Then
dm.MoveTo intx - 68, inty
& & & &&&Else
Goto 打开店铺
Rem 重复购买
dm.FindStr 0,0,,&无法再购买&,&00ffff-.0,intX,intY
If intx&0 and inty&0 Then
Goto 购买完成
Goto 无法购买
Rem 无法购买
dm.FindStr 0,0,,&无法购买&,&00ffff-.0,intX,intY
If intx&0 and inty&0 Then
Goto 购买完成
Rem 等待& && &
dm.FindStr 0,0,,&等待&,&00ffff-.0,intX,intY
If intX&0 and intY&0 Then
Goto 打开店铺
dm_ret = dm.FindPic(x1, y1, x2, y2, &粮食0.bmp&,&.9,0,intX,intY)
If intX & 0 And intY & 0 Then
Goto 打开店铺
dm.LeftClick
call 验证过程//不自动答题换成call 反作弊就好了
Goto 识别94
&&Rem 购买完成
&&dm.SendString hwnd,&已经完成购买&
& && &&&dm.KeyPress 13
Sub 出城()
& & Rem 出城_打开寻路
& & dm.MoveTo x1+40,y1+40
& & dm.LeftDoubleClick
& & Delay 500
& & dm.KeyDown 18
& & dm.KeyPress 192
& & dm.KeyUp 18
& & Delay 1000
& & dm_ret = dm.FindPic(x1, y1, x2, y2, &坐标输入框.bmp&,&.9,0,intX,intY)
& & If intx&0 and inty&0 Then
& && &&&dm.MoveTo intx+15,inty+8
& && &&&Delay 500
& && &&&dm.LeftClick
& && &&&dm.SendString hwnd,&100&
& && &&&Delay 500
& && &&&dm.MoveTo intx+45,inty+8
& && &&&dm.LeftClick
& && &&&Delay 500
& && &&&dm.SendString hwnd,&156&
& && &&&Rem 判断出城
& && &&&dm.MoveTo intx+75,inty+8
& && &&&dm.LeftClick
& && &&&Delay 5000
& && &&&dm_ret = dm.FindPic(x1, y1, x2, y2, &坐标输入框.bmp&,&.9,0,intX2,intY2)
& && & If intx2&0 and inty2&0 Then
& && && && &Goto 判断出城
& && &&&Else
& && && && &Goto 已出城
& && &&&End if
& && &&&Goto 出城_打开寻路
& & End if
& & Delay 5000
& & Rem 已出城
Sub 前往对方帮派
Rem 开始判断当前地图
dm_ret = dm.FindPic(x1, y1, x2, y2, &进城.bmp&,&.9,0,intX,intY)
If intX & 0 And intY & 0 Then
Goto 已经到达目的地
Goto 找名称
Rem 找名称
dm.FindStr x1,y1,x2,y2,&坐标&,&fff263-.0,intx,inty
If intx & 0 And inty & 0 Then
s = dm.Ocr(intx-3,inty-35,intx+88,inty-13,&ffffff-000000&, 1.0)
Call 判断地图()
&&dm.KeyDown 18
dm.KeyPress 192
dm.KeyUp 18
Goto 找名称
& && &&&For UBound(MyArray2)
& && && && &k=k+1
& && && && &a=MyArray2(k)
& && && && &If a=map Then
& && && && && & inmap=MyArray2(k)
& && && && && & tomap=MyArray2(k+1)
& && && && && & Goto 找到当前地图
& && && && &End if
& && &&&Next
& && &&&Rem 找到当前地图
& && &&&Call 下个地图()
& && &&&TracePrint map
& && &&&TracePrint tomap
& & Delay 1000
& && &&&Goto 开始判断当前地图
Rem 已经到达目的地
Sub 下个地图()
dm.FindStr x1+651,y1+261,x1+798,y2+512,tomap,&ffffff-0,intX,intY
dm.moveto intX+10,intY+5
dm.LeftDoubleClick
If jiasu=&是& Then
dm.KeyPress 112
Delay 5000
dm_ret = dm.FindPic(x1, y1, x2, y2, &进入镜湖.bmp&,&.9,0,intX4,intY4)
If intx4&0 and inty4&0 Then
dm.MoveTo intx4+5,inty4+5
dm.LeftClick
dm_ret = dm.FindPic(x1, y1, x2, y2, &进城.bmp&,&.9,0,intX4,intY4)
If intx4&0 and inty4&0 Then
Goto 到达城市
& & Rem 到达城市
Sub 判断地图()
& & VBSBegin
& && &&&Select Case s
& && &&&Case &白堤柳鬼&
& && &&&map=&西湖&
& && &&&Case &童贯&
& && &&&map=&洛阳&
& && &&&Case &金钱豹&
& && &&&map=&雁南&
& && &&&Case &阿林&
& && &&&map=&草原&
& && &&&Case &阿史那默谷&
& && &&&map=&辽西&
& && &&&Case &纥石烈阿疏&
& && &&&map=&长白山&
& && &&&Case &大黑熊&
& && &&&map=&黄龙府&
& && &&&Case &韦大叔&
& && &&&map=&苏州&
& && &&&Case &程青霜&
& && &&&map=&大理&
& && &&&Case &打草谷辽兵&
& && &&&map=&雁北&
& && &&&Case &江湖游医&
& && &&&map=&嵩山&
& && &&&Case &许愿树&
& && &&&map=&太湖&
& && &&&Case &法河&
& && &&&map=&龙泉&
& && &&&Case &白花蜘蛛&
& && &&&map=&武夷&
& && &&&Case &甘草&
& && &&&map=&梅岭&
& && &&&Case &鳄鱼帮打手&
& && &&&map=&南海&
& && &&&Case &凌忆慈&
& && &&&map=&琼州&
& && &&&Case &曹延惠&
& && &&&map=&敦煌&
& && &&&Case &大脸&
& && &&&map=&剑阁&
& && &&&Case &方光智&
& && &&&map=&无量山&
& && &&&Case &白景武&
& && &&&map=&南诏&
& && &&&Case &阿雨&
& && &&&map=&苗疆&
& && &&&Case &阿支&
& && &&&map=&石林&
& && &&&Case &简丁&
& && &&&map=&洱海&
& && &&&Case &古鲁拉&
& && &&&map=&玉溪&
& && &&&Case &长毛雪怪&
& && &&&map=&苍山&
& && &&&End Select
& & VBSEnd
Sub 进入对方城市()
& & tomap=MyArray2(UBound(MyArray2))
& & dm.FindStr x1,y1,x2,y2,tomap,&ffd555-.0,intX,intY
& & If intx&0 and inty&0 Then
& && & dm.MoveTo intx+1,inty+3
& && &&&Delay 500
& && &&&dm.LeftClick
& && &&&dm.SendString hwnd, &找不到您指定的帮会城市,请检查设置.&
& && &&&dm.KeyPress 13
& & End if
& & Delay 3000
Sub 判断价格()
& & Rem 出售_打开店铺
& & Delay 1000
& & dm.FindStr 0,0,,&商人店铺&,&ffd555-.0,intx,inty
& &If intx&0 and inty&0 Then
& && &&&dm.MoveTo intx+15,inty+8
& && &&&dm.LeftClick
& && &&&dm.SendString hwnd,&&
& && &&&dm.KeyPress 13
& & End if
& && && &Delay 2000
& && && &dm.FindStr 0,0,,&后一页&,&bbbbbb-.0,intx,inty
& &If intx&0 and inty&0 Then
& && &&&dm.MoveTo intx+15,inty+8
& && &&&dm.LeftClick
& && & dm.SendString hwnd,&未打开店铺&
& && &&&dm.KeyPress 13
& && &&&Goto 出售_打开店铺
& & End if
& & Delay 2000
& & dm_ret = dm.FindPic(x1, y1, x2, y2, &粮食.bmp&,&.8,0,intx,inty)
& &&&Delay 1000
& & If intx & 0 and inty & 0 Then
& & & & & & Goto 识别94
& & & & & & Else
& & & & & & Goto 出售_打开店铺
& & End If
& &&&Rem 识别94
& &&&dm.FindStr 225,72,611,446, &94&, &ffffff-000000&, 1.0, intX, intY
& & If intX & 0 And intY & 0 Then
& &&&& & & & Goto 可以卖出
& && & dm.SendString hwnd,&&
& && &&&dm.KeyPress 13
& & Goto 出售_打开店铺
& & End if
& & Rem 可以卖出
Sub 卖出()
& & Rem 卖出_打开包袱
& & dm_ret = dm.FindPic(x1, y1, x2, y2, &任务包袱.bmp&,&.5,0,intX,intY)
& &If intx&0 and inty&0 Then
& && &&&dm.MoveTo intx-15,inty+7
& && &&&dm.LeftClick
& && &&&Delay 1000
& && &&&Rem 重复卖出
& && &&&dm.FindStr 0, 0, , &上限&, &00ffff-000000&, 1.0, intx, inty
& && &&&If intx&0 and inty&0 Then
& && &&&Goto 完成卖出
& && &&&Else
& && &&&Goto 卖
& && &&&End If
& && &&&Rem 卖
& && &&&dm_ret = dm.FindPic(x1, y1, x2, y2, &粮食2.bmp&,&.7,0,intX,intY)
& && && &If intx&0 and inty&0 Then
& && && && &dm.MoveTo intx+10,inty+10
& && && && &dm.RightClick
& && && && &Delay 500
& && && && &Goto 重复卖出
& && &&&Else
& && && && &dm.SendString hwnd,&未找到商品&
& && && && &dm.KeyPress 13
& && &&&End if
& && &&&dm.KeyDown 18
& && &&&dm.KeyPress 65
& && &&&dm.KeyUp 18
& && &&&Delay 1000
& && &&&Goto 卖出_打开包袱
& & End If
& & Rem 完成卖出
Sub 返回己方帮派()
& & Rem 返回_开始判断当前地图
& & Delay 500
dm_ret = dm.FindPic(x1, y1, x2, y2, &进城.bmp&,&.9,0,intX,intY)
If intX & 0 And intY & 0 Then
Goto 返回_已经到达目的地
Goto 返回_找名称
Rem 返回_找名称
dm.FindStr x1,y1,x2,y2,&坐标&,&fff263-.0,intx,inty
If intx & 0 And inty & 0 Then
//dm_ret = dm.Capture(intx-3,inty-35,intx+88,inty-13,&d:/pic1.bmp&)
s = dm.Ocr(intx-3,inty-35,intx+88,inty-13,&ffffff-000000&, 1.0)
Call 判断地图()
dm.KeyDown 18
dm.KeyPress 192
dm.KeyUp 18
Goto 返回_找名称
& && &&&k=UBound(MyArray2)
& && &&&For UBound(MyArray2)
& && && && &k=k-1
& && && && &a = MyArray2(k)
& && && && &
& && && && &If a=map Then
& && && && && & inmap=MyArray2(k)
& && && && && & tomap=MyArray2(k-1)
& && && && && &
& && && && &End If
& & Rem 返回_找到当前地图
& & Call 下个地图()
& & Delay 6000
& & Goto 返回_开始判断当前地图
& & Rem 返回_已经到达目的地
Sub 进入已方城市()
& & tomap=MyArray2(0)
& & dm.FindStr x1, y1, x2, y2, tomap, &ffd555-000000&, 1.0, intX, intY
& & If intx&0 and inty&0 Then
& && & dm.MoveTo intx+1,inty+3
& && &&&Delay 500
& && &&&dm.LeftClick
& && &&&dm.SendString hwnd,&&
& && &&&dm.KeyPress 13
& & End if
& & Delay 3000
Sub 交还银票()
& & Delay 1000
& & dm.FindStr 0,0,,&交还银票&,&ffd555-.0,intx,inty
& &If intx&0 and inty&0 Then
& && &&&dm.MoveTo intx+15,inty+8
& && &&&dm.LeftClick
& && & dm.SendString hwnd,&交还银票无法完成&
& && &&&dm.KeyPress 13
& & End if
Sub 关闭()
& & Rem 找到关闭
& & Delay 1000
& & dm_ret = dm.FindPic(x1, y1, x2, y2, &关闭.bmp&,&.7,0,intx,inty)
& &If intx&0 and inty&0 Then
& && &&&dm.MoveTo intx+5,inty+5
& && &&&dm.LeftClick
& && &&&Goto 找到关闭
& & End if
本帖隐藏的内容需要回复才可以浏览
大漠的版本是2.1122的，附件都在了，不过有的截图是用不到的&&呵呵
第一次发不是问题的贴，屏幕分辨率是
游戏是800*600的不是的话 自己看这我的截图从新截图就行了
说明的够详细的了，再不会的可以给我留言洱海到雁南怎么一次跑满！
你算找对人。我们帮就是这条商线、首先到所在帮会城市领商票后、就可以买东西了、买完东西、就出来到大理、到剑阁、到敦煌、到洛阳、到雁南、然后进去、先不要卖、看卖的价钱比你买的高了大概3倍就可以卖了、然后在买了回去交商就可以了
其他答案（共2个回答）
！没宝石没宝宝没法玩的
漕运带路引和商人日能高过商，但会被劫。而商只有八次，效率高。建议非常期蹲点玩家选商。
跑回大理,去删除任务NPC那,删掉银票。或者老老实实跑完交
去买个啊40一个月
淘宝打天龙八部脚本
其实孩子虽然小,但是他的内心也很丰富,父母不能把自己当成强者,而是应该把宝宝看成自己的朋友,凡事站在孩子的角度去考虑,这样慢慢的孩子会愿意和父母沟通的。
路线就是洛阳-苏州-大理，当然你怎么跑顺序都可以。
在每个城市的漕运使那里领任务，做法是先要和他兑换2J的官票，也就是说有了资本之后才能在他那里买东西，买东西之...
答: 大理鹿野瓦屋客栈去三塔寺，天龙八部影视城远吗
答: 朋友相处要严以律己，宽以待人。
朋友出去玩，AA制最好。如果不是，自己要抢先付钱，不要斤斤计较。你就是不坐船也要抢先付钱才对。
意欲取之，必先予之。其实朋友只是...
答: 可能是机器配置的问题也有可能是服务器的问题
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区天龙八部3，60级跑商，平时跑满一次票有多少金和多少经验？_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
天龙八部3，60级跑商，平时跑满一次票有多少金和多少经验？
我有更好的答案
60级满票是7J一次，到70级变成9J 现在跑商不给帮贡和经验了
采纳率：49%
满票一次7J，经验少的可怜。
为您推荐：
其他类似问题
跑商的相关知识
等待您来回答