例子1：

Dim i=0

If i=0 Then

    TracePrint "条件判断符合被通过!!"

End If

//通过判断表达式的取值，来执行后面的动作或控制

例子2：

Dim i=0

If i=0 Then

    TracePrint "条件判断符合被通过!!"

ElseIf i=1 Then

    TracePrint "否则条件判断符合被通过!!"

Else

    TracePrint "否则!!"

End If

//通过判断表达式的取值，来执行后面的动作或控制

//不支持判断语句 如：Case a>0

//<>---------------------------------------------以下是选择条件结结构判断

Dim 变量=1

Select Case 变量

Case 0,1    可支持判断多个值,中间以逗号隔开

    TracePrint "你输入的数字为：0或者1"

Case 2

    TracePrint "你输入的数字为：2"

Case 3

    TracePrint "你输入的数字为：3"

Case 4

    TracePrint "你输入的数字为：4"

Case 5

    TracePrint "你输入的数字为：5"

Case 6

    TracePrint "你输入的数字为：6"

Case 7

    TracePrint "你输入的数字为：7"

Case 8

    TracePrint "你输入的数字为：8"

Case 9

    TracePrint "你输入的数字为：9"

Case Else

    TracePrint "你输入的数字不正确，请输入（0~9）数字！"

End Select

例子1：

//支持Exit Do 命令退出循环

Do

    TracePrint "我停不下来啦!!快住手"

Loop

//最常见的无限循环（死循环）

例子2：

Dim i=0

Do While i=0

    TracePrint "我停不下来啦!!快住手"

Loop

//当循环条件成立的时候，反复执行循环体
例子3：

Dim i=0

Do Until i=0

    TracePrint "为什么没有循环到我呢？"

Loop

TracePrint "循环结束"

//当循环条件成立的时候，离开循环体
例子4：

Dim i=0

Do Until i=1

    TracePrint "我停不下来啦!!快住手"

Loop

//当循环条件不成立的时候，反复执行循环体
例子5：

Dim i=0

Do

   TracePrint "ok"

Loop While i <> 0

//条件放后面，前面的循环内容可以执行一次！
例子6：

Dim n=0

Do While true

    TracePrint "我将循环10次停下来!!"

    If n>=10 Then

        //当循环条件成立的时候，离开循环体

        Exit do

    End if

    n=n+1

Loop

TracePrint n & "次"

例子1：固定循环次数后离开

For 10 '固定循环10次跳出

    TracePrint "循环中……"

Next

TracePrint "离开循环"

例子2：范围循环

Dim i

For i = 0 To 9 '这里没写步长，默认每次循环结束 i 都+1，

那么10次后等于9，第11次等于10，大于9，离开循环

    TracePrint "循环中，i=" & i

Next

TracePrint "离开循环，i=" & i
Dim i

For i = 0 To 19 Step 2 '步长为2，每次循环结束 i 都+2，

那么10次后等于18，第11次等于20，大于19，离开循环

    TracePrint "循环中，i=" & i

Next

TracePrint "离开循环，i=" & i
Dim i

For i = 9 To 0 Step -1 '步长为-1，每次循环结束 i 都-1，

那么10次后等于0，第11次等于-1，小于0，离开循环

    TracePrint "循环中，i=" & i

Next

TracePrint "离开循环，i=" & i
例子3：循环离开

Dim i

i=5

For i=0 To 10

    TracePrint "循环中，i=" & i

    If i=5 Then

        Exit For '离开当前For循环

    End If

Next

Dim Arr

Arr=Array("我","爱","按","键","精","灵","!")

For Each a In Arr

TracePrint  a    //输出数组的所有元素

Next

例子1

Dim i=0

While i=0

    TracePrint "我停不下来啦!!快住手"

Wend

//当循环条件成立的时候，反复执行循环体

例子2

Dim i

i = 0

//跳出循环

While i < 10
   i = i + 1
   TracePrint "正在循环中，i=", i
   If i = 5 then
      TracePrint "准备退出循环"
      Exit While
   End If
Wend
TracePrint "循环结束，i=", i

例子1：自定义函数调用

Call 自定义函数()

EndScript

Function 自定义函数()

    TracePrint "我是自定义函数,被你调用了"

End Function

例子2：自定义函数调用并传入参数，参数可支持多个。

Dim 变量1,变量2

变量1="我是字符串信息"

变量2=123

Call 子程序(变量1,变量2,"第三个参数",456)

EndScript

//定义一个过程,可以在脚本中调用这个过程

Function 自定义函数(参数1,参数2,参数3,参数4)

    TracePrint "我是自定义函数,被你调用了"

    TracePrint "参数1=" & 参数1

    TracePrint "参数2=" & 参数2

    TracePrint "参数3=" & 参数3

    TracePrint "参数4=" & 参数4

End Function

//支持Exit Function 命令直接退出子程序过程
例子3：Function与Sub的区别，支持返回值

Dim 返回值

返回值=自定义函数()

TracePrint 返回值

EndScript

Function 自定义函数()

    TracePrint "我是自定义函数,被你调用了"

    自定义函数="把过程中想要返回的信息写这里"

End Function
例子4：自定义函数加法运算

Dim 返回值

返回值=加法运算(1,2)

TracePrint 返回值

EndScript

Function 加法运算(参数1,参数2)

    TracePrint "我是自定义函数,被你调用了"

    Dim 计算结果

    计算结果=参数1+参数2

    加法运算=计算结果

End Function

例子1：子程序调用

Call 子程序()

EndScript

Sub 子程序()

    TracePrint "我是子程序,被你调用了"

End Sub

例子2：子程序调用并传入参数，参数可支持多个。

Dim 变量1,变量2

变量1="我是字符串信息"

变量2=123

Call 子程序(变量1,变量2,"第三个参数",456)

EndScript

//定义一个过程,可以在脚本中调用这个过程

Sub 子程序(参数1,参数2,参数3,参数4)

    TracePrint "我是子程序,被你调用了"

    TracePrint "参数1=" & 参数1

    TracePrint "参数2=" & 参数2

    TracePrint "参数3=" & 参数3

    TracePrint "参数4=" & 参数4

End Sub

//支持Exit Sub 命令直接退出子程序过程

//不支持数字开头的和符号作为标记名

Rem 脚本开始

Goto 标记

Delay 100

Rem 标记

TracePrint "你直接跳到这里了!!,上面的延迟没有被执行!!"

//跳转语句，可以跳转到rem标记过的标记处继续执行

例子1

Call 子程序("我是子程序,被你调用了")

EndScript

//支持中文名变量

Sub 子程序(参数)

    TracePrint 参数

End Sub

//定义一个过程,可以在脚本中调用这个过程

例子2

Call 函数()

TracePrint "调用函数结束了"

Function 函数()

   TracePrint "我是被你调用的函数"

End Function

TracePrint "脚本开始执行"

EndScript

TracePrint "上面强制停止了，这里不会输出"

KeyPress "Home" //模拟按一次<房子>键
KeyPress "A"        //模拟按一次字母A键

//下面是模拟手动关机的例子

KeyDown "Power"  //模拟按住电源键不放

Delay 3000    //延时3秒

KeyUp "Power"   //松开电源键

//下面是模拟手动关机的例子

KeyDown "Power"  //模拟按住电源键不放

Delay 3000    //延时3秒

KeyUp "Power"   //松开电源键

//用300毫秒的时间，从点100,100划动到点200,200

Swipe 100,100,200,200,300

//点击屏幕坐标100,100位置

Tap 100,100

//点击屏幕坐标(100,100)的点，并持续按住100毫秒（0.1秒）

Touch 100,100,100

//以下是多点触控的例子

TouchDown 100, 100, 1//按住屏幕上的100,100坐标不放，并设置此触点ID=1

TouchDown 200, 200, 2//按住屏幕上的200,200坐标不放，并设置此触点ID=2

TouchMove 300, 300, 1, 200//将ID=1的触点花200毫秒移动至300,300坐标

TouchMove 500, 500, 2, 200//将ID=2的触点花200毫秒移动至500,500坐标

TouchUp 1//松开弹起ID=1的触点

TouchUp 2//松开弹起ID=2的触点

//以下是多点触控的例子

TouchDown 100, 100, 1//按住屏幕上的100,100坐标不放，并设置此触点ID=1

TouchDown 200, 200, 2//按住屏幕上的200,200坐标不放，并设置此触点ID=2

TouchMove 300, 300, 1, 200//将ID=1的触点花200毫秒移动至300,300坐标

TouchMove 500, 500, 2, 200//将ID=2的触点花200毫秒移动至500,500坐标

TouchUp 1//松开弹起ID=1的触点

TouchUp 2//松开弹起ID=2的触点

//以下是多点触控的例子

TouchDown 100, 100, 1//按住屏幕上的100,100坐标不放，并设置此触点ID=1

TouchDown 200, 200, 2//按住屏幕上的200,200坐标不放，并设置此触点ID=2

TouchMove 300, 300, 1, 200//将ID=1的触点花200毫秒移动至300,300坐标

TouchMove 500, 500, 2, 200//将ID=2的触点花200毫秒移动至500,500坐标

TouchUp 1//松开弹起ID=1的触点

TouchUp 2//松开弹起ID=2的触点

Dim 返回坐标 = CatchTouchPoint(2)  //获取用户点击坐标（命令为阻塞状态）

TracePrint 返回坐标[1][1]   //得到第1个点击坐标

TracePrint 返回坐标[1][2]

TracePrint 返回坐标[2][1]   //得到第2个点击坐标

TracePrint 返回坐标[2][2]

//随机点击滑动坐标(x,y)，x 为 100±20 取一个随机值，y 为 200±20 取一个随机。

RandomsTap(100,200,20,"1.png")

//随机点击滑动坐标(x,y)，x 为 100±20 取一个随机值，y 为 200±20 取一个随机。

RandomTap(100,200,20,"1.png")

//从坐标(100,100)和坐标(300,300)同时向中间点滑动缩小

MoveZoomOut(100,100,300,300)

//两点坐标中间同时向坐标(100,100)和坐标(300,300)两端滑动

MoveZoomIn(100,100,300,300)

For var = 0 To 3

    Dim table = xyRotate(611, 275, var)

    TracePrint table[1]

    TracePrint table[2]

Next

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Call zm.About()
zm.About "RndStr" //显示zm.RndStr命令文档地址

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

If zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
  TracePrint "设置百度云识别成功"
Else
  TracePrint "设置百度云识别失败"
End If

Dim ret

//--------------------初级用法--------------------//
//默认全屏查找"紫猫学院"这4个字, 任何颜色都可以
ret = zm.FindStrBaiDu("紫猫学院")
If ret Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号" & ret(0), "x=" & ret(1), "y=" & ret(2), "文字=" & ret(3)
    TracePrint "找到序号" & ret[1], "x=" & ret[2], "y=" & ret[3], "文字=" & ret[4]
    TracePrint "找到序号" & ret["id"], "x=" & ret["x"], "y=" & ret["y"], "文字=" & ret["name"]
Else
    TracePrint "没有找到"
End If

//--------------------中级用法--------------------//
Dim 返回数组()
//参数返回值必须是任意数组的变量名, 注意括号写法
//范围省略默认为全屏, 若填写, 则4个数字必须全写
If zm.FindStrBaiDu(100, 200, 300, 400, "紫猫学院", 返回数组) Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号=" & 返回数组(0), "x=" & 返回数组(1), "y=" & 返回数组(2), "文字=" & 返回数组(3)
    TracePrint "找到序号=" & 返回数组[1], "x=" & 返回数组[2], "y=" & 返回数组[3], "文字=" & 返回数组[4]
    TracePrint "找到序号=" & 返回数组["id"], "x=" & 返回数组["x"], "y=" & 返回数组["y"], "文字=" & 返回数组["name"]
Else
    TracePrint "没有找到"
End If

//--------------------高级用法--------------------//
//对象后面的可选参数全部可以打乱顺序任意填写或省略, 只要数据类型与格式正确即可
//这句代码意思如下:
//在范围(100,200,300,400)里, 限时30000毫秒内循环查找("紫猫|学院")
//找到任何一个后退出循环查找, 然后点击找到的坐标(True), 并将找到的序号与坐标结果保存到数组变量(ret)与(返回数组)中
//同时开启日志的输出("显示")功能, 在当前脚本第("_40")行输出备注("@怪物1"), 查找结果与其他参数信息
ret = zm.FindStrBaiDu(100, 200, 300, 400, "紫猫|学院", 30*1000, True, "显示", "@怪物1", 返回数组, "_40")
If ret Then
    TracePrint "找到了"
Else
    TracePrint "没有找到"
End If

//--------------------对象用法--------------------//
//可以把所有参数放到一个表中, 可选参数一样可以打乱顺序任意填写或省略
//对象参数必须填写在第一个参数位置
Dim 史莱姆 = {"紫猫|学院", True, "显示", "@攻击史莱姆", 返回数组, "_36"}
zm.FindStrBaiDu 史莱姆

//--------------------修改默认值--------------------//
Dim IXYs()
//设置默认参数返回值IXYs, 若命令不填写参数返回值, 则默认保存在该变量中
//设置默认日志输出为显示状态, 后面所有 zm.FindStrBaiDu() 都默认输出调试信息
//更多修改默认设置详见 zm.SetFindStr() 命令帮助
zm.SetFindStr {"ret":IXYs, "showlog":"显示"}
If zm.FindStrBaiDu("喵星人") Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号" & IXYs(0), "x=" & IXYs(1), "y=" & IXYs(2), "文字=" & IXYs(3)
    TracePrint "找到序号" & IXYs[1], "x=" & IXYs[2], "y=" & IXYs[3], "文字=" & IXYs[4]
    TracePrint "找到序号" & IXYs["id"], "x=" & IXYs["x"], "y=" & IXYs["y"], "文字=" & IXYs["name"]
Else
    TracePrint "没有找到"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

If zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
  TracePrint "设置百度云识别成功"
Else
  TracePrint "设置百度云识别失败"
End If

Dim 打怪(), Boss坐标()
打怪["史莱姆"] = {"史莱姆", true}
打怪["黑龙"] = {100,200,300,400, "黑龙", true}
打怪["紫猫BOSS"] = {"帅气的紫猫老师", Boss坐标} //这个不点击, 并返回值保存在Boss坐标中

//遍历打怪数组, 返回每个对象成员的结果
Dim t = zm.FindStrTableBaiDu(打怪)
If t Then
    TracePrint "找到了", t["success"], "个对象"
    TracePrint "没找到", t["fail"], "个对象"
    If t["史莱姆"] Then
        TracePrint "找到史莱姆, 坐标为", t["史莱姆"]["x"], t["史莱姆"]["y"]
    End If
Else
    TracePrint "所有对象都没有找到"
End If

If Boss坐标(0) > -1 Then
    TracePrint "紫猫BOSS对象里的返回参数依旧有效"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

If zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey") Then
  TracePrint "设置优图AI识别成功"
Else
  TracePrint "设置优图AI识别失败"
End If

Dim 打怪(), Boss坐标()
打怪["史莱姆"] = {"史莱姆", true}
打怪["黑龙"] = {100,200,300,400, "黑龙", true}
打怪["紫猫BOSS"] = {"帅气的紫猫老师", Boss坐标} //这个不点击, 并返回值保存在Boss坐标中

//遍历打怪数组, 返回每个对象成员的结果
Dim t = zm.FindStrTableYouTu(打怪)
If t Then
    TracePrint "找到了", t["success"], "个对象"
    TracePrint "没找到", t["fail"], "个对象"
    If t["史莱姆"] Then
        TracePrint "找到史莱姆, 坐标为", t["史莱姆"]["x"], t["史莱姆"]["y"]
    End If
Else
    TracePrint "所有对象都没有找到"
End If

If Boss坐标(0) > -1 Then
    TracePrint "紫猫BOSS对象里的返回参数依旧有效"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

If zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
  TracePrint "设置百度云识别成功"
Else
  TracePrint "设置百度云识别失败"
End If

//本命令内置找到后点击, 其他用法例子与zm.FindStrBaiDu()相同
Dim ret
ret = zm.FindStrTapBaiDu("紫猫学院")
If ret Then
    TracePrint "文字找到并执行了点击"
Else
    TracePrint "没有找到文字, 不执行点击"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

If zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey") Then
  TracePrint "设置优图AI识别成功"
Else
  TracePrint "设置优图AI识别失败"
End If

//本命令内置找到后点击, 其他用法例子与zm.FindStrYouTu()相同
Dim ret
ret = zm.FindStrTapYouTu("紫猫学院")
If ret Then
    TracePrint "文字找到并执行了点击"
Else
    TracePrint "没有找到文字, 不执行点击"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

If zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey") Then
  TracePrint "设置优图AI识别成功"
Else
  TracePrint "设置优图AI识别失败"
End If

Dim ret

//--------------------初级用法--------------------//
//默认全屏查找"紫猫学院"这4个字, 任何颜色都可以
ret = zm.FindStrYouTu("紫猫学院")
If ret Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号" & ret(0), "x=" & ret(1), "y=" & ret(2), "文字=" & ret(3)
    TracePrint "找到序号" & ret[1], "x=" & ret[2], "y=" & ret[3], "文字=" & ret[4]
    TracePrint "找到序号" & ret["id"], "x=" & ret["x"], "y=" & ret["y"], "文字=" & ret["name"]
Else
    TracePrint "没有找到"
End If

//--------------------中级用法--------------------//
Dim 返回数组()
//参数返回值必须是任意数组的变量名, 注意括号写法
//范围省略默认为全屏, 若填写, 则4个数字必须全写
If zm.FindStrYouTu(100, 200, 300, 400, "紫猫学院", 返回数组) Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号=" & 返回数组(0), "x=" & 返回数组(1), "y=" & 返回数组(2), "文字=" & 返回数组(3)
    TracePrint "找到序号=" & 返回数组[1], "x=" & 返回数组[2], "y=" & 返回数组[3], "文字=" & 返回数组[4]
    TracePrint "找到序号=" & 返回数组["id"], "x=" & 返回数组["x"], "y=" & 返回数组["y"], "文字=" & 返回数组["name"]
Else
    TracePrint "没有找到"
End If

//--------------------高级用法--------------------//
//对象后面的可选参数全部可以打乱顺序任意填写或省略, 只要数据类型与格式正确即可
//这句代码意思如下:
//在范围(100,200,300,400)里, 限时30000毫秒内循环查找("紫猫|学院")
//找到任何一个后退出循环查找, 然后点击找到的坐标(True), 并将找到的序号与坐标结果保存到数组变量(ret)与(返回数组)中
//同时开启日志的输出("显示")功能, 在当前脚本第("_40")行输出备注("@怪物1"), 查找结果与其他参数信息
ret = zm.FindStrYouTu(100, 200, 300, 400, "紫猫|学院", 30*1000, True, "显示", "@怪物1", 返回数组, "_40")
If ret Then
    TracePrint "找到了"
Else
    TracePrint "没有找到"
End If

//--------------------对象用法--------------------//
//可以把所有参数放到一个表中, 可选参数一样可以打乱顺序任意填写或省略
//对象参数必须填写在第一个参数位置
Dim 史莱姆 = {"紫猫|学院", True, "显示", "@攻击史莱姆", 返回数组, "_36"}
zm.FindStrYouTu 史莱姆

//--------------------修改默认值--------------------//
Dim IXYs()
//设置默认参数返回值IXYs, 若命令不填写参数返回值, 则默认保存在该变量中
//设置默认日志输出为显示状态, 后面所有 zm.FindStrYouTu() 都默认输出调试信息
//更多修改默认设置详见 zm.SetFindStr() 命令帮助
zm.SetFindStr {"ret":IXYs, "showlog":"显示"}
If zm.FindStrYouTu("喵星人") Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号" & IXYs(0), "x=" & IXYs(1), "y=" & IXYs(2), "文字=" & IXYs(3)
    TracePrint "找到序号" & IXYs[1], "x=" & IXYs[2], "y=" & IXYs[3], "文字=" & IXYs[4]
    TracePrint "找到序号" & IXYs["id"], "x=" & IXYs["x"], "y=" & IXYs["y"], "文字=" & IXYs["name"]
Else
    TracePrint "没有找到"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret, t()

//例子1: 设置默认通用文字识别
If Not zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If
//全屏识别文字
ret = zm.OcrBaiDu(0, 0, 0, 0)
TracePrint "识别结果:", ret

//例子2: 设置通用文字识别（高精度版）
zm.OcrBaiDuInit "请修改成你的API Key", "请修改成你的Secret Key", "https://aip.baidubce.com/rest/2.0/ocr/v1/accurate_basic"
//本地图片识别文字
ret = zm.OcrBaiDu("/sdcard/紫猫.png")
TracePrint "识别结果:", ret

//例子3: 设置网络图片文字识别, 并开启检测图像朝向功能
Dim args = {"apikey":"请修改成你的API Key", "seckey":"请修改成你的Secret Key", "posturl":"https://aip.baidubce.com/rest/2.0/ocr/v1/webimage", "detect_direction":"true"}
zm.OcrBaiDuInit args
//URL图片链接识别文字并返回原生json
ret = zm.OcrBaiDu("http://bbs.anjian.com/templates/default/Images/logo1.png", t)
TracePrint "识别结果:", ret, "原生json:", zm.VarInfo(t)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret

//例子1: 设置身份证识别接口与参数, 请严格按照API文档中的请求URL与请求参数填写
//也可以使用zm.OcrBaiDuIDCard()身份证识别专用函数实现
Dim args = {"apikey":"请修改成你的API Key", "seckey":"请修改成你的Secret Key", "posturl":"https://aip.baidubce.com/rest/2.0/ocr/v1/idcard","id_card_side":"front"}
If zm.OcrBaiDuInit(args) Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If
//使用一张本地的身份证正面照片
ret = zm.OcrBaiDuAll("/sdcard/sfz.png")
//返回值为原生json表, 故采用zm.VarInfo()查看, 具体请自行研究如何使用table表提取相关内容
TracePrint "识别结果:", zm.VarInfo(ret)

//例子2: 设置银行卡识别接口与参数, 请严格按照API文档中的请求URL与请求参数填写
zm.OcrBaiDuInit "请修改成你的API Key", "请修改成你的Secret Key", "https://aip.baidubce.com/rest/2.0/ocr/v1/bankcard"
//截图识别银行卡
ret = zm.OcrBaiDuAll(0,0,0,0)
//返回值为原生json表, 故采用zm.VarInfo()查看, 具体请自行研究如何使用table表提取相关内容
TracePrint "识别结果:", zm.VarInfo(ret)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret, t()

//例子1: 设置key
If Not zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If
//全屏识别银行卡
ret = zm.OcrBaiDuBankCard(0, 0, 0, 0)
If ret then
    TracePrint "银行卡卡号:", ret["bank_card_number"]
    TracePrint "银行名:", ret["bank_name"]
    TracePrint "银行卡类型:", ret["bank_card_type"]
Else
    TracePrint "识别失败"
End If

//本地图片识别银行卡
ret = zm.OcrBaiDuBankCard("/sdcard/紫猫银行卡.png", t)
TracePrint "识别结果:", zm.VarInfo(ret)
TracePrint "原生返回值:", zm.VarInfo(t)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret, t()

//例子1: 设置key
If Not zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If
//全屏识别营业执照
ret = zm.OcrBaiDuBusiness(0, 0, 0, 0)
If ret then
    TracePrint "单位名称:", ret["单位名称"]
    TracePrint "法人:", ret["法人"]
    //更多输出请自行遍历
Else
    TracePrint "识别失败"
End If

//本地图片识别营业执照
ret = zm.OcrBaiDuBusiness("/sdcard/紫猫营业执照.png", t)
TracePrint "识别结果:", zm.VarInfo(ret)
TracePrint "原生返回值:", zm.VarInfo(t)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret, t()

//例子1: 设置key
If Not zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If
//全屏识别驾驶证
ret = zm.OcrBaiDuDriving(0, 0, 0, 0)
If ret then
    TracePrint "姓名:", ret["姓名"]
    TracePrint "证件号:", ret["证件号"]
    //更多输出请自行遍历
Else
    TracePrint "识别失败"
End If

//例子2: 在例子1的基础上, 增加开启检测朝向功能
Dim args = {"detect_direction":"true"}
zm.OcrBaiDuInit args
//本地图片识别驾驶证
ret = zm.OcrBaiDuDriving("/sdcard/紫猫驾驶证.png", t)
TracePrint "识别结果:", zm.VarInfo(ret)
TracePrint "原生返回值:", zm.VarInfo(t)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret, t()

//例子1: 设置key
If Not zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If
//全屏识别表格文字
ret = zm.OcrBaiDuForm(0, 0, 0, 0)
If ret then
    TracePrint "默认excel表格下载地址", ret
    //更多输出请自行遍历
Else
    TracePrint "识别失败"
End If

//例子2: 在例子1的基础上, 加入设置返回json文本
Dim args = {"result_type":"json"}
zm.OcrBaiDuInit args
//本地图片识别表格文字
ret = zm.OcrBaiDuForm("/sdcard/紫猫表格.png", t)
TracePrint "识别结果:", zm.VarInfo(ret)
TracePrint "原生返回值:", zm.VarInfo(t)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

If Not zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If

//全屏识别文字
ret = zm.OcrBaiDuHandWriting(0, 0, 0, 0)
If ret then
    TracePrint "手写文字", ret
Else
    TracePrint "识别失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret, t()

//例子1: 设置key
If Not zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If
//全屏识别身份证
ret = zm.OcrBaiDuIDCard("正面", 0, 0, 0, 0)
If ret then
    TracePrint "姓名:", ret["姓名"]
    TracePrint "公民身份号码:", ret["证件号"]
    //更多输出请自行遍历
Else
    TracePrint "识别失败"
End If

//例子2: 在例子1的基础上, 增加开启检测朝向功能
Dim args = {"detect_direction":"true"}
zm.OcrBaiDuInit args
//本地图片识别身份证
ret = zm.OcrBaiDuIDCard("back", "/sdcard/紫猫身份证.png", t)
TracePrint "识别结果:", zm.VarInfo(ret)
TracePrint "原生返回值:", zm.VarInfo(t)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//例子1: 设置默认通用文字识别
Dim r = zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key")
zm.TracePrint(r) //查看返回值

//例子2: 设置通用文字识别（高精度版）
zm.OcrBaiDuInit "请修改成你的API Key", "请修改成你的Secret Key", "https://aip.baidubce.com/rest/2.0/ocr/v1/accurate_basic"

//例子3: 通过高级属性设置默认通用文字识别, 并开启检测图像朝向功能
Dim args = {"apikey":"请修改成你的API Key", "seckey":"请修改成你的Secret Key", "posturl":"https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic", "detect_direction":"true"}
If zm.OcrBaiDuInit(args) Then
  TracePrint "设置百度云识别成功"
Else
  TracePrint "设置百度云识别失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

If Not zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If

//全屏识别数字
ret = zm.OcrBaiDuNumbers(0, 0, 0, 0)
If ret then
    TracePrint "数字", ret
Else
    TracePrint "识别失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret, t()

//例子1: 设置key
If Not zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If
//全屏识别一张车牌
ret = zm.OcrBaiDuPlate(0, 0, 0, 0)
If ret then
    TracePrint "车牌号", ret(0)
Else
    TracePrint "识别失败"
End If

//例子2: 在例子1的基础上, 增加开启多张车牌检测功能
Dim args = {"multi_detect":"true"}
zm.OcrBaiDuInit args
//本地图片识别多张车牌
ret = zm.OcrBaiDuPlate("/sdcard/紫猫车牌.png", t)
TracePrint "识别结果:", zm.VarInfo(ret)
TracePrint "原生返回值:", zm.VarInfo(t)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret, t()

//例子1: 设置key
If Not zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If
//全屏识别发票
ret = zm.OcrBaiDuReceipt(0, 0, 0, 0)
If ret then
    For i = 0 to UBound(ret)
        TracePrint ret(i)
    Next
    //更多输出请自行遍历
Else
    TracePrint "识别失败"
End If

//例子2: 在例子1的基础上, 增加开启检测朝向功能
Dim args = {"detect_direction":"true"}
zm.OcrBaiDuInit args
//本地图片识别的士票
ret = zm.OcrBaiDuReceipt("/sdcard/紫猫的士票.png", t)
TracePrint "识别结果:", zm.VarInfo(ret)
TracePrint "原生返回值:", zm.VarInfo(t)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret, t()

//例子1: 设置key
If Not zm.OcrBaiDuInit("请修改成你的API Key", "请修改成你的Secret Key") Then
    TracePrint "初始化设置百度云识别失败"
    EndScript
End If
//全屏识别行驶证
ret = zm.OcrBaiDuVehicle(0, 0, 0, 0)
If ret then
    TracePrint "所有人:", ret["所有人"]
    TracePrint "品牌型号:", ret["品牌型号"]
    //更多输出请自行遍历
Else
    TracePrint "识别失败"
End If

//例子2: 在例子1的基础上, 增加开启检测朝向功能
Dim args = {"detect_direction":"true"}
zm.OcrBaiDuInit args
//本地图片识别行驶证
ret = zm.OcrBaiDuVehicle("back", "/sdcard/紫猫行驶证.png", t)
TracePrint "识别结果:", zm.VarInfo(ret)
TracePrint "原生返回值:", zm.VarInfo(t)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

zm.OcrYouDaoInit "请修改成你的应用ID", "请修改成你的应用密钥"

Dim ret = zm.OcrYouDao(100,100,400,400)
TracePrint "识别结果为:", ret

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

zm.OcrYouDaoInit "请修改成你的应用ID", "请修改成你的应用密钥"

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化优图账户数据, 只需执行一次, 请自行修改
zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey")

Dim ret = zm.OcrYouTu(0, 0, 0, 0) //识别范围文字
TracePrint "识别结果: ", ret

ret = zm.OcrYouTu("/sdcard/紫猫.png") //识别本地图片
TracePrint "识别结果: ", ret

ret = zm.OcrYouTu("http://bbs.anjian.com/templates/default/Images/logo1.png") //识别网络图片
TracePrint "识别结果: ", ret

Dim t()
ret = zm.OcrYouTu(100, 100, 200, 200, t) //获取原生返回值t
TracePrint "部分原生返回值: ", zm.VarInfo(t)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化优图账户数据, 只需执行一次, 请自行修改
zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey")
Dim ret = zm.OcrYouTuBankCard("/sdcard/银行卡.png")
TracePrint "银行卡数据: ", zm.VarInfo(ret)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化优图账户数据, 只需执行一次, 请自行修改
zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey")
Dim ret = zm.OcrYouTuBC("/sdcard/名片.png")
TracePrint "名片数据: ", zm.VarInfo(ret)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化优图账户数据, 只需执行一次, 请自行修改
zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey")
Dim ret = zm.OcrYouTuBusiness("/sdcard/名片.png")
TracePrint "营业执照数据: ", zm.VarInfo(ret)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化优图账户数据, 只需执行一次, 请自行修改
zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey")
Dim ret = zm.OcrYouTuDriverLicense(0, "/sdcard/行驶证.png")
TracePrint "行驶证: ", zm.VarInfo(ret)
ret = zm.OcrYouTuDriverLicense(1, "/sdcard/驾驶证.png")
TracePrint "驾驶证: ", zm.VarInfo(ret)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化优图账户数据, 只需执行一次, 请自行修改
zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey")
Dim ret = zm.OcrYouTuHandWriting("/sdcard/名片.png")
TracePrint "手写数据: ", ret

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化优图账户数据, 只需执行一次, 请自行修改
zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey")
Dim ret = zm.OcrYouTuIDCard(0, "/sdcard/身份证正面.png")
TracePrint "正面: ", zm.VarInfo(ret)
ret = zm.OcrYouTuIDCard(1, "/sdcard/身份证反面.png")
TracePrint "反面: ", zm.VarInfo(ret)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化优图账户数据, 只需执行一次, 请自行修改
zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey")

Dim ret = zm.OcrYouTu(0, 0, 0, 0) //识别范围文字
TracePrint "识别结果: ", ret

ret = zm.OcrYouTu("/sdcard/紫猫.png") //识别本地图片
TracePrint "识别结果: ", ret

ret = zm.OcrYouTu("http://bbs.anjian.com/templates/default/Images/logo1.png") //识别网络图片
TracePrint "识别结果: ", ret

Dim t()
ret = zm.OcrYouTu(100, 100, 200, 200, t) //获取原生返回值t
TracePrint "部分原生返回值: ", zm.VarInfo(t)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化优图账户数据, 只需执行一次, 请自行修改
zm.OcrYouTuInit("请修改成你的AppID", "请修改成你的AppKey")
Dim ret = zm.OcrYouTuPlate("/sdcard/车牌.png")
TracePrint "车牌: ", zm.VarInfo(ret)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化腾讯AI语音合成的账户数据, 只需执行一次, 请自行修改
zm.SpeechSsYouTuInit "请修改成你的AppID", "请修改成你的AppKey"
//合成并自动播放
zm.SpeechSsYouTu "欢迎使用紫猫插件手机版", True
Delay 5000 //防止脚本停止导致播放停止

//前面已经初始化过app数据, 现在修改默认发音人
zm.SpeechSsYouTuInit {"speaker":6}
//合成并自动播放
zm.SpeechSsYouTu "紫猫老师真帅!", True
Delay 5000 //防止脚本停止导致播放停止

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化腾讯AI语音合成的账户数据, 只需执行一次, 请自行修改
zm.SpeechSsYouTuInit "请修改成你的AppID", "请修改成你的AppKey"
//合成并自动播放
zm.SpeechSsYouTu "欢迎使用紫猫插件手机版", True
Delay 5000 //防止脚本停止导致播放停止

//前面已经初始化过app数据, 现在修改默认发音人
zm.SpeechSsYouTuInit {"speaker":6}
//合成并自动播放
zm.SpeechSsYouTu "紫猫老师真帅!", True
Delay 5000 //防止脚本停止导致播放停止

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

zm.RndInitSeed() //初始化随机种子，只需执行一次，也可以使用zm.Init()初始化
TracePrint "固定延迟一段时间"
zm.Delay(1000) //固定延迟1000毫秒
TracePrint "随机延迟一段时间"
zm.Delay(1000, 2000) //随机延迟1000到2000毫秒
TracePrint "延迟结束"

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

If zm.GetScreenScale() = -1 Then
  TracePrint "没有缩放"
Else
  TracePrint "缩放中"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//在720x1280分辨率下开发脚本的超级缩放
zm.SetScreenScale 720, 1280

//取消超级缩放
zm.ResetScreenScale

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//设置一次后, 所有zm.Delay都有效, 除非再次改变设置
zm.SetDelay({"min":-30, "max":40})
zm.Delay(100)  //表示随机延时(100-30)到(100+40)毫秒范围

zm.SetDelay({"min":-30, "max":40})
zm.Delay(100, 200)  //表示随机延时100到200毫秒范围, 不受默认值影响

zm.SetDelay({"min":-30, "max":40})
zm.Delay(100, true)  //表示固定延时100毫秒, 不要随机

zm.SetDelay({"min":-300, "max":400, "time":1000})
zm.Delay()   //表示随机延迟(1000-300)到(1000+400)毫秒范围

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//普通找色点击情况与按键自带例子的SetScreenScale()相同, 这里就不演示了
//下面是找图找字功能缩放的演示

'设置开发分辨率进行超级缩放
zm.SetScreenScale 720, 1280

'附件中存放各个分辨率的图片, 图片文件名格式为: 横向分辨率x纵向分辨率xDPI数值-图片名.png
Dim 图片前缀 = "Attachment:" & GetScreenX() & "x" & GetScreenY() & "x" & Device.GetDPI() & "-"
TracePrint "本设备的图片默认前缀为:", 图片前缀

'设置找图的图片前缀
zm.SetFindPic {"pic":图片前缀}

If zm.FindPic("图片1.png|Attachment:图片2.png|/sdcard/图片3.png", "显示") Then
    '如果只写图片名的话, 插件就会自动帮你把图片前缀加上去, 比如图片1.png会自动加前缀
    '通过不同分辨率不同图片文件名的方式实现调用查找对应图片
    '而图片2和图片3由于是完整路径, 所以就没有自动加图片前缀了
    TracePrint "找到图片了"
Else
    TracePrint "没找到图片"
End If

'附件中存放各个分辨率下的字库文件, 文件名格式与图片相同: 横向分辨率x纵向分辨率xDPI数值-字库.txt
Dim 字库前缀 = "Attachment:" & GetScreenX() & "x" & GetScreenY() & "x" & Device.GetDPI() & "-"
TracePrint "本设备的图片默认前缀为:", 字库前缀

'设置字库
ret = SetDictEx(0, 字库前缀 & "紫猫学院字库.txt")
TracePrint "0号字库设置结果:", ret
ret = UseDict(0)
TracePrint "切换0号字库设置结果:", ret

If zm.FindStr("紫猫", "FFFFFF", "显示") Then
    TracePrint "找到文字了"
Else
    TracePrint "没找到文字"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//设置后, 对所有带有日志输出显示参数的命令生效
zm.SetShowLog "显示"
zm.FindColor "123456"
zm.FindMultiColor "123456", "1|1|000000"
zm.FindPic "紫猫.bmp"
zm.FindStr "学|院", "隐藏"

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//点击固定坐标100,200
zm.Tap 100, 200

//点击固定坐标100,200后延时3000毫秒
zm.Tap 100, 200, 3000

//在范围100,200,150,250内随机点击某个点, 并显示输出
zm.Tap 100, 200, 150, 250, "show"

//在范围100,200,150,250内随机点击某个点后延时4000毫秒
zm.Tap 100, 200, 150, 250, 4000

//设置固定坐标x浮动范围[-10,15], 固定坐标y浮动范围[-5,20], 点击后默认延时2000毫秒
zm.SetTap {"minx":-10, "maxx":15, "miny":-5, "maxy":20, "t":2000}

//x从100-10到100+15中随机取值, y从200-5到200+20中随机取值, 点击后默认延时2000毫秒
zm.Tap 100, 200

//在范围100,200,150,250内随机点击某个点并默认延时2000毫秒, 不受默认浮动范围影响
Dim t = zm.Tap(100, 200, 150, 250)
//查看实际点击坐标
TracePrint zm.VarInfo(t)

//设置按下与弹起之间的时间间隔为10到30毫秒, 默认日志输出为显示
zm.SetTap {"mintouch":10, "maxtouch":30, "showlog":"显示"}

//x从100-10到100+15中随机取值, y从200-5到200+20中随机取值, 点击后延时3000毫秒
zm.Tap 100, 200, 3000

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//倒计时5秒, 脚本也会对应延时5秒
zm.ShowMessage("脚本将在 #时间 秒后启用", 5000)

//遍历循环显示内容, 总耗时10秒, 脚本也会对应延时10秒
zm.ShowMessage({"1.先打开app", "2.点击登录", "3.输入帐号密码", "4.点击确定"}, 10*1000)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//用时500毫秒,从坐标100,500精准划动到坐标100,200
zm.Swipe 100, 500, 100, 200, 500

//当遇到默认普通模式划动失效时，例如浏览器网页之类的，可以试下硬件模拟。
zm.Swipe 100, 500, 100, 200, 500, -2

//当遇到默认普通模式划动失效时，例如浏览器网页之类的，可以试下翻页模拟。
zm.Swipe 100, 500, 100, 200, -3

//当遇到默认普通模式划动失效时，例如浏览器网页之类的，可以试下空格翻页模拟。
zm.Swipe 100, 500, 100, 200, -4

//当遇到默认普通模式划动失效时，例如浏览器网页之类的，可以试下导航移动模拟。
zm.Swipe 100, 500, 100, 200, -5

//遇到滑块验证等检测轨迹操作时, 可以开启轨迹功能
zm.Swipe 100, 200, 400, 200, true

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//以真实轨迹从10,600划动到10,700到200,500到300,800
zm.SwipeEx {10, 600}, {10, 700}, {200, 500}, {300, 800}, True

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//点击固定坐标100,200
zm.Tap 100, 200

//点击固定坐标100,200后延时3000毫秒
zm.Tap 100, 200, 3000

//点击字符串坐标100,200后, 延时300毫秒
zm.Tap "100,200", 300

//在范围100,200,150,250内随机点击某个点, 并显示输出
zm.Tap 100, 200, 150, 250, "show"

//在范围100,200,150,250内随机点击某个点后延时4000毫秒
zm.Tap 100, 200, 150, 250, 4000

//设置固定坐标x浮动范围[-10,15], 固定坐标y浮动范围[-5,20], 点击后默认延时2000毫秒
zm.SetTap {"minx":-10, "maxx":15, "miny":-5, "maxy":20, "t":2000}

//x从100-10到100+15中随机取值, y从200-5到200+20中随机取值, 点击后默认延时2000毫秒
zm.Tap 100, 200

//在范围100,200,150,250内随机点击某个点并默认延时2000毫秒, 不受默认浮动范围影响
Dim t = zm.Tap(100, 200, 150, 250)
//查看实际点击坐标
TracePrint zm.VarInfo(t)

//设置按下与弹起之间的时间间隔为10到30毫秒, 默认日志输出为显示
zm.SetTap {"mintouch":10, "maxtouch":30, "showlog":"显示"}

//x从100-10到100+15中随机取值, y从200-5到200+20中随机取值, 点击后延时3000毫秒
zm.Tap 100, 200, 3000, "@测试点击"

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim a = {1,2,3,4,5}
//如果第一个参数是下划线+行号的字符串，则显示当前脚本第几行。
//支持直接输出表或数组、支持多维数组。
zm.TracePrint "_5", a
//如果第一个参数不是下划线的，则不显示第几行
zm.TracePrint "紫猫"
//输出多个参数也可分别显示每个参数的数据类型、长度、值
zm.TracePrint "_9", "紫猫", "学院", 345911220, a
//也可以使用zm.VarInfo实现类似效果
TracePrint zm.VarInfo(a, "紫猫", null, 345911220)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim c = zm.BGRToColor(10,20,30)
TracePrint c

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim c = zm.BGRToRGB("FF00AA")
TracePrint c

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.ColorSim("FFFFFF", "000000")
TracePrint zm.ColorSim("FFFFFF", "FFFFFF")
TracePrint zm.ColorSim("FFFFFF", "EEEEEE")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim t = zm.ColorToHSV("100.20.30")
TracePrint t(0), t(1), t(2)
TracePrint t["h"], t["s"], t["v"]

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim t = zm.ColorToRGB("11BBDD")
TracePrint t(0), t(1), t(2)
TracePrint t["r"], t["g"], t["b"]

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim 图片宽高 = zm.GetPicSize("Attachment:紫猫.png") //也可以写本地路径
If 图片宽高 Then
  TracePrint "第1种写法: 宽度=", 图片宽高(0), ", 高度=", 图片宽高(1)
  TracePrint "第2种写法: 宽度=", 图片宽高["w"], ", 高度=", 图片宽高["h"]
Else
  TracePrint "获取失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.HSVToRGB("100.10.20")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//在5秒内判断屏幕100,100,200,200范围是否卡屏
Dim isDead = zm.IsDisplayDead(100,100,200,200,5000)
If isDead Then
    TracePrint "出现卡屏了"
Else
    TracePrint "没有卡屏"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim c = zm.RGBToBGR("FF00AA")
TracePrint c

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim c = zm.RGBToColor(10,20,30)
TracePrint c

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.RGBToHSV("102030")

$lizi

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint "当前脚本占用内存", zm.GetScriptMemory(), "kb"

Dim a = {"紫猫", "学院", "https://zimaoxy.com"}
TracePrint "创建数组后占用内存", zm.GetScriptMemory(), "kb"

a = Null
TracePrint "删除数组后占用内存", zm.GetScriptMemory(), "kb"

zm.CollectGarbage()

TracePrint "执行清理内存后占用内存", zm.GetScriptMemory(), "kb"

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//获取所有已装应用列表
TracePrint zm.Execute("ls /data/data")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.GetLuaVersion()

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.GetScriptMemory()        //返回当前内存大小

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.GetVersion()

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

zm.OpenURL "zimao.vip" //访问紫猫学院官网

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.Type(null)
TracePrint zm.Type(345911220)
TracePrint zm.Type("紫猫")
TracePrint zm.Type({1,2,3})
TracePrint zm.Type(true)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim a = {"紫猫":345911220,"学院":{"正在", "招生中"},"欢迎加入"}
Dim b = "123", c = 123, d = true, e
TracePrint zm.VarInfo(a,b,c,d,e)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ThreadID
ThreadID = Thread.Start(threadA)
For 3
    TracePrint zm.ThreadStatus(ThreadID)
    Delay 1000
Next
Thread.Stop ThreadID
For 3
    TracePrint zm.ThreadStatus(ThreadID)
    Delay 1000
Next

Sub threadA()
    For 5
        TracePrint "执行多线程中..."
        Delay 1000
    Next
End Sub

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ThreadID
ThreadID = Thread.Start(threadA)
zm.ThreadWait ThreadID, 2
For 3
    TracePrint zm.ThreadStatus(ThreadID)
    Delay 1000
Next

Sub threadA()
    For 5
        TracePrint "执行多线程中..."
        Delay 1000
    Next
End Sub

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret = zm.SQLiteCreateTbl(GetSdcardDir() & "/zimao.db", "student", {"id INTEGER","name TEXT"})
TracePrint ret

ret = zm.SQLiteAddField(GetSdcardDir() & "/zimao.db", "student", {"age INTEGER"})
TracePrint ret

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret = zm.SQLiteCreateTbl(GetSdcardDir() & "/zimao.db", "student", {"id INTEGER","name TEXT"})
TracePrint ret

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret = zm.SQLiteDropTbl(GetSdcardDir() & "/zimao.db", "student")
TracePrint ret

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim a = {"紫猫", "学院"}
zm.ArrayInsert a, "编程", 1
TracePrint zm.VarInfo(a)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim a = {"紫猫", "编程", "学院"}
zm.ArrayRemove a, 1
TracePrint zm.VarInfo(a)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim a = {"紫猫", "编程", "学院", "紫猫", 2, 0, 1, 2}
zm.ArrayRemoveDuplicate a
TracePrint zm.VarInfo(a)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim t = {"紫猫", "老师", "QQ是多少"}
Dim tt = zm.ArrayReplace(t, "QQ", "345911220", true)

For i = 0 To UBOUND(tt)
	TracePrint tt(i)
Next

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim a = {"Hello", "紫猫", "编程", "学院", "Hello"}

Dim index = zm.ArraySearch(a, "编程")
TracePrint index '返回数值2

index = zm.ArraySearch(a, "he", true)
TracePrint index '返回数值-1

index = zm.ArraySearch(a, "he", true, true)
TracePrint index '返回数值0

Dim iArr = zm.ArraySearch(a, "He", true, true, 0)
TracePrint zm.VarInfo(iArr) '返回数值型数组{0, 4}

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim a = {1, 0, 2, 4, 3, 8, 5, 9, 7, 6}

zm.ArraySort a
TracePrint zm.VarInfo(a)

zm.ArraySort a, true
TracePrint zm.VarInfo(a)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim 表a, 表b, 表c
//对表a进行赋值
表a = {"姓名":"紫猫", "职业":"教师", "QQ":345911220}

//使用等号将表a赋值给表b
表b = 表a

//使用zm.Clone将表a克隆给表c
表c = zm.Clone(表a)

//分别改变3个表的一个键值
表a["姓名"] = "紫猫学院"
表b["职业"] = "编程教学"
表c["QQ"] = "欢迎加入"

//输出3张表的键值
TracePrint "表a键值：", 表a["姓名"], 表a["职业"], 表a["QQ"]
TracePrint "表b键值：", 表b["姓名"], 表b["职业"], 表b["QQ"]
TracePrint "表c键值：", 表c["姓名"], 表c["职业"], 表c["QQ"]

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//以圆形15,15, 半径10排除坐标, 最终得到{{30,40}}
Dim t1 = zm.PosExclude({{10,20},{30,40}}, 15, 15, 10)

//以范围5,5,25,25排除坐标, 最终得到{{30,40}}
Dim t2 = zm.PosExclude({{10,20},{30,40}}, 5, 5, 25, 25)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//以圆形15,15, 半径10获取坐标, 最终得到{{10,20}}
Dim t1 = zm.PosInclude({{10,20},{30,40}}, 15, 15, 10)

//以范围5,5,25,25获取坐标, 最终得到{{10,20}}
Dim t2 = zm.PosInclude({{10,20},{30,40}}, 5, 5, 25, 25)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//按照与坐标0,0的远近升序, 最终得到{{10,20},{30,25}}
Dim t1 = zm.PosSort({{30,25},{10,20}}) 

//按照与坐标0,0的远近降序, 最终得到{{30,25},{10,20}}
Dim t2 = zm.PosSort({{30,25},{10,20}}, true)

//按照与坐标15,15的远近升序, 最终得到{{10,20},{30,40}}
Dim t3 = zm.PosSort({{10,20},{30,40}}, 15, 15)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim t = {1, 2, "a":{3, 4}}
Dim tt = zm.TableClear(t)

TracePrint zm.VarInfo(t)
TracePrint zm.VarInfo(tt)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim t = {"a":"hello", 345911220, true, "紫猫"}
//数组tt只能接受第一个元素, 因为按键语法不支持多个变量返回值
Dim tt = zm.TableUnpack(t)
TracePrint tt

//可以打印输出所有返回值, 因为TracePrint支持多个可选参数
//没有显示键名a的元素, 因为只支持数组内容部分
TracePrint zm.TableUnpack(t)

//可以利用{}语法合并两个数组元素到新的数组中
Dim t1 = {1, 2, 3}
Dim newT = {zm.TableUnpack(t, t1)}
TracePrint zm.VarInfo(newT)

//可以解决超级多点找色或多点比色参数过长问题
Dim 颜色1 = {"0DD200","4|2|FFFFFF,3|7|211003,27|1|1592FF"}
Dim 颜色2 = {"123456","40|27|FFFFFF,31|5|211003"}

//下面这两句代码实现效果完全相同
zm.FindMultiColor zm.TableUnpack(颜色1, 颜色2), "显示"
zm.FindMultiColor "0DD200","4|2|FFFFFF,3|7|211003,27|1|1592FF","123456","40|27|FFFFFF,31|5|211003","显示"

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim path = "/sdcard/紫猫学院.txt"

zm.FileWrite path, "欢迎加入紫猫学院"

Dim b = zm.FileBytes(path)

TracePrint "文件字节大小为:", b

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim path = "/sdcard/紫猫学院.txt"

zm.FileWrite path, {"欢迎加入紫猫学院","紫猫老师QQ: 345911220", "学院官网: zimao.vip"}

Dim txts1 = zm.FileDeleteLine(path, 1)
TracePrint zm.VarInfo(txts1)

Dim txts2 = zm.FileDeleteLine(path, -1)
TracePrint zm.VarInfo(txts2)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim code = zm.FileEncode("/sdcard/测试编码文件.txt", True)
If code Then
  TracePrint "得到并设置文件编码为: ", code
Else
  TracePrint "获取编码失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

zm.FileInit {"encode":"电脑"}

//在电脑上新建文件, 写入几个中文内容后, 传入设备中读取
Dim path = "/sdcard/紫猫学院电脑文件.txt"

zm.FileWriteAppend path, "\r\n", "听说写入电脑文件的内容会乱码?"

Dim txt = zm.FileRead(path)

TracePrint "不会乱码的内容如下:", txt

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim path = "/sdcard/紫猫学院.txt"

zm.FileWrite path, {"第一行内容", "第二行内容", "第三行内容"}

Dim lines = zm.FileLinesNumber(path)

TracePrint "总行数:", lines

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim path = "/sdcard/紫猫学院.txt"

zm.FileWrite path, {"欢迎加入紫猫学院,", "紫猫老师QQ: 345911220 ", "免费交流QQ群: 7333555"}

Dim txt = zm.FileRead(path)

TracePrint "读取到的内容为:", txt

txt = zm.FileRead("/sdcard/电脑文件.txt", "电脑")

TracePrint "读取到的内容为:", txt

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim 读取路径 = "/sdcard/截图1.png"
Dim 写入路径 = "/sdcard/截图2.png"
SnapShot 读取路径

Dim bin = zm.FileReadBinary(读取路径)

zm.FileWriteBinary 写入路径, bin

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim b64 = zm.FileReadBinaryBase64("/sdcard/紫猫.png")

zm.FileWriteBinaryBase64("/sdcard/新紫猫.png", b64)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim path = "/sdcard/紫猫学院.txt"
zm.FileWrite path, {"帐号1====密码1====大区1", "帐号2====密码2====大区2", "帐号3====密码3====大区3"}

Dim txts = zm.FileReadForm(path, "====")
TracePrint zm.VarInfo(txts)

For Each v In txts
	TracePrint v[1], v[2], v[3]
Next

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim path = "/sdcard/紫猫学院.txt"
zm.FileWrite path, {"欢迎加入紫猫学院,", "紫猫老师QQ: 345911220 ", "免费交流QQ群: 7333555"}

Dim txt = zm.FileReadLine(path, 1)
TracePrint "读取到的内容为:", txt

txt = zm.FileReadLine(path, -1)
TracePrint "读取到的内容为:", txt

txt = zm.FileReadLine(path, 10)
TracePrint "读取到的内容为:", txt

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim path = "/sdcard/紫猫学院.txt"
zm.FileWrite path, {"欢迎加入紫猫学院,", "紫猫老师QQ: 345911220 ", "免费交流QQ群: 7333555"}

Dim txt = zm.FileReadLines(path)
For i = 0 To UBOUND(txt)
	TracePrint txt(i)
Next

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim path = "/sdcard/紫猫学院.txt"
zm.FileWrite path, {"欢迎加入紫猫学院,", "紫猫老师QQ: 345911220 ", "QQ群号是多少?"}

Dim txts = zm.FileReplaceLine(path, -1, "免费交流群: 7333555")

TracePrint zm.VarInfo(zm.FileReadLines(path))

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim path = "/sdcard/紫猫学院.txt"

zm.FileWrite path, "欢迎加入紫猫学院,", "紫猫老师QQ: 345911220 ", "免费交流群: 7333555"
TracePrint zm.VarInfo(zm.FileReadLines(path))

zm.FileWrite path, {"欢迎加入紫猫学院,", "紫猫老师QQ: 345911220 ", "免费交流群: 7333555"}
TracePrint zm.VarInfo(zm.FileReadLines(path))

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim path = "/sdcard/紫猫学院.txt"

zm.FileWrite path, {"欢迎加入紫猫学院,", "紫猫老师QQ: 345911220 ", "免费交流群: 7333555"}

zm.FileWriteAppend path, "追加1"

zm.FileWriteAppend path, "追加2"

TracePrint zm.VarInfo(zm.FileReadLines(path))

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim 读取路径 = "/sdcard/截图1.png"
Dim 写入路径 = "/sdcard/截图2.png"
SnapShot 读取路径

Dim bin = zm.FileReadBinary(读取路径)

zm.FileWriteBinary 写入路径, bin

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim b64 = zm.FileReadBinaryBase64("/sdcard/紫猫.png")

zm.FileWriteBinaryBase64("/sdcard/新紫猫.png", b64)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim path = "/sdcard/紫猫学院.txt"

zm.FileWrite path, {"欢迎加入紫猫学院,", "紫猫老师QQ: 345911220 ", "免费交流群: 7333555"}

zm.FileWriteLine path, 2, "好好学习, 天天向上"

TracePrint zm.VarInfo(zm.FileReadLines(path))

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim p = zm.TempFile()
TracePrint "临时文件路径：", p

File.Write p, "欢迎加入紫猫编程学院"
TracePrint "读取临时文件：", File.Read(p)

//删除上一次的临时文件
zm.RemoveLastTempFile

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim p = zm.FileTemp()
TracePrint "临时文件路径：", p

File.Write p, "欢迎加入紫猫编程学院"
TracePrint "读取临时文件：", File.Read(p)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//删除左边的空格和a
Dim s = zm.LTrim("  abc abc", " a")
zm.TracePrint s

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret() //返回表参数, 可以省略该参数
Dim s = "紫猫老师QQ:345911220, Email:345911220@qq.com"
Dim data = zm.RegExMatch(s, "%d+", ret)
If data then
    For i = 0 to Ubound(data)
        TracePrint "返回结果: " & data(i)
    Next

    //若填写了返回表参数, 则可以取出结果
    For i = 0 to Ubound(ret)
        TracePrint "返回表: " & ret(i)
    Next
Else
    TracePrint "未匹配到数据"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret()
Dim s = "紫猫老师QQ:345911220, Email:345911220@qq.com"
Dim data = zm.RegExMatchEx(s, "QQ:(%d+).-Email:(%w-@%w-%.%w+)", ret
If data then
    For Each v in data
        TracePrint "返回本轮匹配结果："
        For Each vv in v
            TracePrint vv
        Next
    Next

    //若填写了返回表参数, 则可以取出结果
    For Each v in ret
        TracePrint "返回本轮表的结果："
        For Each vv in v
            TracePrint vv
        Next
    Next
Else
    TracePrint "未捕获到数据"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim s = "紫猫老师QQ:345911220, Email:345911220@qq.com"
Dim data = zm.RegExMatchExSingle (s, "QQ:(%d+).-Email:(%w-@%w-%.%w+)")
TracePrint "捕获第1个子匹配结果", data

data = zm.RegExMatchExSingle (s, "QQ:(%d+).-Email:(%w-@%w-%.%w+)", 2)
TracePrint "捕获第2个子匹配结果", data

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim s = "紫猫老师QQ:345911220, 公开交流群:7333555"
Dim data
data = zm.RegExMatchSingle(s, "%d+")
TracePrint "第1个结果", data

data = zm.RegExMatchSingle(s, "%d+", 2)
TracePrint "第2个结果", data

data = zm.RegExMatchSingle(s, "%d+", 3)
TracePrint "第3个结果", data

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim s = "紫猫老师QQ:12345"
Dim data = zm.RegExReplace(s, "%d+", "345911220")
TracePrint "替换后结果为：", data
```

```mq 例子2
Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim t = {"name":"紫猫", "QQ":345911220}
Dim s = "姓名:$name, QQ号:$QQ"
Dim data = zm.RegExReplace(s, "$(%w+)", t)
TracePrint "table替换后结果为：", data

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//删除右边的空格和a
Dim s = zm.RTrim("  abc cba ", " a")
zm.TracePrint s

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//按字符串分割数组
Dim a = zm.Split("1,2,3,4,5", ",")
For i = 0 To UBOUND(a)
	TracePrint a(i)
Next

//按长度分割数组
Dim b = zm.Split("紫猫编程学院", 1)
For i = 0 To UBOUND(b)
	TracePrint b(i)
Next

//按模式匹配分割数组
Dim c = zm.Split("这234句话里45645646有605数字", "%d+", true)
For i = 0 To UBOUND(c)
	TracePrint c(i)
Next

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//删除右边的空格和a
Dim s = zm.Trim("  abc cba ", " a")
zm.TracePrint s

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim t = zm.GetNetworkTime()
TracePrint "网络时间戳:", t

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//计算15天后的时间日期
TracePrint zm.TimeAdd("2019年8月3日 14:03:26", 15, "日")

//计算当前时间往后20个月的时间
TracePrint zm.TimeAdd(20, "月")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//计算参数1减去参数2, 返回单位秒数
TracePrint zm.TimeDiff("2019年8月3日 14:03:26", "2018-08-03 22:06:04")

//计算2018-12-01 00:00:00减去当前时间, 返回单位天数, 并取整
TracePrint zm.TimeDiff("2018-12-01", "日", true)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.Timestamp("2017-07-23 23:29:38")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim s = zm.ConvBase(100, 2, 10)
TracePrint s '返回4

s = zm.ConvBase(100, 10, 16)
TracePrint s '返回64

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//用电脑上的记事本写入一些中文内容后, 将该文件传到手机上测试
Dim 转码前内容 = File.Read("/sdcard/Pictures/文本.txt")
TracePrint 转码前内容
Dim 转码后内容 = zm.ConvCoding(转码前内容, "gb2312", "utf-8")
TracePrint 转码后内容

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//ISO-8859-1里的欧元符号
Dim str1252 = "1\128"
TracePrint str1252
//以UTF8输出欧元符号
Dim strutf8 = zm.ConvCP1252ToUTF8(str1252)
TracePrint strutf8
//UTF8转为CP1252
Dim str1252_2 = zm.ConvUTF8ToCP1252(strutf8)
TracePrint str1252_2

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.ConvUnicodeToUTF16("1F601") //显示\ud83d\ude01
TracePrint zm.ConvUnicodeToUTF16(128513) //显示\ud83d\ude01
TracePrint zm.ConvUnicodeToUTF16(&H1F601) //显示\ud83d\ude01

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim 笑脸 = zm.ConvUnicodeToUTF8(&H1F601)
UI.NewLayout "layout1"
UI.AddTextView "layout1", "emoji", 笑脸
UI.Show "layout1"
TracePrint zm.ConvUTF8ToUnicode(笑脸)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//ISO-8859-1里的欧元符号
Dim str1252 = "1\128"
TracePrint str1252
//以UTF8输出欧元符号
Dim strutf8 = zm.ConvCP1252ToUTF8(str1252)
TracePrint strutf8
//UTF8转为CP1252
Dim str1252_2 = zm.ConvUTF8ToCP1252(strutf8)
TracePrint str1252_2

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim 笑脸 = zm.ConvUnicodeToUTF8(&H1F601)
UI.NewLayout "layout1"
UI.AddTextView "layout1", "emoji", 笑脸
UI.Show "layout1"
TracePrint zm.ConvUTF8ToUnicode(笑脸)

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim text = "紫猫", pwd = "m.zimaoxy.com"
Dim s, v
s = zm.EncodeAES(text, pwd)
TracePrint "对明文", text, "使用密钥", pwd, "进行AES-ECB加密结果", s
v = zm.DecodeAES(s, pwd)
TracePrint "对密文", s, "使用密钥", pwd, "进行AES-ECB解密结果", v

s = zm.EncodeAES(text, pwd, {"cipherout":64})
TracePrint "对明文", text, "使用密钥", pwd, "进行AES加密输出Base64结果", s
v = zm.DecodeAES(s, pwd, {"cipherout":64})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行AES解密输出Base64结果", v

s = zm.EncodeAES(text, pwd, {"mode":"cbc","iv":"1234567890abcdef"})
TracePrint "对明文", text, "使用密钥", pwd, "进行AES-CBC加密结果", s
v = zm.DecodeAES(s, pwd, {"mode":"cbc","iv":"1234567890abcdef"})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行AES-CBC解密结果", v

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim 原文 = "紫猫编程学院"
Dim 密文 = zm.EncodeBase64(原文)
TracePrint "Base64加密结果:", 密文

Dim 解密 = zm.DecodeBase64(密文)
If 解密 = 原文 Then 
	TracePrint "解密成功"
Else 
	TracePrint "解密失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//准备文件
Dim 原文件路径 = GetTempDir() & "紫猫编程学院.txt"
zm.FileWrite 原文件路径, "欢迎加入紫猫学院"

//文件加密
Dim 加密文件路径 = GetTempDir() & "加密.txt"
zm.EncodeBase64File 原文件路径, 加密文件路径
TracePrint "加密后的内容:", zm.FileRead(加密文件路径)

//文件解密
Dim 解密文件路径 = GetTempDir() & "解密.txt"
zm.DecodeBase64File 加密文件路径, 解密文件路径

//读取内容判断加解密是否成功
If zm.FileRead(解密文件路径) = "欢迎加入紫猫学院" Then 
	TracePrint "加解密成功"
Else 
	TracePrint "加解密结果不一致"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim text = "紫猫", pwd = "12345678"
Dim s, v
s = zm.EncodeDES(text, pwd)
TracePrint "对明文", text, "使用密钥", pwd, "进行DES-ECB加密结果", s
v = zm.DecodeDES(s, pwd)
TracePrint "对密文", s, "使用密钥", pwd, "进行DES-ECB解密结果", v

s = zm.EncodeDES(text, pwd, {"cipherout":64})
TracePrint "对明文", text, "使用密钥", pwd, "进行DES加密输出Base64结果", s
v = zm.DecodeDES(s, pwd, {"cipherout":64})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行DES解密输出Base64结果", v

s = zm.EncodeDES(text, pwd, {"mode":"cbc","block":"des3","iv":"abcdefgh"})
TracePrint "对明文", text, "使用密钥", pwd, "进行DES3-CBC加密结果", s
v = zm.DecodeDES(s, pwd, {"mode":"cbc","block":"des3","iv":"abcdefgh"})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行DES3-CBC解密结果", v

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim text = "紫猫", pwd = "m.zimaoxy.com"
Dim s, v
s = zm.EncodeTEA(text, pwd)
TracePrint "对明文", text, "使用密钥", pwd, "进行TEA-ECB加密结果", s
v = zm.DecodeTEA(s, pwd)
TracePrint "对密文", s, "使用密钥", pwd, "进行TEA-ECB解密结果", v

s = zm.EncodeTEA(text, pwd, {"cipherout":64})
TracePrint "对明文", text, "使用密钥", pwd, "进行TEA加密输出Base64结果", s
v = zm.DecodeTEA(s, pwd, {"cipherout":64})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行TEA解密输出Base64结果", v

s = zm.EncodeTEA(text, pwd, {"mode":"cbc","block":"xtea","iv":"abcdefgh"})
TracePrint "对明文", text, "使用密钥", pwd, "进行XTEA-CBC加密结果", s
v = zm.DecodeTEA(s, pwd, {"mode":"cbc","block":"xtea","iv":"abcdefgh"})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行XTEA-CBC解密结果", v

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim urls = zm.EncodeURL("紫猫")
TracePrint "对紫猫进行URL编码，得到", urls
Dim data = zm.DecodeURL(urls)
TracePrint "对", urls, "进行URL解码，得到", data

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim text = "紫猫", pwd = "m.zimaoxy.com"
Dim s, v
s = zm.EncodeAES(text, pwd)
TracePrint "对明文", text, "使用密钥", pwd, "进行AES-ECB加密结果", s
v = zm.DecodeAES(s, pwd)
TracePrint "对密文", s, "使用密钥", pwd, "进行AES-ECB解密结果", v

s = zm.EncodeAES(text, pwd, {"cipherout":64})
TracePrint "对明文", text, "使用密钥", pwd, "进行AES加密输出Base64结果", s
v = zm.DecodeAES(s, pwd, {"cipherout":64})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行AES解密输出Base64结果", v

s = zm.EncodeAES(text, pwd, {"mode":"cbc","iv":"1234567890abcdef"})
TracePrint "对明文", text, "使用密钥", pwd, "进行AES-CBC加密结果", s
v = zm.DecodeAES(s, pwd, {"mode":"cbc","iv":"1234567890abcdef"})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行AES-CBC解密结果", v

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim 原文 = "紫猫编程学院"
Dim 密文 = zm.EncodeBase64(原文)
TracePrint "Base64加密结果:", 密文

Dim 解密 = zm.DecodeBase64(密文)
If 解密 = 原文 Then 
	TracePrint "解密成功"
Else 
	TracePrint "解密失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//准备文件
Dim 原文件路径 = GetTempDir() & "紫猫编程学院.txt"
zm.FileWrite 原文件路径, "欢迎加入紫猫学院"

//文件加密
Dim 加密文件路径 = GetTempDir() & "加密.txt"
zm.EncodeBase64File 原文件路径, 加密文件路径
TracePrint "加密后的内容:", zm.FileRead(加密文件路径)

//文件解密
Dim 解密文件路径 = GetTempDir() & "解密.txt"
zm.DecodeBase64File 加密文件路径, 解密文件路径

//读取内容判断加解密是否成功
If zm.FileRead(解密文件路径) = "欢迎加入紫猫学院" Then 
	TracePrint "加解密成功"
Else 
	TracePrint "加解密结果不一致"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim text = "紫猫", pwd = "12345678"
Dim s, v
s = zm.EncodeDES(text, pwd)
TracePrint "对明文", text, "使用密钥", pwd, "进行DES-ECB加密结果", s
v = zm.DecodeDES(s, pwd)
TracePrint "对密文", s, "使用密钥", pwd, "进行DES-ECB解密结果", v

s = zm.EncodeDES(text, pwd, {"cipherout":64})
TracePrint "对明文", text, "使用密钥", pwd, "进行DES加密输出Base64结果", s
v = zm.DecodeDES(s, pwd, {"cipherout":64})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行DES解密输出Base64结果", v

s = zm.EncodeDES(text, pwd, {"mode":"cbc","block":"des3","iv":"abcdefgh"})
TracePrint "对明文", text, "使用密钥", pwd, "进行DES3-CBC加密结果", s
v = zm.DecodeDES(s, pwd, {"mode":"cbc","block":"des3","iv":"abcdefgh"})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行DES3-CBC解密结果", v

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim m = "紫猫学院", key = "zimaoxy.com"

Dim hmac = zm.EncodeHMAC(m, key)

TracePrint "hmac-sha1签名的十六进制结果为:", hmac

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim s = "紫猫"

TracePrint "md5:", zm.EncodeMD5(s)
TracePrint "md4:", zm.EncodeMD5(s, "md4")
TracePrint "md2:", zm.EncodeMD5(s, "md2")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim p = GetTempDir() & "Plugin/File.lua"
Dim md5 = zm.EncodeMD5File(p)
TracePrint md5

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim s = "紫猫"

TracePrint "ripemd128:", zm.EncodeRIPEMD(s)
TracePrint "ripemd160:", zm.EncodeRIPEMD(s, "ripemd160")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim s = "紫猫"

TracePrint "sha1:", zm.EncodeSHA(s)
TracePrint "sha224:", zm.EncodeSHA(s, "sha224")
TracePrint "sha256:", zm.EncodeSHA(s, "sha256")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim text = "紫猫", pwd = "m.zimaoxy.com"
Dim s, v
s = zm.EncodeTEA(text, pwd)
TracePrint "对明文", text, "使用密钥", pwd, "进行TEA-ECB加密结果", s
v = zm.DecodeTEA(s, pwd)
TracePrint "对密文", s, "使用密钥", pwd, "进行TEA-ECB解密结果", v

s = zm.EncodeTEA(text, pwd, {"cipherout":64})
TracePrint "对明文", text, "使用密钥", pwd, "进行TEA加密输出Base64结果", s
v = zm.DecodeTEA(s, pwd, {"cipherout":64})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行TEA解密输出Base64结果", v

s = zm.EncodeTEA(text, pwd, {"mode":"cbc","block":"xtea","iv":"abcdefgh"})
TracePrint "对明文", text, "使用密钥", pwd, "进行XTEA-CBC加密结果", s
v = zm.DecodeTEA(s, pwd, {"mode":"cbc","block":"xtea","iv":"abcdefgh"})
TracePrint "对十六进制密文", s, "使用密钥", pwd, "进行XTEA-CBC解密结果", v

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim urls = zm.EncodeURL("紫猫")
TracePrint "对紫猫进行URL编码，得到", urls
Dim data = zm.DecodeURL(urls)
TracePrint "对", urls, "进行URL解码，得到", data

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//默认为标准Base64加解密
//zm.InitBase64
TracePrint zm.EncodeBase64("紫猫学院zimaoxy.com")
TracePrint "紫猫学院zimaoxy.com" = zm.DecodeBase64("57Sr54yr5a2m6ZmiemltYW94eS5jb20=")

//使用URL安全Base64加解密, 对所有base64相关命令生效
zm.InitBase64 2
TracePrint zm.EncodeBase64("紫猫学院zimaoxy.com")
TracePrint "紫猫学院zimaoxy.com" = zm.DecodeBase64("57Sr54yr5a2m6ZmiemltYW94eS5jb20")

//自定义字符表编码与填充符
Dim 字符表编码 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz~!"
Dim 填充符 = "%"
zm.InitBase64 字符表编码, 填充符
TracePrint zm.EncodeBase64("紫猫学院zimaoxy.com")
TracePrint "紫猫学院zimaoxy.com" = zm.DecodeBase64("vxIhvuohvQscwPcYUcbjOMzuUIvZRsq%")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.GetGateway()

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//强烈建议使用默认参数直接获取ip, 内置数十个接口, 保证稳定性
Dim ip = zm.GetIPNet()
TracePrint "我的ip是:", ip

//不同接口的返回值格式与内容均有所不同, 由于部分接口可能不稳定, 故不推荐使用此方法
Dim ipt
For i = 1 to 7
  ipt = zm.GetIPNet(i)
  If ipt Then
    TracePrint "接口", i, zm.VarInfo(ipt)
  Else
    TracePrint "接口", i, "获取ip失败"
  End
Next

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

zm.HttpDownload "http://m.anjian.com/download/MobileAnjian3.2.9.apk", "/sdcard/anjian.apk"

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.HttpGet("www.baidu.com")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

TracePrint zm.HttpPost("www.baidu.com")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

zm.NetDataInit "http://192.168.1.100/sql.php", "测试脚本"

zm.NetDataSet "等级", 99
zm.NetDataSet "昵称", "紫猫"
zm.NetDataSet "VIP", True

Dim 总数量 = zm.NetDataCount()
TracePrint "一共有", 总数量, "个数据"

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化创建表, 并且不清空以前数据
zm.NetDataInit "http://192.168.1.100/sql.php", "测试脚本"

zm.NetDataSet "等级", 99
zm.NetDataSet "昵称", "紫猫"
zm.NetDataSet "VIP", True

Dim VIP = zm.NetDataGet("VIP")
TracePrint zm.VarInfo(VIP)

zm.NetDataDel "VIP"

Dim 检查删除结果 = zm.NetDataGet("VIP")
TracePrint 检查删除结果

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化创建表, 并且不清空以前数据
zm.NetDataInit "http://192.168.1.100/sql.php", "测试脚本"

zm.NetDataSet "等级", 99
zm.NetDataSet "昵称", "紫猫"
zm.NetDataSet "VIP", True

Dim 等级 = zm.NetDataGet("等级")
Dim 昵称 = zm.NetDataGet("昵称")
Dim VIP = zm.NetDataGet("VIP", True)

TracePrint zm.VarInfo(等级)
TracePrint zm.VarInfo(昵称)
TracePrint zm.VarInfo(VIP)

Dim 检查删除结果 = zm.NetDataGet("VIP")
TracePrint 检查删除结果

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化创建表, 并且清空以前数据
zm.NetDataInit "http://192.168.1.100/sql.php", "测试脚本", True

zm.NetDataSet "帐号1", "密码1"
zm.NetDataSet "帐号2", "密码2"
zm.NetDataSet "帐号3", "密码3"
zm.NetDataSet "帐号4", "密码4"
zm.NetDataSet "帐号5", "密码5"

//从第一行开始获取1行数据, 并且删除
Dim 帐号密码 = zm.NetDataGetRows(1, True)
TracePrint "帐号是: ", 帐号密码[1]["key"]
TracePrint "密码是: ", 帐号密码[1]["value"]

//从第2行开始获取3行数据
Dim 多个帐号密码 = zm.NetDataGetRows(3, 2)
For Each k , v In 多个帐号密码
	TracePrint "帐号是: ", v["key"]
	TracePrint "密码是: ", v["value"]
Next

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//例子1 初始化创建表, 并且不清空以前数据
zm.NetDataInit "http://192.168.1.100/sql.php", "测试脚本"

zm.NetDataSet "等级", 99
zm.NetDataSet "昵称", "紫猫"
zm.NetDataSet "VIP", True

Dim 等级 = zm.NetDataGet("等级")
Dim 昵称 = zm.NetDataGet("昵称")
Dim VIP = zm.NetDataGet("VIP", True)

TracePrint zm.VarInfo(等级)
TracePrint zm.VarInfo(昵称)
TracePrint zm.VarInfo(VIP)

Dim 检查删除结果 = zm.NetDataGet("VIP")
TracePrint 检查删除结果

//例子2 清空以前数据并初始化
zm.NetDataInit "http://192.168.1.100/sql.php", "测试脚本", True

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化创建表, 并且不清空以前数据
zm.NetDataInit "http://192.168.1.100/sql.php", "测试脚本"

zm.NetDataSet "等级", 99
zm.NetDataSet "昵称", "紫猫"
zm.NetDataSet "VIP", True

Dim 结果 = zm.NetDataQuery("SELECT * FROM `测试脚本`")
TracePrint 结果

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//初始化创建表, 并且不清空以前数据
zm.NetDataInit "http://192.168.1.100/sql.php", "测试脚本"

zm.NetDataSet "昵称", "紫猫"
zm.NetDataSet "等级", 99
zm.NetDataSet "VIP", True

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//连接192.168.1.100:12345的TCP服务端
Dim isConn = zm.TCPConnect("192.168.1.100", 12345)
If isConn Then 
    //发送数据到服务端
    TracePrint zm.TCPSend("QQ345911220", 15)
    //接收数据
    TracePrint zm.TCPReceive(60)
    //关闭TCP连接
    TracePrint zm.TCPClose()
Else 
    TracePrint "TCP连接失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//连接192.168.1.100:12345的TCP服务端
Dim isConn = zm.TCPConnect("192.168.1.100", 12345)
If isConn Then 
    //发送数据到服务端
    TracePrint zm.TCPSend("QQ345911220", 15)
    //接收数据
    TracePrint zm.TCPReceive(60)
    //关闭TCP连接
    TracePrint zm.TCPClose()
Else 
    TracePrint "TCP连接失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//连接192.168.1.100:12345的TCP服务端
Dim isConn = zm.TCPConnect("192.168.1.100", 12345)
If isConn Then 
    //发送数据到服务端
    TracePrint zm.TCPSend("QQ345911220", 15)
    //接收数据
    TracePrint zm.TCPReceive(60)
    //关闭TCP连接
    TracePrint zm.TCPClose()
Else 
    TracePrint "TCP连接失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//连接192.168.1.100:12345的TCP服务端
Dim isConn = zm.TCPConnect("192.168.1.100", 12345)
If isConn Then 
    //发送数据到服务端
    TracePrint zm.TCPSend("QQ345911220", 15)
    //接收数据
    TracePrint zm.TCPReceive(60)
    //关闭TCP连接
    TracePrint zm.TCPClose()
Else 
    TracePrint "TCP连接失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//往192.168.1.100:12345发送数据
TracePrint zm.UDPSend("QQ345911220", "192.168.1.100", 12345)
//绑定192.168.1.101:12345
Dim isBind = zm.UDPBind("192.168.1.101", 12345, 15)
If isBind Then 
    //接收数据
    TracePrint zm.UDPReceive(60)
    //关闭UDP
    TracePrint zm.UDPClose()
Else 
    TracePrint "UDP绑定失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//往192.168.1.100:12345发送数据
TracePrint zm.UDPSend("QQ345911220", "192.168.1.100", 12345)
//绑定192.168.1.101:12345
Dim isBind = zm.UDPBind("192.168.1.101", 12345, 15)
If isBind Then 
    //接收数据
    TracePrint zm.UDPReceive(60)
    //关闭UDP
    TracePrint zm.UDPClose()
Else 
    TracePrint "UDP绑定失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//往192.168.1.100:12345发送数据
TracePrint zm.UDPSend("QQ345911220", "192.168.1.100", 12345)
//绑定192.168.1.101:12345
Dim isBind = zm.UDPBind("192.168.1.101", 12345, 15)
If isBind Then 
    //接收数据
    TracePrint zm.UDPReceive(60)
    //关闭UDP
    TracePrint zm.UDPClose()
Else 
    TracePrint "UDP绑定失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//往192.168.1.100:12345发送数据
TracePrint zm.UDPSend("QQ345911220", "192.168.1.100", 12345)
//绑定192.168.1.101:12345
Dim isBind = zm.UDPBind("192.168.1.101", 12345, 15)
If isBind Then 
    //接收数据
    TracePrint zm.UDPReceive(60)
    //关闭UDP
    TracePrint zm.UDPClose()
Else 
    TracePrint "UDP绑定失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

'创建一个名称为"layout1"的布局控件
UI.NewLayout ("layout1")
'以下例子为分别创建文字框、输入框、按钮等控件并使用获取GetValue它们的值
UI.AddTextView("layout1", "文字框1", "姓名：") 
Dim 内容= zm.GetUIValue("文字框1")
TracePrint 内容
UI.AddEditText("layout1", "输入框1", "请在此输入内容") 
Dim 内容2= zm.GetUIValue("输入框1")
TracePrint 内容2
UI.AddButton("layout1", "按钮1", "这是个按钮") 
Dim 内容3= zm.GetUIValue("按钮1")
TracePrint 内容3
UI.AddRadioGroup("layout1","单选框1",{"1小瓶", "2中瓶", "3大瓶"},0)
Dim 内容4= zm.GetUIValue("单选框1")
TracePrint 内容4
UI.AddCheckBox("layout1", "多选框1","多选框选项1", false)
Dim 内容5= zm.GetUIValue("多选框1")
TracePrint 内容5
UI.NewRow("layout1", "new_row_1")
Dim SpinnerTable = {"湖南", "湖北", "广东", "广西"}
UI.AddSpinner("layout1", "下拉框1", SpinnerTable, 0)
Dim 内容6= zm.GetUIValue("下拉框1")
TracePrint 内容6
'显示名称为："layout1" 的布局控件
UI.Show ("layout1")

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret
//--------------------例子1--------------------//
//表示对比两组多点比色数据, 分别是"205|177|0CBB00,228|169|FFFFFF"和"61|340|3DC3EE"
//支持无限添加多点比色数据, 按顺序比较, 只要有一组对比成功, 就返回结果
//不填写相似度情况下, 省略默认相似度为0.9
ret = zm.CmpColorEx("205|177|0CBB00,228|169|FFFFFF", "61|340|3DC3EE")
If ret Then
    TracePrint "对比颜色成功"
Else
    TracePrint "对比颜色失败"
End If

//--------------------例子2--------------------//
//如何对比动态变化的画面?
//原理:用抓抓截图后, 图片是静止不变的, 多次截图可以获取到不同的画面
//     说明所谓的动态图其实就是由一些静止不动的画面来回切换实现的
//     那么对每一次截图采集一些多点比色数据, 然后让脚本循环多次比较这些数据
//     只要任何一组数据对比成功, 都可以认为是找到这个动态图了
//     所以可以使用本命令的无限添加多点比色数据与设置超时时间来实现
//     想提高查找速度的话, 建议提高相似度, 增加多点比色数据
//下面代码实现在5000毫秒内不断循环比较两组多点比色数据, 任何一组对比成功了, 就立即返回该组数据的第一个坐标
//超过5000毫秒没对比成功, 就返回null
ret = zm.CmpColorEx("205|177|0CBB00,228|169|FFFFFF", "61|340|3DC3EE", 5000)
If ret Then
    TracePrint "对比颜色成功, 序号=" & ret(0), "x=" & ret(1), "y=" & ret(2), "name=" & ret(3)
Else
    TracePrint "对比颜色失败"
End If

//--------------------例子3--------------------//
Dim 返回数组()
//参数返回值必须是任意数组的变量名, 注意括号写法
//除对象参数外, 大部分参数都可以打乱顺序填写, 只要数据类型与格式正确即可
//下面代码实现以(0.8)的颜色相似度比较两组多点比色数据, 并把返回结果保存在数组变量(返回数组)中
If zm.CmpColorEx(0.8, "205|177|0CBB00,228|169|FFFFFF", 返回数组, "61|340|3DC3EE") Then
    TracePrint "对比颜色成功, 序号=" & 返回数组["id"], "x=" & 返回数组["x"], "y=" & 返回数组["y"], "name=" & 返回数组["name"]
Else
    TracePrint "对比颜色失败"
End If

//--------------------例子4--------------------//
//有时候颜色的相似度不好取值, 那么可以借助智能相似度实现判断
//下面这段代码中就表示从高相似度1.0到低相似度0.7, 以每次减少0.1的值进行循环对比
//只要对比成功了, 就立即返回结果, 需注意, 相似度步长必须写在两个颜色相似度后面
ret = zm.CmpColorEx("205|177|0CBB00,228|169|FFFFFF", "61|340|3DC3EE", 0.7, 1.0, 0.1)
If ret Then
    TracePrint "对比颜色成功, 序号=" & ret(0), "x=" & ret(1), "y=" & ret(2), "name=" & ret(3)
Else
    TracePrint "对比颜色失败"
End If

//--------------------例子5--------------------//
//请注意这个例子中的参数("0.7"), 这是指数量相似度, 必须是字符串数据类型
//数量相似度是指多点比色数据中符合条件点的比例, "0.7"即70%以上个点符合条件
//例如下面这组多点比色数据一共有4个点, 那么对比时, 只要有4*0.7=2.8个点以上符合条件, 就可以返回对比成功
ret = zm.CmpColorEx("5|7|0CBB00,2|1|FFFFFF,4|3|3DC3EE,1|3|354311", "0.7")
If ret Then
    TracePrint "对比颜色成功, 序号=" & ret(0), "x=" & ret(1), "y=" & ret(2), "name=" & ret(3)
Else
    TracePrint "对比颜色失败"
End If

//--------------------例子6--------------------//
//写代码过程中的调试输出信息是非常重要的, 但是每次都要专门写一次TracePrint也挺麻烦
//所以可以直接把输出信息写在参数里, 让它自动输出详细内容
//加入参数("显示")或("show")就表示要输出结果, 没有这个参数就不会输出内容
//加入参数("@内容")就表示输出的备注信息, 因为这个输出是不带行号的, 所以备注信息很有必要输出显示
//加入参数("_行数")表示在带上输出行号, 不过代码改动, 行号变化后, 这里也要重新修改, 比较麻烦, 不如备注来的方便
ret = zm.CmpColorEx("205|177|0CBB00,228|169|FFFFFF", "61|340|3DC3EE", "显示", "@怪物", "_72")
If ret Then
    TracePrint "对比颜色成功"
Else
    TracePrint "对比颜色失败"
End If

//--------------------例子7--------------------//
//对比成功后可能会需要点击操作, 那么加入参数(true)就可以实现点击返回的坐标
//但是由于对比和点击是由两个动作组成, 所以更加推荐使用zm.CmpColorExTap()命令来实现这个功能
//省略点击坐标参数情况下, 默认点击的坐标是对比成功的颜色组第一个点
//比如第一组颜色对比成功, 那么点击就是(205,177), 如果是第二组, 那么就是点击(61,340)
//如果加入点击坐标参数("100,-20,3000"), 那么点击坐标将发生改变, 以返回坐标(205,177)为例
//实际点击坐标是(100,177-20=157), 并且点击后延时3000毫秒
//更多关于点击坐标参数格式请查看参数信息里的内容
ret = zm.CmpColorEx("205|177|0CBB00,228|169|FFFFFF", "61|340|3DC3EE", True, "100,-20,3000")
If ret Then
    TracePrint "对比颜色成功"
Else
    TracePrint "对比颜色失败"
End If


//--------------------例子8--------------------//
//有时候需要判断对比成功后, 过一段时间画面消失, 也就是对比失败这个过程
//那么可以通过等待消失和消失超时参数来实现
//下面代码中, 参数(-2)表示开启等待消失功能, 参数(-5000)表示在5000毫秒内不断判断对比是否失败
//如果对比失败, 就表示画面消失了, 立即返回结果
//其中返回的坐标依旧是对比成功点的坐标, 而是否消失的结果保存在键名("miss")中
//要注意的是只有先对比成功后, 才会进入等待消失, 如果一开始就对比失败, 那就不会去等待消失了
ret = zm.CmpColorEx("205|177|0CBB00,228|169|FFFFFF", "61|340|3DC3EE", -2, -5000)
If ret Then
    TracePrint "对比颜色成功, 序号=" & ret(0), "x=" & ret(1), "y=" & ret(2), "name=" & ret(3)
    TracePrint "画面是否消失 = ", ret["miss"]
Else
    TracePrint "对比颜色失败"
End If

//--------------------例子9--------------------//
//可选参数都可以组合起来实现, 大部分参数可以乱序填写, 下面代码意思如下:
//以颜色相似度为(0.8), 数量相似度("0.7")的设置
//比较两组多点比色数据, 分别是"205|177|0CBB00,228|169|FFFFFF"和"61|340|3DC3EE"
//限时在2000毫秒内循环比较, 找到任何一个后退出循环查找
//并将对比成功颜色组的序号和第一个点坐标保存在数组变量(ret)与(返回数组)中
//比如"205|177|0CBB00,228|169|FFFFFF"对比成功则返回序号0, 坐标(205,177)
//而如果是"61|340|3DC3EE"对比成功, 则返回序号1, 坐标(61,340)
//同时开启日志的输出("显示")功能, 输出备注("@紫猫Boss"), 对比结果与其他参数信息
ret = zm.CmpColorEx("205|177|0CBB00,228|169|FFFFFF", "61|340|3DC3EE", 0.8, "0.7", 2000, "显示", "@紫猫Boss", 返回数组)
If ret Then
    TracePrint "对比颜色成功"
Else
    TracePrint "对比颜色失败"
End If

//--------------------例子10--------------------//
//脚本变量的管理是一个难题, 每组图色数据都是独立的, 为了方便代码结构的管理
//可以把所有参数放到一个表中, 表中的数据一样可以打乱顺序任意填写或省略
//这个表就是对象参数, 它必须填写在第一个参数位置
//如果参数对象后面还有参数, 比如("_133"), 则表示重写对象里的("_36"), 使日志输出显示在46行
//注意, 多点比色数据不会被覆盖重写, 只会被追加, 相当于所有的多点比色数据都会被用来查找
//如果你有多组不同的对象参数需要遍历, 那么推荐使用zm.CmpColorExTable()
Dim 史莱姆 = {"205|177|0CBB00,228|169|FFFFFF", "61|340|3DC3EE", 0.8, 2000, "显示", "@怪物1", 返回数组, "_39"}
zm.CmpColorEx 史莱姆, "_134", "11|140|1542EE"

//--------------------例子11--------------------//
Dim IXYs()
//设置默认参数返回值IXYs, 若命令不填写参数返回值, 则默认保存在该变量中
//设置默认日志输出为显示状态, 后面所有超级多点比色相关命令都默认输出调试信息
//更多修改默认设置详见 zm.SetCmpColorEx() 命令帮助
zm.SetCmpColorEx {"ret":IXYs, "showlog":"显示"}
If zm.CmpColorEx("205|177|0CBB00,228|169|FFFFFF") Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "对比颜色成功, 序号" & IXYs(0), "x=" & IXYs(1), "y=" & IXYs(2)
    TracePrint "对比颜色成功, 序号" & IXYs[1], "x=" & IXYs[2], "y=" & IXYs[3]
    TracePrint "对比颜色成功, 序号" & IXYs["id"], "x=" & IXYs["x"], "y=" & IXYs["y"]
Else
    TracePrint "对比颜色失败"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//将多个对象放入打怪table中, 每个对象都有各自的键名与各自的参数键值
Dim 打怪(), Boss坐标()
打怪["史莱姆"] = {"61|340|3DC3EE,91|344|346AFF,472|154|1592FF", true}
打怪["黑龙"] = {"421|237|241306,438|261|241306", 0.8, true}
打怪["紫猫BOSS"] = {"295|290|241306", Boss坐标} //这个不点击

//遍历打怪table, 返回每个对象成员的结果
Dim t = zm.CmpColorExTable(打怪)
If t Then
    TracePrint zm.VarInfo(t)
    TracePrint "找到了", t["success"], "个对象"
    TracePrint "没找到", t["fail"], "个对象"
    //在确认有找到的情况下, 可以单独判断某个对象是否有找到, 包括获取该对象的坐标结果等
    If t["史莱姆"] Then
        TracePrint "找到史莱姆, 坐标为", t["史莱姆"]["x"], t["史莱姆"]["y"]
    End If
Else
    TracePrint "所有对象都没有找到"
End If

//对象参数中的返回数组参数依旧可以拿出来单独判断使用
If Boss坐标(0) > -1 Then
    TracePrint "找到紫猫BOSS"
Else
    TracePrint "没有找到紫猫BOSS"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret
//省略点击坐标参数情况下, 默认点击的坐标是对比成功的颜色组第一个点
//比如"205|177|0CBB00,228|169|FFFFFF"对比成功, 那么点击的坐标就是(205,117)
ret = zm.CmpColorExTap("205|177|0CBB00,228|169|FFFFFF", "61|340|3DC3EE")
If ret Then
    TracePrint "对比颜色成功, 执行点击操作"
Else
    TracePrint "对比颜色失败"
End If

//如果加入点击坐标参数("100,-20,3000"), 那么点击坐标将发生改变, 以返回坐标(205,177)为例
//实际点击坐标是(100,177-20=157), 并且点击后延时3000毫秒
//更多关于点击坐标参数格式请查看参数信息里的内容
ret = zm.CmpColorExTap("205|177|0CBB00,228|169|FFFFFF", "61|340|3DC3EE", "100,-20,3000")
If ret Then
    TracePrint "对比颜色成功"
Else
    TracePrint "对比颜色失败"
End If

//其他更多例子见zm.CmpColorEx*()命令, 本命令除了强制点击外, 无其他区别

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//--------------------初级用法--------------------//
Dim ret
//0.9表示相似度, 内置省略默认为1.0, 可自由设置
ret = zm.FindColor("00AAFF", 0.9)
If ret Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到颜色序号" & ret(0), "x=" & ret(1), "y=" & ret(2), "颜色=" & ret(3)
    TracePrint "找到颜色序号" & ret[1], "x=" & ret[2], "y=" & ret[3], "颜色=" & ret[4]
    TracePrint "找到颜色序号" & ret["id"], "x=" & ret["x"], "y=" & ret["y"], "颜色=" & ret["name"]
Else
    TracePrint "没有找到"
End If

//--------------------中级用法--------------------//
Dim 返回数组()
//参数返回值必须是任意数组的变量名, 注意括号写法
//范围省略默认为全屏, 若填写, 则4个数字必须全写
If zm.FindColor(100, 200, 300, 400, "00AAFF", 返回数组) Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到颜色序号" & 返回数组(0), "x=" & 返回数组(1), "y=" & 返回数组(2), "颜色=" & 返回数组(3)
    TracePrint "找到颜色序号" & 返回数组[1], "x=" & 返回数组[2], "y=" & 返回数组[3], "颜色=" & 返回数组[4]
    TracePrint "找到颜色序号" & 返回数组["id"], "x=" & 返回数组["x"], "y=" & 返回数组["y"], "颜色=" & 返回数组["name"]
Else
    TracePrint "没有找到"
End If

//--------------------高级用法--------------------//
//"00AAFF"颜色后面的可选参数全部可以打乱顺序任意填写或省略, 只要数据类型与格式正确即可, 详见上面参数介绍
//这句代码意思如下:
//在范围(100,200,300,400)里, 以相似度为(0.8)的设置, 从("中心")向四周循环限时2秒钟内查找颜色为("00AAFF")的点
//找到后退出循环查找, 并将找到的序号与坐标结果保存到数组变量(ret)与(返回数组)中
//同时开启日志的输出("显示")功能, 在当前脚本第("_36")行输出备注("@怪物1"), 查找结果与其他参数信息
ret = zm.FindColor(100, 200, 300, 400, "00AAFF", 0.8, 2000, "中心", "显示", "@怪物1", 返回数组, "_36")
If ret Then
    TracePrint "找到了"
Else
    TracePrint "没有找到"
End If

//--------------------对象用法--------------------//
//可以把所有参数放到一个表中, 颜色后面的可选参数一样可以打乱顺序任意填写或省略
//对象参数必须填写在第一个参数位置
//如果参数对象后面还有参数, 比如("_46"), 则表示重写对象里的("_36"), 使日志输出显示在46行
Dim 史莱姆 = {"00AAFF", 0.8, 2000, "显示", "@攻击史莱姆", 返回数组, "_46"}
zm.FindColor 史莱姆, 100, 200, 300, 400, "_46"

//--------------------修改默认值--------------------//
Dim IXYs()
//设置默认参数返回值IXYs, 若命令不填写参数返回值, 则默认保存在该变量中
//设置默认日志输出为显示状态, 后面所有 zm.FindColor() 都默认输出调试信息
//更多修改默认设置详见 zm.SetFindColor() 命令帮助
zm.SetFindColor {"ret":IXYs, "showlog":"显示"}
If zm.FindColor("00AAFF") Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号" & IXYs(0), "x=" & IXYs(1), "y=" & IXYs(2), "颜色=" & IXYs(3)
    TracePrint "找到序号" & IXYs[1], "x=" & IXYs[2], "y=" & IXYs[3], "颜色=" & IXYs[4]
    TracePrint "找到序号" & IXYs["id"], "x=" & IXYs["x"], "y=" & IXYs["y"], "颜色=" & IXYs["name"]
Else
    TracePrint "没有找到"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret
ret = zm.FindColorEx("BDBDBD|614B6B|FFFFFF")
If ret Then
    TracePrint "颜色找到了, 有以下几种方式遍历找到的坐标"
    TracePrint "第1种:遍历数组方法"
    For i = 0 to Ubound(ret)
        TracePrint "颜色序号:", ret(i, 0), " 坐标:", ret(i, 1), ret(i, 2)
    Next

    TracePrint "第2种:遍历键名"
    For Each k , v In ret["xy"]
    	For Each xy In v
    		TracePrint "颜色序号:", k, " 坐标:", xy[1], xy[2]
    	Next
    Next
    
    TracePrint "第3种:获取指定颜色序号的坐标"
    If ret["xy"][2] Then 
    	For Each xy In ret["xy"][2]
    		TracePrint "颜色序号2的找到坐标:", xy[1], xy[2]
    	Next
    Else 
    	TracePrint "颜色序号2没有找到"
    End If
Else
    TracePrint "没有找到颜色"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim 打怪(), Boss坐标()
打怪["史莱姆"] = {"00AAFF", true}
打怪["黑龙"] = {100,200,300,400, "1155BB", true}
打怪["紫猫BOSS"] = {"FFFFFF", Boss坐标} //这个不点击

//遍历打怪数组, 返回每个对象成员的结果
Dim t = zm.FindColorTable(打怪)
If t Then
    TracePrint "找到了", t["success"], "个对象"
    TracePrint "没找到", t["fail"], "个对象"
    If t["史莱姆"] Then
        TracePrint "找到史莱姆, 坐标为", t["史莱姆"]["x"], t["史莱姆"]["y"]
    End If
Else
    TracePrint "所有对象都没有找到"
End If

If Boss坐标(0) > -1 Then
    TracePrint "紫猫BOSS对象里的返回参数依旧有效"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//本命令内置找到后点击, 其他用法例子与zm.FindColor()相同
Dim ret
//找到颜色后执行点击
ret = zm.FindColorTap("00AAFF", 0.9)
If ret Then
    TracePrint "颜色找到并执行了点击"
Else
    TracePrint "没有找到颜色, 不执行点击"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//--------------------初级用法--------------------//
Dim ret
//表示查找两个多点找色数据, 分别是"BDBDBD","56|33|614B6B"和"242424","-10|2|ABC54A,9|4|12DC67"
//支持无限添加多点找色数据, 只要按照格式"第一点颜色","偏移颜色组"依次添加即可
ret = zm.FindMultiColor("BDBDBD", "56|33|614B6B", "242424", "-10|2|ABC54A,9|4|12DC67")
If ret Then
    TracePrint "颜色找到并执行了点击"
Else
    TracePrint "没有找到颜色, 不执行点击"
End If

//--------------------查找变化动态图--------------------//
Dim ret
//原理: 用抓抓截图后, 图片是静止不变的, 多次截图可以获取到不同的画面
//     说明所谓的动态图其实就是由一些静止不动的画面来回切换实现的
//     那么对每一次截图采集一些多点找色数据, 然后让脚本循环多次查找这些数据
//     只要任何一个数据找到了, 都可以认为是找到这个动态图了
//     所以可以使用本命令的无限添加多点数据与设置超时时间来实现
//     想提高查找速度的话, 建议缩小范围, 提高相似度
ret = zm.FindMultiColor("BDBDBD", "56|33|614B6B", "242424", "-10|2|ABC54A,9|4|12DC67",5000)
If ret Then
    TracePrint "找到序号" & ret(0), "x=" & ret(1), "y=" & ret(2), "颜色=" & ret(3)
Else
    TracePrint "没有找到"
End If

//--------------------中级用法--------------------//
Dim 返回数组()
//参数返回值必须是任意数组的变量名, 注意括号写法
//范围省略默认为全屏, 若填写, 则4个数字必须全写, 除对象参数外, 其他参数都要写在范围后面
If zm.FindMultiColor(100, 200, 300, 400, "000000", "44|42|565656", 0.8, 返回数组) Then
    TracePrint "找到序号" & 返回数组["id"], "x=" & 返回数组["x"], "y=" & 返回数组["y"], "颜色=" & 返回数组["name"]
Else
    TracePrint "没有找到"
End If

//--------------------高级用法--------------------//
//范围后面的可选参数全部可以打乱顺序任意填写或省略, 只要数据类型与格式正确即可
//注意, "第一点颜色","偏移颜色组"这两个参数必须连在一起, 详见上面参数介绍
//这句代码意思如下:
//在范围(100,200,300,400)里, 以相似度为(0.8)的设置, 从("中心")向四周循环多点找色查找最多2秒钟
//第一点为("00AAFF")偏移颜色组为("42|42|565656")和第一点为("DD58FF")偏移颜色组为("3|4|A25C6D")
//找到任何一个后退出循环查找, 然后点击找到的坐标(True), 并将找到的序号与坐标结果保存到数组变量(ret)与(返回数组)中
//同时开启日志的输出("显示")功能, 在当前脚本第("_39")行输出备注("@怪物1"), 查找结果与其他参数信息
ret = zm.FindMultiColor(100, 200, 300, 400, "00AAFF", "42|42|565656", 0.8, 2000, "中心", "DD58FF", "3|4|A25C6D", True, "显示", "@怪物1", 返回数组, "_39")
If ret Then
    TracePrint "找到了"
Else
    TracePrint "没有找到"
End If

//--------------------对象用法--------------------//
//可以把所有参数放到一个表中, 可选参数一样可以打乱顺序任意填写或省略
//对象参数必须填写在第一个参数位置
//如果参数对象后面还有参数, 比如("_46"), 则表示重写对象里的("_36"), 使日志输出显示在46行
//注意, 多点找色数据不会被覆盖重写, 只会被追加, 相当于所有的多点找色数据都会被用来查找
Dim 史莱姆 = {"00AAFF", "42|42|565656", 0.8, 2000, True, "显示", "@攻击史莱姆", 返回数组, "_36"}
zm.FindMultiColor 史莱姆, 100, 200, 300, 400, "_46", "DD58FF", "3|4|A25C6D"

//--------------------修改默认值--------------------//
Dim IXYs()
//设置默认参数返回值IXYs, 若命令不填写参数返回值, 则默认保存在该变量中
//设置默认日志输出为显示状态, 后面所有 zm.FindMultiColor() 都默认输出调试信息
//更多修改默认设置详见 zm.SetFindMultiColor() 命令帮助
zm.SetFindMultiColor {"ret":IXYs, "showlog":"显示"}
If zm.FindMultiColor("00AAFF", "42|42|565656") Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号" & IXYs(0), "x=" & IXYs(1), "y=" & IXYs(2), "颜色=" & IXYs(3)
    TracePrint "找到序号" & IXYs[1], "x=" & IXYs[2], "y=" & IXYs[3], "颜色=" & IXYs[4]
    TracePrint "找到序号" & IXYs["id"], "x=" & IXYs["x"], "y=" & IXYs["y"], "颜色=" & IXYs["name"]
Else
    TracePrint "没有找到"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret
ret = zm.FindMultiColorEx("BDBDBD", "56|33|614B6B", "000000", "56|33|614B6B")
If ret Then
    TracePrint "颜色找到了, 有以下几种方式遍历找到的坐标"
    TracePrint "第1种:遍历数组方法"
    For i = 0 to Ubound(ret)
        TracePrint "颜色序号:", ret(i, 0), " 坐标:", ret(i, 1), ret(i, 2)
    Next

    TracePrint "第2种:遍历键名"
    For Each k , v In ret["xy"]
    	For Each xy In v
    		TracePrint "颜色序号:", k, " 坐标:", xy[1], xy[2]
    	Next
    Next
    
    TracePrint "第3种:获取指定颜色序号的坐标"
    If ret["xy"][2] Then 
    	For Each xy In ret["xy"][2]
    		TracePrint "颜色序号2的找到坐标:", xy[1], xy[2]
    	Next
    Else 
    	TracePrint "颜色序号2没有找到"
    End If
Else
    TracePrint "没有找到颜色"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim 打怪(), Boss坐标()
打怪["史莱姆"] = {"00AAFF", "44|12|F01BA0-101010", true}
打怪["黑龙"] = {100,200,300,400, "1155BB", "11|-2|F01123", true}
打怪["紫猫BOSS"] = {"FFFFFF", "-55|102|000000", Boss坐标} //这个不点击, 并返回值保存在Boss坐标中

//遍历打怪数组, 返回每个对象成员的结果
Dim t = zm.FindMultiColorTable(打怪)
If t Then
    TracePrint "找到了", t["success"], "个对象"
    TracePrint "没找到", t["fail"], "个对象"
    If t["史莱姆"] Then
        TracePrint "找到史莱姆, 坐标为", t["史莱姆"]["x"], t["史莱姆"]["y"]
    End If
Else
    TracePrint "所有对象都没有找到"
End If

If Boss坐标(0) > -1 Then
    TracePrint "紫猫BOSS对象里的返回参数依旧有效"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//本命令内置找到后点击, 其他用法例子与zm.FindMultiColor()相同
Dim ret
ret = zm.FindMultiColorTap("BDBDBD", "56|33|614B6B", "242424", "-10|2|ABC54A,9|4|12DC67")
If ret Then
    TracePrint "颜色找到并执行了点击"
Else
    TracePrint "没有找到颜色, 不执行点击"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//--------------------初级用法--------------------//
Dim ret
//一张图片名实现附件找图功能, 省略了Attachment:
ret = zm.FindPic("图片.png")
If ret Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号" & ret(0), "x=" & ret(1), "y=" & ret(2), "图片名=" & ret(3)
    TracePrint "找到序号" & ret[1], "x=" & ret[2], "y=" & ret[3], "图片名=" & ret[4]
    TracePrint "找到序号" & ret["id"], "x=" & ret["x"], "y=" & ret["y"], "图片名=" & ret["name"]
Else
    TracePrint "没有找到"
End If

//--------------------查找变化动态图--------------------//
Dim ret
//原理: 用抓抓截图后, 图片是静止不变的, 多次截图可以获取到不同的画面
//      说明所谓的动态图其实就是由一些静止不动的画面来回切换实现的
//      那么对每一次截图并保存下来, 只要任何一张图找到了, 都可以认为是找到这个动态图了
//      所以可以使用本命令设置超时时间来实现
//      想提高查找速度的话, 建议缩小范围, 提高相似度
ret = zm.FindPic("图片1.png|图片2.png|图片3.png",5000)
If ret Then
    TracePrint "找到序号" & ret(0), "x=" & ret(1), "y=" & ret(2), "图片名=" & ret(3)
Else
    TracePrint "没有找到"
End If

//--------------------中级用法--------------------//
Dim 返回数组()
//参数返回值必须是任意数组的变量名, 注意括号写法
//范围省略默认为全屏, 若填写, 则4个数字必须全写, 除对象参数外, 其他参数都要写在范围后面
If zm.FindPic(100, 200, 300, 400, "图片1.bmp|Attachment:图片2.png|/sdcard/图片3.jpg", 0.8, 返回数组) Then
    TracePrint "找到序号" & 返回数组["id"], "x=" & 返回数组["x"], "y=" & 返回数组["y"], "图片名=" & 返回数组["name"]
Else
    TracePrint "没有找到"
End If

//--------------------高级用法--------------------//
//范围后面的可选参数全部可以打乱顺序任意填写或省略, 只要数据类型与格式正确即可
//注意, "第一点颜色","偏移颜色组"这两个参数必须连在一起, 详见上面参数介绍
//这句代码意思如下:
//在范围(100,200,300,400)里, 以相似度为(0.8)的设置, 从("中心")向四周循环查找("图片.png")最多2秒钟
//找到任何一张后退出循环查找, 然后点击找到的坐标(True), 并将找到的序号与坐标结果保存到数组变量(ret)与(返回数组)中
//同时开启日志的输出("显示")功能, 在当前脚本第("_54")行输出备注("@怪物1"), 查找结果与其他参数信息
ret = zm.FindPic(100, 200, 300, 400, "图片.png", 0.8, 2000, "中心", True, "显示", "@怪物1", 返回数组, "_54")
If ret Then
    TracePrint "找到了"
Else
    TracePrint "没有找到"
End If

//--------------------对象用法--------------------//
//可以把所有参数放到一个表中, 可选参数一样可以打乱顺序任意填写或省略
//对象参数必须填写在第一个参数位置
//如果参数对象后面还有参数, 比如("_46"), 则表示重写对象里的("_36"), 使日志输出显示在65行
Dim 史莱姆 = {"图片.png", 0.8, 2000, True, "显示", "@攻击史莱姆", 返回数组, "_36"}
zm.FindPic 史莱姆, "_65", "史莱姆.bmp"

//--------------------修改默认值--------------------//
Dim IXYs()
//设置默认参数返回值IXYs, 若命令不填写参数返回值, 则默认保存在该变量中
//设置默认日志输出为显示状态, 后面所有 zm.FindPic() 都默认输出调试信息
//更多修改默认设置详见 zm.SetFindPic() 命令帮助
zm.SetFindPic {"ret":IXYs, "showlog":"显示"}
If zm.FindPic("图片.png") Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号" & IXYs(0), "x=" & IXYs(1), "y=" & IXYs(2), "图片名=" & IXYs(3)
    TracePrint "找到序号" & IXYs[1], "x=" & IXYs[2], "y=" & IXYs[3], "图片名=" & IXYs[4]
    TracePrint "找到序号" & IXYs["id"], "x=" & IXYs["x"], "y=" & IXYs["y"], "图片名=" & IXYs["name"]
Else
    TracePrint "没有找到"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim ret
ret = zm.FindPicEx("紫猫.png|学院.bmp|/sdcard/test.png")
If ret Then
    TracePrint "图片找到了, 有以下几种方式遍历找到的坐标"
    TracePrint "第1种:遍历数组方法"
    For i = 0 to Ubound(ret)
        TracePrint "图片序号:", ret(i, 0), " 坐标:", ret(i, 1), ret(i, 2)
    Next

    TracePrint "第2种:遍历键名"
    For Each k , v In ret["xy"]
    	For Each xy In v
    		TracePrint "图片序号:", k, " 坐标:", xy[1], xy[2]
    	Next
    Next
    
    TracePrint "第3种:获取指定图片序号的坐标"
    If ret["xy"][2] Then 
    	For Each xy In ret["xy"][2]
    		TracePrint "图片序号2的找到坐标:", xy[1], xy[2]
    	Next
    Else 
    	TracePrint "图片序号2没有找到"
    End If
Else
    TracePrint "没有找到图片"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim 打怪(), Boss坐标()
打怪["史莱姆"] = {"史莱姆1.bmp|史莱姆2.png", true}
打怪["黑龙"] = {100,200,300,400, "龙.png", true}
打怪["紫猫BOSS"] = {"帅气的紫猫老师.png", Boss坐标} //这个不点击, 并返回值保存在Boss坐标中

//遍历打怪数组, 返回每个对象成员的结果
Dim t = zm.FindPicTable(打怪)
If t Then
    TracePrint "找到了", t["success"], "个对象"
    TracePrint "没找到", t["fail"], "个对象"
    If t["史莱姆"] Then
        TracePrint "找到史莱姆, 坐标为", t["史莱姆"]["x"], t["史莱姆"]["y"]
    End If
Else
    TracePrint "所有对象都没有找到"
End If

If Boss坐标(0) > -1 Then
    TracePrint "紫猫BOSS对象里的返回参数依旧有效"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//本命令内置找到后点击, 其他用法例子与zm.FindPic()相同
Dim ret
ret = zm.FindPicTap("图片.png")
If ret Then
    TracePrint "图片找到并执行了点击"
Else
    TracePrint "没有找到图片, 不执行点击"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//--------------------初级用法--------------------//
Dim ret
SetDictEx 0, "Attachment:mq_soft.txt"
UseDict 0
//默认全屏查找颜色为"FFFFFF-101010"的"紫猫学院"这4个字
ret = zm.FindStr("紫猫学院", "FFFFFF-101010")
If ret Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号" & ret(0), "x=" & ret(1), "y=" & ret(2), "文字=" & ret(3)
    TracePrint "找到序号" & ret[1], "x=" & ret[2], "y=" & ret[3], "文字=" & ret[4]
    TracePrint "找到序号" & ret["id"], "x=" & ret["x"], "y=" & ret["y"], "文字=" & ret["name"]
Else
    TracePrint "没有找到"
End If

//--------------------中级用法--------------------//
Dim 返回数组()
//参数返回值必须是任意数组的变量名, 注意括号写法
//设置附件的"mq_soft.txt"为9号字库, 注意, 所有找字命令都会默认使用此字库
//范围省略默认为全屏, 若填写, 则4个数字必须全写, 除对象参数外, 其他参数都要写在范围后面
If zm.FindStr(100, 200, 300, 400, "紫猫学院", "FFFFFF-101010", "mq_soft.txt", 返回数组) Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号=" & 返回数组(0), "x=" & 返回数组(1), "y=" & 返回数组(2), "文字=" & 返回数组(3)
    TracePrint "找到序号=" & 返回数组[1], "x=" & 返回数组[2], "y=" & 返回数组[3], "文字=" & 返回数组[4]
    TracePrint "找到序号=" & 返回数组["id"], "x=" & 返回数组["x"], "y=" & 返回数组["y"], "文字=" & 返回数组["name"]
Else
    TracePrint "没有找到"
End If

//--------------------高级用法--------------------//
//文字后面的可选参数全部可以打乱顺序任意填写或省略, 只要数据类型与格式正确即可
//这句代码意思如下:
//在范围(100,200,300,400)里, 相似度为(0.8), 设置附件字库("mq_soft.txt")为("1")号字库
//限时2000毫秒内循环查找颜色为("FFFFFF-101010")的("紫猫|学院")
//找到任何一个后退出循环查找, 然后点击找到的坐标(True), 并将找到的序号与坐标结果保存到数组变量(ret)与(返回数组)中
//同时开启日志的输出("显示")功能, 在当前脚本第("_40")行输出备注("@怪物1"), 查找结果与其他参数信息
ret = zm.FindStr(100, 200, 300, 400, "紫猫|学院", "FFFFFF-101010", 0.8, 2000, True, "mq_soft.txt", "#1", "显示", "@怪物1", 返回数组, "_40")
If ret Then
    TracePrint "找到了"
Else
    TracePrint "没有找到"
End If

//--------------------对象用法--------------------//
//可以把所有参数放到一个表中, 可选参数一样可以打乱顺序任意填写或省略
//对象参数必须填写在第一个参数位置
Dim 史莱姆 = {"紫猫|学院", 0.8, 3000, True, "显示", "@攻击史莱姆", 返回数组, "_36"}
zm.FindStr 史莱姆

//--------------------重写用法--------------------//
//如果参数对象后面还有参数, 比如("_56"), 则表示重写对象里的("_36"), 使日志输出显示在65行
//注意, 如果重写, 则必须给参数文字带前缀"$", 比如"$紫猫|学院"
Dim 史莱姆 = {"$紫猫|学院", 0.8, 1000, True, "显示", "@攻击史莱姆", 返回数组, "_36"}
zm.FindStr 史莱姆, "$喵星人", "FFFFFF-101010", 1.0, "_56"

//--------------------修改默认值--------------------//
Dim IXYs()
//设置默认参数返回值IXYs, 若命令不填写参数返回值, 则默认保存在该变量中
//设置默认日志输出为显示状态, 后面所有 zm.FindStr() 都默认输出调试信息
//更多修改默认设置详见 zm.SetFindStr() 命令帮助
zm.SetFindStr {"ret":IXYs, "showlog":"显示"}
If zm.FindStr("喵星人", "00AAFF") Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到序号" & IXYs(0), "x=" & IXYs(1), "y=" & IXYs(2), "文字=" & IXYs(3)
    TracePrint "找到序号" & IXYs[1], "x=" & IXYs[2], "y=" & IXYs[3], "文字=" & IXYs[4]
    TracePrint "找到序号" & IXYs["id"], "x=" & IXYs["x"], "y=" & IXYs["y"], "文字=" & IXYs["name"]
Else
    TracePrint "没有找到"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//此处省略了设置字库的代码, 请自行补充完善

Dim 打怪(), Boss坐标()
打怪["史莱姆"] = {"史莱姆", "000000", true}
打怪["黑龙"] = {100,200,300,400, "黑龙", "123ABC-303030", true}
打怪["紫猫BOSS"] = {"帅气的紫猫老师","FFFFFF", Boss坐标} //这个不点击, 并返回值保存在Boss坐标中

//遍历打怪数组, 返回每个对象成员的结果
Dim t = zm.FindStrTable(打怪)
If t Then
    TracePrint "找到了", t["success"], "个对象"
    TracePrint "没找到", t["fail"], "个对象"
    If t["史莱姆"] Then
        TracePrint "找到史莱姆, 坐标为", t["史莱姆"]["x"], t["史莱姆"]["y"]
    End If
Else
    TracePrint "所有对象都没有找到"
End If

If Boss坐标(0) > -1 Then
    TracePrint "紫猫BOSS对象里的返回参数依旧有效"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

//本命令内置找到后点击, 其他用法例子与zm.FindStr()相同
Dim ret
SetDictEx 0, "Attachment:mq_soft.txt"
UseDict 0
ret = zm.FindStrTap("紫猫学院", "FFFFFF-101010")
If ret Then
    TracePrint "文字找到并执行了点击"
Else
    TracePrint "没有找到文字, 不执行点击"
End If

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim IXYs() //预定义默认参数返回数组
//设置默认参数返回值IXYs, 若找色命令不填写参数返回值, 则默认保存在该变量中
//设置默认日志输出为显示状态, 后面所有 超级多点比色 都默认输出调试信息
zm.SetCmpColorEx {"ret":IXYs, "showlog":"显示"}
If zm.CmpColorEx("51|66|00AAFF") Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到颜色序号" & IXYs(0), "x=" & IXYs(1), "y=" & IXYs(2)
    TracePrint "找到颜色序号" & IXYs[1], "x=" & IXYs[2], "y=" & IXYs[3]
    TracePrint "找到颜色序号" & IXYs["id"], "x=" & IXYs["x"], "y=" & IXYs["y"]
End If

//默认值改动后, 效果会一直存在, 并且可以随时增加新的变化
//此处改动颜色相似度默认为0.8, 超时时间为5000毫秒, 并将日志改为隐藏, 找到后自动点击一次
Dim t = {"sim":0.8, "timeout":5000, "tap":true, "showlog":"hide"}
Dim ret = zm.SetCmpColorEx(t)
//可以通过For Each查看目前所有默认属性值, 参数列表中未出现的属性不建议修改
TracePrint "属性名:属性值"
For Each k , v In ret
    TracePrint k, ":", v
Next

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim IXYs() //预定义默认参数返回数组
//设置默认参数返回值IXYs, 若找色命令不填写参数返回值, 则默认保存在该变量中
//设置默认日志输出为显示状态, 后面所有 超级找色 都默认输出调试信息
zm.SetFindColor {"ret":IXYs, "showlog":"显示"}
If zm.FindColor("00AAFF") Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到颜色序号" & IXYs(0), "x=" & IXYs(1), "y=" & IXYs(2)
    TracePrint "找到颜色序号" & IXYs[1], "x=" & IXYs[2], "y=" & IXYs[3]
    TracePrint "找到颜色序号" & IXYs["id"], "x=" & IXYs["x"], "y=" & IXYs["y"]
End If

//默认值改动后, 效果会一直存在, 并且可以随时增加新的变化
//此处改动相似度默认为0.8, 超时时间为5000毫秒, 并将日志改为隐藏, 找到后自动点击一次
Dim t = {"sim":0.8, "timeout":5000, "tap":true, "showlog":"hide"}
Dim ret = zm.SetFindColor(t)
//可以通过For Each查看目前所有默认属性值, 参数列表中未出现的属性不建议修改
TracePrint "属性名:属性值"
For Each k , v In ret
    TracePrint k, ":", v
Next

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次

Dim IXYs() //预定义默认参数返回数组
//设置默认参数返回值IXYs, 若多点找色命令不填写参数返回值, 则默认保存在该变量中
//设置默认日志输出为显示状态, 后面所有 超级多点找色 都默认输出调试信息
zm.SetFindMultiColor {"ret":IXYs, "showlog":"显示"}
If zm.FindMultiColor("00AAFF", "1|4|1432AB") Then
    TracePrint "可以用以下3种格式获取返回值"
    TracePrint "找到颜色序号" & IXYs(0), "x=" & IXYs(1), "y=" & IXYs(2)
    TracePrint "找到颜色序号" & IXYs[1], "x=" & IXYs[2], "y=" & IXYs[3]
    TracePrint "找到颜色序号" & IXYs["id"], "x=" & IXYs["x"], "y=" & IXYs["y"]
End If

//默认值改动后, 效果会一直存在, 并且可以随时增加新的变化
//此处改动相似度默认为0.8, 超时时间为5000毫秒, 并将日志改为隐藏, 找到后自动点击一次
Dim t = {"sim":0.8, "timeout":5000, "tap":true, "showlog":"hide"}
Dim ret = zm.SetFindMultiColor(t)
//可以通过For Each查看目前所有默认属性值, 参数列表中未出现的属性不建议修改
TracePrint "属性名:属性值"
For Each k , v In ret
    TracePrint k, ":", v
Next