Две проблемы

[MIT]

Помогите, пожалуйста. У меня есть две проблемы, которые просто необходимо решить.
Первая-как изменить/узнать значение и верхний/нижний предел у ПрогрессБара, если известен его hwnd?
Вторая-глючит GetPrivateProfileString. При попытке ей воспользоваться вылазит ошибка с кнопками отправить и не отправить отчет. Ответ нужен не очень срочно, так как я создат полную работоспособную альтернативу на Бейсике, но нужен для повышения скорости работы моей проги.[/syntax]

[alibek]

1. PBM_* (PBM_GETRANGE).
2. Покажи декларацию.

[tyomitch]

1. Сообщения в чужой процесс нужно посылать через маршалер, он в кирпичах.

[MIT]

Сначала объявлял как написано в API Viewer'е потом так

Код: Выделить всё

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

но глючит в обоих случаях

tyomitch
Процесс свой

[alibek]

lpReturnedString укажи по значению (ByVal).

[MIT]

Не помогло.
Да, кстати, вспомнил. Ещё глючила WritePrivateProfileString с такими же симптомами, но я начал передавать всё как cstr() и глюки исчезли. Может тут тоже чето не то с форматами?

И ещё - как пользоваться RegistryServiceProcess'ом? Пишет, что ненашел точку входа.

[MIT]

1. PBM_* (PBM_GETRANGE).

Это в смысле SendMessage?

Вот ещё одна проблема возникла - как из программы отследить события в DLL'ке запущенной самой программой?

[Viper]

Это в смысле через

Что такое события в DLL'ке?

[shady]

глючит GetPrivateProfileString. При попытке ей воспользоваться вылазит ошибка с кнопками отправить и не отправить отчет

предположу что переменная объявлена не фиксированной длинны?

[Viper]

Правильное объявление:

Код: Выделить всё

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Что и как передаешь в функцию?

[Kovu]

MIT
перед вызовом функции, строковую переменную которую передаешь в качестве lpReturnedString надо инициализировать,т .е. например

Код: Выделить всё

lpRet=String$(255, Chr(1))

[Antonariy]

И ещё - как пользоваться RegistryServiceProcess'ом? Пишет, что ненашел точку входа.

RegisterServiceProcess остался в win98/me.

[MIT]

To:!Viper!
The page cannot be found, однако

И твоё объявление тоже глючит.

Сначала составил такую функцию:

Код: Выделить всё

Public Function GetProfile2(ByVal FileName As String, Sector As String, StringName As String, StandartValue As String) As String
Dim text As String
    Call GetPrivateProfileString(CStr(Sector), CStr(StringName), CStr(""), text, 1000, CStr(FileName))
    'GetProfileString Sector, StringName, " ", GetProfile, 1000
    GetProfile2 = text
End Function


Мне так удобнее, потом как-то типа так

Код: Выделить всё

GetProfile(App.Path & LangFile, "addgames", "name", "Название")


To:shady
конечно нефиксированной...

To:Kovu
Вот спасибо! Всё проста летает, тока в строке, где должен быть текст стоят знаки Chr(0)

To:Antonariy

Да, я где-то читал об этом. Но недавно дизассамбелировал один вирус написанный на VB, и там была декларация этой функции, и вирус действительно был невидем в диспетчере

[MIT]

To:!Viper!
Забыл сказать - сабытия в DLLке типа кнопку нажали, форму закрыли, в общем ты понял
Поюзал метод, стало лучше, но возникают ошибки чтения, часть из них кое как обрабатывается обработчиком и ставится стандартный текст, в остальных случаях пишется фигня или вылазит сообщение типа приложение выполнило недопустимую операцию...

[Kovu]

Там стоят знаки Chr(1) которыми строка была заполнена. Если функция что-то возвращает в эту строку, она часть символов заменяет на нормальные и завершает её Chr(0). Кароче говоря, после отработки функции, обрезаешь строку до нулевого символа.

[Matew]

MIT, перехват событий в длл(пример): http://bbs.vbstreets.ru/viewtopic.php?t ... highlight=

[Viper]

To:!Viper!
И твоё объявление тоже глючит.

Как объявление может глючить? Может все-таки проблема в некорректном вызове функции?

Да, я где-то читал об этом. Но недавно дизассамбелировал один вирус написанный на VB, и там была декларация этой функции, и вирус действительно был невидем в диспетчере

От того что эта функция где-то у кого-то объялена, в ОС она не появится. А невидимость в диспетчере вполне может обеспечиваться другими способами.

[Antonariy]

Да, я где-то читал об этом. Но недавно дизассамбелировал один вирус написанный на VB, и там была декларация этой функции, и вирус действительно был невидем в диспетчере

Видимо вирус был научен прятаться во всех версиях винды.

[MIT]

!Viper!
Может быть...

Kovu
А если она ничего не возвращает или возвращает ошибку?

А у кого стоит w98? Скинте kernel32, pls

[MIT]

Matew
Пример не плохой, я даже его понял. Но проблема - Васик не узнает ф-ию GetRef. Я её поискал по всем VBA библеотекам - нет!

[Kovu]

MIT
Ну наверное это означает, что та ключ, который ты пытаешься читать, пустой. Ну а если ошибка, посмотри её номер.

[MIT]

13
Несоответствие типов

[Kovu]

MIT

Код: Выделить всё


Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" ( _
     ByVal lpApplicationName As String, _
     ByVal lpKeyName As String, _
     ByVal lpDefault As String, _
     ByVal lpReturnedString As String, _
     ByVal nSize As Long, _
     ByVal lpFileName As String) As Long


Private Function GetProfile2(ByVal FileName As String, Sector As String, StringName As String, StandartValue As String) As String
Dim lpRet As String, cnt As Long
    lpRet = String$(255, 1)
    cnt = GetPrivateProfileString(Sector, StringName, "", lpRet, 255, FileName)
    If cnt >= 1 Then
        lpRet = Left$(lpRet, cnt)
        GetProfile2 = lpRet
    Else
        GetProfile2 = "#ERRORorEMPTY"
    End If
End Function


Private Sub Command1_Click()
Debug.Print GetProfile2("C:\1\config.ini", "General", "BPQ", "")
End Sub


А так? Вызов естестно подправь.

[BV]

А у кого стоит w98? Скинте kernel32, pls

Можно узнать - зачем?

[MIT]

Kovu
Круто! Во спасибо! Работает, хотя иногда вместо строки вылазит "#ERRORorEMPTY", но это наверно по моей вине (может строки в файле нет).
P.S.
Замерял - скорость загрузки базы данных возрасла в 17.5 раз!

[MIT]

BV
Для опытов и эксперементов

[BV]

BV
Для опытов и эксперементов

Для каких?

[MIT]

RegisterServiceProcess
А ещё там дофига недокументированных функций

[MIT]

Kovu
Все исправил.

Надо было так

Код: Выделить всё

   
    ....
    If cnt >= 1 Then
        lpRet = Left$(lpRet, cnt)
        GetProfile2 = lpRet
    Else
        GetProfile2 = StandartValue
    End If
    ....


Теперь ваще класс!

[BV]

Ну, лови...