vbs获取当前活动窗口标题

Posted 2023-03-18

如题，用下列代码并没成功获取
===========================
wscript.sleep 5000
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks

For Each objTask in colTasks
If objTask.Visible Then
Wscript.Echo objTask.Name
Exit For
End If
Next
objWord.Quit
======================================
请高人指教

参考技术A 函数功能：该函数将指定窗口的标题条文本（如果存在）拷贝到一个缓存区内。如果指定的窗口是一个控制，则拷贝控制的文本。但是，GetWindowTeXt不能接收在其他应用程序中的控制文本。

函数原型：Int GetWindowText（HWND hWnd，LPTSTR lpString，Int nMaxCount）；

参数：

hWnd:带文本的窗口或控制的句柄。

IpString：指向接收文本的缓冲区的指针。

nMaxCount:指定要保存在缓冲区内的字符的最大个数，其中包含NULL字符。如果文本超过界限，它就被截断。

返回值：如果函数成功，返回值是拷贝的字符串的字符个数，不包括中断的空字符；如果窗口无标题栏或文本，或标题栏为空，或窗口或控制的句柄无效，则返回值为零。若想获得更多错误信息，请调用GetLastError函数。

函数不能返回在其他应用程序中的编辑控制的文本。

备注：如果目标窗口属于当前进程，GetWindowText函数给指定的窗口或控制发送WM_GETTEXT消息。如果目标窗口属于其他进程，并且有一个窗口标题，则GetWindowTeXt返回窗口的标题文本，如果窗口无标题，则函数返回空字符串。本回答被提问者采纳

vbs如何获取cmd窗口中特定字符串

如图，我怎么获取红色框框内的ip地址：

参考技术A Set ws = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
ws.Run "cmd /c ping -n 1 -w 1 www.baidu.com>""%tmp%\\a.tmp""", 0, True
'-n 1 -w 1 参数缩短ping时间
Set f = FSO.OpenTextFile(ws.ExpandEnvironmentStrings("%tmp%") & "\\a.tmp")
If Not f.AtEndOfStream Then
  MsgBox Split(Split(f.ReadAll, "[")(1), "]")(0)
End If

参考技术B 我觉得你最好在cmd上做文章
比如 ping www.baidu.com >>测试.txt
然后再读取 测试.txt