Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Command1_Click() Dim phwnd As Long Dim dhwnd As Long Dim stBuff As String stBuff = Space(100) Dim c As Long phwnd = FindWindow(vbNullString, "ßðëûê")
dhwnd = FindWindowEx(phwnd, 0, "Static", vbNullString) If GetWindowText(dhwnd, stBuff, Len(stBuff)) = 0 Then dhwnd = FindWindowEx(phwnd, dhwnd, "Static", vbNullString) GetWindowText dhwnd, stBuff, Len(stBuff) End If
Твою мать, Я НЕ ОБЯЗАН ЗНАТЬ, ГДЕ КАКИЕ ЕСТЬ ПРОГРАММЫ, А СВОИ БУДУ НАЗЫВАТЬ КАК ХОЧУ!!! Если где-то есть прога под таким же названием - это не моя проблема. Название МОЕЙ программы образовано от ко[sensored]ы net, посредством которой она работает, и словом Chat, для чего она и предназначена. И нечего тут п{sensored}! Если хочешь, давай мыло, пришлю исходник, посмотрим, кто из нас верблюд.