VPF::Подскажите что возвращает эти строчки

transparent

Дата 10.6.2011, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.5.2011

Репутация: нет
Всего: нет

Сначала подумал что заголовки окон...Но в листбокс попадают и не понятные строки, окна какие то о коих и не знал

Код


 Declare Auto Function GetWindowText Lib "user32.dll" Alias "GetWindowTextW" (ByVal hwnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer
    Declare Auto Function EnumWindows Lib "user32" (ByVal lpEnumFunc As EWProc, ByVal lParam As Integer) As Integer
    Delegate Function EWProc(ByVal hwnd As Integer, ByVal lParam As Integer) As Boolean


    Function EnumWindowsProc(ByVal hwnd As Integer, ByVal lParam As Integer) As Boolean
        Dim capt As New String(New Char, 255)
        Dim lenC As Integer
        lenC = GetWindowText(hwnd, capt, 255)
        If capt.Equals(Nothing) = False Then
            ListBox1.Items.Add(capt)
        End If
        EnumWindowsProc = True
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.EnumWindows(AddressOf EnumWindowsProc, 0)
    End Sub

Добавлено через 1 минуту и 39 секунд
и как правильно? так

Код


Alias "GetWindowTextA"

или

Код


Alias "GetWindowTextW"

transparent

Дата 10.6.2011, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.5.2011

Репутация: нет
Всего: нет

Если окончание на А то какие то сплошные каретки или что это не понятно...Если W то нормально, а в инете все декларации с А..странно, даже если убрать вовсе последнюю букву то тоже норм...Почему так?

Добавлено через 4 минуты и 32 секунды
тупо но можно альяс и вовсе убрать, но как то не безопасно, да?

Код


Declare Auto Function GetWindowText Lib "user32.dll" (ByVal hwnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer

Добавлено через 7 минут и 56 секунд
Видимо для этих дел тут и стоит ключевое слово Авто

transparent

Дата 10.6.2011, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.5.2011

Репутация: нет
Всего: нет

а вот так все нормалек(по старинке наверно)

Код


Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer

а если вставить W то закорюки

Добавлено через 50 секунд
видать есть 2 такие функции в этой библе, одна с а другая с даблю

Добавлено через 5 минут и 27 секунд
сори есть флужу, вот последний раз выложу свои выводы smile

Код


 'Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer
    'Declare Auto Function GetWindowTextW Lib "user32.dll" (ByVal hwnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer
    Declare Function GetWindowTextA Lib "user32.dll" (ByVal hwnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer

    Declare Auto Function EnumWindows Lib "user32" (ByVal lpEnumFunc As EWProc, ByVal lParam As Integer) As Integer
    Delegate Function EWProc(ByVal hwnd As Integer, ByVal lParam As Integer) As Boolean

    Function EnumWindowsProc(ByVal hwnd As Integer, ByVal lParam As Integer) As Boolean
        Dim capt As New String(New Char, 255)
        Dim lenC As Integer
        lenC = GetWindowTextA(hwnd, capt, 255) 'A 'W
        If capt.Equals(Nothing) = False Then
            ListBox1.Items.Add(capt)
        End If
        EnumWindowsProc = True
    End Function

    Dim listbox1 As New ListBox

    Public Sub New()
        ' Этот вызов необходим конструктору форм Windows.
        InitializeComponent()
        listbox1.Dock = DockStyle.Fill
        Me.Controls.Add(listbox1)
        ' Добавьте все инициализирующие действия после вызова InitializeComponent().
        Form1.EnumWindows(AddressOf EnumWindowsProc, 0)

    End Sub

Так сказать свои способы ....

Но все таки жду объяснений, а то я плох понимаю в этом

Добавлено через 7 минут и 8 секунд
а, да, а про что возвращает вопрос и забыл smile

так что он возвращает подскажите

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »