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