vbs修改外部应用程序的窗口标题

可以使用以下代码来修改外部应用程序的窗口标题：

Set objShell = CreateObject("Shell.Application")
Set objWindows = objShell.Windows

' 循环遍历所有打开的窗口
For Each window in objWindows
    ' 判断窗口标题是否匹配
    If InStr(window.Name, "窗口标题关键词") > 0 Then
        ' 修改窗口标题
        window.Document.Title = "新窗口标题"
    End If
Next

其中，将“窗口标题关键词”替换为需要修改标题的应用程序的窗口标题中的关键词，将“新窗口标题”替换为需要设置的新窗口标题。请注意，这种方法只适用于一些特殊的应用程序，对于大部分普通的应用程序是无效的。

相关问题

vbs修改外部应用程序WMRO.exe的窗口标题

可以使用以下 VBS 代码修改外部应用程序 WMRO.exe 的窗口标题：

Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'WMRO.exe'")

For Each objProcess in colProcesses
    intPID = objProcess.ProcessId
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "taskkill /f /pid " & intPID, 0, True
Next

WshShell.Run "WMRO.exe", 1, False

WScript.Sleep 1000

Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "WMRO"
WshShell.SendKeys "new title"

这段代码首先使用 WMI 获取外部应用程序 WMRO.exe 的进程 ID，然后使用 `taskkill` 命令结束该进程。接着使用 `WshShell.Run` 命令启动 WMRO.exe，等待一段时间后使用 `WshShell.AppActivate` 命令激活 WMRO 窗口，并使用 `WshShell.SendKeys` 命令发送新的窗口标题。

vbs打开并修改WMRO.exe的窗口标题

你可以使用下面的 VBScript 代码来打开 WMRO.exe 并修改其窗口标题：

Set WshShell = CreateObject("WScript.Shell")

'打开 WMRO.exe
WshShell.Run "C:\path\to\WMRO.exe"

'等待 1 秒以确保 WMRO.exe 加载完成
WScript.Sleep 1000

'获取 WMRO.exe 的窗口句柄
hwnd = WshShell.AppActivate("WMRO")

'修改窗口标题
WshShell.SendKeys "%{SPACE}ep"

'最小化窗口
WshShell.SendKeys "% n"

'恢复窗口
WshShell.SendKeys "% r"

这段代码中，我们首先创建了一个 WshShell 对象，然后使用其 Run 方法来打开 WMRO.exe。接着，我们使用 WScript.Sleep 方法等待 1 秒钟，以确保 WMRO.exe 加载完成。然后，我们使用 WshShell.AppActivate 方法获取 WMRO.exe 的窗口句柄，并使用 WshShell.SendKeys 方法来向该窗口发送按键事件，从而修改其窗口标题。最后，我们还使用 WshShell.SendKeys 方法将窗口最小化并恢复。

请注意，代码中的“C:\path\to\WMRO.exe”应替换为你实际安装 WMRO.exe 的路径。此外，你可能需要根据 WMRO.exe 的界面来修改 SendKeys 方法发送的按键事件，以确保正确地修改窗口标题。