如何在記事本++中創建“即時消息”-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