, Var *aOutputVar, PROCESS_INFORMATION &aPI, bool &aSuccess // Output parameters we set for caller, but caller must have initialized aSuccess to false.

, HANDLE &aNewProcess, DWORD &aLastError) // Same, but initialize to NULL.

{

typedef BOOL (WINAPI *MyCreateProcessWithLogonW)(

LPCWSTR lpUsername, // user's name

LPCWSTR lpDomain, // user's domain

LPCWSTR lpPassword, // user's password

DWORD dwLogonFlags, // logon option

LPCWSTR lpApplicationName, // executable module name

LPWSTR lpCommandLine, // command-line string

DWORD dwCreationFlags, // creation flags

LPVOID lpEnvironment, // new environment block

LPCWSTR lpCurrentDirectory, // current directory name

LPSTARTUPINFOW lpStartupInfo, // startup information

LPPROCESS_INFORMATION lpProcessInfo // process information

);

// Get a handle to the DLL module that contains CreateProcessWithLogonW

HINSTANCE hinstLib = LoadLibrary(_T("advapi32"));

if (!hinstLib)

{

if (aDisplayErrors)

ScriptError(_T("RunAs: Missing advapi32.dll."));

return FAIL;

}

MyCreateProcessWithLogonW lpfnDLLProc = (MyCreateProcessWithLogonW)GetProcAddress(hinstLib, "CreateProcessWithLogonW");

if (!lpfnDLLProc)

{

FreeLibrary(hinstLib);

if (aDisplayErrors)

ScriptError(_T("CreateProcessWithLogonW.")); // Short msg since it probably never happens.

return FAIL;

}

// Set up wide char version that we need for CreateProcessWithLogon

// init structure for running programs (wide char version)

STARTUPINFOW wsi = {0};

wsi.cb = sizeof(STARTUPINFOW);

wsi.dwFlags = STARTF_USESHOWWINDOW;

wsi.wShowWindow = aShowWindow;

// The following are left initialized to 0/NULL (initialized earlier above):

//wsi.lpReserved = NULL;

//wsi.lpDesktop = NULL;

//wsi.lpTitle = NULL;

//wsi.cbReserved2 = 0;

//wsi.lpReserved2 = NULL;

#ifndef UNICODE

// Convert to wide character format:

WCHAR command_line_wide[LINE_SIZE], working_dir_wide[MAX_PATH];

ToWideChar(aCommandLine, command_line_wide, LINE_SIZE); // Dest. size is in wchars, not bytes.

if (aWorkingDir && *aWorkingDir)

ToWideChar(aWorkingDir, working_dir_wide, MAX_PATH); // Dest. size is in wchars, not bytes.

else

*working_dir_wide = 0; // wide-char terminator.

if (lpfnDLLProc(mRunAsUser, mRunAsDomain, mRunAsPass, LOGON_WITH_PROFILE, 0

, command_line_wide, 0, 0, *working_dir_wide ? working_dir_wide : NULL, &wsi, &aPI))

#else

if (lpfnDLLProc(mRunAsUser, mRunAsDomain, mRunAsPass, LOGON_WITH_PROFILE, 0

, aCommandLine, 0, 0, aWorkingDir && *aWorkingDir ? aWorkingDir : NULL, &wsi, &aPI))

#endif

{

aSuccess = true;

if (aPI.hThread)

CloseHandle(aPI.hThread); // Required to avoid memory leak.

aNewProcess = aPI.hProcess;

if (aOutputVar)

aOutputVar->Assign(aPI.dwProcessId);

}

else

aLastError = GetLastError(); // Caller will use this to get an error message and set g->LastError if needed.

FreeLibrary(hinstLib);

return OK;

{

// aaa.bbb.ccc.ddd = 15, but allow room for larger IP's in the future.

#define IP_ADDRESS_SIZE 32 // The maximum size of any of the strings we return, including terminator.

if (!aBuf)

return IP_ADDRESS_SIZE - 1; // -1 since we're returning the length of the var's contents, not the size.

WSADATA wsadata;

if (WSAStartup(MAKEWORD(1, 1), &wsadata)) // Failed (it returns 0 on success).

{

*aBuf = '\0';

return 0;

}

char host_name[256];

gethostname(host_name, _countof(host_name));

HOSTENT *lpHost = gethostbyname(host_name);

// au3: How many adapters have we?

int adapter_count = 0;

while (lpHost->h_addr_list[adapter_count])

adapter_count;

int adapter_index = aVarName[11] - '1'; // A_IPAddress[1-4]

if (adapter_index >= adapter_count)

_tcscpy(aBuf, _T("0.0.0.0"));

else

{

IN_ADDR inaddr;

memcpy(&inaddr, lpHost->h_addr_list[adapter_index], 4);

tcslcpy(aBuf, CStringTCharFromCharIfNeeded(inet_ntoa(inaddr)), IP_ADDRESS_SIZE);

}

WSACleanup();

return (VarSizeType)_tcslen(aBuf);

{

if (!aBuf)

return 1; // The length of the string "1" or "0".

TCHAR result = '0'; // Default.

if (g_os.IsWin9x())

result = '1';

else

{

SC_HANDLE h = OpenSCManager(NULL, NULL, SC_MANAGER_LOCK);

if (h)

{

SC_LOCK lock = LockServiceDatabase(h);

if (lock)

{

UnlockServiceDatabase(lock);

result = '1'; // Current user is admin.

}

else

{

DWORD lastErr = GetLastError();

if (lastErr == ERROR_SERVICE_DATABASE_LOCKED)

result = '1'; // Current user is admin.

}

CloseServiceHandle(h);

}

}

aBuf[0] = result;

aBuf[1] = '\0';

return 1; // Length of aBuf.

{

if (tcscasestr(aOptions, _T("Slow"))) // New mode for v1.0.43.10. Takes precedence over Alt mode.

return PixelSearch(aX, aY, aX, aY, 0, 0, aOptions, true); // It takes care of setting ErrorLevel and the output-var.

Var &output_var = *OUTPUT_VAR;

output_var.Assign(); // Init to empty string regardless of whether we succeed here.

CoordToScreen(aX, aY, COORD_MODE_PIXEL);

bool use_alt_mode = tcscasestr(aOptions, _T("Alt")) != NULL; // New mode for v1.0.43.10: Two users reported that CreateDC works better in certain windows such as SciTE, at least one some systems.

HDC hdc = use_alt_mode ? CreateDC(_T("DISPLAY"), NULL, NULL, NULL) : GetDC(NULL);

if (!hdc)

return SetErrorLevelOrThrow();

// Assign the value as an 32-bit int to match Window Spy reports color values.

// Update for v1.0.21: Assigning in hex format seems much better, since it's easy to

// look at a hex BGR value to get some idea of the hue. In addition, the result

// is zero padded to make it easier to convert to RGB and more consistent in

// appearance:

COLORREF color = GetPixel(hdc, aX, aY);

if (use_alt_mode)

DeleteDC(hdc);

else

ReleaseDC(NULL, hdc);

TCHAR buf[32];

_stprintf(buf, _T("0xX"), tcscasestr(aOptions, _T("RGB")) ? bgr_to_rgb(color) : color);

g_ErrorLevel->Assign(ERRORLEVEL_NONE); // Indicate success.

return output_var.Assign(buf);

{

// Add some caption and frame size to window:

aWidth = GetSystemMetrics(SM_CXFIXEDFRAME) * 2;

int min_height = GetSystemMetrics(SM_CYCAPTION) (GetSystemMetrics(SM_CXFIXEDFRAME) * 2);

// This method seems more friendly than setting aHeight = min_height when aHeight < min_height.

aHeight = min_height;

POINT pt = CenterWindow(aWidth, aHeight); // Determine how to center the window in the region that excludes the task bar.

// My: Probably not too much overhead to do this, though it probably would perform better to resize and

// "re-text" the existing window rather than recreating it like this:

DESTROY_SPLASH

// Doesn't seem necessary to have it owned by the main window, but neither

// does doing so seem to cause any harm. Feels safer to have it be

// an independent window. Update: Must make it owned by the parent window

// otherwise it will get its own task-bar icon, which is usually undesirable.

// In addition, making it an owned window should automatically cause it to be

// destroyed when it's parent window is destroyed:

g_hWndSplash = CreateWindowEx(WS_EX_TOPMOST, WINDOW_CLASS_SPLASH, aTitle, WS_DISABLED|WS_POPUP|WS_CAPTION

, pt.x, pt.y, aWidth, aHeight, g_hWnd, (HMENU)NULL, g_hInstance, NULL);

RECT rect;

GetClientRect(g_hWndSplash, &rect); // get the client size

// CREATE static label full size of client area.

HWND static_win = CreateWindowEx(0, _T("static"), aText, WS_CHILD|WS_VISIBLE|SS_CENTER

, 0, 0, rect.right - rect.left, rect.bottom - rect.top, g_hWndSplash, (HMENU)NULL, g_hInstance, NULL);

if (!g_hFontSplash)

{

TCHAR default_font_name[65];

int CyPixels, nSize = 12, nWeight = FW_NORMAL;

HDC hdc = CreateDC(_T("DISPLAY"), NULL, NULL, NULL);

if (FontExist(hdc, _T("Segoe UI"))) // Use a more appealing font under Windows Vista or later (Segoe UI).

{

nSize = 11;

_tcscpy(default_font_name, _T("Segoe UI"));

}

else

{

SelectObject(hdc, (HFONT)GetStockObject(DEFAULT_GUI_FONT)); // Get Default Font Name

GetTextFace(hdc, _countof(default_font_name) - 1, default_font_name); // -1 just in case, like AutoIt3.

}

CyPixels = GetDeviceCaps(hdc, LOGPIXELSY); // For Some Font Size Math

DeleteDC(hdc);

//strcpy(default_font_name,vParams[7].szValue()); // Font Name

//nSize = vParams[8].nValue(); // Font Size

//if ( vParams[9].nValue() >= 0 && vParams[9].nValue() <= 1000 )

// nWeight = vParams[9].nValue(); // Font Weight

g_hFontSplash = CreateFont(0-(nSize*CyPixels)/72,0,0,0,nWeight,0,0,0,DEFAULT_CHARSET,

OUT_TT_PRECIS,CLIP_DEFAULT_PRECIS,PROOF_QUALITY,FF_DONTCARE,default_font_name); // Create Font

// The font is deleted when by g_script's destructor.

}

SendMessage(static_win, WM_SETFONT, (WPARAM)g_hFontSplash, MAKELPARAM(TRUE, 0)); // Do Font

ShowWindow(g_hWndSplash, SW_SHOWNOACTIVATE); // Show the Splash

// Doesn't help with the brief delay in updating the window that happens when

// something like URLDownloadToFile is used immediately after SplashTextOn:

//InvalidateRect(g_hWndSplash, NULL, TRUE);

// But this does, but for now it seems unnecessary since the user can always do

// a manual sleep in the extremely rare cases this ever happens (even when it does

// happen, the window updates eventually, after the download starts, at least on

// my system. Update: Might as well do it since it's a little nicer this way

// (the text appears more quickly when the command after the splash is something

// that might keep our thread tied up and unable to check messages).

SLEEP_WITHOUT_INTERRUPTION(-1)

// UpdateWindow() would probably achieve the same effect as the above, but it feels safer to do

// the above because it ensures that our message queue is empty prior to returning to our caller.

return OK;

, LPTSTR aMenu3, LPTSTR aMenu4, LPTSTR aMenu5, LPTSTR aMenu6, LPTSTR aMenu7

, LPTSTR aExcludeTitle, LPTSTR aExcludeText)

{

// Set up a temporary array make it easier to traverse nested menus & submenus

// in a loop. Also add a NULL at the end to simplify the loop a little:

LPTSTR menu_param[] = {aMenu1, aMenu2, aMenu3, aMenu4, aMenu5, aMenu6, aMenu7, NULL};

HWND target_window = DetermineTargetWindow(aTitle, aText, aExcludeTitle, aExcludeText);

if (!target_window)

goto error;

int first_menu_param = 0;

UINT message = WM_COMMAND;

HMENU hMenu;

if (!_tcsicmp(aMenu1, _T("0&")))

{

hMenu = GetSystemMenu(target_window, FALSE);

first_menu_param = 1;

message = WM_SYSCOMMAND;

}

else

hMenu = GetMenu(target_window);

if (!hMenu) // Window has no menu bar.

goto error;

int menu_item_count = GetMenuItemCount(hMenu);

if (menu_item_count < 1) // Menu bar has no menus.

goto error;

#define MENU_ITEM_IS_SUBMENU 0xFFFFFFFF

#define UPDATE_MENU_VARS(menu_pos) \

menu_id = GetMenuItemID(hMenu, menu_pos);\

if (menu_id == MENU_ITEM_IS_SUBMENU)\

menu_item_count = GetMenuItemCount(hMenu = GetSubMenu(hMenu, menu_pos));\

else\

{\

menu_item_count = 0;\

hMenu = NULL;\

}

UINT menu_id = MENU_ITEM_IS_SUBMENU;

TCHAR menu_text[1024];

bool match_found;

size_t this_menu_param_length, menu_text_length;

int pos, target_menu_pos;

LPTSTR this_menu_param;

for (int i = first_menu_param; ; i)

{

this_menu_param = menu_param[i]; // For performance and convenience.

if (!(this_menu_param && *this_menu_param))

break;

if (!hMenu) // The nesting of submenus ended prior to the end of the list of menu search terms.

goto error;

this_menu_param_length = _tcslen(this_menu_param);

target_menu_pos = (this_menu_param[this_menu_param_length - 1] == '&') ? ATOI(this_menu_param) - 1 : -1;

if (target_menu_pos > -1)

{

if (target_menu_pos >= menu_item_count) // Invalid menu position (doesn't exist).

goto error;

UPDATE_MENU_VARS(target_menu_pos)

}

else // Searching by text rather than numerical position.

{

for (match_found = false, pos = 0; pos < menu_item_count; pos)

{

menu_text_length = GetMenuString(hMenu, pos, menu_text, _countof(menu_text) - 1, MF_BYPOSITION);

// v1.0.43.03: It's debatable, but it seems best to support locale's case insensitivity for

// menu items, since menu names tend to adapt to the user's locale. By contrast, things

// like process names (in the Process command) do not tend to change, so it seems best to

// have them continue to use stricmp(): 1) avoids breaking existing scripts; 2) provides

// consistent behavior across multiple locales; 3) performance.

match_found = !lstrcmpni(menu_text // This call is basically a strnicmp() that obeys locale.

, menu_text_length > this_menu_param_length ? this_menu_param_length : menu_text_length

, this_menu_param, this_menu_param_length);

//match_found = strcasestr(menu_text, this_menu_param);

if (!match_found)

{

// Try again to find a match, this time without the ampersands used to indicate

// a menu item's shortcut key:

StrReplace(menu_text, _T("&"), _T(""), SCS_SENSITIVE);

menu_text_length = _tcslen(menu_text);

match_found = !lstrcmpni(menu_text // This call is basically a strnicmp() that obeys locale.

, menu_text_length > this_menu_param_length ? this_menu_param_length : menu_text_length

, this_menu_param, this_menu_param_length);

//match_found = strcasestr(menu_text, this_menu_param);

}

if (match_found)

{

UPDATE_MENU_VARS(pos)

break;

}

} // inner for()

if (!match_found) // The search hierarchy (nested menus) specified in the params could not be found.

goto error;

} // else

} // outer for()

// This would happen if the outer loop above had zero iterations due to aMenu1 being NULL or blank,

// or if the caller specified a submenu as the target (which doesn't seem valid since an app would

// next expect to ever receive a message for a submenu?):

if (menu_id == MENU_ITEM_IS_SUBMENU)

goto error;

// Since the above didn't return, the specified search hierarchy was completely found.

PostMessage(target_window, message, (WPARAM)menu_id, 0);

return g_ErrorLevel->Assign(ERRORLEVEL_NONE); // Indicate success.

error:

return SetErrorLevelOrThrow();

, LPTSTR aExcludeTitle, LPTSTR aExcludeText)

// ATTACH_THREAD_INPUT has been tested to see if they help any of these work with controls

// in MSIE (whose Internet Explorer_TridentCmboBx2 does not respond to "Control Choose" but

// does respond to "Control Focus"). But it didn't help.

{

ControlCmds control_cmd = ConvertControlCmd(aCmd);

// Since command names are validated at load-time, this only happens if the command name

// was contained in a variable reference. Since that is very rare, just set ErrorLevel

// and return:

if (control_cmd == CONTROL_CMD_INVALID)

goto error;

HWND target_window = DetermineTargetWindow(aTitle, aText, aExcludeTitle, aExcludeText);

if (!target_window)

goto error;

HWND control_window = ControlExist(target_window, aControl); // This can return target_window itself for cases such as ahk_id %ControlHWND%.

if (!control_window)

goto error;

HWND immediate_parent; // Possibly not the same as target_window since controls can themselves have children.

int control_id, control_index;

DWORD_PTR dwResult, new_button_state;

UINT msg, x_msg, y_msg;

RECT rect;

LPARAM lparam;

vk_type vk;

int key_count;

TCHAR temp_buf[32];

switch(control_cmd)

{

case CONTROL_CMD_CHECK: // au3: Must be a Button

case CONTROL_CMD_UNCHECK:

{ // Need braces for ATTACH_THREAD_INPUT macro.

new_button_state = (control_cmd == CONTROL_CMD_CHECK) ? BST_CHECKED : BST_UNCHECKED;

if (!SendMessageTimeout(control_window, BM_GETCHECK, 0, 0, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

if (dwResult == new_button_state) // It's already in the right state, so don't press it.

break;

// MSDN docs for BM_CLICK (and au3 author says it applies to this situation also):

// "If the button is in a dialog box and the dialog box is not active, the BM_CLICK message

// might fail. To ensure success in this situation, call the SetActiveWindow function to activate

// the dialog box before sending the BM_CLICK message to the button."

ATTACH_THREAD_INPUT

SetActiveWindow(target_window == control_window ? GetNonChildParent(control_window) : target_window); // v1.0.44.13: Fixed to allow for the fact that target_window might be the control itself (e.g. via ahk_id %ControlHWND%).

if (!GetWindowRect(control_window, &rect)) // au3: Code to primary click the centre of the control

rect.bottom = rect.left = rect.right = rect.top = 0;

lparam = MAKELPARAM((rect.right - rect.left) / 2, (rect.bottom - rect.top) / 2);

PostMessage(control_window, WM_LBUTTONDOWN, MK_LBUTTON, lparam);

PostMessage(control_window, WM_LBUTTONUP, 0, lparam);

DETACH_THREAD_INPUT

break;

}

case CONTROL_CMD_ENABLE:

EnableWindow(control_window, TRUE);

break;

case CONTROL_CMD_DISABLE:

EnableWindow(control_window, FALSE);

break;

case CONTROL_CMD_SHOW:

ShowWindow(control_window, SW_SHOWNOACTIVATE); // SW_SHOWNOACTIVATE has been seen in some example code for this purpose.

break;

case CONTROL_CMD_HIDE:

ShowWindow(control_window, SW_HIDE);

break;

case CONTROL_CMD_STYLE:

case CONTROL_CMD_EXSTYLE:

{

if (!*aValue)

return OK; // Seems best not to treat an explicit blank as zero. Let ErrorLevel tell the story.

int style_index = (control_cmd == CONTROL_CMD_STYLE) ? GWL_STYLE : GWL_EXSTYLE;

DWORD new_style, orig_style = GetWindowLong(control_window, style_index);

// /-/^ are used instead of |&^ because the latter is confusing, namely that & really means &=~style, etc.

if (!_tcschr(_T(" -^"), *aValue)) // | and & are used instead of /- to allow /- to have their native function.

new_style = ATOU(aValue); // No prefix, so this new style will entirely replace the current style.

else

{

aValue; // Won't work combined with next line, due to next line being a macro that uses the arg twice.

DWORD style_change = ATOU(aValue);

switch(aValue[-1])

{

case ' ': new_style = orig_style | style_change; break;

case '-': new_style = orig_style & ~style_change; break;

case '^': new_style = orig_style ^ style_change; break;

}

}

if (new_style == orig_style) // v1.0.45.04: Ask for an unnecessary change (i.e. one that is already in effect) should not be considered an error.

return g_ErrorLevel->Assign(ERRORLEVEL_NONE); // Indicate success.

// Currently, BM_SETSTYLE is not done when GetClassName() says that the control is a button/checkbox/groupbox.

// This is because the docs for BM_SETSTYLE don't contain much, if anything, that anyone would ever

// want to change.

SetLastError(0); // Prior to SetWindowLong(), as recommended by MSDN.

if (SetWindowLong(control_window, style_index, new_style) || !GetLastError()) // This is the precise way to detect success according to MSDN.

{

// Even if it indicated success, sometimes it failed anyway. Find out for sure:

if (GetWindowLong(control_window, style_index) != orig_style) // Even a partial change counts as a success.

{

InvalidateRect(control_window, NULL, TRUE); // Quite a few styles require this to become visibly manifest.

return g_ErrorLevel->Assign(ERRORLEVEL_NONE); // Indicate success.

}

}

goto error; // As documented, DoControlDelay is not done for these.

}

case CONTROL_CMD_SHOWDROPDOWN:

case CONTROL_CMD_HIDEDROPDOWN:

// CB_SHOWDROPDOWN: Although the return value (dwResult) is always TRUE, SendMessageTimeout()

// will return failure if it times out:

if (!SendMessageTimeout(control_window, CB_SHOWDROPDOWN

, (WPARAM)(control_cmd == CONTROL_CMD_SHOWDROPDOWN)

, 0, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

break;

case CONTROL_CMD_TABLEFT:

case CONTROL_CMD_TABRIGHT: // must be a Tab Control

key_count = *aValue ? ATOI(aValue) : 1;

vk = (control_cmd == CONTROL_CMD_TABLEFT) ? VK_LEFT : VK_RIGHT;

lparam = (LPARAM)(vk_to_sc(vk) << 16);

for (int i = 0; i < key_count; i)

{

// DoControlDelay isn't done for every iteration because it seems likely that

// the Sleep(0) will take care of things.

PostMessage(control_window, WM_KEYDOWN, vk, lparam | 0x00000001);

SLEEP_WITHOUT_INTERRUPTION(0); // Au3 uses a Sleep(0).

PostMessage(control_window, WM_KEYUP, vk, lparam | 0xC0000001);

}

break;

case CONTROL_CMD_ADD:

if (!*aControl) // Fix for v1.0.46.11: If aControl is blank, the control ID came in via a WinTitle of "ahk_id xxx".

{

GetClassName(control_window, temp_buf, _countof(temp_buf));

aControl = temp_buf;

}

if (tcscasestr(aControl, _T("Combo"))) // v1.0.42: Changed to strcasestr vs. !strnicmp for TListBox/TComboBox.

msg = CB_ADDSTRING;

else if (tcscasestr(aControl, _T("List")))

msg = LB_ADDSTRING;

else

goto error; // Must be ComboBox or ListBox.

if (!SendMessageTimeout(control_window, msg, 0, (LPARAM)aValue, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

if (dwResult == CB_ERR || dwResult == CB_ERRSPACE) // General error or insufficient space to store it.

// CB_ERR == LB_ERR

goto error;

break;

case CONTROL_CMD_DELETE:

if (!*aValue)

goto error;

control_index = ATOI(aValue) - 1;

if (control_index < 0)

goto error;

if (!*aControl) // Fix for v1.0.46.11: If aControl is blank, the control ID came in via a WinTitle of "ahk_id xxx".

{

GetClassName(control_window, temp_buf, _countof(temp_buf));

aControl = temp_buf;

}

if (tcscasestr(aControl, _T("Combo"))) // v1.0.42: Changed to strcasestr vs. strnicmp for TListBox/TComboBox.

msg = CB_DELETESTRING;

else if (tcscasestr(aControl, _T("List")))

msg = LB_DELETESTRING;

else

goto error; // Must be ComboBox or ListBox.

if (!SendMessageTimeout(control_window, msg, (WPARAM)control_index, 0, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

if (dwResult == CB_ERR) // CB_ERR == LB_ERR

goto error;

break;

case CONTROL_CMD_CHOOSE:

if (!*aValue)

goto error;

control_index = ATOI(aValue) - 1;

if (control_index < 0)

goto error;

if (!*aControl) // Fix for v1.0.46.11: If aControl is blank, the control ID came in via a WinTitle of "ahk_id xxx".

{

GetClassName(control_window, temp_buf, _countof(temp_buf));

aControl = temp_buf;

}

if (tcscasestr(aControl, _T("Combo"))) // v1.0.42: Changed to strcasestr vs. strnicmp for TListBox/TComboBox.

{

msg = CB_SETCURSEL;

x_msg = CBN_SELCHANGE;

y_msg = CBN_SELENDOK;

}

else if (tcscasestr(aControl, _T("List")))

{

if (GetWindowLong(control_window, GWL_STYLE) & (LBS_EXTENDEDSEL|LBS_MULTIPLESEL))

msg = LB_SETSEL;

else // single-select listbox

msg = LB_SETCURSEL;

x_msg = LBN_SELCHANGE;

y_msg = LBN_DBLCLK;

}

else

goto error;

if (msg == LB_SETSEL) // Multi-select, so use the cumulative method.

{

if (!SendMessageTimeout(control_window, msg, TRUE, control_index, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

}

else // ComboBox or single-select ListBox.

if (!SendMessageTimeout(control_window, msg, control_index, 0, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

if (dwResult == CB_ERR) // CB_ERR == LB_ERR

goto error;

if ( !(immediate_parent = GetParent(control_window)) )

goto error;

if ( !(control_id = GetDlgCtrlID(control_window)) )

goto error;

if (!SendMessageTimeout(immediate_parent, WM_COMMAND, (WPARAM)MAKELONG(control_id, x_msg)

, (LPARAM)control_window, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

if (!SendMessageTimeout(immediate_parent, WM_COMMAND, (WPARAM)MAKELONG(control_id, y_msg)

, (LPARAM)control_window, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

// Otherwise break and do the end-function processing.

break;

case CONTROL_CMD_CHOOSESTRING:

if (!*aControl) // Fix for v1.0.46.11: If aControl is blank, the control ID came in via a WinTitle of "ahk_id xxx".

{

GetClassName(control_window, temp_buf, _countof(temp_buf));

aControl = temp_buf;

}

if (tcscasestr(aControl, _T("Combo"))) // v1.0.42: Changed to strcasestr vs. strnicmp for TListBox/TComboBox.

{

msg = CB_SELECTSTRING;

x_msg = CBN_SELCHANGE;

y_msg = CBN_SELENDOK;

}

else if (tcscasestr(aControl, _T("List")))

{

if (GetWindowLong(control_window, GWL_STYLE) & (LBS_EXTENDEDSEL|LBS_MULTIPLESEL))

msg = LB_FINDSTRING;

else // single-select listbox

msg = LB_SELECTSTRING;

x_msg = LBN_SELCHANGE;

y_msg = LBN_DBLCLK;

}

else

goto error; // Must be ComboBox or ListBox.

if (msg == LB_FINDSTRING) // Multi-select ListBox (LB_SELECTSTRING is not supported by these).

{

DWORD_PTR item_index;

if (!SendMessageTimeout(control_window, msg, -1, (LPARAM)aValue, SMTO_ABORTIFHUNG, 2000, &item_index)

|| item_index == LB_ERR

|| !SendMessageTimeout(control_window, LB_SETSEL, TRUE, item_index, SMTO_ABORTIFHUNG, 2000, &dwResult)

|| dwResult == LB_ERR) // Relies on short-circuit boolean.

goto error;

}

else // ComboBox or single-select ListBox.

if (!SendMessageTimeout(control_window, msg, -1, (LPARAM)aValue, SMTO_ABORTIFHUNG, 2000, &dwResult)

|| dwResult == CB_ERR) // CB_ERR == LB_ERR

goto error;

if ( !(immediate_parent = GetParent(control_window)) )

goto error;

SetLastError(0); // Must be done to differentiate between success and failure when control has ID 0.

control_id = GetDlgCtrlID(control_window);

if (!control_id && GetLastError()) // Both conditions must be checked (see above).

goto error; // Avoid sending the notification in case some other control has ID 0.

// Proceed even if control_id == 0, since some applications are known to

// utilize the notification in that case (e.g. Notepad's Save As dialog).

if (!SendMessageTimeout(immediate_parent, WM_COMMAND, (WPARAM)MAKELONG(control_id, x_msg)

, (LPARAM)control_window, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

if (!SendMessageTimeout(immediate_parent, WM_COMMAND, (WPARAM)MAKELONG(control_id, y_msg)

, (LPARAM)control_window, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

// Otherwise break and do the end-function processing.

break;

case CONTROL_CMD_EDITPASTE:

if (!SendMessageTimeout(control_window, EM_REPLACESEL, TRUE, (LPARAM)aValue, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

// Note: dwResult is not used by EM_REPLACESEL since it doesn't return a value.

break;

} // switch()

DoControlDelay; // Seems safest to do this for all of these commands.

return g_ErrorLevel->Assign(ERRORLEVEL_NONE); // Indicate success.

error:

return SetErrorLevelOrThrow();

, LPTSTR aExcludeTitle, LPTSTR aExcludeText)

{

Var &output_var = *OUTPUT_VAR;

ControlGetCmds control_cmd = ConvertControlGetCmd(aCmd);

// Since command names are validated at load-time, this only happens if the command name

// was contained in a variable reference. Since that is very rare, just set ErrorLevel

// and return:

if (control_cmd == CONTROLGET_CMD_INVALID)

goto error;

HWND target_window = DetermineTargetWindow(aTitle, aText, aExcludeTitle, aExcludeText);

if (!target_window)

goto error;

HWND control_window = ControlExist(target_window, aControl); // This can return target_window itself for cases such as ahk_id %ControlHWND%.

if (!control_window)

goto error;

DWORD_PTR dwResult, index, length, item_length, u, item_count;

DWORD start, end;

UINT msg, x_msg, y_msg;

int control_index;

TCHAR *cp, *dyn_buf, temp_buf[32];

switch(control_cmd)

{

case CONTROLGET_CMD_CHECKED: //Must be a Button

if (!SendMessageTimeout(control_window, BM_GETCHECK, 0, 0, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

output_var.Assign(dwResult == BST_CHECKED ? _T("1") : _T("0"));

break;

case CONTROLGET_CMD_ENABLED:

output_var.Assign(IsWindowEnabled(control_window) ? _T("1") : _T("0"));

break;

case CONTROLGET_CMD_VISIBLE:

output_var.Assign(IsWindowVisible(control_window) ? _T("1") : _T("0"));

break;

case CONTROLGET_CMD_TAB: // must be a Tab Control

if (!SendMessageTimeout(control_window, TCM_GETCURSEL, 0, 0, SMTO_ABORTIFHUNG, 2000, &index) || index == -1) // Relies on short-circuit boolean order.

goto error;

output_var.Assign(index 1);

break;

case CONTROLGET_CMD_FINDSTRING:

if (!*aControl) // Fix for v1.0.46.11: If aControl is blank, the control ID came in via a WinTitle of "ahk_id xxx".

{

GetClassName(control_window, temp_buf, _countof(temp_buf));

aControl = temp_buf;

}

if (tcscasestr(aControl, _T("Combo"))) // v1.0.42: Changed to strcasestr vs. strnicmp for TListBox/TComboBox.

msg = CB_FINDSTRINGEXACT;

else if (tcscasestr(aControl, _T("List")))

msg = LB_FINDSTRINGEXACT;

else // Must be ComboBox or ListBox

goto error;

if (!SendMessageTimeout(control_window, msg, -1, (LPARAM)aValue, SMTO_ABORTIFHUNG, 2000, &index)

|| index == CB_ERR) // CB_ERR == LB_ERR

goto error;

output_var.Assign(index 1);

break;

case CONTROLGET_CMD_CHOICE:

if (!*aControl) // Fix for v1.0.46.11: If aControl is blank, the control ID came in via a WinTitle of "ahk_id xxx".

{

GetClassName(control_window, temp_buf, _countof(temp_buf));

aControl = temp_buf;

}

if (tcscasestr(aControl, _T("Combo"))) // v1.0.42: Changed to strcasestr vs. strnicmp for TListBox/TComboBox.

{

msg = CB_GETCURSEL;

x_msg = CB_GETLBTEXTLEN;

y_msg = CB_GETLBTEXT;

}

else if (tcscasestr(aControl, _T("List")))

{

msg = LB_GETCURSEL;

x_msg = LB_GETTEXTLEN;

y_msg = LB_GETTEXT;

}

else // Must be ComboBox or ListBox

return output_var.Assign(); // Let ErrorLevel tell the story.

if (!SendMessageTimeout(control_window, msg, 0, 0, SMTO_ABORTIFHUNG, 2000, &index)

|| index == CB_ERR // CB_ERR == LB_ERR. There is no selection (or very rarely, some other type of problem).

|| !SendMessageTimeout(control_window, x_msg, (WPARAM)index, 0, SMTO_ABORTIFHUNG, 2000, &length)

|| length == CB_ERR) // CB_ERR == LB_ERR

goto error; // Above relies on short-circuit boolean order.

// In unusual cases, MSDN says the indicated length might be longer than it actually winds up

// being when the item's text is retrieved. This should be harmless, since there are many

// other precedents where a variable is sized to something larger than it winds up carrying.

// Set up the var, enlarging it if necessary. If the output_var is of type VAR_CLIPBOARD,

// this call will set up the clipboard for writing:

if (output_var.AssignString(NULL, (VarSizeType)length) != OK) // It already displayed the error.

return FAIL;

if (!SendMessageTimeout(control_window, y_msg, (WPARAM)index, (LPARAM)output_var.Contents()

, SMTO_ABORTIFHUNG, 2000, &length)

|| length == CB_ERR) // Probably impossible given the way it was called above. Also, CB_ERR == LB_ERR. Relies on short-circuit boolean order.

{

output_var.Close();

goto error;

}

output_var.Close(); // Must be called after Assign(NULL, ...) or when Contents() has been altered because it updates the variable's attributes and properly handles VAR_CLIPBOARD.

output_var.SetCharLength(length); // Update to actual vs. estimated length.

break;

case CONTROLGET_CMD_LIST:

if (!*aControl) // Fix for v1.0.46.11: If aControl is blank, the control ID came in via a WinTitle of "ahk_id xxx".

{

GetClassName(control_window, temp_buf, _countof(temp_buf));

aControl = temp_buf;

}

//if (!_tcsnicmp(aControl, _T("SysListView32"), 13)) // Tried strcasestr(aControl, "ListView") to get it to work with IZArc's Delphi TListView1, but none of the modes or options worked.

if (tcscasestr(aControl, _T("SysListView32"))) // Some users said this works with "WindowsForms10.SysListView32"

return ControlGetListView(output_var, control_window, aValue); // It will also set ErrorLevel to "success" if successful.

// This is done here as the special LIST sub-command rather than just being built into

// ControlGetText because ControlGetText already has a function for ComboBoxes: it fetches

// the current selection. Although ListBox does not have such a function, it seem best

// to consolidate both methods here.

if (tcscasestr(aControl, _T("Combo"))) // v1.0.42: Changed to strcasestr vs. strnicmp for TListBox/TComboBox.

{

msg = CB_GETCOUNT;

x_msg = CB_GETLBTEXTLEN;

y_msg = CB_GETLBTEXT;

}

else if (tcscasestr(aControl, _T("List")))

{

msg = LB_GETCOUNT;

x_msg = LB_GETTEXTLEN;

y_msg = LB_GETTEXT;

}

else // Must be ComboBox or ListBox

goto error;

if (!(SendMessageTimeout(control_window, msg, 0, 0, SMTO_ABORTIFHUNG, 5000, &item_count))

|| item_count < 1) // No items in ListBox/ComboBox or there was a problem getting the count.

goto error;

// Calculate the length of delimited list of items. Length is initialized to provide enough

// room for each item's delimiter (the last item does not have a delimiter).

for (length = item_count - 1, u = 0; u < item_count; u)

{

if (!SendMessageTimeout(control_window, x_msg, u, 0, SMTO_ABORTIFHUNG, 5000, &item_length)

|| item_length == LB_ERR) // Note that item_length is legitimately zero for a blank item in the list.

return output_var.Assign(); // Let ErrorLevel tell the story.

length = item_length;

}

// In unusual cases, MSDN says the indicated length might be longer than it actually winds up

// being when the item's text is retrieved. This should be harmless, since there are many

// other precedents where a variable is sized to something larger than it winds up carrying.

// Set up the var, enlarging it if necessary. If the output_var is of type VAR_CLIPBOARD,

// this call will set up the clipboard for writing:

if (output_var.AssignString(NULL, (VarSizeType)length, true, true) != OK)

return FAIL; // It already displayed the error.

for (cp = output_var.Contents(), length = item_count - 1, u = 0; u < item_count; u)

{

if (SendMessageTimeout(control_window, y_msg, (WPARAM)u, (LPARAM)cp, SMTO_ABORTIFHUNG, 5000, &item_length)

&& item_length != LB_ERR)

{

length = item_length; // Accumulate actual vs. estimated length.

cp = item_length; // Point it to the terminator in preparation for the next write.

}

//else do nothing, just consider this to be a blank item so that the process can continue.

if (u < item_count - 1)

*cp = '\n'; // Add delimiter after each item except the last (helps parsing loop).

// Above: In this case, seems better to use \n rather than pipe as default delimiter in case

// the listbox/combobox contains any real pipes.

}

output_var.Close(); // Must be called after Assign(NULL, ...) or when Contents() has been altered because it updates the variable's attributes and properly handles VAR_CLIPBOARD.

output_var.SetCharLength(length); // Update it to the actual length, which can vary from the estimate.

break;

case CONTROLGET_CMD_LINECOUNT: //Must be an Edit

// MSDN: "If the control has no text, the return value is 1. The return value will never be less than 1."

if (!SendMessageTimeout(control_window, EM_GETLINECOUNT, 0, 0, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

output_var.Assign(dwResult);

break;

case CONTROLGET_CMD_CURRENTLINE:

if (!SendMessageTimeout(control_window, EM_LINEFROMCHAR, -1, 0, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

output_var.Assign(dwResult 1);

break;

case CONTROLGET_CMD_CURRENTCOL:

{

DWORD_PTR line_number;

// The dwResult from the first msg below is not useful and is not checked.

if ( !SendMessageTimeout(control_window, EM_GETSEL, (WPARAM)&start, (LPARAM)&end, SMTO_ABORTIFHUNG, 2000, &dwResult)

|| !SendMessageTimeout(control_window, EM_LINEFROMCHAR, (WPARAM)start, 0, SMTO_ABORTIFHUNG, 2000, &line_number) )

goto error;

if (!line_number) // Since we're on line zero, the column number is simply start 1.

{

output_var.Assign(start 1); // 1 to convert from zero based.

break; // Fall out of the switch so that ErrorLevel will be set to 0 (no error).

}

// Au3: Decrement the character index until the row changes. Difference between this

// char index and original is the column:

DWORD_PTR start_orig = start; // Au3: the character index

for (;;)

{

if (!SendMessageTimeout(control_window, EM_LINEFROMCHAR, (WPARAM)start, 0, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

if (dwResult != line_number)

break;

--start;

}

output_var.Assign((int)(start_orig - start));

break;

}

case CONTROLGET_CMD_LINE:

if (!*aValue)

goto error;

control_index = ATOI(aValue) - 1;

if (control_index < 0)

goto error;

// jackieku: 32768 * sizeof(wchar_t) = 65536, which can not be stored in a unsigned 16bit integer.

dyn_buf = (LPTSTR)talloca(32767); // 32768 is the size Au3 uses for GETLINE and such.

*(LPWORD)dyn_buf = 32767; // EM_GETLINE requires first word of string to be set to its size.

if ( !SendMessageTimeout(control_window, EM_GETLINE, (WPARAM)control_index, (LPARAM)dyn_buf, SMTO_ABORTIFHUNG, 2000, &dwResult)

|| !dwResult ) // due to the specified line number being greater than the number of lines in the edit control.

goto error;

dyn_buf[dwResult] = '\0'; // Ensure terminated since the API might not do it in some cases.

output_var.Assign(dyn_buf);

break;

case CONTROLGET_CMD_SELECTED: // Must be an Edit.

// Note: The RichEdit controls of certain apps such as Metapad don't return the right selection

// with this technique. Au3 has the same problem with them, so for now it's just documented here

// as a limitation.

if (!SendMessageTimeout(control_window, EM_GETSEL, (WPARAM)&start, (LPARAM)&end, SMTO_ABORTIFHUNG, 2000, &dwResult))

goto error;

// The above sets start to be the zero-based position of the start of the selection (similar for end).

// If there is no selection, start and end will be equal, at least in the edit controls I tried it with.

// The dwResult from the above is not useful and is not checked.

if (start == end) // Unlike Au3, it seems best to consider a blank selection to be a non-error.

{

output_var.Assign();

break; // Fall out of the switch so that ErrorLevel will be set to 0 (no error).

}

// Dynamic memory is used because must get all the control's text so that just the selected region

// can be cropped out and assigned to the output variable. Otherwise, output_var might

// have to be sized much larger than it would need to be:

if ( !SendMessageTimeout(control_window, WM_GETTEXTLENGTH, 0, 0, SMTO_ABORTIFHUNG, 2000, &length)

|| !length // Since the above didn't return for start == end, this is an error because we have a selection of non-zero length, but no text to go with it!

|| !(dyn_buf = tmalloc(length 1)) ) // Relies on short-circuit boolean order.

goto error;

if ( !SendMessageTimeout(control_window, WM_GETTEXT, (WPARAM)(length 1), (LPARAM)dyn_buf, SMTO_ABORTIFHUNG, 2000, &length)

|| !length || end > length )

{

// The first check above is reveals a problem (ErrorLevel = 1) since the length

// is unexpectedly zero (above implied it shouldn't be). The second check is also

// a problem because the end of the selection should not be beyond length of text

// that was retrieved.

free(dyn_buf);

goto error;

}

dyn_buf[end] = '\0'; // Terminate the string at the end of the selection.

output_var.Assign(dyn_buf start);

free(dyn_buf);

break;

case CONTROLGET_CMD_STYLE:

// Seems best to always format as hex, since it has more human-readable meaning then:

_stprintf(temp_buf, _T("0xX"), GetWindowLong(control_window, GWL_STYLE));

output_var.Assign(temp_buf);

break;

case CONTROLGET_CMD_EXSTYLE:

// Seems best to always format as hex, since it has more human-readable meaning then:

_stprintf(temp_buf, _T("0xX"), GetWindowLong(control_window, GWL_EXSTYLE));

output_var.Assign(temp_buf);

break;

case CONTROLGET_CMD_HWND:

// The terminology "HWND" was chosen rather than "ID" to avoid confusion with a control's

// dialog ID (as retrieved by GetDlgCtrlID). This also reserves the word ID for possible

// use with the control's Dialog ID in future versions.

output_var.AssignHWND(control_window);

break;

}

// Note that ControlDelay is not done for the Get type commands, because it seems unnecessary.

return g_ErrorLevel->Assign(ERRORLEVEL_NONE); // Indicate success.

error:

output_var.Assign();

return SetErrorLevelOrThrow();

{

// Check that we have IE3 and access to wininet.dll

HINSTANCE hinstLib = LoadLibrary(_T("wininet"));

if (!hinstLib)

return SetErrorLevelOrThrow();