现在在百度知道上总是看到有人在求天龙八部的脚本，请问脚本到底是什么啊？_百度知道你的位置：
发一段自己写的天龙八部 太湖 刷种植的 脚本【有完整注释】
16:27:17 |
来源: 按键精灵资源站
need_ver = &3.1205&
PutAttachment &d:\tltest&,&*.*&
PutAttachment &.\Plugin&, &RegDll.dll&
Call Plugin.RegDll.Reg(&D:\tltest\dm.dll&)
Set dm = createobject(&dm.dmsoft&)
ver = dm.Ver()
If ver && need_ver Then
& & Set dm = nothing
& & Set ws = createobject(&Wscript.Shell&)& &
& & ws.run ®svr32 D:\tltest\dm.dll /s&
& & Set ws = nothing
& & Delay 1500
& & Set dm = createobject(&dm.dmsoft&)
& & ver = dm.Ver()
& & If ver && need_ver Then
& && &&&MessageBox &版本错误,当前使用的版本是:& & ver & &,插件所在目录是:& & dm.GetBasePath()
& && &&&messagebox &请关闭程序,重新打开本程序再尝试&
& && &&&endscript
& & End If
dm.SetPath &D:\tltest&
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, &dx&, &dx&, &dx&, 0)
// 检测绑定返回值
if dm_ret = 0 then
& & last_error = dm.GetLastError()
& & // 如果是WIN7 VISTA WIN2008系统,检测当前系统是否有开启UAC
& & if dm.GetOsType() = 3 then
& && &&&// 有开启UAC的话，尝试关闭
& && &&&If dm.CheckUAC() = 1 Then
& && && && &If dm.SetUAC(0) = 1 Then
& && && && && & // 关闭UAC之后，必须重启系统才可以生效
& && && && && & MessageBox &已经关闭系统UAC设置，必须重启系统才可以生效。点击确定重启系统&
& && && && && & dm.ExitOs 2
& && && && && & Delay 2000
& && && && && & EndScript
& && && && &End If
& && &&&End If
& & End If
& & // 具体错误码的含义，可以参考函数GetLastError的说明.
& & MessageBox &绑定失败，错误码是:& & last_error
& & MessageBox &如果确定关闭了UAC,很可能是系统的防火墙拦截插件，请暂时关闭360等安全防火墙再尝试&
& & EndScript
//获取页面长和宽
dm_ret = dm.GetClientSize(hwnd,Ww,Wh)
xArr = Array(169, 176, 183, 190)
yArr = Array(194,203)
xIndex = 0
yIndex = 0
xIndex = xIndex + 1
If xIndex & 3 Then
& & xIndex = 0
& & If yIndex = 0 Then
& && &&&yIndex = 1
& && &&&Else
& && &&&yIndex = 0& && &&&
& & End If& &
x = xArr(xIndex)
y = yArr(yIndex)
Delay 1000
Call 移动(x, y)
//10秒移动时间
Delay 10000
Call 种植()
Sub 种植()
& & //点页面中间位置 （当前稻草人位置）
& & dm.MoveTo Ww/2, Wh/2
& & Delay 200
& & dm.LeftClick
& & Delay 500
& & //找到 稻草人上面 【早产作物】 如果没有就重新找地
& & dm_ret = dm.FindPic(0,0,Ww,Wh,&D:\tltest\早产.bmp&,&.9,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&Else
& && &&&Goto 找地
& & End If& &
& & dm.MoveTo intX, intY+5
& & Delay 200
& & dm.LeftClick
& & Delay 500
& & //找到 稻草人上面 【早产花生】 如果没有就重新找地
& & dm_ret = dm.FindPic(0,0,Ww,Wh,&D:\tltest\花生.bmp&,&.9,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&Else
& && &&&Goto 找地
& & End If& &
& & dm.MoveTo intX, intY+5
& & Delay 200
& & dm.LeftClick
& & Call 种植成功()
Sub 移动(iX, iY)& &
& & dm_ret = dm.FindPic(0, 0, Ww, Wh, &D:\tltest\坐标.bmp&, &000000&, 0.9, 0, intX, intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&//如果自动寻路已经有了就关闭& && &&&
& && &&&Delay 200
& && &&&dm.KeyDown 18
& && &&&Delay 200
& && &&&dm.KeyPress 192
& && &&&Delay 200
& && &&&dm.KeyUp 18
& & End If
& & //打开寻路框
& & Delay 200
& & dm.KeyDown 18
& & Delay 200
& & dm.KeyPress 192
& & Delay 200
& & dm.KeyUp 18
& & Delay 500
& & //找到坐标两个字 并且移动到X坐标输入框上面
& & dm_ret = dm.FindPic(0, 0, Ww, Wh, &D:\tltest\坐标.bmp&, &000000&, 0.9, 0, intX, intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&dm.MoveTo intX+35,intY+7
& && &&&Else
& && &&&MessageBox &找不到输入坐标框&
& && &&&EndScript
& & End If
& & //dm.MoveTo 900,495
& & //点击X坐标输入框 并输入坐标
& & dm.LeftClick
& & Delay 200
& & dm.KeyPressStr iX, 20
& & Delay 200
& & dm.KeyPress 13
& & Delay 200
& & dm.KeyPressStr iY, 20
& & Delay 200
& & dm.KeyPress 13& &
Sub 种植成功()
& & Delay 500
& & //出现开始种植了 几个字说明 种植成功
& & dm_ret = dm.FindPic(0,0,Ww,Wh,&D:\tltest\开始种植.bmp&,&.9,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&//开始种植就按F1打坐
& && &&&dm.KeyPress 112
& && &&&//5分钟之后继续找地
& && &&&Delay 300000
& && &&&Goto 找地
& && &&&Else
& && &&&Goto 找地
& & End If
有几张图片 因为不能上传bmp格式的图片 打包上传上来了，但是这个编辑器不知道为什么看不到附件 也不知道发上来没有
我在这截个图 给大家看下吧 最好大家自己截图 因为游戏设置的不一样 所以有可能 会找不到
下载地址请访问原帖