主题：Win7 64位系统，查找窗口并发送F1键，不好使，请帮忙！

以下内容为程序代码:

1 sub findwin()
2 VK_F1=&H112
3 Set Wrap = CreateObject("DynamicWrapperX")
4 Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"
5 WindowHandle = Wrap.FindWindow("#32770", "交易窗口")
6 If WindowHandle＜＞0 then
7 MsgBox "找到了"
8 Wrap.Register "USER32.DLL", "keybd_event", "i=ccll", "f=s"
9 REM Wrap.keybd_event VK_F1, 0, 0, 0
10 REM Wrap.keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0
11 else
12 MsgBox “找不到"
13 end if
14 end sub