how to send Alt-S in VBA to other window

Ask Question Forum:

Model Library:2025-02-08 Updated:A.I. model is online for auto reply question page

Show

ASK RECENT

how to send Alt-S in VBA to other window

Asked by duncanb7

at 2024-10-18 11:30:58

Point:500 Replies:3 POST_ID:828384USER_ID:11059

Topic:

Miscellaneous Programming;;

I would like to know how to send key of ATl-S to webpage , I try to us ASCILL combine code of ALT-S as 1F but
it doesn't work, I also try WM_SYSKEYDOWN for Alt but it also not response. THe purpise is using for save botton
of Alt-S in download diaglog and (I don't want to use sendigitemmessage hwnd, &H1,BM_CLIC,0 because the function
will hang up if the file is existed until you reply overwrite or not )

PostMessage hdlg, WM_KEYDOWN, &H1F&, 0 'Alt-S
PostMessage hdlg, WM_KEYUP, &H1F&, 0

Please help to point out my mistake for postmessage VBA code

Duncan

Author: duncanb7 replied at 2024-11-03 14:03:49

<< (I don't want to use sendigitemmessage hwnd, &H1,BM_CLIC,0 because the function will hang up if the file is existed until you reply overwrite or not ) >>

Use the custom implementation to avoid this behavior. The example is below... If the overwrite dialog appears you can automate that also under Windows XP the control ID for "Yes" and "No" are as follows.

Yes = 6
No = 7

'// Usage
Where (hDlg) is the handle to dialog only (The main dialog window handle) you don't need to search deeper since the association of the control is obtained using the control ID. (XP only)
ClickMethod hDlg, 6 '//click yes
ClickMethod hDlg, 7 '//click no

Option Explicit'egl1044Private Const SMTO_NORMAL As Long = &H0&Private Const BM_CLICK As Long = &HF5&Private Declare Function SendMessageTimeoutW Lib "user32.dll" ( _  ByVal hWnd As Long, _  ByVal Msg As Long, _  ByVal wParam As Long, _  ByVal lParam As Long, _  ByVal fuFlags As Long, _  ByVal uTimeout As Long, _  ByRef lpdwResult As Long) As LongPrivate Declare Function GetDlgItem Lib "user32.dll" ( _  ByVal hDlg As Long, _  ByVal nIDDlgItem As Long) As LongPublic Function SendDlgItemMessageTimeout( _  ByVal hWnd As Long, _  ByVal Msg As Long, _  ByVal wParam As Long, _  ByVal lParam As Long) As Long  ' Custom implementation of SendDlgItemMessage that doesn't  ' block the current thread. This is useful for example when  ' dialog opens a modal dialog.  Dim Success     As Long  Dim lpResult    As Long  Success = SendMessageTimeoutW( _      hWnd, _      Msg, _      wParam, _      lParam, _      SMTO_NORMAL, _      1000, _      lpResult)  SendDlgItemMessageTimeout = lpResultEnd FunctionPublic Sub ClickMethod( _  ByVal hDlg As Long, _  ByVal dwId As Long)  Dim ctlhWnd       As Long  ctlhWnd = GetDlgItem(hDlg, dwId)  Debug.Print SendDlgItemMessageTimeout(ctlhWnd, BM_CLICK, 0, 0)End Sub

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:25:26:27:28:29:30:31:32:33:34:35:36:37:38:39:40:41:42:43:44:45:46:47:48:49:50:51:52:53:54:55:

Select All Code

Accepted Solution

Expert: xxlc replied at 2024-10-19 07:42:06

500 points GOOD

Expert: rockiroads replied at 2024-10-19 00:10:53

<< (I don't want to use sendigitemmessage hwnd, &H1,BM_CLIC,0 because the function will hang up if the file is existed until you reply overwrite or not ) >>

Option Explicit'egl1044Private Const SMTO_NORMAL As Long = &H0&Private Const BM_CLICK As Long = &HF5&Private Declare Function SendMessageTimeoutW Lib "user32.dll" ( _  ByVal hWnd As Long, _  ByVal Msg As Long, _  ByVal wParam As Long, _  ByVal lParam As Long, _  ByVal fuFlags As Long, _  ByVal uTimeout As Long, _  ByRef lpdwResult As Long) As LongPrivate Declare Function GetDlgItem Lib "user32.dll" ( _  ByVal hDlg As Long, _  ByVal nIDDlgItem As Long) As LongPublic Function SendDlgItemMessageTimeout( _  ByVal hWnd As Long, _  ByVal Msg As Long, _  ByVal wParam As Long, _  ByVal lParam As Long) As Long  ' Custom implementation of SendDlgItemMessage that doesn't  ' block the current thread. This is useful for example when  ' dialog opens a modal dialog.  Dim Success     As Long  Dim lpResult    As Long  Success = SendMessageTimeoutW( _      hWnd, _      Msg, _      wParam, _      lParam, _      SMTO_NORMAL, _      1000, _      lpResult)  SendDlgItemMessageTimeout = lpResultEnd FunctionPublic Sub ClickMethod( _  ByVal hDlg As Long, _  ByVal dwId As Long)  Dim ctlhWnd       As Long  ctlhWnd = GetDlgItem(hDlg, dwId)  Debug.Print SendDlgItemMessageTimeout(ctlhWnd, BM_CLICK, 0, 0)End Sub

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:25:26:27:28:29:30:31:32:33:34:35:36:37:38:39:40:41:42:43:44:45:46:47:48:49:50:51:52:53:54:55:

Select All Code

新聞財經娛樂♬資訊 News Economy

About Us|Service|Pricing

Stock Index全球即時指數期貨:

&nbps;

News即時新聞:↓

News即時新聞:↑

On Balance Volume (OBV):

Youtube Video♬ Sharing by members:↓

Youtube Video♬ Sharing by members:↑

Ask Question Forum:

how to send Alt-S in VBA to other window

Your Information

Members/Profolio