两个表
人员关联表如果qq号码不为空
就看人员名称查找告知内容表里是否有没有告知的内容
如果有就对应qq号码进行告知
下面的代码运行后 在聊天对话框里会重复输入dr("法律法规")内容 半天发送不出去
Dim tbl As Table = Tables("人员关联表")
For Each rw As Row In tbl.GetCheckedRows
If rw("qq号码") <> Nothing Then
Dim drs = DataTables("告知内容").Select("姓名 = '" & rw("姓名") & "'And 是否告知 = '否' " )
For Each dr As DataRow In drs
Dim Proc As New Process
Proc.File = "tencent://message/?uin=" & RW("QQ号码")
Proc.Start
System.Threading.Thread.Sleep(5000) '等候几秒,让窗口打开
Sendkeys.SendWait(dr("法律法规"))
System.Threading.Thread.Sleep(5000) '等候
Sendkeys.SendWait("^~") '发送
System.Threading.Thread.Sleep(5000) '等候
Sendkeys.Send("{ESC}") '关闭
‘’e.Cancel = True 红色部分放入计划事件代码应该怎么变通呢？
dr("是否告知")="是"
Next
Else
End If
Next
[此贴子已经被作者于2019/2/13 20:46:18编辑过]
加好友 
发短信
Post By：2019/2/13 20:34:00 [只看该作者]
