模拟Ctrl+w组合键的问题？？？？

我想模拟傲游浏览器的ctrl+w 
已经取得句柄 并且用postmessage 成功模拟f1但就是模拟不了组合键？？如果只模拟傲游浏览器的ctrl+w 如何实现？
其他程序不受影响
答对后给分！

解决方案 »

  1.   

    傲游浏览器 ctrl+w,实现关闭当前标签(窗口)。
    声明一下，我没用过傲游浏览器，ctrl+w的功能是网上查到的，如果你获得句柄的窗口是个子窗口或窗口中的控件，下述代码将无用。Const SC_CLOSE = &HF060
    Const WM_SYSCOMMAND = &H112
    Private Sub CloseLabel()
        Dim HandLabel As Long
        'Handle 已经取得句柄
        HandLabel = PostMessage(Handle, WM_SYSCOMMAND, SC_CLOSE, 0&)    
    End Sub
      

  2.   

    AppActivate "傲游浏览器的标题" '你要通过getwindowtext取得其标题SendKeys "^w", True ' 按 CTRL+w
      

  3.   

    （我是想关闭傲游打开的每个标签页面！） 所以每个标题也不一样啊那么AppActivate如何激活傲游呢？
    请写下完整代码 非常感谢！！mmyyxx88 我获得的不是控件句柄,是傲游父窗口的句柄 但用你的代码 没有成功另：傲游父窗口的句柄或者其他一些程序的父窗口句柄 会不会一直不变呢还是会变化的？
      

  4.   

    postmessage或sendmessage无法发送组合键消息
      

  5.   

    我不用傲游，如果没有切换每个标签页面的快捷键，哪就不能用sendkey了，如果有，
    哪么AppActivate后，再用sendkey发送切换每个标签页面的快捷键，然后SendKeys "^w", True ' 按 CTRL+w
      

  6.   

    当然，AppActivate "傲游浏览器的标题" '你要通过getwindowtext取得其标题SendKeys "^w", True ' 按 CTRL+w
    这个只能关闭当前标签页面