【抖音同城性别私信v1.1】按键精灵源码，可判断男女私信

今天给大家分享的这个源码还是关于和抖音引流相关的，是针对同城的引流和应用，最主要的功能就是能判断性别然后针对性的进行私信的发送，就是在同城页面它会自动刷新作品，然后判断对方的性别，如果你在软件的参数设置里面设定了性别男，那么它就会选择只对性别为男的用户发送话术私信，所以说这个工具对于那些手动操作私信的用户来说帮助还是挺大的，感兴趣的可以试试。

界面源码：

界面1:
{
        请在下面输入话术:
        {
                输入框:
                {
                        名称:"输入框1",
                        提示内容:"提示用户应该输入什么内容",
                        初始文本:"你好在吗#小姐姐#哈喽",
                        仅输入数字:false,
                        密码:false,
                        文字大小:0,
                        最大输入长度:0,
                        高度:0,
                        宽度:0,
                        注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
                },        

        },        

}

核心代码：

'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数

布局名称 = "抖音同城性别私信v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称) 
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框1", "进入同城界面开启全自动私信") 
 TracePrint UI.NewRow(布局名称, "new_row_" )
  TracePrint UI.AddTextView(布局名称, "文字框1", "延迟时间：") 

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

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

    TracePrint UI.AddTextView(布局名称, "文字框2", "设置私信次数：") 

TracePrint UI.AddEditText(布局名称, "输入框3", "50") 
'显示名称为：布局名称 的布局控件
 TracePrint UI.NewRow(布局名称, "new_row_" )
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮1", "点我初始化数据") 
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "全自动后台私信") 
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮1", 点我初始化)
TracePrint UI.SetOnClick("按钮2", 全自动点红包)
TracePrint UI.Show (布局名称)

Function 全自动点红包()

        ShowMessage "准备自动化操作..."

UI.Close (布局名称)

End Function

'创建一个初始化处理函数
Function 点我初始化()

 时间=UI.GetText("输入框2")
    私信次数 = UI.GetText("输入框3")
    TracePrint 时间
 TracePrint 111111111111

话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")

    ShowMessage "数据正在初始化..."
  TracePrint 话术(1)

End Function

For i = 1 To 私信次数
   Delay 时间

  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 - 50
        Delay 1500

Dim intX5,intY5
FindPic 0,0,0,0,"Attachment:是否为女.png","000000",3,0.9,intX5,intY5
If intX5 > -1 And intY5 > -1 Then
        TracePrint intX5
        TracePrint intY5

                Tap 654,103
        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 时间
Tap 174, 1112

//要产生指定范围的随机整数，请使用以下公式： 
//Int((最大值 - 最小值 + 1) * Rnd() + 最小值)
//例如产生2到6之间的随机数: 
Dim MyValue
Randomize  
MyValue = Int(((UBound(话术)-2+1) * Rnd()) + 1)   
Traceprint MyValue

InputText 话术(MyValue)
Delay 200

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
        Tap intX3, intY3
        Delay 500
        KeyPress "Back"
        Delay 500
        KeyPress "Back"
        Delay 500
                KeyPress "Back"
                        Delay 500
        Swipe 324,589, 303,148,100

End If

End If

End If

If intY5 = -1 Then  
  KeyPress "Back"
Delay 1000

Swipe 324,589, 303,148,100

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

End If 

Next