请教一下VB如何往武林里发送SHIFT

来学热

VB代码   


Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101

Public Const VK_SHIFT = &H10

SendMessage hwd, WM_KEYDOWN, VK_SHIFT, 0&    '按住Shift键
            SendMessage hwd, WM_KEYDOWN, V_Key(num), 0&
            SendMessage hwd, WM_KEYUP, V_Key(num), 0&
            SendMessage hwd, WM_KEYUP, VK_SHIFT, 0&    '松开Shift键


SHIFT+1-5
SHIFT键不起做用1-5起做用
请教高手，如何让SHIFT起做用。谢谢了。

PostMessage  也不管用。

悠然天下

方法错了
建议去看postmessage 和WM_KEYDOWN,WM_KEYUP的说明

ah5933

用postmessage发送shift+1的方法我没找到
但是有用keybd_event实现的

zhuer

keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),0,0); //按下SHIFT键。
　　keybd_event(0x52,MapVirtualKey(0x52,0),0,0);//按下R键。
　　keybd_event(0x52,MapVirtualKey(0x52,0),KEYEVENTF_KEYUP,0);//放开R键。
　　keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),KEYEVENTF_KEYUP,0);//放开SHIFT键。
shift+R,缺点是必须窗口置顶？
不知道别人有什么更好的方法没有

蓝雨

最近鸭梨真的很大啊