基于UIbot实现模拟真人发送微信消息的机器人代码

优优工作室 13天前 99

仅供学友学习、研究,严禁商业用途。

Dim bRet, iRet, sRet
bRet = App.GetStatus("WeChat.exe")
UnitTest
    dim g_picurl = ""
    dim g_xiaoxi = ""
    dim g_execl = ""
End UnitTest
if bRet <> True
    iRet = Dialog.MsgBox("请先启动微信,谢谢!", "请启动微信!", 0, 1, 0)
    Exit()
Else
    bRet = Dialog.InputBox("请输入您将要发送的消息内容!", "请输入消息内容", "请在这里\n输入文字内容", false)
    If bRet = Null
        Exit()
    End If
End If
Rem 处理文字内容,存入流程图变量
g_xiaoxi = bRet
bRet = Dialog.MsgBox("除了文字消息外,还需要发送图片消息吗?", "选择是否发送图片消息", 1, 2, 0)
If bRet = 6
    sRet = Dialog.OpenFile('''C:\''', "图片文件 (jpg、gif、png)|*.jpg;*.gif;*.png|任意文件|*", "请选择图片位置")
    g_picurl = sRet
Else
g_picurl=""
End If
bRet = Dialog.MsgBox("现在请选择您的好友或群通讯录!", "选择通讯录", 0, 1, 0)
if bRet <> 1
    Exit()
End If
bRet = Dialog.OpenFile('''C:\''', "execl文档 (xls、xlsx)|*.xls;*.xlsx", "选择通讯录")
if bRet = ""
bRet = Dialog.MsgBox("您没有选择通讯录,确定不发送了?", "确定退出", 0, 1, 0)
    exit()
end if
g_execl = bRet
Rem 使用说明
bRet = Dialog.MsgBox("机器人即将开始发送消息!请不要操作鼠标键盘以免程序出错!\n\n使用说明:\n\n1、使用前请设置将要发送的图片及文字消息;\n2、好友或群名称请使用execl文档保存,不要有重复的名字;\n3、通讯录请从A2行开始写入,机器人将从A2行开始读取数据;\n4、可以自行为微信好友重新备注名称后保存入execl文档;\n5、机器人设置为错误继续执行模式,如遇机器人停顿,请耐心等待;\n6、全部发送完成后会弹出结束对话框,用户确认后结束;\n7、如需其他功能请联系UBstore定制!\n\n【重要提示:】\n如果您的机器已经配置了UB6.0版本,运行机器人出错,请参考这篇文章设置:https://forum.laiye.com/thread-24493.htm", "友情提示", 0, 1, 0)
TracePrint(g_execl, g_picurl, g_xiaoxi)


最新回复 (2)
  • 哈哈哈11 13天前
    2
    这个具体的发送操作还是需要自己添加的把,你这只是把需要发送的消息以及图片等信息获取到了把
  • 戚昌盛 12天前
    3
    运行之后消息并没有发出去,也没有报任何错误是怎么回事?
返回
发新帖