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)
