- 注释://///////////////////////////////////////////////////////
- (语句无法识别,可能有错误): PutAttachment ".\plugin","*.dll"'释放DLL
- (语句无法识别,可能有错误): PutAttachment "c:\XYW","*.bmp"'释放DLL
- 展开附件 *.txt 到 c:\XYW 文件夹
- 令 ws = createobject("Wscript.Shell")
- (语句无法识别,可能有错误): ws.run "regsvr32 ./plugin/dm.dll /s"'注册DLL
- 令 ws = nothing
- 延时 yc + 500 毫秒
- 注释://///////////////////////////////////////////////////////
- 注释://///////////////////////////////////////////////////////
- 定义变量 dm
- 令 dm = CreateObject("dm.dmsoft")
- 注释:base_path = dm.GetBasePath()
- 注释:dm_ret = dm.SetPath("C:\XYW\")
- 注释:dm_ret = dm.SetDict(0,"dm_soft.txt")
- 令 dm_ret = dm.SetDict(0,"C:\XYW\xyw.txt")
- 注释://///////////////////////////////////////////////////////
- 用户定义变量 zhwz=1 "帐号在几个位置"
- 用户定义变量 fgf="----" "帐号密码分割符"
- 用户定义变量 yxlj="D:\游戏\大话西游外传\xyw.exe" "游戏路径"
- 用户定义变量 zhlj="c:\XYW\帐号.txt" "帐号路径"
- 用户定义变量 zcm="Oalbccfaja3bCbccacDaCaOabaVbIbAaPd3d8bUaBd9dbaRbxcgd" "注册码"
- 用户定义变量 yc=50 "延迟数字"
- 用户定义变量 wbjd=DropList{"读文本帐号":"1"|"读当前开号":"2"}=0 "师门进度"
- (语句无法识别,可能有错误): Dim lj//游戏路径
- (语句无法识别,可能有错误): Dim zhlj//帐号路径
- (语句无法识别,可能有错误): DIM DITU//游戏地图
- (语句无法识别,可能有错误): DIM DITUX//游戏X
- (语句无法识别,可能有错误): DIM DITUY//游戏Y
- (语句无法识别,可能有错误): Dim yao//药的名字
- (语句无法识别,可能有错误): Dim zhuangbei//装备名字
- (语句无法识别,可能有错误): Dim s//任务的名字
- (语句无法识别,可能有错误): Dim guai//怪的名字
- (语句无法识别,可能有错误): Dim guaiditu//怪的地图
- 定义变量 hwnd
- 标记 开始
- 如果 wbjd = 1 则
- 注释: Call 验证机器码和时间
- 调用 去掉空行和空格
- 调用 分割上号
- 调用 游戏上号
- 调用 开录象
- 调用 疲敝
- 调用 识别任务
- 跳转到标记 开始
- 否则
- 调用 移动窗口
- 调用 疲敝
- 调用 识别任务
- 跳转到标记 开始
- 条件结束
- 子程序 开录象()
- 调用 把当前活动程序的内存地址 &h005BDB94 的 2 类型值保存到 ncx
- 延时 2 毫秒
- 调用 把当前活动程序的内存地址 &h005BDB98 的 2 类型值保存到 ncy
- 延时 2 毫秒
- 如果 ncx = 0 并且 ncy = 0 则
- 弹出窗口 "没有开启录象,开启录像,保存,下线在上。在开脚本!脚本已经停止"
- 脚本停止运行
- 否则
- 条件结束
- 子程序结束
- 注释:识别任务
- 子程序 识别任务()
- 标记 任务(子程序 识别任务)
- 调用 检测战斗
- 调用 取消自动
- 调用 关闭任务
- 调用 对话和2
- 调用 打开任务
- 标记 框(子程序 识别任务)
- 从左上到右下查找图片 "C:\XYW\框.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:807 下:621),相似度 1.0
- 如果 intX > 0 并且 intY > 0 则
- 调用 修正偏移(intX + 68,intY + 5)
- 延时 yc + 200 毫秒
- 跳转到标记 框(子程序 识别任务)
- 条件结束
- 延时 yc + 500 毫秒
- 令 dm_ret = dm.FindStr(0,0,807,621,"师门","e0b468-000000",0.8,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- 调用 做任务
- 否则
- 调用 关闭任务
- 调用 接任务
- 条件结束
- 跳转到标记 任务(子程序 识别任务)
- 子程序结束
- 注释:做任务
- 子程序 做任务()
- 标记 任务1(子程序 做任务)
- 调用 打开任务
- 标记 框(子程序 做任务)
- 从左上到右下查找图片 "C:\XYW\框.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:807 下:621),相似度 1.0
- 如果 intX > 0 并且 intY > 0 则
- 调用 修正偏移(intX + 68,intY + 5)
- 延时 yc + 200 毫秒
- 跳转到标记 框(子程序 做任务)
- 条件结束
- 令 s = dm.Ocr(238,141,381,241,"e8e8b0-000000",1)
- 如果 s = "召唤兽需求" 则