是否有可能從另一個批處理文件（CMD）更改批處理文件（CMD）的標題

Question

因此，我喜歡現在和時間做小batch-file遊戲，並且爲此我希望標題具有動畫效果。我無法想出一種方法來改變另一個batch文件（CMD）的標題。如果你們中的一個人能夠幫助我，那將是一件好事，因爲這將是這場比賽的最後一擊。

Answer 1

您需要調用Windows的API。這是如何製作標題欄更改程序。

使用記事本創建一個文件，並將其命名爲SetText.bas。將其存儲在桌面上。

將其粘貼到其中。

Imports System 
Imports System.Runtime.InteropServices 
Imports Microsoft.Win32 

Public Module MyApplication 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long 

Sub Main() 
    On Error Resume Next 
    Dim CmdLine As String 
    Dim Ret as Long 
    Dim A() as String 
    Dim hwindows as long 

    CmdLine = Command() 
    If Left(CmdLine, 2) = "/?" Then 
     MsgBox("Usage:" & vbCrLf & vbCrLf & "ChangeTitleBar Oldname NewName") 
    Else 
     A = Split(CmdLine, Chr(34), -1, vbBinaryCompare) 
     hwindows = FindWindow(vbNullString, A(1)) 
     Ret = SetWindowText(hwindows, A(3)) 

    End If 
End Sub 
End Module 

然後鍵入命令提示符窗口。

"C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe" /target:winexe /out:"%userprofile%\desktop\SetText.exe" "%userprofile%\desktop\settext.bas" /verbose 

在您的桌面上創建了一個名爲settext.exe的程序。使用

"%userprofile%\desktop\settext" "Untitled - Notepad" "A Renamed Notepad"