我想做一件在概念上很简单的事情:对于每个接受键盘输入的控件(CEdit、带有可编辑文本的 CCombobox 等),当控件获得焦点并启用时,使屏幕键盘出现。最好具有可访问性支持(我已经阅读了一些有关 Microsoft 用户界面自动化的资料),而不是直接调用 osk.exe 实用程序。
当用户将焦点放在可编辑控件上时,它非常类似于触摸屏智能手机。
更新:如果有一个 Windows 选项可以使屏幕键盘按照我描述的方式运行,那很好!
更新 2:我想要的东西类似于http://msdn.microsoft.com/en-us/library/windows/apps/hh465404.aspx,但在 Windows 7 中。
我已经对 IUIAutomation 类进行了实验,在聚焦可编辑控件时直接调用 osk.exe,并在聚焦不可编辑控件时关闭该窗口。
但是,我仍然有三个问题:
1) 当打开一个 CFileDialog 应用程序变得无响应时。仅应用程序的另一个模态对话框发生同样的情况(在每个其他模态对话框中一切正常)。我发现 CFileDialog 打开了一些后台线程和我唯一有问题的模式。我怀疑这与线程问题有关。
2)当一些其他控件被聚焦时,然后我直接单击 CBS_DROPDOWN 组合框的下拉按钮,而不是选择它的编辑控件,我看到 OSK 出现和消失。使用 Spy++ 和 UIA Inspect 我怀疑文本编辑在组合框进入删除状态之前被聚焦。
3)用SetWindowPos做了一些实验后,MoveWindow
::MoveWindow(osk_wnd->m_hWnd, LeftOsk, TopOsk, -1, -1, FALSE);
或者
osk_wnd->SetWindowPos(NULL, LeftOsk, TopOsk, -1, -1, SWP_NOSIZE | SWP_NOACTIVATE);
并使用一些消息处理实验,如
//osk_wnd is a CWnd* variable that represents OSK main window
osk_wnd->PostMessage(WM_SYSCOMMAND, SC_MOVE + HTCAPTION, MAKELPARAM(point.x, point.y));
或者
POINT point = {0};
GetCursorPos(&point);
SendMessage(osk_wnd->m_hWnd, WM_NCLBUTTONDOWN, HTCAPTION, MAKELPARAM(point.x, point.y));
SendMessage(osk_wnd->m_hWnd, WM_NCMOUSEMOVE, HTCAPTION, MAKELPARAM(LeftOsk, TopOsk));
GetCursorPos(&point);
SendMessage(osk_wnd->m_hWnd, WM_NCLBUTTONUP, HTCAPTION, MAKELPARAM(LeftOsk + point.x, TopOsk + point.y));
我无法移动 OSK 窗口。我能移动它很重要;否则,它会出现覆盖焦点控件,并且用户看不到他给控件的输入!旁注:以下用于最小化 OSK 窗口的代码完美运行:
if(osk_wnd->IsIconic())
osk_wnd->PostMessage(WM_SYSCOMMAND, SC_RESTORE, NULL);
即使尝试使用此 AutoIt 脚本移动该窗口也无济于事:
If WinActivate("[CLASS:OSKMainClass]") Then
If WinWaitActive("[CLASS:OSKMainClass]") Then
ConsoleWrite("activ" & @CRLF)
Sleep(500)
If WinMove("[CLASS:OSKMainClass]", "", 30 ,320,360,123) Then
ConsoleWrite("move 1" & @CRLF)
EndIf
EndIf
EndIf
If WinMove("[CLASS:OSKMainClass]", "", 30 ,320,360,123) Then
ConsoleWrite("move 2" & @CRLF)
EndIf
我看到文字
激活
移动 1
移动 2
正在打印,但 OSK 窗口没有被移动到任何地方。也许它正在积极拒绝定位指令。
我试过这个 AutoIt 脚本来移动 Tabtip.exe 窗口,但它也失败了。我试过这个脚本来移动 Visual Studio 命令提示符的窗口,它移动了!GRRRRR!
更新 3:在我看来,这与用户访问控制和权限有关。如果我禁用用户访问控制或以管理员身份运行应用程序,则 MoveWindow 指令可以完美运行!这同样适用于 AutoIt 试图移动 OSKMainCLASS 窗口!那么,Windows 7 中是否有一些本地或组策略允许我对 OSK 应用程序进行例外处理?
4) 为了让 osk.exe 在 64 位操作系统上运行,我尝试了所有不强制禁用 SysWOW64 重定向的方法,但我无法摆脱它。到目前为止,我没有看到任何问题,但也许下面的代码将来会导致问题。
const int sysDirNameSize= 1024;
TCHAR sysDir[sysDirNameSize];
if( !GetSystemDirectory( sysDir, sysDirNameSize) )
{
ASSERT(FALSE);
return;
}
CString osk_path = CString(sysDir) + _T("\\osk.exe");
PVOID pOldValue = NULL;
BOOL bRes= Wow64DisableWow64FsRedirection(&pOldValue);
::ShellExecute(NULL, NULL, osk_path, _T("") , sysDir, SW_SHOW);
if(bRes)
Wow64RevertWow64FsRedirection(pOldValue);
更新 5:似乎我上次尝试执行 osk.exe 进程开始,但它的窗口没有出现!要将值归因于 osk_wnd,我有一个函数可以遍历 CWnd::GetDesktopWindow() 的所有 GW_CHILD 窗口来搜索 GetClassName(...) 为“OSKMainClass”但没有找到的那个!