2024年4月18日发(作者：)

//===================================

set dm = createobject("")

TracePrint ()

dm_ret = h ("C:Documents and SettingsAdministrator桌面按键天龙实验")

//自行修改，不明白看了大漠你就懂了

dm_ret = t(0, "C:Documents and SettingsAdministrator桌面按键天龙实验

ziku_") //自行修改，不明白看了大漠你就懂了

hwnd = ndow(0, "《天龙八部3》", "", 1 + 4 + 8 + 16)

dm_ret = dowState(hwnd,12)

dm_ret = dowSize(hwnd,1030,728)

dm_ret = ndow(hwnd, "dx", "", "dx",0) //这个地方是遇到纠结

的最多的地方，新手可能会有感触哈。

Delay 1000

If dm_ret = 0 Then

MessageBox "绑定失败"

EndScript

End If

i = 0

Dim fw, HP, MP, CHP

Do

//================找怪========================

Rem 继续找怪

ss 123

Rem A

dm_ret = or(441,20,"760c07-000000|0f7207-000000",0.9) //只打绿色和红色名

的怪

If dm_ret = 0 Then

Call F1技能

Else

Goto 继续找怪

End If

Loop

//===============================F1===============

Sub F1技能

ss 112

ss 113

Call 杀死再换

Call 防卡

Call 人物加血

Call 人物加蓝

Call 宠物加血

Call 捡包

Call 挂机检测

Call 返回挂机点

goto 继续找怪

End Sub

//======================人物加血======================

Sub 人物加血

HP= //输入框相关

dm_ret = or(67+139*(HP/100),35,"373737-000000",0.9)

If dm_ret = 0 Then

n 118

Delay 100

118

Delay 500

End If

End Sub

//========================人物加蓝=====================

Sub 人物加蓝

MP=

dm_ret = or(67+139*(MP/100),44,"373737-000000",0.9)

血使用的是论坛某位前辈的例子，真是超级简单加好用

If dm_ret = 0 Then

n 119

//百分百加

Delay 500

119

Delay 500

End If

End Sub

//========================宠物加血=====================

Sub 宠物加血

//========自动出战==============

If = 1 Then

dm_ret = or(115,84,"d90a00-000000",0.9) //判断宠物死亡，死亡自动出

战

If dm_ret = 1 Then

Call 召唤暂停

End If

End If

CHP=

dm_ret = or(115+94*(CHP/100),84,"242424-000000",0.9)

If dm_ret = 0 Then

n 120

Delay 500

120

Delay 1000

End If

End Sub

//=====================效率太低，没测试====================

Sub 捡包

//例子：Call lib.网游.方形渐开线(400,300,20,20)

Dim x,y,v,i,j,k

x=513: y=337

//设置2点间距离

v=10

i=1

For 30

j=0:k=v

For 2

For i

x=x+j:y=y+k

x,y

Delay 40

//LeftClick 1

mouse_tz = sorShape()

If mouse_tz = "6ea90254" Then

x, y

Delay 300

own

Delay 200

own

Delay 2000

Exit sub

End If

Next

j=v:k=0

Next

i=i+1:v=v*(-1)

Next

End Sub

Sub 杀死再换 //杀死一个换一个···比较实用，去掉这段就是快速杀怪，

打一下换一个

If = 1 Then

dm_ret = or(277,36,"d90a00-000000",0.9) //判断怪有没有死亡，死亡继

续找怪

If dm_ret = 1 Then

Exit Sub

Else

Goto A

End If

End If

End Sub

//=====================================================================

==

Sub 召唤暂停 //这个子程序的目的其实可以不要，但是为了提高BB出战的准

确率，我加了个这个东西，必须召唤出来了才继续杀怪，不然切怪得速度太快，召唤不出来

Do

ss 121 //BB出战快捷键

Delay 1000

dm_ret = or(115,84,"d90a00-000000",0.9) //判断召唤是否成功

If dm_ret = 0 Then

Exit Sub

End If

loop

End Sub

//=================================防卡

===================================

Sub 防卡 //这个防卡其实是为了在特殊地形远程人物攻击会卡，无效等情

况，攻击之后不减血，立即换怪

If = 1 Then

Delay 500

i=i+1

If i > 2 Then

dm_ret = or(451,36,"d90a00-000000",0.9)

If dm_ret = 0 Then

Goto 继续找怪

End If

End If

End If

End Sub

//===============================捡

====================================

Sub 捡包 //说实话3D找色来找包，成功率真的很低。不建议使用

dm_ret = lor(0,0,2000,2000,"a3955f-000000",1.0,0,x,y)

If x >= 0 and y >= 0 Then

x, y

Delay 100

lick

Else

Exit Sub

End If

End Sub

//=============================验证检

=====================================

Sub 挂机检测

包

测

If = 1 Then

dm_ret = rFast(0,0,2000,2000,"图片","fff263-000000",1.0,x,y)

If x >= 0 and y >= 0 Then

Call ("C:Documents and SettingsAdministrator桌面按键天

龙实验死了都要爱.mp3")

EndScript

End If

End If

End Sub

//===========================回挂机点===============================

Sub 返回挂机点 //这么个玩意真是倾注了我大多的时间··虽然是很简单的玩意··

If = 1 Then //单选

//==================下拉列表========================

Rem A

select case dex

Case 0

fw = 5

Case 1

fw = 10

Case 2

fw = 15

Case Else

End Select

//==================上面是下拉列表界面============================

a = (952,3,973,18, "fdff73-000000", 1.0) //小范围区域内获取X坐标

b = (973, 3, 1002, 17, "fdff73-000000", 1.0) //小范围区域内获取Y坐标

x0 =

y0 =

If x0 - a > fw or a - x0 > fw or y0 - b > fw or b - y0 > fw Then //FW 是定义的

变量，用来决定挂机范围

927, 182

ick

Delay 500

dm_ret = rFast(0, 0, 2000, 2000, "坐标", "fff263-000000", 1.0, x, y)

If intX >= 0 and intY >= 0 Then

x + 35, y + 4

ick

Delay 200

ring hwnd, x0

Delay 200

x + 70, y + 1

ick

Delay 200

ring hwnd, y0

dm_ret = rFast(0,0,2000,2000,"移动","fdeb78-000000",1.0,x,y)

If intX >= 0 and intY >= 0 Then

x + 2, y + 2

ick

Delay 200

Rem 检测是否关闭了寻路

dm_ret = c(0,0,2000,2000,"关闭自动寻

路.bmp","000000",1.0,3,q,w)

If q >= 0 and w >= 0 Then

q + 4, w + 4

ick

Delay 200

dm_ret = c(0,0,2000,2000,"

路.bmp","000000",1.0,3,q,w)

If q >= 0 and w >= 0 Then

Goto 检测是否关闭了寻路

End If

End If

Delay 5000

Goto A

End If

End If

Goto A

Else

Exit Sub

End If

End If

end sub

dm_ret = window()

关闭自动寻