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))
【聊天记录分享 QQ怎么分享聊天记录】可以把这个做成一个子程序,每次发送的时候,就调用这个子程序 。
推荐阅读
- 沙发怎么选择注意事项 沙发选择注意事项是什么
- 高空作业证怎么办理到哪个部门办 高空作业证哪办理
- dwg格式怎么打开 dwg文件用什么打开
- 红烧茄子的做法 红烧茄子怎么做好吃又简单易学
- 白菜洋葱细粉怎么炒好吃,豆皮棒怎么炒好吃?
- 一叶兰叶子发黄是怎么回事 一叶兰黄叶是什么原因?
- 怎么查摩托车保险?摩托车交强险怎么查询系统
- 2022年新能源汽车补贴怎么领?新能源汽车补贴去哪里申请
- 车厘子水滴在衣服上怎么能洗掉,车厘子水滴在白衣服上怎么洗掉?
- 拉杆箱密码忘记怎么打开 行李箱打不开怎么办密码忘了