陌陌自动回复脚本，全自动打招呼点赞回复插件，按键精灵脚本分享

原创于 2025-06-13 11:37:10 发布 · 684 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#javascript #开发语言 #ecmascript

该文章已生成可运行项目，

下载地址：【陌陌打招呼自动回复脚本.zip】文件分享 - 云盘https://pan38.com/share.php?code=5FV8W
声明：仅可用于学习参考使用！
完整源码框架：【Ui+完整功能代码】

Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果,时间,端口,最高年龄,最终年龄,最低年龄,年龄

布局名称 = "陌陌打招呼自动回复脚本【客户端】v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称) 
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddTextView(布局名称, "文字框2", "每次打招呼数量：") 
 TracePrint UI.AddEditText(布局名称, "输入框2", "5")

      
'显示名称为：布局名称 的布局控件
 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"))



分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")
TracePrint UI.Close(布局名称)



End Function
    



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

  
  
End Function

Do

Delay 2000

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 1500
	//点打招呼
	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 intX1 - 300, intY1
Delay 2000

InputText 分割话术(1)
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 2000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
Swipe intX, intY, intX, 99, 1500
Delay 1000

End If
//发送话术



End If
	//点打招呼


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

Swipe intX, intY, intX, 99, 1500
Delay 1000

End If








End If

//附近人打招呼步骤

Delay 2000

Tap 361,1111
ShowMessage "进入检测消息环节"

Delay 2000

//检测消息
Dim intX3,intY3
FindPic 546,265,710,1051,"Attachment:一条消息.png","000000",0,0.9,intX3,intY3
If intX3 > -1 And intY3 > -1 Then
	TracePrint intX3
	TracePrint intY3
	Tap intX3-200, intY3
	Delay 2000
	//ShowMessage "已检测到一条消息准备回复"
	Tap 235, 1020
	Delay 20
	InputText 分割话术(1)
	Delay 1000
	//发送话术
	Dim intX4,intY4
FindPic 0,0,0,0,"Attachment:发送内容.png","000000",0,0.9,intX4,intY4
If intX4 > -1 And intY4 > -1 Then
	TracePrint intX4
	TracePrint intY4
	Tap intX4,intY4
Delay 1000

KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000

End If
//发送话术
	
End If
//检测消息

 
If intY4 = -1 Then 
 
ShowMessage "当前没收到最新消息" 
End If






Delay 2000
Tap 74,1112
Delay 3000
Tap 185,90
Delay 3000

Next







 //   Exit Do
    //退出循环
Loop

本文章已经生成可运行项目