Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Ну неужели никто не знает??? Добавлено: 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам