Question

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

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

Answer 1

1、h要设为全局变量；

2、可用Timer控件进行定时；

3、发送键盘信息可以用sendkeys；

4、下面是个简单的例子：Command1打开记事本，Command2发送F5：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim x As Long
Private Sub Command1_Click()
x = Shell("notepad", vbNormalFocus)
End Sub
Private Sub Command2_Click()
AppActivate x
Sleep 100
DoEvents
SendKeys "{F5}", True
End Sub

5、更正你一点：shell的返回值（即h）不是窗体句柄，而是进程ID，要获得窗体句柄还要经过一番转换才行；

6、如果要实现后台操作（就是说向窗体发送键盘消息时窗体不必弹到前台），则必须用窗体句柄才行。

追问

这个方案我早已试了，换成Shell("rundll32.exe url.dll,FileProtocolHandler 网址")就不行，不论默认浏览器是IE还是360都不行，提示 无效的过程调用或参数 在AppActivate x处
我已转移到另一个问题http://zhidao.baidu.com/question/982322003722475139.html?quesup2&oldq=1