MyCommandButton

[claymen]

Вот скачал из сети контрол MyCommandButton.ocx. Да он зараза время от времени выдаёт сообщение о том, что он "демо".
Пытался найти окно "About.." и закрывать его автоматичесски после его выхода, да не могу найти такое окно, наверное там не "About..", а какой ни-ть "About... ".
Кто знает как мне с этим справиться?

[GSerg]

Не использовать этот компонент.
Заплатить за этот компонент.

[RayShade]

Купить лицензию

[Nicky]

Реализовать функционал

[claymen]

Лицензия ~ дороговато
Может я что-то делаю не так?

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

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

Private Sub Timer1_Timer()
    Dim mWnd As Long
    mWnd = FindWindow("MyCommandButton.ocx", "About...")
    If mWnd = 0 Then
        Me.Print "Still ok. But just a still..."
    Else
        DestroyWindow mWnd
    End If
End Sub


[RayShade]

А что такого в этом контроле крутого что ради него, надо делать такие ухищрения?

[claymen]

RayShade
Да просто испытываю его...

[RayShade]

Ну а раз испытываешь - то, не парься по поводу предупреждений

[keks-n]

claymen
В результате шаманств над контролом, посредством дебаггера было выявлено и поправлено место, где эта зараза показывала NAG'лое окно. Поправленный контрол ушёл в личку

[ANDLL]

2keks-n:disrespect

[keks-n]

ANDLL
Чего не нравится??? Я же его публично не выкладываю...

[ANDLL]

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

Вот и мне интересно спросить: для чего ломал чужую прогу?? Просто что бы вы*бнуться перед чайником??
(ну я конечно извеняюсь перед модераторами, просто уж сильно классическая ситуация) (ну если уж сильно глаз режет можете заменить это слово на другое, подходящее по смыслу. если придумаете)

[alibek]

Но все же выразиться можно было и по другому, это ведь письменная речь, а не разговорная. Замечание.

[Antonariy]

*выпендриться* *покрасоваться* *пустить пыль в глаза*
Давай что-нибудь посложнее

[keks-n]

ANDLL
Было настроение что-нибудь сломать... А тут смотрю: импортный контрол, стоит кучу бабла, даже русской версии сайта нет. Отчего бы не сломать?