|
各位老师:下面的代码是将网页上文件下载后并打开,该代码在其他台式电脑上可以正常运行,但在win7的笔记本上在弹出“文件下载”的窗口后,红色代码处不知怎么好像点击了“取消”按钮似的,没有打开下载的文件,这是什么原因?请老师们帮助分析和解决一下!在此谢谢了!
Do Until FindWindow(vbNullString, "文件下载") > 0 '直到“文件下载”窗口出现为止
DoEvents
Loop
t0 = Timer
Do Until Timer > t0 + 2
DoEvents
Loop
winHwnd = FindWindow(vbNullString, "文件下载") '“文件下载”窗口句柄
If winHwnd <> 0 Then '
btnHwnd = FindWindowEx(winHwnd, 0, "Button", "打开(&o)") '“打开(&o)”按钮句柄
t0 = Timer
Do Until Timer > t0 + 2
DoEvents
Loop
SendMessage btnHwnd, WM_LBUTTONDOWN, 0, ByVal 0 '点击“打开(&o)”(按下左键)鼠标在打开(&o)按钮1按下
SendMessage btnHwnd, WM_LBUTTONUP, 0, ByVal 0 '点击“打开(&o)”(松开左键)'鼠标在打开(&o)按钮1弹起
SendMessage btnHwnd, WM_LBUTTONDOWN, 0, ByVal 0 '点击“打开(&o)”(按下左键)
SendMessage btnHwnd, WM_LBUTTONUP, 0, ByVal 0 '点击“打开(&o)”(松开左键)
|
|