VBNet - Форум - Найти окно по заголовку

Вопрос: Найти окно по заголовку Добавлено: 30.08.02 20:00

Автор вопроса: CyRax | Web-сайт: basicproduction.nm.ru | ICQ: 204447456

Подскажите какую ф-ю использовать.
Я использовал
Declare Function FindWindow Lib "User" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer
hwnd= FindWindow("", WindowCaption)
Но она возвращает 0.
Правда я не указывал класс окна. Мне что нужно найти сначала класс ? Или я неправильно её использую ?

Ответить

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

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

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | Цитата | #1

Добавлено: 30.08.02 20:35

Klass ne nado... Ne konechno mojno! NO.. ne nado

hwnd = FindWindow(vbNullString, WINDOWCAPTION)

Wse rabotaet. A "0 " na daet w sluchae oshibki.

Udachi!

Ответить

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

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | Цитата | #2

Добавлено: 30.08.02 20:58

Oshibka mojet bit takje iz-za newernogo zagolowka okna. Otkuda ti ego beresh? Pishesh sam gde nibud w textbox'e ili funkcijami?

Ja poluchal cherez GETWINDOW.

I esche koe chto, u tebja objawlenie nemnogo neprawilnoe...

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

"As ANY" luche ne ispolzowat... S etim mogut bit trabli, da i medlennee nemnogo.

Ответить

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

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | Цитата | #3

Добавлено: 30.08.02 22:21

Привет Магнус. Что-то мы никак в чате с тобой не встретимся.

А для поиска заголовка я использую стандартные средства из хелпа.

    CurrWnd = GetWindow(form1.hWnd, GW_HWNDFIRST)
          length = GetWindowTextLength(CurrWnd)
        listItem$ = Space$(length + 1)
        length = GetWindowText(CurrWnd, listItem$, length + 1)
If length > 0 Then
             Combo_ListItem.AddItem listItem$
End If

Ответить

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

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | Цитата | #4

Добавлено: 30.08.02 22:21

Привет Магнус. Что-то мы никак в чате с тобой не встретимся.

А для поиска заголовка я использую стандартные средства из хелпа.

Ответить

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

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | Цитата | #5

Добавлено: 02.09.02 12:55

Priwet! Ja ispolzuju prakticheski tot je kod i u menja wse rabotaet. Pomenaj w objawlenijah INT NA LONG, hendli to bolshie blin, hota w etom sluchae ti poidee doljen bil bi poluchit OVERFLOW... No problema mojet bit. Koroche prosto skopiruj to c chto ja uje kinul (objawlenie i ispolzowanie), ja ego kopirowal pramo iz swoego(rabotajuschego) koda, tak chto wse doljno bit OB.

Ответить

Номер ответа: 6 Автор ответа: j3d1 ICQ: 8370005 Вопросов: 34 Ответов: 466	Профиль \| Цитата \| #6	Добавлено: 02.09.02 13:02
	Слухай Сайракс у меня тоже такое бывало. В упор не нахадил окна даже с указаным классом!!! Кажись это глюк!! Ответить

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

KirBIBA

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

Web-сайт: kirbiba.nm.ru
Профиль | Цитата | #7

Добавлено: 06.09.02 02:54

Привет челы!
Мне тут нада было нажать кнопку в TheBat
так типа вот такое работало:

Dim hWnd As Long
Dim lng1 As Long
hWnd = FindWindow("TID_PswDlg", 0)
If hWnd = 0 Then Exit Sub
lng1 = SetForegroundWindow(hWnd)
Call MySendKeys(vbCr) : 'ну тут давим ему чере другую сабу Enter (родной SendKeys слабоват будет)
"TID_PswDlg"-вычислено приблудой каких многа на дисках для юных пионеров

Удачи!

Ответить

Страница: 1 |