Debugger's console OCX

[zHackLeX]

Народ, я тут написал такой контрол - см. сабж.
При подключении он может вызвать большинство
методов и изменить большинство свойств связанного с
ним окна.

Визуально он больше всего напоминает консоль Counter-Strike 1.6

Сейчас он в разработке, и я думаю, что результаты (рабочий ОСХ)
выложу здесь. Если разрешат модеры. А на вопросы типа "как сделано
то-это" постараюсь отвечать, если они-таки возникнут.
Для затравни креплю пока скриншот.


Для демонстрации написан также хост-проект, но его наверное выложить
не удастся..



ЗЫ. Господа модераторы.
Я понимаю, что мои условия могут не нравиться вам или пользователям.
Если это так, можете удалить пост и тему...

[alibek]

В состав студии входит ActiveX Control Test Container.
Он, вообще-то, делает то же самое, только (на мой взгляд) лучше.

[zHackLeX]

Да? Может подключаться к ЕХЕ и разруливать его?
Или встраивает интерфейс командной строки в приложение?


Может всё же меня не поняли?


Этот ОСХ даёт командную строку, связанную с проектом.

То есть, пишешь "EVar caption NEW_CAPTION" - меняется свойство у связанного объекта.



ЗЫ. Попугай обиделся и сбежал. Детям до 16 - ловить не рекомендуется.

[zHackLeX]

Я думаю, никто не будет против, если я выложу ОСХ?

ЗЫ я выкладываю завтра, если завтра встречу письмо, что, мол, не надо - не выложу

ЗЗЫ. А alibek меня точно не понял... И для чего консоль нужна не понял (имхо)

[skord]

OCX будет работать со всеми элементами проекта или только к форме?

[zHackLeX]

Cообщение длинное, прошу читать до конца!

Выкладываю, как обещал, релиз. На версию лучше всего просто не смотрите. НИ В КОЕМ СЛУЧАЕ не распаковывайте в system32.
Распаковывайте в отдельную папку, причём ВСЁ. Ну, разве что, кроме SBList.ocx и Tabctl32.ocx. И не забываем про regsvr32.

___________


Теперь ОСХ ПРЯМО работает с любым объектом. Если объект имеет свойство-коллекцию Controls, имеется возможность обращения к любому дочернему объекту. К примеру, вы делаете первичную привязку:

Private Sub Form_Load()
Set ZConsole1.DebugReference = Me
ZConsole1.SetCurrentAuditLevel 4 'Инженерный доступ - неограниченный.
End Sub

Всё. Теперь в консоли можно к примеру набрать:

1) EVar Caption "NEWCAPTION" - и тут же заголовок формы-родителя изменится
2) EVar bChangesMade False - и объявленная переменная
Public bChangesMade as Boolean изменит своё значение

А если уже ввели "\IVar AccessChildControls True", TO:
(кстати, True можно заменить единицей, False - нулём.)

3) Command1.Caption = "Exit&Save" - и изменится название кнопочки

4) Command1.Move 1000, 1500 - и кнопочка сорвётся с места и "очутится в Point(67,100)", т. к. по умолчанию ScaleMode=vbTwips.


5) (вводить подряд)
CListEnabled 1
ECmdList CreateCmdList
ECVarList CreateVarList

(перезагрузить проект)
И в следующий раз, когда загрузится консоль, по введении "CListEnabled 1" будет отображаться список команд, включая те, что зарегистрированы как члены класса Form1.

Вообщем, замаялся печатать - смотрите readme.

[zHackLeX]

Забыл сказать - с нетерпением жду отзывов, конструктивной критики и предложений по улучшению...

[skord]

Весит VB когда помещаю на форму...

[zHackLeX]

Я прошу прощения за задержку и, коли они есть, за глюки - буду во вторник, тогда разберусь - сейчас я не дома ...

[zHackLeX]

Попробуй создавать контрол в run-time. ЗЫ, у меня ничего не весит
ЗЫЫ. Все компоненты зарегил? Все поместил в одну отдельную папку (содержимое архива)?


Какой именно VB?






Надеюсь, создать контрол в RUN-time - не проблема...



Поподробнее. Как виснет?

[skord]

MSVB6
Все регил, все в одной папке.
Просто виснет и все... Ну как проги виснут?
Начаная растягивать или 2-ой клик и все...
В run-time чуть позже попробую - щас в лом.

[zHackLeX]

А ЗАЧЕМ тебе растягивать, второй клик? это же как таймер - Invisible At Runtime...

PPS. ну это уж вообще странности какие-то... в жизни такого не было.
Я думал просто не размещается и всё.


ЗЗЗЫ. А как ? Программы виснут????
( )


ЗЗЗЗЫ.

Dim WithEvents ConHost as ZConsole

Private Sub Form_Load()
Set ConHost = New ZConsole
ConHost.SetCurrentAuditLevel 4
Set ConHost.DebugReference = Me
ConHost.ShowModal = False 'В VB6 можно!
End Sub

Private Sub Form_Click()
ConHost.RaiseConsole
End Sub

Это всё. И это и есть "подгрузить в runtime".

[zHackLeX]

alibek, а я не понял - что делает ActiveX Control Test Container?
Может я малёк не разобрался в нём?

Он может подключать к себе ОСХы, не более того...

ЗЫ, больше вообще ни у кого она не пашет? Ответьте, работает ли она вообще?

ЗЗЫ. Ну что там с runtime?

Жду ответов. С уважением, zHackLeX.

[alibek]

Ты на этот контейнер можешь разместить контролы и потестировать их -- посмотреть, какие есть методы и свойства, задать их вручную, посмотреть, как контрол ведет себя в различных ситуациях.
Если твой контрол предназначен для другого, то я не пойму, что он делает.

[skord]

zHackLeX
Уффф... руки дошли, извени, что так долго

Пробую твой код - ругается на строчку

Dim WithEvents ConHost as ZConsole

Private Sub Form_Load()
Set ConHost = New ZConsole
ConHost.SetCurrentAuditLevel 4
Set ConHost.DebugReference = Me
ConHost.ShowModal = False 'В VB6 можно!
End Sub

Private Sub Form_Click()
ConHost.RaiseConsole
End Sub

Compile error:
Ivalid use of New keyword

[zHackLeX]

2alibek:
Он просто подключается к ЕХЕ-файлу и управляет контролом (чаще формой), привязанным (ой?) к нему (и дочерними контролами первого уровня), меняет по желанию пользователя (предположительно хорошо знакомого с программой) переменные, вызывает методы и т. п.

ЗЫ, сорри за переполненность ответа скобками...

2skord:
Ну, блин... ну попробуй
Set ConHost = CreateObject("ADVConsole.ZConsole")...


Да уж... озадачил ты меня...
Ну, я на всякий ещё раз скомпилировал консоль, вывешиваю архив - инсталлятор... попробуй скачай заново... 400 килограмм. НЕ ЗАБУДЬ
перед установкой regsvr32 /u pConsole.OCX

[skord]

Да уж... озадачил ты меня...

Не тебя одного... наверно каждая вторая программа с форума у меня без глюков не идет

Щас докачается и разберусь...

[skord]

Непомогло...

[zHackLeX]

Ну... ну БЕЗ понятия что у тя не так.

Какой сервиспак? какая винда?

ЗЫ. Ну, раз народ просит, портирую проект в ActiveX-DLL. Но не слёту

Вообще, я из дому на учёбу в институт уезжаю, так что мало буду тему обновлять. Да и народ что-то вообще почти ни слова... жаль. Так хотелось отзывов... хоть каких-то...

[skord]

Win98 SE

[zHackLeX]

У-у... пробовал только на 2000/ХР. Возможно, что иначе ты не запустишь вообще. ЗЫ, меня опять не будет минимум неделю - уезжаю без инета.