[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 '女性

zm.Tap 402, 152, 500

ElseIf 打招呼性別 = 1 Then '男性

zm.Tap 385, 224, 500

ElseIf 打招呼性別 = 2 Then '全部

zm.Tap 387, 292, 500

End If

zm.Delay 500

Do

橫x = 160

For i = 1 To 9

zm.Delay 500

zm.Tap 49, 橫x, 2000

找圖 = zm.FindPic(216, 795, 327, 843, "打招呼.png", 0.9, 6000)

If 找圖 Then

zm.Delay 500

zm.Tap 找圖["x"], 找圖["y"], 2000

隨機話術 = zm.RndArrElement({話術1, 話術2, 話術3})

InputText 隨機話術

zm.Delay 500

zm.Tap 495,72, 500 '發送

zm.Tap 40,70, 500

Else

zm.Tap 40,70, 500

End If

橫x = 橫x + 99

zm.Delay 500

For i = Int(延遲時間) To 0 Step -1

ShowMessage "延遲等待，倒計時：" & i

zm.Delay 1000

Next

Next

zm.Delay 500

zm.Swipe 207, 939, 207, 50, 200

zm.Delay 500

Loop

ElseIf 找圖["id"] = 1 Then

For Int(漂流瓶次數)

zm.Delay 500

zm.Tap 83, 884, 500

zm.Tap 41,919, 500

隨機話術 = zm.RndArrElement({話術1, 話術2, 話術3})

InputText 隨機話術

zm.Delay 500

zm.Tap 304, 921, 2000

For i = Int(延遲時間) To 0 Step -1

ShowMessage "延遲等待，倒計時：" & i

zm.Delay 1000

Next

Next

End If

Else

TracePrint "未找到！"

Dialog.MsgBox "啟動失敗，原因如下：\n\n1+.連信APP未安裝\n\n2.未登錄成功連信\n\n3.未允許腳本root權限",0

End If

總結

以上是生活随笔為你收集整理的PHP漂流瓶代码,【按键精灵】连信打招呼、漂流瓶源码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。