如何在记事本++中创建“即时消息”-VBScript

Question

作为过去与几个朋友在一起的时间，我正在尝试通过notepad ++进行某种“即时消息传递”。

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

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

VBScript如下（请记住，我以前没有使用VBScript的经验；预计会有重大缺陷）：

strFileName = "\\08-111096-CISCO\Users\Straka.J\Downloads\Notepad++"  
Dim oShell

set oShell = CreateObject("wScript.Shell")  
oShell.Run "notepad++ ""\\08-111099-CISCO\Users\Javorsky.G\Downloads\New Text Document.txt"""  
oShell.AppActivate "\\08-111096-CISCO\Users\Straka.J\Downloads\Notepad++\notepad++.exe"  
Do    
    WScript.Sleep 500  
    oShell.SendKeys "{F5}"  
    wScript.Sleep 2000  
Loop Until Quit  

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

我当然会缺少一些东西，但是经过几个小时的研究和实验，我找不到解决方案。

仅使用VBScript是否有可能获得这些结果？

Answer 1

如果调用成功（如果找到并激活了窗口），则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