powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Элемент ScriptControl заменить на либо ...object или declare
9 сообщений из 9, страница 1 из 1
Элемент ScriptControl заменить на либо ...object или declare
    #38588943
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Элемент ScriptControl нужно заменить на либо ...object или declare.
Парсинг на VB6 слишком медленный. Выгодней использовать регулярное выражение.
Всем добра и мир
с уважением Андрей
...
Рейтинг: 0 / 0
Элемент ScriptControl заменить на либо ...object или declare
    #38589099
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
IActiveScript
...
Рейтинг: 0 / 0
Элемент ScriptControl заменить на либо ...object или declare
    #38589103
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кстати, у меня и пример завалялся.
...
Рейтинг: 0 / 0
Элемент ScriptControl заменить на либо ...object или declare
    #38590825
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Круто. Высокий уровень. Спасибо
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Элемент ScriptControl заменить на либо ...object или declare
    #38978179
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AntonariyКстати, у меня и пример завалялся.

Прикольно. А как скомпилировать vbActiveScript_3.ODL ? Долго бился с MIDL и MkTypeLib, ничего не получается, непонятные ошибки валяться одна за одной.
...
Рейтинг: 0 / 0
Элемент ScriptControl заменить на либо ...object или declare
    #38978209
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Eolt,

В архиве у Antonariy есть уже готовая TLB
...
Рейтинг: 0 / 0
Элемент ScriptControl заменить на либо ...object или declare
    #38978214
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VSVLAD,

TLB скомпилена с закоменченными интерфейсами отладки IActiveScriptSiteDebug, IDebugApplication
что как-бы снижает ценность исходника почти до нуля

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
/*
[
        odl,
        uuid(51973C11-CB0C-11d0-B5C9-00A0244A0E7A),
]
interface IActiveScriptSiteDebug : stdole.IUnknown
{
		HRESULT GetDocumentContextFromPosition( 
            [in] LONG *dwSourceContext,
            [in] LONG *uCharacterOffset,
            [in] LONG *uNumChars,
            [out,retval] LONG *ppsc
        );
        
        HRESULT GetApplication( 
            [out,retval] LONG *ppda
        );
       
        //IDebugApplication        
        HRESULT GetRootApplicationNode( 
			[out,retval] LONG *ppdanRoot
        );

        HRESULT OnScriptErrorDebug( 
            [in] LONG *pErrorDebug,
            [in,out] BOOL *pfEnterDebugger,
            [out,retval] BOOL *pfCallOnScriptErrorWhenContinuing
            
        );
        
};
*/
/*
[
     	odl,
        uuid(51973C32-CB0C-11d0-B5C9-00A0244A0E7A)
     ]
    interface IDebugApplication : IRemoteDebugApplication
    {
    
        HRESULT SetName( 
            [in] LPSTR  pstrName) = 0;
        
        HRESULT StepOutComplete( void) = 0;
        
        HRESULT DebugOutput( 
            [in] LPSTR  pstr) = 0;
        
        HRESULT StartDebugSession( void) = 0;
        
        HRESULT HandleBreakPoint( 
            [in] BREAKREASON br,
            [in,out] BREAKRESUMEACTION  *pbra) = 0;
        
        HRESULT Close( void) = 0;
        
        HRESULT GetBreakFlags( 
            [in,out] APPBREAKFLAGS  *pabf,
            [in,out] IRemoteDebugApplicationThread  *pprdatSteppingThread) = 0;
        
        HRESULT GetCurrentThread( 
            [in,out] IDebugApplicationThread  *pat) = 0;
        
        HRESULT CreateAsyncDebugOperation( 
            [in] IDebugSyncOperation  *psdo,
            [in,out] IDebugAsyncOperation  *ppado) = 0;
        
        HRESULT AddStackFrameSniffer( 
            [in] IDebugStackFrameSniffer  *pdsfs,
            [in,out] LONG  *pdwCookie) = 0;
        
        HRESULT RemoveStackFrameSniffer( 
            [in] LONG dwCookie) = 0;
        
        HRESULT QueryCurrentThreadIsDebuggerThread( void) = 0;
        
        HRESULT SynchronousCallInDebuggerThread( 
            [in] IDebugThreadCall  *pptc,
            [in] LONG dwParam1,
            [in] LONG dwParam2,
            [in] LONG dwParam3) = 0;
        
        HRESULT CreateApplicationNode( 
            [in,out] IDebugApplicationNode  *ppdanNew) = 0;
        
        HRESULT FireDebuggerEvent( 
            [in] REFGUID riid,
            [in] IUnknown  *punk) = 0;
        
        HRESULT HandleRuntimeError( 
            [in] IActiveScriptErrorDebug  *pErrorDebug,
            [in] IActiveScriptSite  *pScriptSite,
            [in,out] BREAKRESUMEACTION  *pbra,
            [in,out] ERRORRESUMEACTION  *perra,
            [in,out] BOOL  *pfCallOnScriptError) = 0;
        
        BOOL FCanJitDebug( void) = 0;
        
        BOOL FIsAutoJitDebugEnabled( void) = 0;
        
        HRESULT AddGlobalExpressionContextProvider( 
            [in] IProvideExpressionContexts  *pdsfs,
            [in,out] LONG  *pdwCookie) = 0;
        
        HRESULT RemoveGlobalExpressionContextProvider( 
            [in] LONG dwCookie) = 0;
        
    };
*/    

...
Рейтинг: 0 / 0
Элемент ScriptControl заменить на либо ...object или declare
    #38978231
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Eoltчто как-бы снижает ценность исходника почти до нуля
Смотря какая задача стоит, написать свой отладчик или что? Лично для меня функционала вполне хватило
...
Рейтинг: 0 / 0
Элемент ScriptControl заменить на либо ...object или declare
    #38978247
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
EoltAntonariyКстати, у меня и пример завалялся.

Прикольно. А как скомпилировать vbActiveScript_3.ODL ? Долго бился с MIDL и MkTypeLib, ничего не получается, непонятные ошибки валяться одна за одной.ну ты ошибки-то показывай, может поймем всем миром.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Элемент ScriptControl заменить на либо ...object или declare
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]