这个源码是按键精灵开发的，前几天刚给客户定制的，这边直接分享出来，你可以自己打开按键精安卓端的，然后把我分享的代码一键粘贴过去就能用。
UI界面：
按键精灵完整代码：【手机】
===================================================
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id
布局名称 = "xkrj5.com 开发开源"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框1", "此输入框作废，请在主界面设置ID，格式为 ID#ID#ID，中间用#号分割")
TracePrint UI.NewRow(布局名称, "new_row_" )
TracePrint UI.AddEditText(布局名称, "输入框2", "5000")
'显示名称为：布局名称 的布局控件
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")
话术 = Sys.GetClipText()
TracePrint 话术
分割话术=Split(话术,"#")
ShowMessage "数据正在初始化..."
TracePrint 话术
TracePrint 分割话术(1)
TracePrint UI.SetText("输入框1",话术)
End Function
For i = 1 To UBound(分割话术)
Tap 223, 89
ShowMessage "准备输入ID"
Delay 1000
InputText 分割话术(i)
Delay 1000
Tap 652, 93
ShowMessage "搜索账号"
Delay 3000
Tap 307, 172
Delay 2000
//关注用户
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 1000
End If
//关注用户
KeyPress "Back"
Delay 1000
//要产生指定范围的随机整数，请使用以下公式：
//Int((最大值 - 最小值 + 1) * Rnd() + 最小值)
//例如产生2到6之间的随机数:
Dim MyValue
Randomize
MyValue = Int(((随机值-2+1) * Rnd()) + 1)
Traceprint MyValue
ShowMessage "随机延时"&MyValue&"毫秒"
Delay MyValue
Next
==============================================
————————————————
版权声明：本文为CSDN博主「新壳软件」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/qq_15159657/article/details/134463015