QQ怎么分享聊天记录(聊天记录分享)

QQ怎么分享聊天记录,聊天记录分享。小编来告诉你更多相关信息。

好几个人问到这个问题，那么就写一个源码供大家参考。

基本原理是这样~ 进入对话框读取对方昵称 以昵称为文本名称，

获取一下模拟器或者手机中是不是有叫这个名字的文本

两种情况，“无”，说明是第一次发送，生成一个昵称的文本，之后记录一下发送的数量是1；”有“，说明不是第一次，读取一下文本里面的发送数量，下一次发送在原基础上+1

每次发送以后把当前的发送次数记录到昵称文本

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

测试使用的雷电模拟器，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))

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