Windows系统下如何用R脚本检测活动窗口及文本框名称？

一、检测目标窗口是否已打开 #

结合你已知的getWindowsHandles(which = "all")，可以通过匹配窗口标题判断目标窗口是否存在：

library(KeyboardSimulator)
# 替换为你的目标窗口标题
target_window <- "目标窗口标题"
all_windows <- getWindowsHandles(which = "all")

# 检查目标窗口是否在已打开列表中
window_exists <- target_window %in% names(all_windows)
if(window_exists) {
  cat("目标窗口已打开\n")
} else {
  cat("目标窗口未打开\n")
}

二、获取当前活动窗口 #

KeyboardSimulator可以调用Windows API获取活动窗口句柄，再转成窗口名称：

# 获取活动窗口的句柄
active_handle <- getForegroundWindow()
# 将句柄转换为窗口标题
active_window_name <- getName(active_handle)
cat("当前活动窗口：", active_window_name, "\n")

三、模拟Alt+Tab切换到目标窗口 #

确认窗口存在后，通过组合按键模拟切换，还可以循环检测确保切换到目标窗口：

if(window_exists) {
  # 按住Alt，按Tab触发窗口切换列表
  key_down("alt")
  key_press("tab")
  # 循环按Tab直到目标窗口成为活动窗口
  repeat {
    Sys.sleep(0.2) # 给系统响应时间
    current_active <- getName(getForegroundWindow())
    if(current_active == target_window) break
    key_press("tab")
  }
  key_up("alt") # 松开Alt键
}

四、文本框定位的解决方案 #

KeyboardSimulator本身没有控件识别能力，无法直接获取文本框名称，可通过以下方式定位：

• Tab键导航：提前测试从窗口激活到目标文本框需要按Tab的次数，直接模拟对应次数的Tab按键：

  # 假设需要按3次Tab定位到目标文本框
  for(i in 1:3) {
    key_press("tab")
    Sys.sleep(0.1)
  }
  

• 进阶控件定位：如果需要精准识别控件，可搭配RDCOMClient包调用Windows UI自动化接口，不过需要熟悉COM对象的基本操作逻辑。

内容的提问来源于stack exchange，提问作者user3009918