这个源码的运行效果其实跟之前我们分享的拼多多商家私信脚本的源码基本类似，运行原理也是一样的，打开淘宝后搜索某个关键词会出现很多商品列表，脚本会识别商家的头像位置，然后逐个点击并随机发送一条基本内设置的话术，然后会把发过私信的伤害拉到屏幕顶端，继续执行下一条，这就是这款脚本的基本运行逻辑。
界面源码：
界面1:
{
请在下面设置话术:
{
输入框:
{
名称:"输入框1",
提示内容:"提示用户应该输入什么内容",
初始文本:"测试话术1#测试话术2#测试话术3",
仅输入数字:false,
密码:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0,
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
},
},
}
核心代码：
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数,点赞次数,buer,延迟时间
布局名称 = "淘宝商家私信稳定版软件v1.1"
'创建一个名称为布局名称的布局控件
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
|
新库软件 