求几句VB代码 发送键盘消息

我现在通过前面的操作，已经实现了点击网页链接，弹出那个打开下载对话框，现在需要大神们帮忙写几句代码，能够让程序自动点击那个“打开”按钮就可以了，我试了sendkeys 好像老出问题，求教了

i = FindWindow(vbNullString, "文件下载")
j = FindWindowEx(i, 0&, "Button", "保存(&S)")
If j > 0 Then

MsgBox SendMessage(j, WM_LBUTTONDOWN, 0, ByVal 0)

MsgBox SendMessage(j, WM_LBUTTONUP, 0, ByVal 0)

End If

你那个SENDMESSAGE应该可以的
如果无效的话,先检查一下参数问题(包括声明和常数)
如果参数没问题,试试在两行中间加句延时(需要先声明):
SLEEP 100
看看行不行

键码 常数    值    描述 vbkeylbutton 1 鼠标左键 vbkeyrbutton 2 鼠标右键 vbkeycancel 3 cancel 键 vbkeymbutton 4 鼠标中键 vbkeyback 8 backspace 键 vbkeytab 9 tab 键 vbkeyclear 12 clear 键 vbkeyreturn 13 enter 键 vbkeyshift 16 shift 键 vbkeycontrol 17 ctrl 键 vbkeymenu 18 菜单键 vbkeypause 19 pause 键 vbkeycapital 20 caps lock 键 vbkeyescape 27 esc 键 vbkeyspace 32 spacebar 键 vbkeypageup 33 pageup 键 vbkeypagedown 34 pagedown 键 vbkeyend 35 end 键 vbkeyhome 36 home 键 vbkeyleft 37 left arrow 键 vbkeyup 38 up arrow 键 vbkeyright 39 right arrow 键 vbkeydown 40 down arrow 键 vbkeyselect 41 select 键 vbkeyprint 42 print screen 键 vbkeyexecute 43 execute 键 vbkeysnapshot 44 snap shot 键 vbkeyinser 45 ins 键 vbkeydelete 46 del 键 vbkeyhelp 47 help 键 vbkeynumlock 144 num lock 键 ================================ a 键到 z 键与其 ascii 码的相应值'a' 到 'z' 是一致的 常数 值 描述 vbkeya 65 a 键 vbkeyb 66 b 键 vbkeyc 67 c 键 vbkeyd 68 d 键 vbkeye 69 e 键 vbkeyf 70 f 键 vbkeyg 71 g 键 vbkeyh 72 h 键 vbkeyi 73 i 键 vbkeyj 74 j 键 vbkeyk 75 k 键 vbkeyl 76 l 键 vbkeym 77 m 键 vbkeyn 78 n 键 vbkeyo 79 o 键 vbkeyp 80 p 键 vbkeyq 81 q 键 vbkeyr 82 r 键 vbkeys 83 s 键 vbkeyt 84 t 键 vbkeyu 85 u 键 vbkeyv 86 v 键 vbkeyw 87 w 键 vbkeyx 88 x 键 vbkeyy 89 y 键 vbkeyz 90 z 键 ============================================== 0 键到 9 键与其 ascii 码的相应值 '0' 到 '9' 是一致的 常数 值 描述 vbkey0 48 0 键 vbkey1 49 1 键 vbkey2 50 2 键 vbkey3 51 3 键 vbkey4 52 4 键 vbkey5 53 5 键 vbkey6 54 6 键 vbkey7 55 7 键 vbkey8 56 8 键 vbkey9 57 9 键 ============================================== 数字小键盘上的键 常数 值 描述 vbkeynumpad0 96 0 键 vbkeynumpad1 97 1 键 vbkeynumpad2 98 2 键 vbkeynumpad3 99 3 键 vbkeynumpad4 100 4 键 vbkeynumpad5 101 5 键 vbkeynumpad6 102 6 键 vbkeynumpad7 103 7 键 vbkeynumpad8 104 8 键 vbkeynumpad9 105 9 键 vbkeymultiply 106 乘号 (*) 键 vbkeyadd 107 加号 (+) 键 vbkeyseparator 108 enter 键（在数字小键盘上） vbkeysubtract 109 减号 (-) 键 vbkeydecimal 110 小数点 (.) 键 vbkeydivide

用到API函数