Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1930|回复: 2

是什么原因笔记本上不能点击“文件下载”窗口的“打开”按钮?

[复制链接]
发表于 2012-11-25 17:13 | 显示全部楼层 |阅读模式
各位老师:下面的代码是将网页上文件下载后并打开,该代码在其他台式电脑上可以正常运行,但在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)”(松开左键)

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2012-11-26 12:09 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2012-11-26 18:00 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-8 11:11 , Processed in 0.945042 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表