可以实现对搜索出来的闲鱼商品的商家进行自动私信指定的话术信息，还算是比较稳定的，感兴趣的朋友可以来下载研究，这款是按键精灵的脚本，UI界面还有核心运行代码我已经写好了，但是如果你直接在手机编译运行可能会出现一些问题，因为这款代码适配的是2022年的闲鱼版本，但是现在都2023了，闲鱼也更新了，很多界面元素也同样更新了，所以说直接运行的话可能会出现识别不到的情况，你需要做的就是重新获取新版闲鱼APP的界面截图，然后重新抓元素，对部分写好的坐标重新做适配工作就能正常运行啦。
界面源码：
界面1:
{
请在下面输入话术:
{
输入框:
{
名称:"输入框1",
提示内容:"提示用户应该输入什么内容",
初始文本:"你好在吗#小姐姐#哈喽",
仅输入数字:false,
密码:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0,
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
},
},
}
核心代码：
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数
布局名称 = "闲鱼防风控全自动打招呼v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框1", "搜索闲鱼商品，进入商品列表后启动本软件")
TracePrint UI.NewRow(布局名称, "new_row_" )
TracePrint UI.AddTextView(布局名称, "文字框1", "延迟时间：")
TracePrint UI.AddEditText(布局名称, "输入框2", "3000")
TracePrint UI.NewRow(布局名称, "new_row_" )
'显示名称为：布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row_" )
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮1", "先点我初始化")
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "在点我打招呼")
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮1", 点我初始化)
TracePrint UI.SetOnClick("按钮2", 全自动点红包)
TracePrint UI.Show (布局名称)
Function 全自动点红包()
ShowMessage "准备自动化操作..."
UI.Close (布局名称)
End Function
'创建一个初始化处理函数
Function 点我初始化()
时间=UI.GetText("输入框2")
私信次数 = UI.GetText("输入框3")
TracePrint 时间
TracePrint 111111111111
话术 = Split(ReadUIConfig("输入框1","怎么联系啊"), "#")
ShowMessage "数据正在初始化..."
TracePrint 话术(1)
End Function
For i = 1 To 500
Delay 100
'先找闲鱼商品
Dim intX,intY
FindPic 0,0,0,0,"Attachment:闲鱼商品.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
ShowMessage "正在点击商品"
Tap intX,intY
Delay 2500
//判断闲鱼界面
Dim intX3pd,intY3pd
FindPic 0,0,0,0,"Attachment:判断闲鱼界面.png","000000",2,0.8,intX3pd,intY3pd
If intX3pd > -1 And intY3pd > -1 Then
TracePrint intX3pd
TracePrint intY3pd
//例如产生2到6之间的随机数:
Dim MyValue
Randomize
MyValue = Int(((9000-1000+1) * Rnd()) + 1)
Traceprint MyValue
ShowMessage "随机浏览："&MyValue&"毫秒"
Delay MyValue
//例如产生2到6之间的随机数:
Dim 随机次数
Randomize
随机次数 = Int(((9-2+1) * Rnd()) + 1)
Traceprint 随机次数
ShowMessage "随机值："&随机次数&"次数"
Delay 随机次数
For i = 1 To 随机次数
//这里的脚本可以循环10次
Swipe 311,928, 320,846,500
Next
ShowMessage "准备给对方发消息"
//给对方发消息
Dim intX1,intY1
FindPic 0,0,0,0,"Attachment:点击消息.png","000000",0,0.9,intX1,intY1
If intX1 > -1 And intY1 > -1 Then
TracePrint intX1
TracePrint intY1
Tap intX1,intY1
Delay 2000
//输入内容发送
Dim intX2,intY2
FindPic 0,0,0,0,"Attachment:找到消息框.png","000000",0,0.9,intX2,intY2
If intX2 > -1 And intY2 > -1 Then
TracePrint intX2
TracePrint intY2
Tap intX2-150,intY2
Delay 50
//要产生指定范围的随机整数，请使用以下公式：
//Int((最大值 - 最小值 + 1) * Rnd() + 最小值)
//例如产生2到6之间的随机数:
Dim MyValue1
Randomize
MyValue1 = Int(((UBound(话术)-2+1) * Rnd()) + 1)
Traceprint MyValue1
InputText 话术(MyValue1)
Delay 500
Dim intX3,intY3
FindPic 0,0,0,0,"Attachment:发送消息.png","000000",0,0.9,intX3,intY3
If intX3 > -1 And intY3 > -1 Then
TracePrint intX3
TracePrint intY3
Tap intX3, intY3
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
Swipe intX,intY, intX, 200,1000
End If
End If
//输入内容发送
End If
//给对方发消息
End If
//判断闲鱼界面
If intX3pd = -1 Then
//满足条件，执行下面的脚本
ShowMessage "当前非闲鱼界面"
KeyPress "Back"
Delay 1000
Swipe intX,intY, intX, 200,1000
End If
//通过判断表达式的取值，来执行后面的动作或控制
End If
'先找闲鱼商品
'没有找到
If intY = -1 Then
//满足条件，执行下面的脚本
Swipe 321,585, 319,415,1000
End If
//通过判断表达式的取值，来执行后面的动作或控制
'没有找到
Next
|
新库软件 