如何修改别的程序窗口的标题啊。

Question

如何修改别的程序窗口的标题啊。

Answer 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Longprivate sub command1_click()
  Dim lHwnd As Long
  lHwnd = FindWindow(vbNullString, "要修改的标题")
  SetWindowText lHwnd, "修改后的标题"
end sub

Answer 2

楼上正解
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Longprivate sub command1_click()
  Dim lHwnd As Long
  lHwnd = FindWindow(vbNullString, "要修改的窗体标题")
  SetWindowText lHwnd, "修改后的窗体标题"
end sub

Answer 3

楼上正解
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Longprivate sub command1_click()
  Dim lHwnd As Long
  lHwnd = FindWindow(vbNullString, "要修改的窗体标题")
  SetWindowText lHwnd, "修改后的窗体标题"
end sub

Answer 4

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Longprivate sub command1_click()
  Dim lHwnd As Long
  lHwnd = FindWindow(vbNullString, "要修改的窗体标题")
  SetWindowText lHwnd, "修改后的窗体标题"
end sub摘自Internet