下载地址:https://www.pan38.com/share.php?code=pvvmX 提取码:8888
那么这个工具对那些骗子非常有用,比如他骗了我们号,我们一般手动去投诉他最多就几次成功率不高,而且每次投诉都要非常麻烦,而且效率极低,用这个插件可以一次投诉几百次,非常好使,仅供学习参考使用哈,尤其是UI部分的代码我开发真的用了很长的时间。
源码部分附ui:
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果,时间,端口,最高年龄,最终年龄,最低年龄,年龄
布局名称 = "客户定制版微信投诉【客户端】v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1",初始内容为"请在此输入内容"的文本框控件
//TracePrint UI.AddTextView(布局名称, "文字框2", "休息时间:")
TracePrint UI.AddEditText(布局名称, "输入框2", "10000")
// TracePrint UI.AddTextView(布局名称, "文字框2", "最低年龄:")
// TracePrint UI.AddEditText(布局名称, "输入框3", "20")
'显示名称为:布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row")
'创建一个名称为"按钮1",标题为:"点我初始化"的按钮控件
'创建一个名称为"按钮1",标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "点我初始化并投诉")
TracePrint UI.NewRow(布局名称, "new_row")
'TracePrint UI.AddRadioGroup(布局名称,"选择功能",{"普通私信", "截屏私信", "粉丝私信"},0)
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮2", 点我私信)
TracePrint UI.Show (布局名称)
Function 点我私信()
最高年龄 =Int(UI.GetText("输入框2"))
最低年龄 = Int(UI.GetText("输入框3"))
Import "shanhai.lua"
分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")
TracePrint UI.Close(布局名称)
End Function
'创建一个初始化处理函数
Function 点我初始化()
End Function
Do
Tap 357, 274
Delay 2000
Tap 1003, 138
Delay 2000
Tap 129,1613
Delay 6000
ShowMessage "此区域显示比较久,请耐心等待..."
Tap 319, 672
Delay 3000
Tap 401, 373
ShowMessage "正在操作..."
Delay 2000
Tap 146, 296
Delay 2000
Tap 45, 380
Delay 1000
Tap 977,136
Delay 3000
Tap 516, 1316
Delay 3000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 3000
ShowMessage "已完成一次投诉,准备休息" & 最高年龄 & "秒"
Delay 最高年龄
// Exit Do
//退出循环
Loop