| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求助：代码利用QQ发送信息 重复输入内容 半天不能发送与关闭 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130989) |
| -- 作者：李孝春 -- 发布时间：2019/2/13 20:34:00 -- 求助：代码利用QQ发送信息 重复输入内容 半天不能发送与关闭 两个表 人员关联表如果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编辑过]
|
| -- 作者：有点甜 -- 发布时间：2019/2/13 21:51:00 -- 1、这个是模拟发送，不能乱用的。更不可能直接用【计划、定时器】来做。
2、如果你只是想测试这个功能，做一个实例发上来测试。 |