求一个qq仙境钓鱼最新钓鱼脚本没毒的啊 我...

来源：蜘蛛抓取(WebSpider) 时间：2011-10-05 05:56 标签： qq仙境钓鱼
推荐这篇日记的豆列
&&&&&&&&&&&&QQ仙境钓鱼有什么用？
　　QQ仙境里面钓鱼有什么用啊，听说能够得道具，是真的吗?能够得到什么道具啊?
　　可以，钓鱼分两种，手动和自动。手动可以钓材料，自动得经验。钓到的好鱼可以卖钱。钓到箱子抽到好东东也是很值钱的，还可以开坐骑，还有50级的材料等。另外钓鱼还可以做药的，你要先找那NPC学习，不过材料难搞。你的位置：
QQ仙境后台多开钓鱼脚本当初值350
22:25:17 |
来源: 按键精灵资源站
本帖最后由 qq 于
20:11 编辑
小浣熊交流群& &&&
[code]//&&--------------------环境变量--------------------&&
DimEnv a开
//&&--------------------注册--------------------&&
//&&--------------------注册插件--------------------&&
Call 注册()
//&&--------------------启动窗口--------------------&&
//&&--------------------启动窗口--------------------&&
key = GetLastKey()
If key = 118 Then
a开 = dm.GetMousePointWindow()
BeginThread 开始工作
//&&--------------------主程序--------------------&&
//&&--------------------主程序--------------------&&
Sub 开始工作()
句柄 = a开
set dm = createobject(&dm.dmsoft&)//创建大漠文件
dm.SetPath &.\plugin\小浣熊&//设置全局路径
Call 绑定()
Call 判断是否钓鱼()
Call 抓鱼()
//&&-----------------------子程序-----------------------&&
//&&-----------------------子程序-----------------------&&
Sub 注册()
PutAttachment &.\plugin&,&*.dll&
PutAttachment &.\plugin\小浣熊&, &dm.dll&
PutAttachment &.\plugin\小浣熊&, &*.bmp&
Call Plugin.RegDll.Reg(&.\plugin\小浣熊\dm.dll&)//注册大漠插件
set dm = createobject(&dm.dmsoft&)//创建大漠文件
dm.SetPath &.\plugin\小浣熊&//设置全局路径
//-------------------------------//
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
//-------------------------------//
Sub 绑定()
激活 = dm.SetWindowState(句柄, 1)
TracePrint 激活
返回 = dm.BindWindow(句柄,&dx&,&windows&,&dx&,0)
TracePrint 返回
//-------------------------------//
Sub 抓鱼()
抓鱼1 = dm.FindPic(0, 0, , &抓鱼.bmp&, &000000&, 0.8, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
判断 = dm.CmpColor(intx - 4, inty + 6, &ff8b01-000000&, 0.9)
If 判断 = 0 Then
TracePrint &相等&
dm.keypress 32
TracePrint&拉杆了&
Delay 4500
//-------------------------------//
Sub 判断是否钓鱼()
If 计次 = 3 Then
TracePrint &没有耐久了&
dm.keydown 37
Delay 2000
dm.keyup 37
dm.keypress 32
Call 购买窗口()
Call 钓鱼竿()
Call 找确认()
dm.keypress 27
dm.keypress 27
dm.keypress 73
Call 找鱼竿()
dm.keydown 39
Delay 4000
dm.keyup 39
dm.keypress 32//空格钓鱼
Delay 2500
//判断钓鱼
正在 = dm.FindPic(0, 0, , &正在钓鱼.bmp&, &000000&, 0.9, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint &钓鱼中&
计次 = 计次 + 1
//-------------------------------//
Sub 购买窗口()
//购买窗口
购买 = dm.FindPic(0, 0, , &购买.bmp&, &000000&, 0.9, 0, intX, intY)
TracePrint 购买
If intX &= 0 and intY &= 0 Then
dm.moveto intx + 5, inty +5
dm.leftclick
//-------------------------------//
Sub 钓鱼竿()
//找钓鱼竿
钓鱼 = dm.FindPic(0, 0, , &钓鱼竿.bmp&, &000000&, 0.9, 0, intX, intY)
TracePrint 钓鱼
If intX &= 0 and intY &= 0 Then
dm.moveto intx + 10, inty +10
dm.LeftDoubleClick
//-------------------------------//
Sub 找确认()
确认 = dm.FindPic(0, 0, , &确认.bmp&, &000000&, 0.9, 0, intX, intY)
TracePrint 确认
If intX &= 0 and intY &= 0 Then
dm.moveto intx + 5, inty +5
dm.leftclick
//-------------------------------//
Sub 找鱼竿()
鱼竿 = dm.FindPic(0, 0, , &鱼竿.bmp&, &000000&, 0.9, 0, intX, intY)
TracePrint 鱼竿
If intX &= 0 and intY &= 0 Then
dm.moveto intx , inty
dm.LeftDoubleClick
dm_ret = dm.FindPic(0,0,,&耐久.bmp&,&.9,0,intX,intY)
If intX &= 0 and intY &= 0 Then
dm.moveto intx, inty
dm.LeftDown
dm.moveto intx + 150, inty + 400
call 耐久确定()
dm.KeyPress 27
dm.KeyPress 73
//-------------------------------//
Sub 耐久确定()
确定 = dm.FindPic(0, 0, , &耐久确定.bmp&, &000000&, 0.8, 0, intX, intY)
TracePrint 确定
If intX &= 0 and intY &= 0 Then
dm.moveto intx + 5, inty +5
dm.leftclick
End Sub[/code]

我要回帖

更多关于 qq仙境钓鱼 的文章

 

随机推荐