下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
为什么要采集呢，为什么要监控呢，因为一些博主发布了一些营销作品，然后在营销作品下面会有很多最新用户的购买意向的互动信息，那么如果我们不监控的话这些最新的数据就会被别人给采集了，那么别人采集后数据就变成了别人的，那么最终成交的也可能就成了别人，我们在咨询这些用户的时候发送人家都被别人洗过了一遍，我么在洗的话成交率极低极低，如果能第一时间监控最新的意向购买评论内容，并且能第一时间提取这些信息然后转化掉的话那么我们就能获得很高的营销价值。
源码部分：
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果,时间,端口
布局名称 = "魔方v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框2", "192.168.0.3")
TracePrint UI.AddEditText(布局名称, "输入框3", "12345")
'显示名称为：布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row")
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮1", "点我先连接主机")
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "点我提取ID数据")
TracePrint UI.NewRow(布局名称, "new_row")
'TracePrint UI.AddRadioGroup(布局名称,"选择功能",{"普通私信", "截屏私信", "粉丝私信"},0)
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮1", 点我初始化)
TracePrint UI.SetOnClick("按钮2", 点我私信)
TracePrint UI.Show (布局名称)
Function 点我私信()
UI.Close (布局名称)
End Function
'创建一个初始化处理函数
Function 点我初始化()
Import "socket.lua"
随机值 = UI.GetText("输入框2")
TracePrint 随机值
端口= UI.GetText("输入框3")
socket.CliendConnect(随机值, 端口)
End Function
For i = 1 To 999999999
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 intXpd,intYpd
FindPic 0,0,0,0,"Attachment:判断是否个人号.png","000000",0,0.9,intXpd,intYpd
If intXpd > -1 And intYpd > -1 Then
TracePrint intXpd
TracePrint intYpd
End If
If intYpd = -1 Then
Swipe intX, intY, intX, 221, 1000
End If
Dim intXz,intYz
FindPic 0,0,0,0,"Attachment:专业号.png","000000",0,0.9,intXz,intYz
If intXz > -1 And intYz > -1 Then
TracePrint intXz
TracePrint intYz
KeyPress "Back"
Delay 500
Swipe intX, intY, intX, 221, 1000
End If
Dim intXjg,intYjg
FindPic 0,0,0,0,"Attachment:机构号1.png","000000",0,0.9,intXjg,intYjg
If intXjg > -1 And intYjg > -1 Then
TracePrint intXjg
TracePrint intYjg
KeyPress "Back"
Delay 500
Swipe intX, intY, intX, 221, 1000
End If
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 500
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
id=Sys.GetClipText()
Call socket.ClientSend(id&CStr("---男"))
End If
Dim intX5,intY5
FindPic 0,0,0,0,"Attachment:女.png","000000",0,0.9,intX5,intY5
If intX5 > -1 And intY5 > -1 Then
TracePrint intX5
TracePrint intY5
id=Sys.GetClipText()
Call socket.ClientSend(id&CStr("---女"))
End If
If intX4 = -1 Then
//满足条件，执行下面的脚本
If intX5 = -1 Then
id=Sys.GetClipText()
Call socket.ClientSend(id&"---未设置性别")
End If
//通过判断表达式的取值，来执行后面的动作或控制
End If
//通过判断表达式的取值，来执行后面的动作或控制
KeyPress "Back"
Delay 1000
Swipe intX, intY, intX, 221, 1000
End If
If intY1 = -1 Then
Swipe intX, intY, intX, 221, 1000
End If
//通过判断表达式的取值，来执行后面的动作或控制
End If
Next
