[發問] 如何在VBA中使用SendMessage或PostMessage來對"檔案下載"對話盒進行操作

本帖最後由 white5168 於 2012-6-23 20:19 編輯

請問各位大大,要如何在VBA的環境中使用SendMessage或PostMessage來對"檔案下載"對話盒進行操作?
如網址 http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U_print.php?begin_date=20120611&end_date=&report_type=day&language=ch&save=csv

以下是我使用過的方法,但依舊無法成功

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function PostMessage& Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const BM_CLICK = &HF5
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Sub test()
Dim IE As Object
Dim hpwnd As Long, hcwnd As Long
Dim iRet As Long
Set IE = CreateObject("InternetExplorer.Application") '設定InternetExplorer物件
strLink = "http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U_print.php?begin_date=20120611&end_date=&report_type=day&language=ch&save=csv" '檔案下載網址
With IE
.Visible = True '開啟IE
.Navigate strLink '連結網址
End With
Do
hpwnd = FindWindow("#32770", "檔案下載") '抓取對話盒的handle
DoEvents
Loop While hpwnd = 0
Do
hcwnd = FindWindowEx(hpwnd, 0, "Button", "儲存(&S)") '抓取對話盒按鈕的handle
DoEvents
Loop While hcwnd = 0
iRet = SetForegroundWindow(hcwnd) '設定焦點
'在以下五種方法經皆由windows發送訊息模仿滑鼠按鍵,,依然無法請問各位是否有其他方法可以做到windows發送訊息模仿滑鼠按鍵
'方法一
iRet = SendMessage(hcwnd, BM_CLICK, 0, 0) '透過windows發送訊息模仿滑鼠按鍵
'方法二
'iRet = SendMessage(hcwnd, WM_LBUTTONDOWN, 0, 0) '滑鼠左鍵按下
'iRet = SendMessage(hcwnd, WM_LBUTTONUP, 0, 0) '滑鼠左鍵釋放
'方法三
'PostMessage hcwnd, WM_LBUTTONDOWN, 0&, CLng(&H90009) '滑鼠左鍵按下
'PostMessage hcwnd, WM_LBUTTONUP, 0&, CLng(&H90009) '滑鼠左鍵釋放
'PostMessage hcwnd, WM_LBUTTONDOWN, 0&, CLng(&H90009) '滑鼠左鍵按下
'PostMessage hcwnd, WM_LBUTTONUP, 0&, CLng(&H90009) '滑鼠左鍵釋放
'方法四
'mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '透過滑鼠事件, 滑鼠左鍵按下
'mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '透過滑鼠事件, 滑鼠左鍵釋放
'方法五
'SendKeys "%s", True '透過按下Alt + s 儲存檔案
Set IE = Nothing '釋放資源
End Sub

複製代碼

樓主熱帖

white5168

中學生 Rank: 2

帖子: 90
主題: 16
精華: 0
積分: 114
點名: 0
作業系統: XP
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-10-7

2^#

發表於 2012-6-23 18:18 | 只看該作者

沒有大大想到方法?

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章