Question

用VB向窗体传送键盘信息的问题

我用 h = Shell("rundll32.exe url.dll,FileProtocolHandler 网页地址") 已获得一个浏览器（不一定是IE）窗体的句柄，下一步怎么向这个句柄（不一定是活动的）定时（如10分钟）传送一个键盘信息如F5，使网页刷新。求详细代码。

Answer 1

1、h要设为全局变量；
2、可用Timer控件进行定时；
3、发送键盘信息可以用sendkeys；
4、下面是个简单的例子：Command1打开记事本，Command2发送F5：
1234567891011Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Dim x As LongPrivate Sub Command1_Click()x = Shell("notepad", vbNormalFocus)End SubPrivate Sub Command2_Click()AppActivate xSleep 100DoEventsSendKeys "{F5}", TrueEnd Sub
5、更正你一点：shell的返回值（即h）不是窗体句柄，而是进程ID，要获得窗体句柄还要经过一番转换才行；
6、如果要实现后台操作（就是说向窗体发送键盘消息时窗体不必弹到前台），则必须用窗体句柄才行。