Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Компилятор из компилятора, исполнение некомпилированного кода  
:(
    Опции темы
bitinvent
Дата 13.7.2009, 09:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Ктонить знает как можно реализовать подгрузку некомпилированного кода (не vbs).?
И еще, редактор программного кода vb с реализацией через внутренние "структуры" (т.е. не изобретать редактор сзаного, а готовый какойнить обьект)
PM MAIL   Вверх
Akina
Дата 13.7.2009, 10:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(bitinvent @  13.7.2009,  10:52 Найти цитируемый пост)
как можно реализовать подгрузку некомпилированного кода 

В общем случае никак.

Цитата(bitinvent @  13.7.2009,  10:52 Найти цитируемый пост)
редактор программного кода vb с реализацией через внутренние "структуры" 

Вопрос непонятен.

А главное - зачем всё это? какая конечная цель?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
bitinvent
Дата 13.7.2009, 15:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
ну идея тут проста программа которую можно изменять внутри неёже, плюс библеотека функций (как module) и всякого другого которые можно тоже на ходу переписывать добавлять и тутже вызывать, и все это делать в упрощенном редакторе кода ))
PM MAIL   Вверх
neic
Дата 14.7.2009, 00:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
bitinvent, пиши свой компилятор. Но я думаю ты этого не будешь делать, т.к. не силён в VB6 (да и в компах наверн тоже).
PM MAIL WWW ICQ Skype   Вверх
bitinvent
Дата 15.7.2009, 12:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
ну вообщето я уже написал через контрол vb script, трабла одна есть код на vb6 много кода, его надо переделывать на скрипт а это влом
ктомуже терь прога палится дрвебом..
p.s.   smile  smile 

Это сообщение отредактировал(а) bitinvent - 15.7.2009, 12:18
PM MAIL   Вверх
bitinvent
Дата 15.7.2009, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
user posted image
обведены красным, первое мини скрипт (из него например ссылка на функцию из библиотеки скриптовsmile
в черном окошке редактор, ессно нету браузера объектов и не выскакивают после точки методы
PM MAIL   Вверх
Mannn
Дата 7.9.2009, 18:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Ващета можно. А давным давно видет способ. Но сейчас кое как нашел (понадобилось срочно).
Код

Option Explicit

Declare Function EbExecuteLine Lib "vba6.dll" _
 (ByVal pStringToExec As Long, ByVal Foo1 As Long, _
  ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

' For VB5 IDE
'Declare Function EbExecuteLine Lib "vba5.dll" _
 (ByVal pStringToExec As Long, ByVal Foo1 As Long, _
  ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

' FOR Access 97/VBE.dll clients like Word 97 and Excel 97
'Declare Function EbExecuteLine Lib "vba332.dll" _
 (ByVal pStringToExec As Long, ByVal Foo1 As Long, _
  ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Function FExecuteCode(ByVal stCode As String, Optional ByVal fCheckOnly As Boolean) As Boolean
    FExecuteCode = EbExecuteLine(StrPtr(stCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
Sub Main()
    'normal message without syntax error
    MsgBox FExecuteCode("msgbox (56+4)/2 & vbcrlf &""Super calculator!"",48", False)
    'message with syntax error: skip &
    MsgBox FExecuteCode("msgbox & vbcrlf &""Super calculator!"",48", False)
End Sub
PM MAIL   Вверх
bitinvent
Дата 16.4.2012, 16:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
класс!! ) щас уже на vb.net будем там смотреть такуюже реализацию )
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0695 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.