Mã:
- Code:
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 Long
Private Sub Form_Load()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "Yahoo! Messenger")
SetWindowText hwnd, "ABC"
End Sub
ở đây mình đổi tiêu đề của Yahoo! Messenger bạn có thể đổi thành Audition,v.v..
Mã:
- Code:
hwnd = FindWindow(vbNullString, "Yahoo! Messenger") các bạn đổi lại
còn chỗ này thì bạn đề tiêu đề muốn đổi như ABC của tớ hoặc hack by v.v...
Mã:
- Code:
SetWindowText hwnd, "ABC"