紫猫学院社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 115|回复: 5

[求助] 安卓 紫猫插件放在子程序不运行

[复制链接]

3

主题

4

帖子

4

积分

学前班

Rank: 1

猫粮
8
发表于 2020-3-24 15:30:12 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
安卓 紫猫插件放在子程序不运行,求大神指导一下,本人小白一个


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

Dim tPic() '定义默认返回数组
zm.SetFindPic {"ret":tPic, "showlog":"显示"} '设置默认返回值与显示日志


Sub 哈哈()       
Dim tPic() '定义默认返回数组
If zm.FindPic("001.png", True, 5000) Then
        TracePrint "找到图片了, 序号=" & tPic(0), "x=" & tPic(1), "y=" & tPic(2), "图片名=" & tPic(3)

Else
        TracePrint "没有找到图片"
End If
End Sub

回复

使用道具 举报

2

主题

16

帖子

16

积分

按键手机班学员

Rank: 8Rank: 8

猫粮
176
发表于 2020-3-24 16:00:44 | 显示全部楼层
不会用子程序为什么要强行用??连调用都不调用
回复

使用道具 举报

1

主题

4

帖子

4

积分

按键手机班学员

Rank: 8Rank: 8

猫粮
42
发表于 2020-3-24 16:30:02 | 显示全部楼层
本人也是新手  但 你这个代码 里并没有调用 哈哈()   怎么可能有反应呢.
回复

使用道具 举报

575

主题

1906

帖子

1906

积分

院长

Rank: 9Rank: 9Rank: 9

猫粮
3294
QQ
发表于 2020-3-24 21:38:02 | 显示全部楼层
子程序定义后必须要调用才会执行
回复

使用道具 举报

3

主题

4

帖子

4

积分

学前班

Rank: 1

猫粮
8
 楼主| 发表于 2020-3-27 01:14:11 | 显示全部楼层
紫猫 发表于 2020-3-24 21:38
子程序定义后必须要调用才会执行

求助 怎么httpget老是获取不到网页?,返回数据null
求各位大神帮忙看看
下面红色区域。单独是可以获取的,但是结合起来就不可以获取了

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次
KillApp "com.android.browser"
Delay 1000
  zm.OpenURL "baidu.com"
Delay 2000
Rem 继续等待左上角
If zm.FindPic("29.png", True, 2000) Then //点击左上角
TracePrint "找到图片并自动点击"
Delay 2000
Else
TracePrint "没有找到图片, 不执行点击"
Goto 继续等待左上角
End If
        
Rem 继续等待下一个
If zm.FindPic("30.png", True, 3000) Then //点击下一个
TracePrint "找到图片并自动点击"
Delay 2000
Else
TracePrint "没有找到图片, 不执行点击"
Goto 继续等待下一个
End If        
Delay 2000

If zm.FindPic("31.png", True, 2000) Then //点击没有环境了
TracePrint "找到图片并自动点击"
Delay 200
tap 320,436
Delay 2000
ShowMessage "老板,没有环境啦"
Rem 继续等待左上角2
If zm.FindPic("29.png", True, 3000) Then //点击左上角
TracePrint "找到图片并自动点击"
Delay 2000
Else
TracePrint "没有找到图片, 不执行点击"
Goto 继续等待左上角2
End If
Delay 2000
Swipe 97,277, 97,757  //滑动
Delay 2000
Swipe 97,277, 97,757  //滑动
Delay 2000
Swipe 97,277, 97,757  //滑动
Delay 2000
Swipe 97,277, 97,757  //滑动
Delay 2000
Tap 26, 131
Delay 2000
Tap 26, 131
Delay 2000
Else
TracePrint "没有找到图片, 不执行点击"
Delay 15000

KeyPress "Home"
End If

        
        Delay 1000
  zm.OpenURL "baidu.com"
        Delay 4000
        Rem 重新获取书
ShowMessage "开始获取网站啦"        
Dim 小红网站= zm.HttpGet(ReadUIConfig("小红网站"))
ShowMessage 小红网站()   
Dim ret() //返回表参数, 可以省略该参数
//LUA模式匹配多子串,返回数组
Dim RegexArr
RegexArr = shanhai.RegexFindEx(小红网站, "(http://+..+../%w+%w+.),")
For i = 0 To UBOUND(RegexArr)
        For j = 0 To UBOUND(RegexArr(i))
                TracePrint RegexArr(i,j)
                ShowMessage RegexArr(i, j)
                 

        Delay 5000
        Tap 129, 52
        Delay 2000
        Sys.SetClipText RegexArr(i,j)
RegexArr(i,j) = Sys.GetClipText()

InputText RegexArr(i,j)//输入网址
        Delay 5000
        KeyPress "Enter"
        Delay 5000
        Next
Next
Delay 8000
If zm.FindPic("25.png") Then //找说点什么
TracePrint "找到图片并自动点击"
ShowMessage "有网址哦"
Delay 2000

Else
TracePrint "没有找到图片, 没网址哦"
ShowMessage "没网址哦"
Goto 重新获取小红书
End If


Dim ret1() //返回表参数, 可以省略该参数
Dim data1 = zm.RegExMatch(小红书网站, "痘.+痘", ret) //痘痘痘
If data1 then
    For i = 0 to Ubound(data1)
        TracePrint "返回结果: " & data1(i)
    Next



    For i = 0 to Ubound(ret1)
        TracePrint "返回表: " & ret1(i)
    Next
    ShowMessage "call痘痘"
    Call 痘痘痘()
Else

    TracePrint "未匹配到数据"
End If

Dim ret2() //返回表参数, 可以省略该参数
Dim data2 = zm.RegExMatch(小红书网站, ".+红红", ret) //红红红
If data2 then
    For i = 0 to Ubound(data2)
        TracePrint "返回结果: " & data2(i)
    Next

    //若填写了返回表参数, 则可以取出结果
    For i = 0 to Ubound(ret2)
        TracePrint "返回表: " & ret2(i)
    Next
    ShowMessage "call红红红"
    Call 红红红()

Else

    TracePrint "未匹配到数据"
End If
        
End Sub

回复

使用道具 举报

1

主题

3

帖子

3

积分

学前班

Rank: 1

猫粮
5
发表于 7 天前 | 显示全部楼层
学习学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学院  

GMT+8, 2020-4-4 00:37

Powered by Discuz! X3.4

© 2012-2018 紫猫编程学院

快速回复 返回顶部 返回列表