Loops 如何创建；即时通讯“；在记事本中++；-VBScript

作为过去和几个朋友在一起的一段时间，我正试图通过记事本++实现一种“即时消息传递”

设置如下所示： 三台计算机连接在一个网络上。在计算机2上，其目录中有记事本+。在计算机3上，有VBScript和文本文件（在记事本++中打开）。 Notepad++中的“F5”键已分别反弹为“从磁盘重新加载”

我们的目标是让Notepad++每隔2秒左右刷新一次，但只在Notepad++中刷新，即使在后台也是如此。VBScript将在Notepad++关闭时关闭

VBScript如下所示（请记住，我以前没有使用VBScript的经验；除了主要缺陷外）：

记事本++将打开文本文件并开始F5循环。但是，无论Notepad++是否为活动窗口，F5都将继续，并且脚本不会在Notepad++关闭时关闭

我确实错过了一些东西，但经过几个小时的研究和实验，我找不到解决办法

仅使用VBScript就可以实现这些结果吗

AppActivate（）

如果调用成功（如果找到并激活了窗口），则返回

True

。使用该返回值确定是继续刷新还是关闭脚本

Do While oShell.AppActivate("\\08-111096-CISCO\Users\Straka.J\Downloads\Notepad++\notepad++.exe")

    oShell.SendKeys "{F5}"
    WScript.Sleep 2000

Loop

' Script exit

Do While oShell.AppActivate("\\08-111096-CISCO\Users\Straka.J\Downloads\Notepad++\notepad++.exe")

    oShell.SendKeys "{F5}"
    WScript.Sleep 2000

Loop

' Script exit