帮你顶一顶，相信有人回答的

ctrl + a 是windows 全选的快捷键不建议这样做，下面这个理论是可以实现，自己测试
do
Dim keyCTRL,keyA
keyctrl = WaitKey()
keyA = WaitKey()
If keyCTRL= 17 and keyA=65 Then
RunApp "QQ地址"
End If
loop