Board logo

標題: [發問] 如何在VBA中使用SendMessage或PostMessage來對"檔案下載"對話盒進行操作 [打印本頁]
作者: white5168    時間: 2012-6-12 21:32     標題: 如何在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

以下是我使用過的方法,但依舊無法成功
  1. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  2. 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
  3. Private Declare Function PostMessage& Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
  4. Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
  5. 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
  6. 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)

  8. Private Const WM_LBUTTONDOWN = &H201
  9. Private Const WM_LBUTTONUP = &H202
  10. Private Const BM_CLICK = &HF5
  11. Private Const MOUSEEVENTF_LEFTDOWN = &H2
  12. Private Const MOUSEEVENTF_LEFTUP = &H4

  14. Sub test()
  15.     Dim IE As Object
  16.     Dim hpwnd As Long, hcwnd As Long
  17.     Dim iRet As Long
  18.    
  19.     Set IE = CreateObject("InternetExplorer.Application") '設定InternetExplorer物件

  21.     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" '檔案下載網址
  22.    
  23.    
  24.    With IE
  25.         .Visible = True  '開啟IE
  26.         .Navigate strLink   '連結網址
  27.     End With
  28.    
  29.    
  30.     Do
  31.         hpwnd = FindWindow("#32770", "檔案下載") '抓取對話盒的handle
  32.         DoEvents
  33.     Loop While hpwnd = 0
  34.    
  35.     Do
  36.         hcwnd = FindWindowEx(hpwnd, 0, "Button", "儲存(&S)") '抓取對話盒按鈕的handle
  37.         DoEvents
  38.     Loop While hcwnd = 0

  40.     iRet = SetForegroundWindow(hcwnd) '設定焦點

  42.    '在以下五種方法經皆由windows發送訊息模仿滑鼠按鍵,,依然無法請問各位是否有其他方法可以做到windows發送訊息模仿滑鼠按鍵
  43.     '方法一
  44.     iRet = SendMessage(hcwnd, BM_CLICK, 0, 0)               '透過windows發送訊息模仿滑鼠按鍵

  46.     '方法二
  47.     'iRet = SendMessage(hcwnd, WM_LBUTTONDOWN, 0, 0)        '滑鼠左鍵按下
  48.     'iRet = SendMessage(hcwnd, WM_LBUTTONUP, 0, 0)          '滑鼠左鍵釋放

  50.     '方法三
  51.     'PostMessage hcwnd, WM_LBUTTONDOWN, 0&, CLng(&H90009)   '滑鼠左鍵按下
  52.     'PostMessage hcwnd, WM_LBUTTONUP, 0&, CLng(&H90009)     '滑鼠左鍵釋放
  53.     'PostMessage hcwnd, WM_LBUTTONDOWN, 0&, CLng(&H90009)   '滑鼠左鍵按下
  54.     'PostMessage hcwnd, WM_LBUTTONUP, 0&, CLng(&H90009)     '滑鼠左鍵釋放

  56.     '方法四
  57.     'mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0           '透過滑鼠事件, 滑鼠左鍵按下
  58.     'mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0             '透過滑鼠事件, 滑鼠左鍵釋放
  59.    
  60.     '方法五
  61.     'SendKeys "%s", True   '透過按下Alt + s 儲存檔案

  63.     Set IE = Nothing    '釋放資源
  64. End Sub
複製代碼
作者: white5168    時間: 2012-6-23 18:18

沒有大大想到方法?
作者: Hsieh    時間: 2012-6-23 23:05

回復 2# white5168
http://forum.twbts.com/thread-6807-1-4.html
作者: white5168    時間: 2012-6-23 23:18

我有需要一定要直接去操作對話框,我當然知道有其他的方法可以抓取,可是就一定需要直接操作對話框



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)