admin管理员组文章数量:1609986
[Visual Basic] 纯文本查看 复制代码' 主程序
Dim 找图,横x,引流方式,延迟时间,打招呼性别,漂流瓶次数,话术1,话术2,话术3,随机话术
话术1 = ReadUIConfig("话术1")
话术2 = ReadUIConfig("话术2")
话术3 = ReadUIConfig("话术3")
引流方式 = ReadUIConfig("引流方式")
延迟时间 = ReadUIConfig("延迟时间")
打招呼性别 = ReadUIConfig("打招呼性别")
漂流瓶次数 = ReadUIConfig("漂流瓶次数")
If 引流方式 = 0 Then
RunApp "com.zenmen.palmchat", ".peoplenearby.PeopleNearbyActivity" '附近的人
Else
RunApp "com.zenmen.palmchat", ".messagebottle.MessageBottleActivity" '漂流瓶
End If
找图 = zm.FindPic("附近的人.png|漂流瓶.png", 0.9, 6000)
If 找图 Then
TracePrint 找图["id"]
If 找图["id"] = 0 Then
zm.Delay 500
zm.Tap 498, 74, 500
If 打招呼性别 = 0 Then '女性
版权声明:本文标题:PHP漂流瓶代码,【按键精灵】连信打招呼、漂流瓶源码 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/xitong/1728586407a1164961.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论