下面我给大家带来一款用按键精灵开发的一款陌陌附近人男号快速打招呼脚本,这个适用于用男号,因为成功率比较高,具体为什么男号成功率高这个我就不多讲了,大家可以去多尝试,尝试的多那就知道是怎么一个原因了,然后废话不多讲,直接开干吧,手机首先需要ROOT,因为按键运行必须依赖ROOT环境的,然后我这边分享的是源码,你可以自己在手机里下载一个按键精灵的手机助手自己改动尝试一下,需要改几段的代码,一:改坐标,二:重新截图获取桌面元素【因为设备不同,分辨率也不同,导致在某些设备下我这个源码运行就识别不到】
源码我直接复制上来,一个是界面源码,一个是脚本源码,两处的,这个你真可以试试,非常高消息,然后以为是源码你下来还可以进行二次开发,基础的功能我已经开发好的,你需要做的就是强大功能。
界面源码:
======================
======================
============================================
界面1:
{
星空陌陌脚本v1.1:
{
文字框:
{
名称:"文字框1",
显示内容:"本脚本需要ROOT权限,因为是定制版所以不需要开卡密,安装就能直接使用,本脚本只用于操作一些重复性的功能,不可应用于违法用途,否则由此造成的损失由使用者个人承担,有脚本使用问题,请联系作者QQ,使用问题,请看帮助!",
文字大小:0,
高度:0,
宽度:0,
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"
},
文字框:
{
名称:"文字框3",
显示内容:"设置动态内容:",
文字大小:0,
高度:200,
宽度:0,
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"
},
输入框:
{
名称:"输入框1",
提示内容:"提示用户应该输入什么内容",
初始文本:"我有#我有呀#19岁#18岁#17岁#你要吗#20岁.",
仅输入数字:false,
密码:false,
文字大小:0,
最大输入长度:0,
高度:300,
宽度:0,
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"
},
文字框:
{
名称:"文字框2",
显示内容:"设置延迟时间:",
文字大小:0,
高度:0,
宽度:0,
注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"
},
输入框:
{
名称:"输入框2",
提示内容:"提示用户应该输入什么内容",
初始文本:"1000",
仅输入数字:false,
密码:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0,
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"
},
},
}
下面是脚本源码:
======================================================
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,循环数量,延迟时间
布局名称 = "星空陌陌脚本v1.1:"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1",初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddButton(布局名称, "按钮2", "启动星空陌陌脚本>>>")
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮2", 启用功能)
TracePrint UI.Show (布局名称)
'创建函数
Function 启用功能()
分割话术 = Split(ReadUIConfig("输入框1", "有人吗?#在吗#打招呼给我"), "#")
延迟时间=ReadUIConfig("输入框2", "10000")
TracePrint 分割话术[1]
TracePrint 延迟时间
ShowMessage "脚本准备开始运作.延迟1500毫秒"
Delay 1500
TracePrint UI.Close(布局名称)
End Function
Do
Dim intX,intY
FindPic 0,0,0,0,"Attachment:20231020185957852.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Tap intX-50, intY
Delay 1500
//判断
Tap 247, 2215
Delay 1000
//输入信息
Dim MyValue
Randomize
MyValue = Int(((UBound(分割话术)-2+1) * Rnd()) + 1)
InputText 分割话术(MyValue)
//开始发送
Delay 1000
Dim intX1,intY1
FindPic 0,0,0,0,"Attachment:20231020193711629.png","000000",0,0.9,intX1,intY1
If intX1 > -1 And intY1 > -1 Then
TracePrint intX1
TracePrint intY1
Tap intX1, intY1
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
End If
//开始发送
//把第一个拉上去
Swipe intX-50, intY, 337,119,1000
//把第一个拉上去
End If
Loop
======================================================
|