Question

VB可否控制另一个程序执行指令

VB可否控制程序A，通过程序A内部的命令执行指令呢？
简单点说就是 可否用VB写一个程序，在10:00 控制QQ聊天窗口输入字符A 发送，
在11:00 控制QQ聊天窗口输入字符Ab发送，类似这样的事情，不能用快捷方式，用内部指令！
有高手解答吗？

Answer 1

02 控制QQ发送消息
说明：
本案例是使用clsWindow2.2控制QQ桌面版来发送消息的。原理是模拟人工操作：选择对应的人员或群 -> 点击消息框 ->
输入框中输入消息 -> 按回车，代码注释很详细，看下就能明白，有一定vb基础的人可以改成群发，定时发送，群中@发送。
测试环境：
win7x64 + QQ9.2.2 + clsWindow2.2
说明： 如果不能用可能是您的版本太旧，或者QQ软件更新导致一些控件位置大小改变，请仔细检查并修改相应代码。以下代码2020-02-05测试通过，本代码不保证更新。
声明：
本代码免费，可做任何商业用途，但请勿做非法用途，所引起的一切后果由使用者本人承担。
代码：
用法参考：sendQQMsg "clswindow交流群", "大家好，clswindow框架交流群QQ：788028734"
Private Sub sendQQMsg(ByVal strName$, ByVal strMsg$)
Dim w As New clsWindow
If w.GetWindowByTitle(strName).hWnd <> 0 Then
w.Normal '设置窗口正常，防止当前是最小化到任务栏的
w.Focus
w.ClickPoint w.Left + 35, w.Top + w.Height - 100, absolute, , 300, 500
SendKeys strMsg & "{ENTER}"
Else
MsgBox "未发现包含“strName”的QQ聊天窗口，请打开对应的窗口再测试，注意请在面板上取消勾选“合并勾选窗口”", vbExclamation
End If
Set w = Nothing
End Sub

Answer 2

找到对应窗口句柄, 截取信息…获得权限…运用Time实现控制时间变量 …完全可以实现!

Answer 3

3.49 icePub_sendKeyToActivForm
active form后send一个key(按键事件，不是发送字符)

l 函数原型：
int WINAPI icePub_sendKeyToActivForm(char *strFormTitle,int keyValue,int extendFlag)
输入：strFormTitle 窗口标题串
keyValue 虚拟键值,ascii码即可
extendFlag 功能建标志：0无;1Ctrl;2Alt;4Shift;复合的话把值相加即可
输出：

VB sample 代码：
Private Declare Function icePub_activForm Lib "icePubDll.dll" (ByVal strFormTitle As String,ByVal keyValue As Integer,ByVal extendFlag As Integer) As Integer

Dim a2 As Integer
Dim str1 As String

str1 = "与 龙芯发烧友 交谈中"
'QQ聊天窗体标题

a2 = icePub_sendKeyToActivForm(str1,'A',0)
a2 = icePub_sendKeyToActivForm(str1,13,1)

a2 = icePub_sendKeyToActivForm(str1,'A',0)
a2 = icePub_sendKeyToActivForm(str1,'b',0)
a2 = icePub_sendKeyToActivForm(str1,13,1)

http://dl.icese.net/dev.php?f=icePubDll.rar 下载

Answer 4

句柄

Answer 5

你肯出多少钱