Помогите, пожалуйста с переименованием окна на vb.net.
Делаю так:
Code:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As IntPtr
Public Declare Auto Function SendMessage Lib "user32" ( _
ByVal hWnd As IntPtr, _
ByVal Msg As String, _
ByVal WParam As Integer, _
ByVal LParam As String) As Integer
Public Const WM_SETTEXT = &HC
Private Sub btnCWN_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles btnCWN.Click
Dim target_hwnd As Integer
Dim target_name As String
Dim new_caption As String
target_name = "Element Client"
target_hwnd = FindWindow(vbNullString, target_name)
If target_hwnd = 0 Then
MsgBox("Окно не найдено")
Exit Sub
End If
new_caption = txtNWN.Text
SendMessage(target_hwnd, new_caption, WM_SETTEXT, 0)
end sub
Что то мне с API-функциями тяжко общаться.... Выдает что target_hwnd = 0.