拼多多商家私信群发脚本，按键精灵版工具，源码分享

也是用按键精灵写的，实现的功能就是通过图色识别拼多多商品列表然后逐个对商家客服进行私信，私信内容可以在脚本里面提前配置好，代码怎么部署？回答：粘贴到你的按键精灵就行了，因为代码完全开源。

UI界面：

脚本代码：

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

'创建布局名称

Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果

布局名称 = "xkrJ5.com 开源版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

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