漫漫看天龙八部2(天龙2)_天龙八部下载_天龙八部合作站
天龙八部壁纸
每日活动介绍
九大门派介绍
? ? ? ? ? ?
游戏名称：天龙八部
运营公司：搜狐畅游
研发公司：搜狐畅游 游戏类型：武侠
基本配置：PIII-800、256MB
测试日期：2007年5月
官方网站：
友情链接(QQ:)： |新增内容： |
| 十二杀星副本&
新活动： |&
&&&&&&&&& 新时装： |
门派相关： |& &|&&
珍兽装备： |
&&&&&&&&& 大熊猫 |
- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
　　正式版第一天夜晚当时针指向7点时人开始骚动了，今天注定是这个不平凡的夜晚。凤凰古城群雄
　　峨嵋这个门派80等级如何装备，在网有很多的贴子，大家可以看看，但大多都无实际的用处。实际
参与条件：
玩家等级≥75级，最少3人组队。每人每天最多挑战1次。使用道具求援信，可以无限次进
　　对于很多男生来说，都希望找个漂漂亮亮、美美丽丽、大大方方的女师父，期望着某一天能够财色
初见他时,他身着一袭白衫, 手持把水墨折扇,俊朗的脸上,笑的如此灿烂,让人忍不住动情.只是我,从不
《天龙八部2》“血战雁门关”明日霸势公测，海量返礼活动今日抢先曝光，若有8次机会参与搜奖大作
[]& []& []&[]&[]& []&[]&[]&[]&[]&[]&[][ ] [ ] []玩家交流群： 编辑：武破虚空（）
华丽技能 每日活动 九大门派 行囊格箱
&　　&& 　　　　　　　&&& 　　　　　&　　　　　　　　　　　　　　　　　
& 游戏名称：& 运营公司：& 游戏状态：公测&&测试时间：4月2日& 官方网站：你的位置：
天龙八部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的不是的话 自己看这我的截图从新截图就行了
说明的够详细的了，再不会的可以给我留言大家都在搜：
扫描二维码安装搜房网房天下APP
手机浏览器访问搜房网房天下
> > 问题详情
天龙八部3 帮派城市在苗疆正东,能在南诏找一个帮建立商线吗?
浏览次数：0
回答被采纳后将共获得20
房子是一张笑脸的形状，要没水印的。
额。。做了这种事情，恐怕形象没那么容易挽回吧。
到国土局一查就知道啦
苗疆找南诏几乎没法跑,要连续跑3趟才可能满,至少45分钟。商线应该是:苗疆——玉溪——苍山——苗疆
126040浏览
位提问人正在寻找答案
手机动态登录
请输入用户名/邮箱/手机号码！
请输入密码！
没有搜房通行证，
ask:2,asku:1,askr:74,askz:13,askd:17askR:0,askD：109 mz:nohit,askU:0,askT:0askA:110
Copyright &
北京拓世宏业科技发展有限公司
Beijing Tuo Shi Hong Ye Science&Technology Development Co.,Ltd 版权所有
客服电话： 400-850-8888 违法信息举报邮箱：