Debugger's console OCX

Обсуждение проектов наших жителей.
Вы можете выставить проект на тест или найти помощников для его реализации.

Модератор: BV

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Debugger's console OCX

Сообщение zHackLeX » 10.08.2005 (Ср) 9:16

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

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

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


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

:?

ЗЫ. Господа модераторы.
Я понимаю, что мои условия могут не нравиться вам или пользователям.
Если это так, можете удалить пост и тему...
У вас нет доступа для просмотра вложений в этом сообщении.
There is no knowledge that is not power...

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 10.08.2005 (Ср) 10:16

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

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Сообщение zHackLeX » 10.08.2005 (Ср) 10:49

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


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


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

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



ЗЫ. Попугай обиделся и сбежал. Детям до 16 - ловить не рекомендуется.
:( :)
There is no knowledge that is not power...

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Сообщение zHackLeX » 11.08.2005 (Чт) 7:01

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

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

ЗЗЫ. А alibek меня точно не понял... И для чего консоль нужна не понял (имхо)
There is no knowledge that is not power...

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)

skord
Китаец
Китаец
 
Сообщения: 572
Зарегистрирован: 14.10.2004 (Чт) 15:36
Откуда: Иркутск

Сообщение skord » 11.08.2005 (Чт) 10:12

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

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Сообщение zHackLeX » 12.08.2005 (Пт) 12:59

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.
У вас нет доступа для просмотра вложений в этом сообщении.
There is no knowledge that is not power...

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Сообщение zHackLeX » 12.08.2005 (Пт) 22:56

Забыл сказать - с нетерпением жду отзывов, конструктивной критики и предложений по улучшению... :D
There is no knowledge that is not power...

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)

skord
Китаец
Китаец
 
Сообщения: 572
Зарегистрирован: 14.10.2004 (Чт) 15:36
Откуда: Иркутск

Сообщение skord » 13.08.2005 (Сб) 8:05

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

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Сообщение zHackLeX » 15.08.2005 (Пн) 12:26

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

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Сообщение zHackLeX » 16.08.2005 (Вт) 7:19

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


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






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



Поподробнее. Как виснет?
There is no knowledge that is not power...

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)

skord
Китаец
Китаец
 
Сообщения: 572
Зарегистрирован: 14.10.2004 (Чт) 15:36
Откуда: Иркутск

Сообщение skord » 16.08.2005 (Вт) 10:04

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

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Сообщение zHackLeX » 17.08.2005 (Ср) 7:42

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

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


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


ЗЗЗЗЫ.

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".
There is no knowledge that is not power...

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Сообщение zHackLeX » 23.08.2005 (Вт) 8:14

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

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

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

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

Жду ответов. С уважением, zHackLeX.
There is no knowledge that is not power...

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 23.08.2005 (Вт) 8:26

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

skord
Китаец
Китаец
 
Сообщения: 572
Зарегистрирован: 14.10.2004 (Чт) 15:36
Откуда: Иркутск

Сообщение skord » 23.08.2005 (Вт) 9:47

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

Пробую твой код - ругается на строчку
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


:roll:

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Сообщение zHackLeX » 24.08.2005 (Ср) 10:24

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

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

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


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

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)

skord
Китаец
Китаец
 
Сообщения: 572
Зарегистрирован: 14.10.2004 (Чт) 15:36
Откуда: Иркутск

Сообщение skord » 24.08.2005 (Ср) 10:43

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

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

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

skord
Китаец
Китаец
 
Сообщения: 572
Зарегистрирован: 14.10.2004 (Чт) 15:36
Откуда: Иркутск

Сообщение skord » 24.08.2005 (Ср) 13:47

Непомогло... :? :cry:

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Сообщение zHackLeX » 27.08.2005 (Сб) 16:42

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

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

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

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

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)

skord
Китаец
Китаец
 
Сообщения: 572
Зарегистрирован: 14.10.2004 (Чт) 15:36
Откуда: Иркутск

Сообщение skord » 28.08.2005 (Вс) 9:04

Win98 SE :D

zHackLeX
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 23.10.2003 (Чт) 21:08

Сообщение zHackLeX » 10.09.2005 (Сб) 16:38

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

X,C,A,B,C,Z,X,A,B,C,Z....
Многие ли помнят? :)


Вернуться в Наши проекты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

    TopList