淘宝商家私信脚本，自动批量阿里旺旺版，按键精灵源码分享

标签：私信 TracePrint 布局 按键精灵 源码 UI 名称 话术

在UI界面设置话术后用#号分割多条，然后启动就会自动给搜素下面的商家发送指定消息的私信，脚本代码和UI界面代码我下面会分享出来，自己粘贴就可以用。

UI界面：

 

 

UI界面代码：

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

界面1:

{

请在下面设置话术:

{

输入框:

{

名称:"输入框1",

提示内容:"提示用户应该输入什么内容",

初始文本:"测试话术1#测试话术2#测试话术3",

仅输入数字:false,

密码:false,

文字大小:0,

最大输入长度:0,

高度:0,

宽度:0,

注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"

},

 

},

 

}

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

脚本代码：

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

'创建布局名称

Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数,点赞次数,buer,延迟时间

 

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

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

TracePrint UI.Newlayout (布局名称) 

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

TracePrint UI.AddTextView(布局名称, "文字框1", "输入私信次数：") 

 

TracePrint UI.AddEditText(布局名称, "输入框1", "200",400,100) 

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

 

TracePrint UI.AddTextView(布局名称, "文字框1", "输入延迟时间：") 

 

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

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

 

TracePrint UI.AddButton(布局名称, "按钮2", "点我启动稳定私信") 

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

 

TracePrint UI.SetOnClick("按钮2", 全自动点红包)

TracePrint UI.Show (布局名称)

 

Function 全自动点红包()

点赞次数 = UI.GetText("输入框1")

延迟时间=UI.GetText("输入框2")

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.9,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

Tap 202,1128

Delay 100

 

  

//要产生指定范围的随机整数，请使用以下公式： 

//Int((最大值 - 最小值 + 1) * Rnd() + 最小值)

//例如产生2到6之间的随机数: 

Dim MyValue

Randomize  

MyValue = Int(((UBound(分割话术)-2+1) * Rnd()) + 1)  

Traceprint 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

 

End If

//发送私信

//返回到主界面并切换新商家

KeyPress "Back"

Delay 1000

KeyPress "Back"

Delay 1000

KeyPress "Back"

Delay 1000

Swipe intX, intY, intX, 163.1500

//返回到主界面并切换新商家

 

End If

//没有旺旺 返回

 

 

 

//通过判断表达式的取值，来执行后面的动作或控制

 

//没有旺旺返回

 

//判断有么有旺旺

 

End If

//商家私信

 

 

 

  

  

Next

 

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

 

标签：私信,TracePrint,布局,按键精灵,源码,UI,名称,话术
From： https://www.cnblogs.com/javakji/p/17838956.html