您所在的位置：
& [QQ自由幻想]新闻公告 & 正文
你的《QQ自由幻想》图标在为谁点亮
日14:31 　
意念以人为先，个性更显性格。您是否希望您的《QQ自由幻想》图标与众不同？您是否希望个性的图标能显彰您的游戏等级？愿望并非奢望，《QQ自由幻想》满足您一切的幻想，开创图标显示的新时代。从此将会出现各种各样富有荣耀色彩的《QQ自由幻想》尊贵图标。
从现在开始，《QQ自由幻想》将会使用全新的图标体系，一共分为七种形状，当然等级越高的图标，模样也是越绚丽哦^_^，而且图标升级是根据等级来划分的，也就是说你在游戏中的等级越高，图标的等级当然也就越高咯！图标的设计真可谓是绞尽脑汁啊，金黄色的翅膀说明着QQ自由幻想本身，而活力的绿色做为底色，说明了QQ自由幻想的健康，创新的《QQ自由幻想》图标拥有强烈的个性主义，并且充满了的新鲜感，是不是让玩家们忍不住想立即拥有呢？那各位可要努力了噢！
当你把鼠标放到《QQ自由幻想》的图标上的时候，上面也不会再单调的显示“QQ自由幻想”了，取而代之的是全新的的个性称号。完成转职任务后，称号就会成为“QQ自由幻想入门者”；当你的等级达到30级之后，称号就会变为“QQ自由幻想进阶者”；当你的等级达到45级之后，称号又会变为“QQ自由幻想悟道者”……当你的等级达到100级的时候，最尊贵的称号属于您“QQ自由幻想神启者”！！！它的样子可是十分让玩家期待~~~在这里小记我相信各位玩家通过自己的努力一定会拿到梦寐以求的图标及称号的。
把你的努力化成最炫丽的图标，显现你与众不同的尊贵。《QQ自由幻想》个性化绚丽图标绝对会使你欲罢不能，还等什么，立刻来到《QQ自由幻想》，找寻属于自己的绚丽图标，抢夺QQ自由幻想那些光芒四射的称号及图标吧！
[责任编辑:miaodu]
更多关于“”的新闻
( 11:00:16)
( 10:58:58)
( 10:56:14)
( 09:54:23)
新网游视频
新网游画廊
腾讯微博：
同时更新资讯所属地
暂无更新，休息一会儿
白羊座(03.21-04.19)
金牛座(04.20-05.20)
双子座(05.21-06.21)
巨蟹座(06.22-07.22)
狮子座(07.23-08.22)
处女座(08.23-09.22)
天秤座(09.23-10.23)
天蝎座(10.24-11.22)
射手座(11.23-12.21)
摩羯座(12.22-01.19)
水瓶座(01.20-02.18)
双鱼座(02.19-03.20)
今日运势：
本日可多参与公众事务，将自己的意见与兴趣结合，提供同好们做参考，让欢乐的气氛添加一些趣味性...
Copyright & 1998 - 2017 Tencent. All Rights Reserved你的位置：
QQ自由幻想点亮图标成品源码，值得亲们学习哟
10:39:57 |
来源: 按键精灵资源站
[hide=d]// 这个need_ver作为本脚本需要使用的版本. 如果要换插件时，记得更改这个值.
need_ver = &3.1233&
PutAttachment &c:\dm&, &*.*&
PutAttachment &.\Plugin&, &RegDll.dll&
Call Plugin.RegDll.Reg(&c:\dm\dm.dll&)
Set dm = createobject(&dm.dmsoft&)
ver = dm.Ver()
If ver && need_ver Then
& & // 先释放先前创建的dm
& & Set dm = nothing
& & // 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
& & Set dm = createobject(&Wscript.Shell&)
& & dm.run &regsvr32 c:\dm\dm.dll /s&
& & Set dm = 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_ret = dm.SetPath(&c:\dm&)
dm_ret = dm.SetDict(0,&新宋.txt&)
'-----------------------------------------------------------------------------
hwnd = dm.FindWindow(&&,&QQ自由幻想(3.03公测版)& & 客户端版本号:1.1.16.252&)
dm.MoveWindow hwnd, - 1 , - 1
dm_ret = dm.SetWindowState(hwnd, 1)
dm_ret = dm.BindWindow(hwnd, &gdi&, &dx&, &windows&, 0)
dm.Delay 100
'-----------------------------------------------------------------------------
Dim 任务, 五级礼包(2), 十级礼包(1)
任务 = &传送|父女|七夕|拜访|丰盛|草药|教训|伤心|小松|情人|好心|为民|仰望|武器|虚弱|病叟|帮助|就职&
五级礼包(0) = &五级武器& : 五级礼包(1) = &五级手套& : 五级礼包(2) = &五级面具&
十级礼包(0) = &十级武器& : 十级礼包(1) = &十级戒指&
IsFile = Plugin.File.IsFileExit(&c:\dm\自由幻想.INI&)
If IsFile = True Then
& & Call Plugin.File.WriteINI(&自由幻想&, &任务进度&, 数值, &c:\dm\自由幻想.INI&)//写任务进度=0
& & Call Plugin.File.WriteINI(&自由幻想&, &五级礼包&, 五级, &c:\dm\自由幻想.INI&)//写5级礼包=1
& & Call Plugin.File.WriteINI(&自由幻想&, &十级礼包&, 十级, &c:\dm\自由幻想.INI&)//写10级礼包=1
游戏进度 = Plugin.File.ReadINI(&自由幻想&, &任务进度&, &c:\dm\自由幻想.INI&)//读游戏进度，为0
所有任务 = Plugin.File.ReadFileEx(&c:\dm\游戏文件.INI&)//读出文本类容
大型任务 = Split(所有任务, &|&)//竖线分割之，返回数组
'-----------------------------------------------------------------------------
BeginThread 验证码()//验证码线程开始
For 存储进度 = 游戏进度 To UBound(大型任务) - 1//各个任务的数组i
& & Call Plugin.File.WriteINI(&自由幻想&, &任务进度&, 存储进度, &c:\dm\自由幻想.INI&)//写入存储进度
& & 小型任务 = Split(大型任务(存储进度), &_&)//分割之，返回数组
& & 穿戴五级装备 = Plugin.File.ReadINI(&自由幻想&, &五级礼包&, &c:\dm\自由幻想.INI&)//读礼包为1
& & If CStr(穿戴五级装备) = &1& Then
& && &&&Call 五级装备()
& & End If
& & 穿戴十级装备 = Plugin.File.ReadINI(&自由幻想&, &十级礼包&, &c:\dm\自由幻想.INI&)
& & If CStr(穿戴十级装备) = &1& Then
& && &&&Call 十级装备()
& & End If
& & If 判断是否到达指定坐标(小型任务(1), 小型任务(2)) = True Then
& && &&&Call 小型任务中转站()
& & End If& &
'-----------------------------------------------------------------------------
Function 小型任务中转站()
& & Select Case 小型任务(0)//变量
& & Case &对话任务&//
& && &&&Call 对话任务()
& & Case &杀怪任务&
& && &&&Call 杀怪任务()
& & Case &购买任务&
& && &&&Call 购买任务()
& & Case &乘坐飞机&
& && &&&Call 乘坐飞机()
& & Case &合成任务&
& && &&&Call 合成任务()
& & End Select& & & &
End Function
'-----------------------------------------------------------------------------
Function 对话任务()
& & 超时重启 = Now
& & For 对话= 11 To UBound(小型任务)
& && &&&Do
& && && && &If DateDiff(&n&, 超时重启, Now) &= 3 Then //n表示分钟
& && && && && & Call Plugin.Media.Beep()
& && && && && & TracePrint &对话任务&
& && && && && & RestartScript
& && && && &End If
& && && && &Fs = dm.FindStr(180, 350, 630, 545, 小型任务(对话), &ffffff-000000&, 1.0, intX, intY)
& && && && &dm.Delay 100
& && &&&Loop Until intX & 0 And intY & 0
& && &&&左键点击 intX + 5, intY + 5
& && &&&dm.MoveTo 75, 570
& && &&&TracePrint &和NPC:& & 小型任务(9) & & 对话,对话内容:& & 小型任务(对话)
& & Call 关闭按钮()
End Function
'-----------------------------------------------------------------------------
Function 判断是否到达指定坐标(目标X, 目标Y)
& & Call 关闭按钮()
& & 超时重启 = Now
& & If 坐标判断(目标X, 目标Y) = True Then
& && &&&右键点击 705, 94
& & End If
& & '-------------------------------------------------------------------------
& && &&&If DateDiff(&n&, 超时重启, Now) &= 3 Then
& && && && &Call Plugin.Media.Beep()
& && && && &TracePrint &我在判断是否到达指定坐标这重启脚本啦&
& && && && &RestartScript
& && &&&End If
& && &&&'-------------------------------------------------------------------------
& && &&&If 坐标判断(目标X, 目标Y) = True Then
& && && && &TracePrint &到达固定坐标&
& && && && &判断是否到达指定坐标 = True
& && && && &Exit Do
& && &&&Else
& && && && &If 判断不动 = True Then
& && && && && & Do
& && && && && && &&&左键点击 595, 570
& && && && && && &&&dm.Delay 500
& && && && && && &&&Fs = dm.FindStr(220, 85, 410, 380, 任务, &ffffff-000000&, 1.0, intX, intY)
& && && && && && &&&If intX & 0 And intY & 0 Then
& && && && && && && && &左键点击 intX + 15, intY + 5
& && && && && && &&&End If
& && && && && && &&&Fs = dm.FindStr(小型任务(5), 小型任务(6), 小型任务(7), 小型任务(8), 小型任务(9), 小型任务(10), 1.0, intX, intY)
& && && && && && &&&If intX & 0 And intY & 0 Then
& && && && && && && && &左键点击 intX + 小型任务(3), intY + 小型任务(4)
& && && && && && &&&End If
& && && && && & Loop Until intX & 0 And intY & 0&&
& && && && && & 左键点击 595, 570
& && && && &End If
& && &&&End If& && &&&
End Function
Function 坐标判断(目标X, 目标Y)
& & 现在坐标 = dm.Ocr(660, 20, 770, 70, &ffffff-000000&, 1.0)
& & If 现在坐标 = && or InStr(现在坐标, &/&) &= 0 Then
& && &&&dm.Delay 500
& && &&&现坐标 = Split(现在坐标, &/&)
& && &&&现坐标X = 现坐标(0)
& && &&&现坐标Y = 现坐标(1)
& & End If
& & dm.Delay 500
& & If 现坐标X = 目标X And 现坐标Y = 目标Y Then
& && &&&坐标判断 = True
& && &&&坐标判断 = False
& & End If
End Function
Function 判断不动()
& & 颜色对比A = dm.GetColor(200, 300)
& & dm.Delay 500
& & 颜色对比B = dm.GetColor(200, 300)
& & 颜色对比C = dm.GetColor(600, 300)
& & dm.Delay 500
& & 颜色对比D = dm.GetColor(600, 300)
& & If 颜色对比A = 颜色对比B And 颜色对比C = 颜色对比D Then
& && &&&判断不动 = True
& && &&&判断不动 = False
& & End If& &
End Function
//Function 角色移动(目标X, 目标Y)
//& && &&&现在坐标 = dm.Ocr(660, 20, 770, 70, &ffffff-000000&, 1.0)
//& && &&&If 现在坐标 = && or InStr(现在坐标, &/&) &= 0 Then
//& && && && &dm.Delay 500&&
//& && &&&Else
//& && && && &现坐标 = Split(现在坐标, &/&)
//& && && && &现坐标X = 现坐标(0)
//& && && && &现坐标Y = 现坐标(1)
//& && &&&End If
//& && &&&大范围 = Sqr((目标X - 现坐标X) ^ 2 + (目标Y - 现坐标Y) ^ 2)
//& && &&&If 大范围 & 6 Then
//& && && && &鼠标范围 = 15 / 大范围
//& && && && &右键点击 707.5 + (目标X - 现坐标X) * 鼠标范围, 91.5 + (目标Y - 现坐标Y) * 鼠标范围
//& && &&&End If
//& && &&&If 大范围 & 5 And 大范围 &= 6 Then
//& && && && &右键点击 707.5 + (目标X - 现坐标X), 91.5 + (目标Y - 现坐标Y)
//& && &&&End If
//& && &&&TracePrint &角色移动&
//& & Loop Until 大范围 &= 4
//End Function
Function 角色移动(目标X, 目标Y)
& && &&&现在坐标 = dm.Ocr(660, 20, 770, 70, &ffffff-000000&, 1.0)
& && &&&If 现在坐标 = && or InStr(现在坐标, &/&) &= 0 Then
& && &&&Else
& && && && &现坐标 = Split(现在坐标, &/&)
& && && && &现坐标X = 现坐标(0)
& && && && &现坐标Y = 现坐标(1)
& && &&&End If
& && &&&大范围 = Sqr((目标X - 现坐标X) ^ 2 + (目标Y - 现坐标Y) ^ 2)//求幂运算
& && & If 大范围 &= 30 Then
& && && && &鼠标范围 = 30 / 大范围
& && && && &右键点击 707.5 + (目标X - 现坐标X) * 鼠标范围, 91.5 + (目标Y - 现坐标Y) * 鼠标范围
& && &&&ElseIf 大范围 &= 15 And 大范围 & 30 Then
& && && && &鼠标范围 = 15 / 大范围
& && && && &右键点击 707.5 + (目标X - 现坐标X) * 鼠标范围, 91.5 + (目标Y - 现坐标Y) * 鼠标范围
& && &&&ElseIf 大范围 & 5 And 大范围 & 15 Then
& && && && &鼠标范围 = 5 / 大范围
& && && && &右键点击 707.5 + (目标X - 现坐标X) * 鼠标范围, 91.5 + (目标Y - 现坐标Y) * 鼠标范围
& && &&&End If
& && &&&If 判断不动 = True Then
& && && && &Call Plugin.Media.Beep()
& && && && &Exit Do
& && &&&End If& & & & & & & && && &
& & Loop Until 大范围 &=3
End Function
'-----------------------------------------------------------------------------
Function 左键点击(X, Y)
& & dm.Delay 50
& & dm.MoveTo X, Y
& & dm.Delay 50
& & dm.LeftClick
& & dm.Delay 50
End Function
Function 左键双击(X, Y)
& & dm.Delay 50
& & dm.MoveTo X, Y
& & dm.Delay 50
& & dm.LeftDoubleClick
& & dm.Delay 50
End Function
Function 右键点击(X, Y)
& & dm.Delay 50
& & dm.MoveTo X, Y
& & dm.Delay 50
& & dm.RightClick
& & dm.Delay 50
End Function
Function 按键组合(A)
& & dm.KeyDown 18
& & dm.Delay 25
& & dm.KeyPress A
& & dm.Delay 25
& & dm.KeyUp 18
End Function
Function 关闭按钮()
& && &&&dm_ret = dm.FindPic(0, 0, 800, 600, &CloseFile.bmp&, &000000&, 1.0, 0, intX, intY)
& && &&&dm.Delay 100
& && &&&左键点击 intX + 5, intY + 5
& & Loop Until intX & 0 and intY & 0
End Function
'-----------------------------------------------------------------------------
Function 购买任务()
& & 超时重启 = Now
& & '判断购买列表是否打开
& & dm.Delay 500
& & Fs = dm.FindStr(180, 350, 630, 545, 小型任务(11), &ffffff-000000&, 1.0, intX, intY)
& & If intX & 0 And intY & 0 Then
& && &&&左键点击 intX + 5, intY + 5
& & End If
& && &&&TracePrint &和NPC:& & 小型任务(9) & & 对话,对话内容:& & 小型任务(11)
& && &&&dm.Delay 500
& && &&&Fs = dm.FindStr(145, 95, 415, 435, &肉片&, &f7f5f5-000000&, 1.0, intX, intY)
& && &&&If DateDiff(&s&, 超时重启, Now) & 10 Then
& && && && &Call 关闭按钮
& && && && &Call Plugin.Media.Beep()
& && && && &TracePrint &购买任务1&
& && && && &RestartScript
& && &&&End If& && &&&
& & Loop Until intX & 0 And intY & 0
& && &&&dm.Delay 1000
& && &&&Fs = dm.FindStr(145, 95, 415, 435, 小型任务(12), &f7f5f5-000000&, 1.0, intX, intY)
& && &&&If intX & 0 And intY & 0 Then
& && && && &左键点击 intX + 5, intY + 5
& && && && &dm.MoveTo 555, 235
& && && && &dm.Delay 100
& && && && &dm.LeftClick
& && && && &dm.Delay 500
& && && && &dm.KeyPress 13
& && && && &dm.Delay 500
& && && && &dm_ret = dm.FindPic(345, 470, 615, 550, &ZhiXingJiaoYi.bmp&, &000000&, 1.0, 0, intX, intY)
& && && && &If intX & 0 And intY & 0 Then
& && && && && & 左键点击 intX + 5, intY + 5
& && && && && & Call 关闭按钮()
& && && && && & Exit Do
& && && && &End If
& && &&&Else
& && && && &dm.Delay 100
& && && && &dm_ret = dm.FindPic(280, 440, 550, 520, &XiangXiaAnNiu.bmp&, &000000&, 1.0, 0, intX, intY)
& && && && &If&&intX & 0 And intY & 0 Then
& && && && && & dm.MoveTo intX + 5, intY + 5
& && && && && & dm.Delay 50
& && && && && & dm.LeftDown
& && && && && & dm.delay 800
& && && && && & dm.LeftUp
& && && && && & dm.Delay 50
& && && && && & dm.MoveTo intX + 100, intY + 5
& && && && && & dm.Delay 50
& && && && &End If
& && &&&End If
& & '判断是否买到所需物品
& && &&&左键点击 465, 570
& && &&&dm.Delay 500
& && &&&Fs = dm.FindStr(530, 245, 800, 520, &彩玉&, &F6B219-093C09&, 1.0, intX, intY)
& & Loop Until intX & 0 And intY & 0
& & If 小型任务(12) = &肉片& Then
& && &&&dm.Delay 500
& && &&&Fs = dm.FindPic(530, 115, 800, 390, &RouPian.bmp&, &000000&, 1.0, 0, intX, intY)
& && &&&If intX & 0 And intY & 0 Then
& && && && &TracePrint &已购买到所需肉片&
& && &&&Else
& && && && &Call 关闭按钮()
& && && && &Call Plugin.Media.Beep()
& && && && &RestartScript
& && &&&End If
& & ElseIf 小型任务(12) = &空瓶子& Then
& && &&&dm.Delay 500
& && &&&左键点击 649, 158
& && &&&dm.MoveTo 75, 570
& && &&&dm.Delay 500
& && &&&Fs = dm.FindPic(530, 115, 800, 390, &KongPingZi.bmp&, &000000&, 1.0, 0, intX, intY)
& && &&&If intX & 0 And intY & 0 Then
& && && && &TracePrint &已购买到所需空瓶子&
& && &&&Else
& && && && &Call 关闭按钮()
& && && && &Call Plugin.Media.Beep()
& && && && &TracePrint &购买任务2&
& && && && &RestartScript
& && &&&End If
& & End If
End Function
'-----------------------------------------------------------------------------
Function 杀怪任务()
& & Call 关闭聊天框和任务提示()
& & 超时重启 = Now
& & Call 角色移动(小型任务(11), 小型任务(12))
& & TracePrint &已到达指定目标&
& & dm.Delay 100
& & 存储坐标 = dm.Ocr(660, 20, 770, 70, &ffffff-000000&, 1.0)
& & 存坐标 = Split(存储坐标, &/&)
& & 存坐标X = 存坐标(0)
& & 存坐标Y = 存坐标(1)
& & dm.Delay 100
& & TracePrint &杀怪对象& & 小型任务(9)
& && &&&If DateDiff(&n&, 超时重启, Now) &= 10 Then
& && && && &Call Plugin.Media.Beep()
& && && && &TracePrint &杀怪任务&
& && && && &RestartScript
& && &&&End If
& && &&&现在坐标 = dm.Ocr(660, 20, 770, 70, &ffffff-000000&, 1.0)
& && &&&现坐标 = Split(现在坐标, &/&)
& && &&&现坐标X = 现坐标(0)
& && &&&现坐标Y = 现坐标(1)
& && &&&大范围 = Sqr((存坐标X - 现坐标X) ^ 2 + (存坐标Y - 现坐标Y) ^ 2)
& && &&&If 大范围 & 25 Then
& && && && &Call 角色移动(存坐标X, 存坐标Y)
& && &&&End If
& && &&&dm.Delay 100
& && &&&Fs = dm.FindStr(530, 195, 800, 275, 小型任务(13), &ffffff-000000&, 1.0, intX, intY)
& && &&&If intX & 0 And intY & 0 Then
& && && && &TracePrint 小型任务(13)
& && && && &Call 结束战斗()
& && && && &Exit Do
& && &&&Else
& && && && &If 判断物品 = True Then
& && && && && & Call 捡取物品()
& && && && &End If& && && && &
& && &&&End If& &
& & Loop& && && && &&&
End Function
Function 结束战斗()
& && &&&dm.Delay 100
& && &&&dm_ret = dm.FindPic(380, 0, 650, 85, &DaGuaiJianWu.bmp&, &000000&, 1.0, 0, intX, intY)
& && &&&If intX & 0 and intY & 0 Then
& && && && &按键组合 87
& && &&&Else
& && && && &Exit Do
& && &&&End If& && &
End Function
Function 开始战斗()
& && &&&dm.Delay 100
& && &&&dm_ret = dm.FindPic(380, 0, 650, 85, &DaGuaiJianWu.bmp&, &000000&, 1.0, 0, intX, intY)
& && &&&If intX & 0 and intY & 0 Then
& && && && &Exit Do
& && &&&Else
& && && && &按键组合 87
& && &&&End If
End Function
Function 判断物品()
& & 判断物品 = False
& & dm_ret = dm.FindStr(65, 135, 615, 485, &肉片|兔毛|松子果|的桃叶|花瓣|的花瓣|野猪牙&, &f6f1ba-000000&, 1.0, intX, intY)
& & If intX & 0 and intY & 0 Then
& && &&&判断物品 = True
& && &&&Call 结束战斗()
& && &&&判断物品 = False
& && &&&Call 开始战斗()
& & End If
End Function
Function 捡取物品()
& && &&&dm.Delay 100
& && &&&dm_ret = dm.FindStr(65, 133, 617, 486, &肉片|兔毛|松子果|的桃叶|花瓣|的花瓣|野猪牙&, &f6f1ba-000000&, 1.0, JwX, JwY)
& && &&&If JwX & 0 and JwY & 0 Then
& && && && &左键点击 JwX + 10, JwY + 15
& && && && &左键点击 JwX + 10, JwY + 15
& && &&&Else
& && && && &Exit Do
& && &&&End If
End Function
'-----------------------------------------------------------------------------
Function 合成任务()
& & 超时重启 = Now
& & '判断是否打开合成物品
& & dm.Delay 500
& & Fs = dm.FindStr(180, 350, 630, 545, 小型任务(11), &ffffff-000000&, 1.0, intX, intY)
& & If intX & 0 And intY & 0 Then
& && &&&左键点击 intX + 5, intY + 5
& && &&&dm.MoveTo 75, 570
& & End If
& & TracePrint &和NPC:& & 小型任务(9) & & 对话,对话内容:& & 小型任务(11)
& && &&&If DateDiff(&s&, 超时重启, Now) & 10 Then
& && && && &Call 关闭按钮
& && && && &Call Plugin.Media.Beep()
& && && && &TracePrint &合成任务1&
& && && && &RestartScript
& && &&&End If& & & & & &
& && &&&dm.Delay 500
& && &&&Fs = dm.FindStr(215, 50, 485, 220, 小型任务(12), &ffffff-000000&, 1.0, intX, intY)
& & Loop Until intX & 0 And intY & 0
& & '开始合成或加工物品
& & 超时重启 = Now
& && &&&dm.Delay 500
& && &&&Fs = dm.FindStr(215, 50, 485, 220, 小型任务(12), &ffffff-000000&, 1.0, intX, intY)
& && &&&If intX & 0 And intY & 0 Then
& && && && &左键点击 intX + 5, intY + 5
& && && && &TracePrint &开始合成或加工物品:& & 小型任务(12)
& && &&&End If
& && &&&If 小型任务(12) = &哈氏金创药& Then
& && && && &dm.Delay 500
& && && && &Fs = dm.FindPic(195, 20, 495, 600, &HeCheng.bmp&, &000000&, 1.0, 0, intX, intY)
& && && && &If&&intX & 0 And intY & 0 Then
& && && && && & 左键点击 intX + 5, intY + 5
& && && && &End If
& && &&&ElseIf 小型任务(12) = &幻念& Then
& && && && &dm.Delay 500
& && && && &Fs = dm.FindPic(195, 20, 495, 600, &JiaGong.bmp&, &000000&, 1.0, 0, intX, intY)
& && && && &If intX & 0 And intY & 0 Then
& && && && && & 左键点击 intX + 5, intY + 5
& && && && &End If
& && &&&End If
& && &&&dm.Delay 500
& && &&&Fs = dm.FindStr(215, 50, 485, 220, 小型任务(12), &ffffff-000000&, 1.0, intX, intY)
& && &&&If intX & 0 And intY & 0 Then
& && &&&Else
& && && && &Exit Do
& && &&&End If& && &&&
& && &&&If DateDiff(&s&, 超时重启, Now) & 10 Then
& && && && &Call 关闭按钮
& && && && &Call Plugin.Media.Beep()
& && && && &TracePrint &合成任务2&
& && && && &RestartScript
& && &&&End If& &
& & Loop& && && && &
& & Call 关闭按钮()
& & 右键点击 705, 94
End Function
'-----------------------------------------------------------------------------
Function 乘坐飞机()
& & 超时重启 = Now
& & dm.MoveTo 400, 300
& & dm.Delay 500
& & 十级判断 = dm.Ocr(0, 0, 30, 30, &f9cb2b-000000&, 1.0)
& & If 十级判断 &= 10 Then
& && &&&dm.Delay 500
& && &&&Fs = dm.FindStr(180, 350, 630, 545, 小型任务(11), &ffffff-000000&, 1.0, intX, intY)
& && &&&If intX & 0 And intY & 0 Then
& && && && &左键点击 intX + 5, intY + 5
& && &&&End If
& && &&&dm.Delay 500
& && &&&Fs = dm.FindStr(165, 15, 445, 455, 小型任务(12), &ffffff-000000&, 1.0, intX, intY)
& && &&&If intX & 0 And intY & 0 Then
& && && && &左键双击 intX + 5, intY + 5
& && &&&End If& &
& && &&&Fs = dm.FindStr(180, 350, 630, 545, 小型任务(11), &ffffff-000000&, 1.0, intX, intY)
& && &&&If intX & 0 And intY & 0 Then
& && && && &左键点击 intX + 5, intY + 5
& && &&&End If
& & End If
& && &&&dm.MoveTo 400, 300
& && &&&dm.Delay 500
& && &&&十级判断 = dm.Ocr(0, 0, 30, 30, &f9cb2b-000000&, 1.0)
& && &&&If DateDiff(&s&, 超时重启, Now) & 10 Then
& && && && &Call 关闭按钮()
& && && && &Call Plugin.Media.Beep()
& && && && &TracePrint &乘坐飞机&
& && && && &RestartScript
& && &&&End If& &
& & Loop Until 十级判断 && &&
End Function
'-----------------------------------------------------------------------------
Function 五级装备()
& & dm.MoveTo 400, 300
& & 等级 = dm.Ocr(0, 0, 30, 30, &f9cb2b-000000&, 1.0)
& & If 等级 = &5& Then
& && &&&左键点击 465, 570
& && &&&dm.Delay 500
& && &&&dm_ret = dm.FindPic(530, 115, 800, 390, &WjLb.bmp&, &000000&, 0.9, 0, intX, intY)
& && &&&If&&intX & 0 And intY & 0 Then
& && && && &dm.MoveTo intX, intY
& && && && &dm.Delay 100
& && && && &dm.LeftDoubleClick
& && && && &dm.Delay 500
& && &&&End If
& && &&&左键点击 702, 159
& && &&&dm.MoveTo 75, 570
& && &&&For I = 0 To 2
& && && && &dm.Delay 500
& && && && &dm_ret = dm.FindPic(530, 115, 800, 390, 五级礼包(I) & &.bmp&, &000000&, 0.9, 0, intX, intY)
& && && && &If&&intX & 0 And intY & 0 Then
& && && && && & dm.MoveTo intX + 15, intY + 15
& && && && && & dm.Delay 50
& && && && && & dm.LeftDoubleClick
& && && && && & dm.Delay 500
& && && && && & dm.MoveTo 75, 570
& && && && &End If
& && &&&Next
& && &&&Call Plugin.File.WriteINI(&自由幻想&, &五级礼包&, &2&, &c:\dm\自由幻想.INI&)
& & End If
End Function
Function 十级装备()
& & dm.MoveTo 400, 300
& & 等级 = dm.Ocr(0, 0, 30, 30, &f9cb2b-000000&, 1.0)
& & If 等级 = &10& Then
& && &&&左键点击 465, 570
& && &&&dm.Delay 500
& && &&&dm_ret = dm.FindPic(530, 115, 800, 390, &WjLb.bmp&, &000000&, 0.9, 0, intX, intY)
& && &&&If&&intX & 0 And intY & 0 Then
& && && && &dm.MoveTo intX, intY
& && && && &dm.Delay 100
& && && && &dm.LeftDoubleClick
& && && && &dm.Delay 500
& && &&&End If
& && &&&左键点击 702, 159
& && &&&dm.MoveTo 75, 570
& && &&&For I = 0 To 1
& && && && &dm.Delay 500
& && && && &dm_ret = dm.FindPic(530, 115, 800, 390, 十级礼包(I) & &.bmp&, &000000&, 0.9, 0, intX, intY)
& && && && &If&&intX & 0 And intY & 0 Then
& && && && && & dm.MoveTo intX + 15, intY + 15
& && && && && & dm.Delay 50
& && && && && & dm.LeftDoubleClick
& && && && && & dm.Delay 500
& && && && && & dm.MoveTo 75, 570
& && && && &End If
& && &&&Next
& && &&&Call Plugin.File.WriteINI(&自由幻想&, &十级礼包&, &2&, &c:\dm\自由幻想.INI&)
& & End If
End Function
Function 关闭聊天框和任务提示()
& && &&&dm.Delay 500
& && &&&dm_ret = dm.FindPic(0, 240, 800, 550, &Ltk.bmp|RwTs.bmp&, &000000&, 1.0, 0, intX, intY)
& && &&&左键点击 intX,intY
& & Loop Until intX & 0 And intY & 0
End Function
Function 验证码()
& & set dm = createobject(&dm.dmsoft&)
& & dm_ret = dm.SetPath(&c:\dm&)
& & '-----------------------------------------------------------------------------
& & hwnd = dm.FindWindow(&&, &QQ自由幻想(3.03公测版)& & 客户端版本号:1.1.16.252&)
& & dm_ret = dm.BindWindow(hwnd, &gdi&, &dx&, &dx&, 0)
& && &&&dm_ret = dm.FindPic(0, 0, 800, 600, &YanZhengMa.bmp&, &000000&, 1.0, 0, intX, intY)
& && &&&If intX & 0 And IntY & 0 Then
& && && && &Call Plugin.Media.Beep()
& && && && &YanZhengMa = InputBox(&内容框填1就选第一个答案&, &验证码出来了&)
& && && && &Select Case CLng(YanZhengMa)
& && && && &Case 1
& && && && && & dm.MoveTo intX - 5, intY + 20
& && && && && & dm.Delay 20
& && && && && & dm.LeftClick
& && && && &Case 2
& && && && && & dm.MoveTo intX - 5, intY + 40
& && && && && & dm.Delay 20
& && && && && & dm.LeftClick
& && && && &Case 3
& && && && && & dm.MoveTo intX - 5, intY + 60
& && && && && & dm.Delay 20
& && && && && & dm.LeftClick
& && && && &Case 4
& && && && && & dm.MoveTo intX - 5, intY + 80
& && && && && & dm.Delay 20
& && && && && & dm.LeftClick
& && && && &Case Else
& && && && && & For 5
& && && && && && &&&dm.Delay 100
& && && && && & Next
& && && && &End Select& && &&&
& && &&&Else
& && && && &For 5
& && && && && & dm.Delay 1000
& && && && &Next
& && &&&End If
End Function
Sub OnScriptExit()
& & dm_ret = dm.UnBindWindow()