按键精灵_ 记录聊天发送到第几句话

基本原理是这样~

1. 进入对话框读取对方昵称
2. 以昵称为文本名称，
3. 获取一下模拟器或者手机中是不是有叫这个名字的文本
4. 两种情况，“无”，说明是第一次发送，生成一个昵称的文本，之后记录一下发送的数量是1；”有“，说明不是第一次，读取一下文本里面的发送数量，下一次发送在原基础上+1
5. 每次发送以后把当前的发送次数记录到昵称文本

源码有标注大家可以自己看：

测试使用的雷电模拟器，720*1280 dpi 320 ，测试软件QQ

/*—获取聊天对象的名称—*/

Import "shanhai.lua"
Dim m=shanhai.getuixml()
dim 名称=ShanHai.FindXmlKey(m,"resource-id","com.tencent.mobileqq:id/title","text")
TracePrint 名称 '仅限QQ获取，其他聊天软件需要修改节点名称~
/*---判断是不是存在这个名称---*/
'通过读取以名称命令的文本，看是否有内容，来确定文本是不是存在~
Dim 序号=file.read("/sdcard/pictures/"&名称&".txt")
If 序号 = null or 序号="" Then
TracePrint "首次会话用户"
file.Write ("/sdcard/pictures/" & 名称 & ".txt", 1)
序号=1
Else
TracePrint "即将发送第"&序号&"条信息"
End If
/*---发送信息，记录数量---*/
Delay 1000
Tap 63, 1158 '点击输入框输入内容
Delay 300
TracePrint "开始发送第"&cint(序号)&"条信息"
Dim 话术=file.readline("/sdcard/pictures/话术.txt",cint(序号))
InputText 话术
Delay 300
Tap 666, 1174
Delay 200
file.Write ("/sdcard/pictures/" & 名称 & ".txt",cstr(序号+1))

可以把这个做成一个子程序，每次发送的时候，就调用这个子程序。