天下3 天下3采集脚本本哪个最好？

www.51yue.net    2012-08-01    标签：天下3任务脚本
你的位置：
天下3自动采集源码
18:38:25 |
来源: 按键精灵资源站
[code]//这句意思是解包文件到文件夹
PutAttachment &.\TP&,&*.*&
//这句意思是创创建并返回对像
set ws=createobject(&Wscript.Shell&)
//这句意思是注册大漠
ws.run ®svr32 .\TP\dm.dll /s&
Set ws = nothing
Set dm = createobject(&dm.dmsoft&)
dm_ret = dm.SetPath(&.\TP&)
dm_ret = dm.SetDict(0, &ziku.txt&)
Dimenv wz, qdt, bs, fm, ks, cm,ddtwz,csq,sbtz, zd,fzz,qyz,sd,hwnd,ddtwz1
key = WaitKey()
If key = 116 Then
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, &dx2&, &dx&,&dx&, 0)
Delay 2000
//Call 循环采集
Call 到位置采集
Sub 循环采集
Call 准备采集
Call 找采集点
Sub 准备采集
dm.KeyPress 88
Delay 2000
dm.KeyPress 67
If Form1.dxk_宝石.Value=1 Then
bs = dm.FindPic(82,61,297,107,&bao.bmp&,&.9,0,intX,intY)
If bs =0 Then
DM.KeyDown (18)
DM.KeyPress (50)
DM.KeyUp (18)
If Form1.dxk_伐木.Value=1 Then
fm = dm.FindPic(82, 61, 297, 107, &mu.bmp&, &000000&, 0.9, 0, intX, intY)
If fm = 0 Then
DM.KeyDown (18)
DM.KeyPress (50)
DM.KeyUp (18)
If Form1.dxk_矿石.Value=1 Then
ks = dm.FindPic(82,61,297,107,&jin.bmp&,&.9,0,intX,intY)
If ks= 0 Then
DM.KeyDown (18)
DM.KeyPress (50)
DM.KeyUp (18)
If Form1.dxk_草木.Value=1 Then
cm = dm.FindPic(82, 61, 297, 107, &cao.bmp&, &000000&, 0.9, 0, intX, intY)
If cm = 0 Then
DM.KeyDown (18)
DM.KeyPress (50)
DM.KeyUp (18)
DM.KeyDown 18
DM.KeyPress 49
DM.KeyUp 18
DM.KeyPress 66
DM.MoveTo 752,194
DM.RightClick
DM.KeyPress 66
Sub 找采集点
DM.MoveTo 314,379
DM.LeftClick
wz = dm.FindPic(571, 450, 630, 502, &gou1.bmp&, &000000&, 0.9, 0, intX, intY)
If wz = 0 Then
DM.KeyPress 27
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
qdt = dm.FindPic(795, 471, 898, 516, &全地图.bmp&, &000000&, 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
DM.LeftClick
DM.MoveTo 195,514
DM.LeftClick
Call 大地图找采集点
DM.MoveTo 388,359
DM.LeftClick
wz = dm.FindPic(571, 450, 630, 502, &gou1.bmp&, &000000&, 0.9, 0, intX, intY)
If wz = 0 Then
DM.KeyPress 27
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
qdt = dm.FindPic(795, 471, 898, 516, &全地图.bmp&, &000000&, 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
DM.LeftClick
DM.MoveTo 324,477
DM.LeftClick
Call 大地图找采集点
DM.MoveTo 465,272
DM.LeftClick
wz = dm.FindPic(571, 450, 630, 502, &gou1.bmp&, &000000&, 0.9, 0, intX, intY)
If wz = 0 Then
DM.KeyPress 27
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
qdt = dm.FindPic(795, 471, 898, 516, &全地图.bmp&, &000000&, 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
DM.LeftClick
DM.MoveTo 458,323
DM.LeftClick
Call 大地图找采集点
DM.MoveTo 540,246
DM.LeftClick
wz = dm.FindPic(571, 450, 630, 502, &gou1.bmp&, &000000&, 0.9, 0, intX, intY)
If wz = 0 Then
DM.KeyPress 27
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
qdt = dm.FindPic(795, 471, 898, 516, &全地图.bmp&, &000000&, 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
DM.LeftClick
DM.MoveTo 591,268
DM.LeftClick
Call 大地图找采集点
DM.MoveTo 640,250
DM.LeftClick
wz = dm.FindPic(571, 450, 630, 502, &gou1.bmp&, &000000&, 0.9, 0, intX, intY)
If wz = 0 Then
DM.KeyPress 27
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
qdt = dm.FindPic(795, 471, 898, 516, &全地图.bmp&, &000000&, 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
DM.LeftClick
DM.MoveTo 744,279
DM.LeftClick
Call 大地图找采集点
DM.MoveTo 621,321
DM.LeftClick
wz = dm.FindPic(571, 450, 630, 502, &gou1.bmp&, &000000&, 0.9, 0, intX, intY)
If wz = 0 Then
DM.KeyPress 27
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
qdt = dm.FindPic(795, 471, 898, 516, &全地图.bmp&, &000000&, 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
DM.LeftClick
DM.MoveTo 721,410
DM.LeftClick
Call 大地图找采集点
Sub 大地图找采集点
do While true
Delay 1000
dm_ret = dm.FindPic(114,0,910,575,&gou3.bmp&,&.9,0,intX,intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX-6, intY+14
DM.LeftClick
DM.KeyPress 13
Delay 1800
DM.KeyPress 27
Delay 260000
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
Delay 2000
Call 到位置采集
Sub 到位置采集
Rem 继续采集
DM.MoveTo x, y
x = x + 30
DM.MoveTo x, y
sbtz = dm.GetCursorShape()
If Form1.dxk_宝石.Value = 1 Then
If sbtz = &a46a714& Then
DM.MoveTo x-20, y
ElseIf Form1.dxk_伐木.Value = 1 Then
If sbtz = &46e1fdd4& Then
DM.MoveTo x-20, y
ElseIf Form1.dxk_草木.Value = 1 Then
If sbtz = &4d7c054& Then
DM.MoveTo x-20, y
ElseIf Form1.dxk_矿石.Value = 1 Then
If sbtz = &6f349954& Then
DM.MoveTo x-20, y
If x &= 700 Then
y = y - 50
If y &= 227 Then
Do While true
csq = dm.FindStr(0, 0, , &成熟期&, &00ff00-026102&, 0.9, intX, intY)
If csq = 0 Then
Goto 继续采集
dm.LeftClick
dm.LeftClick
DM.KeyPress 9
Call 是否出怪
sbtz = dm.GetCursorShape()
If Form1.dxk_宝石.Value = 1 Then
If sbtz = &a46a714& Then
ElseIf Form1.dxk_伐木.Value=1 Then
If sbtz = &46e1fdd4& Then
ElseIf Form1.dxk_草木.Value=1 Then
If sbtz = &4d7c054& Then
ElseIf Form1.dxk_草木.Value=1 Then
If sbtz = &4d7c054& Then
ElseIf Form1.dxk_矿石.Value=1 Then
If sbtz = &6f349954& Then
Loop While zd = 1
Delay 4000
Call 循环采集
Sub 是否出怪
fzz = dm.FindStr(561, 40, 726, 68, &伏昼者&, &ffffff-3b454d&, 0.9, GX, GY)
qyz = dm.FindStr(561, 40, 726, 68, &潜夜者&, &ffffff-3b454d&, 0.9, GX, GY)
If fzz=0 or qyz= 0 Then
dm.KeyPress 49
sd = dm.FindColor(557, 49, 601, 58, &4f7ebc-000000&, 0.9, 0, intX, intY)
If sd = 0 Then
Call 到位置采集
Loop While sd = 1
dm.LeftClick
dm.KeyPress 192
Delay 3800
[/code]喜欢的朋友帮忙顶下{:5_141:}

参考资料

 

随机推荐