这个是支持抖音和快手两个平台的，可以进入对方主页然后判断对方年龄和性别，符合条件的关注，不符合条件的跳过下一个ID，所以比较精准，当然你可以二次开发加入更多的平台，小红书之类的，仅供学习，下面是UI界面和代码。

ui界面：

下面是脚本代码：

========================================================

Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果,时间,端口,最高年龄,最终年龄,最低年龄,年龄

布局名称 = "xkrj5.com 开源版！"

'创建一个名称为布局名称的布局控件

TracePrint UI.Newlayout (布局名称) 

'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件

TracePrint UI.AddTextView(布局名称, "文字框2", "最高年龄：") 

 TracePrint UI.AddEditText(布局名称, "输入框2", "60")

 TracePrint UI.AddTextView(布局名称, "文字框2", "最低年龄：")

  TracePrint UI.AddEditText(布局名称, "输入框3", "20")

    

'显示名称为：布局名称 的布局控件

 TracePrint UI.NewRow(布局名称, "new_row") 

'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件

'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件

TracePrint UI.AddButton(布局名称, "按钮2", "点我初始化并关注") 

TracePrint UI.NewRow(布局名称, "new_row")

'TracePrint UI.AddRadioGroup(布局名称,"选择功能",{"普通私信", "截屏私信", "粉丝私信"},0)

'设置名称为"按钮1"的控件的控件点击事件

TracePrint UI.SetOnClick("按钮2", 点我私信)

TracePrint UI.Show (布局名称)

Function 点我私信()

最高年龄 =Int(UI.GetText("输入框2"))

最低年龄 = Int(UI.GetText("输入框3"))

Import "shanhai.lua"

分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")

TracePrint UI.Close(布局名称)

End Function

   

'创建一个初始化处理函数

Function 点我初始化()

  

  

End Function

Do

//点红心

Dim intX,intY

FindPic 0,0,0,0,"Attachment:红心.png","000000",0,0.9,intX,intY

If intX > -1 And intY > -1 Then

TracePrint intX

TracePrint intY

Tap intX-600,intY

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

//识别性别

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

//识别年龄

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

//获取岁数

年龄= shanhai.GetUIXml()

Dim 结果1

结果1 = UTF8.InStr(1, 年龄, "岁")

TracePrint 结果1

Dim 结果2

结果2 = UTF8.Mid(年龄,结果1-2,2)

TracePrint 结果2//输出"精灵"

最终年龄=Int(结果2) 

ShowMessage "当前ID岁数为：" & 最终年龄 & "岁"

If 最高年龄 > 最终年龄 Then  

  

If 最终年龄 > 最低年龄 Then 

Dim intX4,intY4

FindPic 0,0,0,0,"Attachment:关注对方.png","000000",0,0.9,intX4,intY4

If intX4 > -1 And intY4 > -1 Then

TracePrint intX4

TracePrint intY4

Tap intX4-200,intY4

End If

Delay 1500

KeyPress "Back"

  

Delay 1500

 Swipe intX,intY, intX, 250,1500

Delay 1500

   

End If

  

End If

//获取岁数

End If

If intY3 = -1 Then  

KeyPress "Back"

  

Delay 1500

 Swipe intX,intY, intX, 250,1500

Delay 1500

   

End If

  

//识别年龄

//识别性别

End If

  

If intY2 = -1 Then  

KeyPress "Back"

Delay 1500

Swipe intX,intY, intX, 250,1500

Delay 1500

End If

//识别性别

End If

If intY1 = -1 Then  

Delay 1500

Swipe intX,intY, intX, 250,1500

Delay 1500

End If

//判断是否有关注

End If

//点红心

 //  Exit Do

  //退出循环

Loop

====================================================