下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
在知乎上一些人也在做营销，虽然我们看知乎的流量并不大，但是其实你不懂，知乎的营销效果还是非常好，因为这个平台他比较趋于垂直化，虽然流量不大但是非常的精准，具体怎么在知乎上面引流呢，手动吗？我的回答肯定不是手动，因为手动引流不了几个人，而且还耗费时间，我们需要的是一款全自动知乎引流机，只需要设定好软件的参数他就能自动给我们引流。
源码部分：
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数,点赞次数
布局名称 = "知乎搜索相关内容评论v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddTextView(布局名称, "文字框1", "输入评论次数：")
TracePrint UI.AddEditText(布局名称, "输入框1", "200",400,100)
TracePrint UI.NewRow(布局名称, "" )
TracePrint UI.AddButton(布局名称, "按钮2", "全自动评论稳定版")
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮2", 全自动点红包)
TracePrint UI.Show (布局名称)
Function 全自动点红包()
点赞次数=UI.GetText("输入框1")
ShowMessage "准备自动化操作..."
分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")
UI.Close (布局名称)
End Function
For i = 1 To 点赞次数
//先找到赞同，找到后进入循环功能
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
Tap intX,intY
Delay 3000
//写回答
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, intY2
Delay 2000
Sys.SetClipText 分割话术(1)
//粘贴内容
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
Touch intX3, intY3, 3000
Delay 2000
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,intY4
Delay 1000
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
Tap intX5, intY5
Delay 3000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
End If
End If
End If
//粘贴内容
End If
//写评论内容
//如果没有评论内容
If intY2 = -1 Then
//满足条件，执行下面的脚本
KeyPress "Back"
Delay 2000
KeyPress "Back"
Swipe 272,565, 280,79,1000
End If
//如果没有评论内容
//通过判断表达式的取值，来执行后面的动作或控制
End If
//写回答
//如果没有回答按钮
If intY1 = -1 Then
KeyPress "Back"
Delay 1000
End If
//如果没有回答按钮
End If
//先找到赞同
If intY = -1 Then
// 如果没有找到
Swipe 272,565, 280,79,1000
End If
// 上滑
Swipe intX,intY, intX, 95,1500
Next
