VBNet - Форум - Ну неужели никто не знает???

Вопрос: Ну неужели никто не знает??? Добавлено: 26.10.02 04:57

Автор вопроса: Nio | Web-сайт: www.fea.nxt.ru

Задача: Появляется окошко типа MSGBOX (не моё). Необходимо отследить его текст, если известен заголовок. Народ, выручайте, уже месяц мучаюсь....
Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

Ян

ICQ: 816105

Вопросов: 38
Ответов: 198

Web-сайт: www.yan.net.ru
Профиль | | #1

Добавлено: 26.10.02 10:35

Попробуй так, должно получится:

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

    Print stBuff
End Sub

Ответить

Номер ответа: 2 Автор ответа: Ян ICQ: 816105 Вопросов: 38 Ответов: 198	Web-сайт: www.yan.net.ru Профиль \| \| #2	Добавлено: 26.10.02 10:37
	С кодировкой какая-то фигня, строку phwnd = FindWindow(vbNullString, "ßðëûê"), считай как phwnd = FindWindow(vbNullString, "заголовок") Ответить

Номер ответа: 3
Автор ответа:

Nio

Вопросов: 15
Ответов: 115

Web-сайт: www.fea.nxt.ru
Профиль | | #3

Добавлено: 28.10.02 09:44

Спасибо! Всё заработало! Весь универ отмечал успешный запуск системы netChat!!! (вроде двустороннего пейджера для локали)

Ответить

Номер ответа: 4
Автор ответа:

Iri

ICQ: 271614189

Вопросов: 0
Ответов: 8

Web-сайт: www.vbnet.ru
Профиль | | #4

Добавлено: 28.10.02 11:37

Как всегда, мля, скомуниздили где-то программу, задавили предупреждение - и на тебе НОВАЯ прога, да еще наверное и автором себя считает...

Ответить

Номер ответа: 5
Автор ответа:

Nio

Вопросов: 15
Ответов: 115

Web-сайт: www.fea.nxt.ru
Профиль | | #5

Добавлено: 28.10.02 15:43

Твою мать, Я НЕ ОБЯЗАН ЗНАТЬ, ГДЕ КАКИЕ ЕСТЬ ПРОГРАММЫ, А СВОИ БУДУ НАЗЫВАТЬ КАК ХОЧУ!!! Если где-то есть прога под таким же названием - это не моя проблема. Название МОЕЙ программы образовано от ко[sensored]ы net, посредством которой она работает, и словом Chat, для чего она и предназначена. И нечего тут п{sensored}! Если хочешь, давай мыло, пришлю исходник, посмотрим, кто из нас верблюд.

Ответить

Страница: 1 |