下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
一些公司是专门做客户外包的，所以就需要给拼多多的商家进行私信沟通，然后跟他们进行合作吧自己公司的客服外包服务对接给拼多多的一些商家，当然一些拼多多商家确实是需要这种服务，而且一些商家的客服根本不沟通，供不应求，因为单量太大了 尤其是遇到一些节日，这种情况下就必须得找第三方客服外包公司，直接招聘价格太贵，客服外包才是他们最需要和最适合的。
源码部分：
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果
布局名称 = "客户定制拼多多商家私信v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框1", "这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊")
TracePrint UI.NewRow(布局名称, "new_row")
TracePrint UI.AddEditText(布局名称, "输入框2", "1000")
'显示名称为：布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row")
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮1", "点我初始化数据")
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "全自动后台打招呼")
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 点我初始化()
Dim arr() //定义一个数组变量
arr=GetRunningApp() //获取所有应用程序包名并将它们合并到arr数组中保存
For each n in arr
TracePrint n //遍历arr数组并输出所有获取的包名字符
Next
分割话术 = Split(UI.GetText("输入框1"), "#")
TracePrint 分割话术(1)
随机值 = UI.GetText("输入框2")
TracePrint 随机值
End Function
For i = 1 To 9999999999999999999999
//点击价格
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, 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
Tap intX1,intY1
Delay 3000
//发送私信
Tap 106, 1129
Tap 106,1129
Delay 50
//随机内容并发送
//要产生指定范围的随机整数，请使用以下公式：
//Int((最大值 - 最小值 + 1) Rnd() + 最小值)
//例如产生2到6之间的随机数:
Dim MyValue
Randomize
MyValue = Int(((UBound(分割话术)-2+1) Rnd()) + 1)
Traceprint MyValue
//随机内容并发送
InputText 分割话术(MyValue)
InputText 分割话术(MyValue)
Delay 1000
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 1500
//返回然后切换新的商品
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
Swipe intX,intY, intX, 10,1500
Delay 1000
//返回然后切换新的商品
End If
//发送私信
End If
//点击客服
End If
//点击价格
Next
