artbear 31.10.2005 - 16:14 |
, . -------------------------------------------------------------------- - aka orefkov , / -------------------------------------------------------------------- + / ( ) http://openconf.itland.ru/beta ( 31.10.05) ( ) OpenConf 1.0.2.0 - http://openconf.itland.ru/beta/oc1020.zip 2.0.0.0r (beta) - http://openconf.itland.ru/beta/telepatr.zip -------- : Young , , . http://www.script-coding.info -------------------------------------------------------------------- FAQ http://1c.alterplast.ru/faq/telepat.html http://1c.alterplast.ru/faq/openconf.html / http://1c.alterplast.ru/faq/telepat.html ---------------------------------------------------- (fez) . , . ----- ChangeLog http://1c.alterplast.ru/files/ocs/changelog.html ----- . , , :) - - , :) ----- http://1c.alterplast.ru/files/ocs/ocs_last.dos.zip . ----- http://1c.alterplast.ru/files/ocs/ ( ) ChangeLog . ---------------------------------------------------- , , - cvs.alterplast.ru http://kuntashov.narod.ru/openconf-installer.html ( www.proclub.ru) 31.10.05 http://kuntashov.narod.ru/files/oc1020b20050806.exe ( 06.08.05) -------------------------------------------------------------------- itland.ru ( .. ) http://itland.ru/forum/index.php?showforum=37 -------------------------------------------------------------------- / http://1c.proclub.ru/modules/mydownloads/viewcat.php?op=&cid=1002 -------------------------------------------------------------------- - - , , , http://openconf.itland.ru
|
1 - 31.10.2005 - 16:18 |
:) |
artbear 2 - 31.10.2005 - 16:20 |
, -- (ALL) ---- Intellisence.vbs ---- [+] ints- 1++ 1) 1 (, , ), 2) , (, .); 3) ints- 1++ Intell\1++, 4) ints- 1++ Intell, 5) ; [*] ints- Intell, , , Intell\1++; [-] 1, . 1++ ""; [+] ; [-] "DisableDebugMessages" ; --- : trdm [+] GetMainType() " = ("");" "" OLE-Automation , *.ints- Intellisence. , ReloadDictionary. [+] ReloadDictionary, , . : BinDir & "\Config\Intell" : "TypesStructureExt.txt" "OtherTypesDefine.txt" [+] GetVTFields(lCase(ExprParts(0)), ""), XBase, " = ("XBase");" : .(""); ---- intsOLEGenerator.vbs - *.ints COM- Intellisence.vbs als-. trdm ---- 1) Generator, *.ints- - 2) ReGenerator - . : als- ints-, . ---- , 1++, - , Update1CppInts Intellisence.vbs, :) --- . http://1c.alterplast.ru/files/ocs/changelog.html |
trdm 3 - 01.11.2005 - 12:13 |
(24.247) to Young 1. ReGenerator , - , Generator', - ? , : - ( ), ( - ProgIDDumped.txt, ReGenerator ). - ints , als-, als-. - .... 2. ALS-? , , ... - , . . 3. CommonGenerator TestLibrary - , . , Generator, TLBINF32.DLL Generator' ( ). CommonGenerator - , TestLibrary- ... to orefkov, /, OC, , .... xml .. |
Young 4 - 01.11.2005 - 12:59 |
(3) , . |
jbond 5 - 01.11.2005 - 14:54 |
OpenConf Power Pack Win 2K SP4 - 'Matches' |
orefkov 6 - 01.11.2005 - 15:39 |
/. 8, xml- |
7 - 01.11.2005 - 15:42 |
! |
a13x 8 - 01.11.2005 - 16:07 |
(5) WSH < 5.6 |
trdm 9 - 01.11.2005 - 16:23 |
(5) - . 'Matches' - , , , ? |
jbond 10 - 01.11.2005 - 16:34 |
OpenConf.RegistryIniFile.wsc |
a13x 11 - 01.11.2005 - 16:40 |
(10) . , ... . , , VBScript, RegExp-engine Win 2k SP4 . ( ). . WSH 5.6+. . Win2k Server SP4, . |
jbond 12 - 01.11.2005 - 16:42 |
- 'Matches'
136 10 : .js 6 9 SendCommand() author.js navigator.js |
a13x 13 - 01.11.2005 - 16:49 |
... ... - , js- (" ")... |
artbear 14 - 01.11.2005 - 16:57 |
(12) , a13x , / WSH 5.6 :) |
Young 15 - 02.11.2005 - 13:32 |
Intellisense: http://www.script-coding.info/Intellisense.html ( " ints-".) |
Phoenix 16 - 02.11.2005 - 13:57 |
subsystems 1.3.3.3 http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1001&lid=4558 . , ,, , 1. . , . . ExtMD 1.0.0.0 http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1001&lid=5901 OpenConf. , , . , , . (Delphi 2005) , , Delphi. |
Ig 17 - 02.11.2005 - 14:47 |
Intellisense, , . : () = ("."); .<--- , . = ("."); ...
, . |
Ig 18 - 02.11.2005 - 14:49 |
, : CurrentLine - /</> RSide - /</> - /</> - /</> /</> - /</> - /<./> - /<./> |
trdm 19 - 02.11.2005 - 15:03 |
(17) . Intellisense. IAm . . Dots : , , . . - OLE - , ((( dll(((, . |
trdm 20 - 02.11.2005 - 15:13 |
(15) "... , ALS- -, . ..." - , - "". + () "... COM ...", , .... / ... , COM, ... |
Ig 21 - 02.11.2005 - 15:18 |
, , . . : 'Intellisence.vbs ver. 1.1.9 ': $Revision: 1.1 $ , - , ? |
Ig 22 - 02.11.2005 - 15:24 |
, , . . : 'Intellisence.vbs ver. 1.1.9 ': $Revision: 1.1 $ , - , ? |
Young 23 - 02.11.2005 - 15:40 |
(20) " COM-". " COM-, OLE-Automation", ( , )? " ", , . "" . |
Ig 24 - 02.11.2005 - 15:54 |
, , . . : 'Intellisence.vbs ver. 1.1.9 ': $Revision: 1.1 $ , - , ? |
Ig 25 - 02.11.2005 - 15:57 |
-, :-( |
Young 26 - 02.11.2005 - 22:28 |
OpenConf? http://itland.ru/forum/index.php?s=22f872c2b046f3ce4131e8b61cc8fcf7&showtopic=10267&st=0 |
27 - 03.11.2005 - 08:00 |
(23) , . , "" COM- (.. ). |
28 - 03.11.2005 - 08:03 |
+27 ... , , . |
jbond 29 - 03.11.2005 - 09:13 |
.: intsOLEGenerator 132 3 DMessage |
jbond 30 - 03.11.2005 - 09:15 |
, - / DMessage |
Young 31 - 03.11.2005 - 13:26 |
+(26) , OpenConf ? |
trdm 32 - 03.11.2005 - 13:31 |
(29) . . |
33 - 03.11.2005 - 13:36 |
32) , . |
trdm 34 - 03.11.2005 - 18:55 |
, intsOLEGenerator. : http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1001&lid=5815 : * intsOLEGenerator.vbs 1.15: [-] . [+] - -. |
trdm 35 - 04.11.2005 - 00:21 |
MetaEditor, .. |
MetaEditor 36 - 04.11.2005 - 09:40 |
35) |
artbear 37 - 07.11.2005 - 09:19 |
, - , html-, 1) , , 2) , .. " ". , . html , :( ? |
a13x 38 - 07.11.2005 - 10:53 |
(37) " " ? :-) , - , js ? . -- - ( , , , 1.2 ). , . . , "", (), /. SAX XML-. . : * SimpleDumper - / ( ) * IntsDumper - , Intel' * XMLDumper - XML , xml2tls tls- . , tlbinf32 :-(, "" xml-, . . , , , : ( , ?). , :-(. . http://kuntashov.narod.ru/files/intsOLEGen_a13x_20051107.zip |
trdm 39 - 07.11.2005 - 11:22 |
(37) , , ... - .... (38) ? . |
a13x 40 - 07.11.2005 - 11:28 |
(39) , , :-) |
artbear 41 - 07.11.2005 - 11:35 |
(38) , . js , html |
trdm 42 - 07.11.2005 - 19:13 |
(38) ? . , ))). |
a13x 43 - 07.11.2005 - 19:19 |
(42) , ? 1.2, ? |
a13x 44 - 07.11.2005 - 19:49 |
(42) , , , , , , , , . . kuntashov - ! - . |
a13x 45 - 07.11.2005 - 20:24 |
(41) done . . (//HtmlDlgExample.htm //HtmlDlgExample.js). . , htm- <BinDir>\config\data . - :-) |
artbear 46 - 08.11.2005 - 07:03 |
(45) , , :) . |
sashat 47 - 08.11.2005 - 08:15 |
OpenConf? :( ? |
artbear 48 - 08.11.2005 - 08:24 |
(47) ? |
a13x 49 - 08.11.2005 - 08:29 |
(45) :-) (47) OpenConf 1. , FileVersion - __ ( - - , ) 2. . : dll- , , ... , . . |
sashat 50 - 08.11.2005 - 08:39 |
telepata. dll 1 FileVersion :( |
sashat 51 - 08.11.2005 - 08:45 |
>1. > , FileVersion - __ >( - - , > ) telepat . |
a13x 52 - 08.11.2005 - 08:47 |
(51) - |
sashat 53 - 08.11.2005 - 08:56 |
? . . |
a13x 54 - 08.11.2005 - 08:59 |
(53) , ? ? -, ? |
orefkov 55 - 08.11.2005 - 09:28 |
(54) OpenConf- , , |
a13x 56 - 08.11.2005 - 09:57 |
(55) , , , (53) , " " . , : 1. 2. , " 1" 3. (" 1") 4. , " 1" 5. enter 6. |
sashat 57 - 08.11.2005 - 10:04 |
. . "" . """""ProgID". "" |
a13x 58 - 08.11.2005 - 10:14 |
(57) , :( " " kuntashov - ! - . |
artbear 59 - 08.11.2005 - 11:43 |
() - - , .. Set navigat = createobject("InternetExplorer.Application") ' Set navigat = OpenOleForm("Shell.Explorer", "") SelfScript.AddNamedItem "navigat", navigat, False Sub navigat_DocumentComplete(navigat1, url) Echo "DocumentComplete - " & url blnDone = true End Sub ? |
trdm 60 - 08.11.2005 - 16:37 |
(59) . ? |
a13x 61 - 08.11.2005 - 17:11 |
(69) . , ScriptX , - (, ) ... . , - js - , html, , . |
artbear 62 - 09.11.2005 - 06:33 |
(61) . - :) |
orefkov 63 - 09.11.2005 - 08:25 |
(59) VBScript IE, JScript . - . |
orefkov 64 - 09.11.2005 - 08:35 |
+63 http://openconf.itland.ru/beta/htmlview.zip |
a13x 65 - 09.11.2005 - 09:15 |
(62) MSScriptControl' , |
artbear 66 - 09.11.2005 - 09:18 |
(64) , , JS , . , JS :) (65) MSScriptControl , . , - ? |
a13x 67 - 09.11.2005 - 09:52 |
(66) , , , , : ' Class EventProxy Sub DocumentComplete(d, u) Message("Hello!") End Sub End Class ' Sub RunIE ' MSScriptControl.AddObject "EP", new EventProxy MSScriptControl.AddObject "SE", OpenOleForm("Shell.Explorer", "test") MSScriptControl.AddCode "Sub SE_DocumentComplete(d, u)" + vbCrLf + _ "EP.DocumentComplete(d, u)"+ vbCrLf + _ "End Sub" ' EndSub ' , js, , , - "" - , " ", . , js , vbscript :( |
fez 68 - 10.11.2005 - 00:03 |
up |
artbear 69 - 10.11.2005 - 18:17 |
alest . , "" .,
= .. , .. , :( , - - ? |
artbear 70 - 10.11.2005 - 18:31 |
(69+) :( |
artbear 71 - 10.11.2005 - 18:57 |
() , 1++ --------------- , :) , - 1++ , , , , .. |
trdm 72 - 11.11.2005 - 00:32 |
(71) ))) , , . , "" "DynaValue" "" ;) |
artbear 73 - 11.11.2005 - 18:11 |
(ALL) Intellisence.vbs [+] "..", ; , "" ".", . |
trdm 74 - 14.11.2005 - 11:39 |
^ |
trdm 75 - 14.11.2005 - 15:54 |
NavigationTools->SelectMetadataAndGotoObj. SelectMetadataAndGotoObj ? ? |
artbear 76 - 15.11.2005 - 07:01 |
(75) , . |
Young 77 - 16.11.2005 - 12:23 |
ERT, . Ctrl+S - , . ? |
MetaEditor 78 - 16.11.2005 - 12:59 |
77) ... doc.path ... 75) ... ... |
MAXXL 79 - 16.11.2005 - 13:10 |
=(" ? ? |
trdm 80 - 16.11.2005 - 13:42 |
(79) "" "..\BIN\config\Intell\.ints" |
Young 81 - 16.11.2005 - 15:32 |
(80) ? |
trdm 82 - 16.11.2005 - 15:53 |
(81) . a13x, ? |
a13x 83 - 16.11.2005 - 16:00 |
(82) , . , . :-). |
MAXXL 84 - 16.11.2005 - 17:26 |
(80) :-( - oc1018 |
Young 85 - 16.11.2005 - 17:48 |
(84) Intellisense http://1c.alterplast.ru/files/ocs/ocs_last.dos.zip + OpenConf . ... |
Young 86 - 18.11.2005 - 13:53 |
, , OpenConf ? http://itland.ru/forum/index.php?showforum=37 ... |
Young 87 - 18.11.2005 - 13:56 |
+(86) , http://itland.ru/forum/index.php?s=907dbc9d52fa62be7e93fcaa0b71d9e3&showtopic=10267 |
serega324 88 - 18.11.2005 - 14:01 |
, ERP ? |
a13x 89 - 18.11.2005 - 14:10 |
, http://www.justfuckinggoogleit.com/ :-) |
serega324 90 - 18.11.2005 - 14:13 |
Google Is Your Friend All Smart People Use Google It Appears That You Are Not One Of Them (??? ) Someone thinks you are an idiot because you were too stupid to check Google before asking a question. They gave you a link to this site as a joke. The fact that you followed it pretty much proves the point. |
a13x 91 - 18.11.2005 - 14:33 |
(90) , , . : open source erp |
artbear 92 - 21.11.2005 - 13:02 |
(a13x) 1) als2xml.js . , " " 2) - als :( / als-: Automation.als ... als2xml.js(295, 2) Microsoft JScript: "0" - null |
a13x 93 - 21.11.2005 - 13:13 |
(92) , , - , , . als' ? ? urbd.als (), v7plus.als ( ) 1c++.als (.), , - :-) |
trdm 94 - 21.11.2005 - 14:36 |
- ... |
Phoenix 95 - 21.11.2005 - 15:33 |
, . , . : ++ CVS ;) // // Author: Phoenix // email: PhoenixUSA@yandex.ru // , // var sArcPath = "d:\\ert\\"; var QuestOnSaving = true; var SaveForm = true; function SetUnSetQuestOnSaving() { if (QuestOnSaving) { QuestOnSaving = false Message(" ",mInformation); } else { QuestOnSaving = true Message(" ",mInformation); } } function SetUnSetSaveForm() { if (SaveForm) { SaveForm = false Message(" ",mInformation); } else { SaveForm = true Message(" ",mInformation); } } function ZeroZero(num) { return (num>9)?num:('0'+num); } function GetCurrentDateTime() { with (new Date) { return String(getYear()).substr(2,2)+ "_"+ZeroZero(getMonth()) +"_"+ZeroZero(getDate()) +"-"+ZeroZero(getHours()) +"_"+ZeroZero(getMinutes()) +"_"+ZeroZero(getSeconds()); } } function GetFileName() { if (!(Windows.ActiveWnd == null)) { var WndName = Windows.ActiveWnd.Document.Name; if (WndName.substring(0,41)=="CWorkBookDoc:: () - ") { var SaveFileName = WndName.substring(41,WndName.length); return SaveFileName; } else { return WndName; } } } function SavePage(vPage,vExt) { if (!(Windows.ActiveWnd == null)) { var WndName = Windows.ActiveWnd.Document.Name; if (WndName.substring(0,41)=="CWorkBookDoc:: () - ") { var WndPage = Windows.ActiveWnd.Document.Page(vPage); WndPage.SaveToFile(sArcPath+GetFileName()+"_"+GetCurrentDateTime()+vExt); } } } function SaveModule(vPage,vExt) { SavePage(1,".1s") } function SaveForm(vPage,vExt) { SavePage(0,".frm") } function LoadPage() { if (!(Windows.ActiveWnd == null)) { var WndName = Windows.ActiveWnd.Document.Name; if (WndName.substring(0,41)=="CWorkBookDoc:: () - ") { with (new ActiveXObject("WScript.Shell")) res = Popup(" ?", 0, "title", 0|100); if(res==6) { vPage = 1; } else { vPage = 0; } var WndPage = Windows.ActiveWnd.Document.Page(vPage); with (new ActiveXObject("Svcsvc.Service")) LFileName = SelectFile(true, sArcPath+GetFileName()+"*", GetFileName()+" (*.*)|"+GetFileName()+"*.*", false); if (!(LFileName)=="") { WndPage.LoadFromFile(LFileName); } } } } function LoadPageFree() { if (!(Windows.ActiveWnd == null)) { with (new ActiveXObject("WScript.Shell")) res = Popup(" ?", 0, "title", 0|100); if(res==6) { vPage = 1; } else { vPage = 0; } var WndPage = Windows.ActiveWnd.Document.Page(vPage); with (new ActiveXObject("Svcsvc.Service")) LFileName = SelectFile(true, sArcPath+"*.*", GetFileName()+" (*.*)|"+GetFileName()+"*.*", false); if (!(LFileName)=="") { WndPage.LoadFromFile(LFileName); } } } function SavePageFree() { if (!(Windows.ActiveWnd == null)) { with (new ActiveXObject("Svcsvc.Service")) LFileName = SelectFile(true, sArcPath+GetFileName()+"*", GetFileName()+" (*.*)|"+GetFileName()+"*.*", false); if (!(LFileName)=="") { with (new ActiveXObject("WScript.Shell")) res = Popup(" ?", 0, "title", 0|100); if(res==6) { vPage = 1; } else { vPage = 0; } var WndPage = Windows.ActiveWnd.Document.Page(vPage); WndPage.SaveToFile(LFileName); } } } function Configurator::OnFileSaved(W) { if (QuestOnSaving) { with (new ActiveXObject("WScript.Shell")) res = Popup(" ?", 0, "title", 0|100); if(res==6) { SavePage(1,".1s"); if (SaveForm) { SavePage(0,".frm"); } } } else { SavePage(1,".mdl"); if (SaveForm) { SavePage(0,".frm"); } } } // function Init(_) // , { try { var c = null; if (!(c = new ActiveXObject("OpenConf.CommonServices"))) { throw(true); // } c.SetConfig(Configurator); SelfScript.AddNamedItem("CommonScripts", c, false); } catch (e) { Message(" OpenConf.CommonServices", mRedErr); Message(" " & SelfScript.Name & " ", mInformation); Scripts.UnLoad(SelfScript.Name); } } Init(); // |
artbear 96 - 22.11.2005 - 07:05 |
(a13x) , , als-. 1++ - , , :( (orefkov) 1cpp.tls Bin, :( 1++, , ( ( ( |
artbear 97 - 22.11.2005 - 07:25 |
(96) , . , xml- (alias) . 1++.xml "", alias " " ( ). tls- , . , . (a13x) ? / , . (orefkov) , xml2tls, . , , :) . |
a13x 98 - 22.11.2005 - 08:26 |
(97) , , , , : . 1. , name alias - , - . makeValidId(), . alias' , , ( . ) :-(. - xml2tls . . 2. . . , /, . , , , . , - , :-). , . , , ( ) tls intsOLEGenerator , tlb - . . - " als-", "" - ? , , , - . |
DeathOgre 99 - 22.11.2005 - 08:55 |
+: ToDO: ShowType? ? |
Bot 100 - 22.11.2005 - 09:41 |
1. / Intellisence? 2. ? ( 1.50, 1.8 - ) 3. , 1.8 ( (34) - - ), => ! (2) [+] ; ___ , , ... . |
a13x 101 - 22.11.2005 - 09:48 |
(99) ToDO = To do, "", (100) 1. 1.50 2. , , , , 3. 1.50 "" 1.8, 1.50 |
Bot 102 - 22.11.2005 - 09:53 |
(101) . trdm, Intellisence. |
trdm 103 - 22.11.2005 - 13:18 |
(102) ? |
artbear 104 - 22.11.2005 - 17:03 |
(a13x) - , - . ? . , . |
Bot 105 - 22.11.2005 - 17:24 |
(103) : Intellisence.vbs , . ( , ) . |
trdm 106 - 22.11.2005 - 20:21 |
(105) , . : ? |
107 - 22.11.2005 - 20:55 |
, . ;) |
a13x 108 - 23.11.2005 - 08:31 |
(104) compound.als ( ), ( ), . , . . , :-(. . - , " ..." :-) |
MetaEditor 109 - 23.11.2005 - 10:30 |
(trdm) [*] SelectMetadataAndGotoObj: "" |
DeathOgre 110 - 23.11.2005 - 12:01 |
. ("") , . |
MetaEditor 111 - 23.11.2005 - 12:35 |
110) "MethodsList" intellisence.vbs , "" , ... |
MIK 112 - 23.11.2005 - 12:44 |
Intellisense? http://www.script-coding.info/Intellisense.html - |
Young 113 - 23.11.2005 - 12:51 |
(112) . . |
MIK 114 - 23.11.2005 - 12:56 |
, OpenConf Power Pack, 1 ... bin . telepatr, OpenConf 1.2.0, OpenConf_Scripts http://www.script-coding.info, openconf telepat, system , regall.bat, Intellisense ! !!! |
MIK 115 - 23.11.2005 - 12:59 |
Ctrl+I - intsOLEGenerator.vbs 132 |
a13x 116 - 23.11.2005 - 13:16 |
(114) " " " " ? , , , :-(. , ? |
MIK 117 - 23.11.2005 - 13:21 |
- intsOLEGenerator (116) 1, - COMDLG32 |
DeathOgre 118 - 23.11.2005 - 13:23 |
(111) ? |
MetaEditor 119 - 23.11.2005 - 13:36 |
118) http://1c.alterplast.ru/files/ocs/ocs_last.dos.zip 117) comdlg32 - .\BIN\Config fdsubst.dll |
DeathOgre 120 - 23.11.2005 - 14:16 |
. - |
a13x 121 - 23.11.2005 - 14:19 |
(117) > , OpenConf Power Pack, > 1 ... . . > - intsOLEGenerator > 1, - COMDLG32 . ... . , intsOLEGenerator, COMDLG32.dll . . ? . , ? |
DeathOgre 122 - 23.11.2005 - 14:19 |
OpenConf.CommonServices Intellisence . ? |
a13x 123 - 23.11.2005 - 14:40 |
(122) CommonServices.wsc Young' |
trdm 124 - 23.11.2005 - 17:15 |
(114) ? ) |
mvk 125 - 23.11.2005 - 17:38 |
, ? ... : ! |
trdm 126 - 23.11.2005 - 22:19 |
(109) , . . |
127 - 23.11.2005 - 22:40 |
126) /, , ? :))) |
128 - 23.11.2005 - 22:50 |
: - ! , . - . 25 webfile.ru/650584 , , . ? |
Michael 129 - 24.11.2005 - 00:48 |
(125) . |
a13x 130 - 24.11.2005 - 08:22 |
(125,129) . . |
131 - 24.11.2005 - 09:26 |
127+128) ? |
Bot 132 - 24.11.2005 - 09:39 |
(130) ? |
a13x 133 - 24.11.2005 - 10:55 |
(132) - , , ? . "" "" ( - , ), . . Install, , , , ... . , " " - you are welcome! , . . , " ", , , oc_last.zip? |
134 - 24.11.2005 - 16:52 |
, ? oc_last.zip . . + /??? 131) ? |
a13x 135 - 24.11.2005 - 18:44 |
(134) " "? Config , - OpenConf_Scripts, : . 1. config . , config - Intell , " " - config. ? ... , ( ), ( , ) , config\Intell, config\\Intell. , . macros.ini? " " - . , . , macros.ini config. , , . . 2. system. . system . , , , config scripts, - , ( ) . . ... ? ? , "" ( 1), ( 2). - , , , - (""), "". . - , , - . ____ , " ". ? - . . , . |
Young 136 - 25.11.2005 - 13:09 |
( ): =================================================================== =(""); .| =================================================================== Intellisense : =================================================================== . : intsOLEGenerator : C:\Program Files\1Cv77\BIN\config\scripts\Intellisense\intsOLEGenerator.vbs : 132 : 3 : 0 : Microsoft VBScript : 'DMessage' =================================================================== WindowsXP SP2, 7.70.025, OpenConf 1.0.2.0, 2.0.0.0r, Intellisence.vbs $Revision: 1.1 $ intsOLEGenerator.vbs $Revision: 1.1 $ intsOLEGenerator.vbs, . |
jbond 137 - 25.11.2005 - 13:18 |
DMessage |
zzz 138 - 25.11.2005 - 13:19 |
2(136) . . |
Young 139 - 25.11.2005 - 13:23 |
GoToObject .vbs: , , (InputBox' ). - :) , - - ... .vbs $Revision: 1.1 $ |
trdm 140 - 25.11.2005 - 13:25 |
( , intsOLEGenerator.vbs. (...... |
Young 141 - 25.11.2005 - 13:25 |
(137, 138) . , ... |
jbond 142 - 25.11.2005 - 14:49 |
(141) - |
artbear 143 - 25.11.2005 - 16:55 |
(trdm) intsOLEGenerator DMessage . , . . , . |
artbear 144 - 25.11.2005 - 16:57 |
(139) , . MetaEditor-. NavigationTools.vbs |
trdm 145 - 25.11.2005 - 19:39 |
. ' : $Revision: 1.1 $ <<< . ' : $Revision: 1.1 $ <<< . - "". |
146 - 25.11.2005 - 20:17 |
, - . , - ------------------------------------- : - ! , . - . 25 webfile.ru/650584 , , . ? --------------------------------------- |
a13x 147 - 26.11.2005 - 11:56 |
(146) :-), , , , . ? , "-" :-). . : , , " ". 1. " " , . . 2. ( ) Intell.ini SHOWTOOLTIPS "", , "" , . |
MetaEditor 148 - 26.11.2005 - 12:16 |
139,144) ... ) , : , , , ... --- " - " - ... .. |
trdm 149 - 26.11.2005 - 15:04 |
(146-147) , . , "ESC" , . , , : intell.ini : . // , DISABLE_TELEPAT_LIST = . : ShowTooltip : ' Sub ShowTooltip(param) ...... if UCase(GetIniParam("DISABLE_TELEPAT_LIST")) = "" then wshShell.sendKeys "{ESC}" ' End Sub , ShowTooltip "MethodsList". (146) . |
trdm 150 - 26.11.2005 - 15:08 |
. : , "SHOWTOOLTIPS" "" "DISABLE_TELEPAT_LIST" "" ESC, .. . , - . |
a13x 151 - 26.11.2005 - 16:00 |
(150) , , "ESC" , , , " , - ", , . . , , . . |
Young 152 - 26.11.2005 - 19:05 |
(148) , :) |
153 - 26.11.2005 - 21:09 |
: ! a13x, 147) " " - ! , , . , Esc - . : () ";" ... , "" , ? , ! |
154 - 26.11.2005 - 21:26 |
? |
zzz 155 - 28.11.2005 - 11:13 |
: Case 10 ' 1 ' ... ' , .. 1++ If InsertName = "" Then Text = "(""!"");" . :) |
artbear 156 - 28.11.2005 - 13:14 |
(155) , , ;-) |
157 - 28.11.2005 - 13:25 |
156, artbear, , . ? : http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=5985 |
trdm 158 - 28.11.2005 - 13:30 |
(151) - (( (153) , . , , , ? . |
artbear 159 - 28.11.2005 - 13:35 |
(157) , . |
160 - 28.11.2005 - 13:42 |
158) , , :( config ? |
zzz 161 - 28.11.2005 - 13:51 |
"", "". "intsOLEGenerator.vbs" , - (136) |
Young 162 - 28.11.2005 - 13:53 |
, . , / . , Intellisense ( "_"), Intellisene:MethodsList, :GoToObject. "": , ( ), , ( ). 1 - -. , ( , , -). , ? , ? P.S. , . |
Young 163 - 28.11.2005 - 13:56 |
(161) intsOLEGenerator.vbs . intsOLEGenerator.vbs, Intellisence.vbs Intell : http://1c.alterplast.ru/files/ocs/ocs_last.dos.zip |
zzz 164 - 28.11.2005 - 14:03 |
2(163) :) . |
MetaEditor 165 - 28.11.2005 - 14:10 |
157) " "... ) 162), .. telepat.vbs Case 14 ' If InsertName="_" or InsertName="_" Then ProcName=InputBox(" ","", "") tempText = Replace(Text,vbCrLf,vbCrLf & vbTab & "!" & vbCrLf) tempText = "//"+String(70,"=") & vbCrLf & _ Replace(tempText,"!(",ProcName & "(") & " // " & ProcName Text = tempText ... ... , ... |
trdm 166 - 28.11.2005 - 14:12 |
(162) Brackets.vbs. (163-164) . . (34) |
Young 167 - 28.11.2005 - 14:46 |
(165,166) , :) " " , :) |
168 - 28.11.2005 - 14:54 |
165, . |
zzz 169 - 28.11.2005 - 14:58 |
2(165) :) : . Case 14 ' If InsertName="_" or InsertName="_" Then ProcName=InputBox(" ","", "") Text= "// -----------------" & vbCrLf & Replace(Text,"!(",ProcName & "(!") & vbTab & "// " & ProcName |
Young 170 - 28.11.2005 - 16:21 |
. : (F5) . http://www.script-coding.info/Bookmarks.zip |
a13x 171 - 28.11.2005 - 16:43 |
... , 1 , => ( ) , - ConvertTemplate(), "" , ... . - , ... |
Young 172 - 28.11.2005 - 23:12 |
: C:\Program Files\1Cv77\BIN\config\scripts\Test.abcde -------------------------- : OpenConf " "? |
Young 173 - 28.11.2005 - 23:14 |
+(172) , " " "" , ? |
Young 174 - 28.11.2005 - 23:23 |
++(172) , "abcde" :) |
MetaEditor 175 - 29.11.2005 - 06:02 |
172) / $ENGINE $ENGINE VBScript $ENGINE PerlScript ... |
Vaicartana 176 - 29.11.2005 - 06:09 |
! . ? |
artbear 177 - 29.11.2005 - 06:53 |
(176) ! : . , "", "", " " .. , , . / |
Young 178 - 29.11.2005 - 11:17 |
(175) , :) , , - OpenConf? " "? "$ENGINE " , , , "": ------------------------------------ C:\Program Files\1Cv77\BIN\config\scripts\Test.ahk AutoHotkey : 0x800401F3 |
Young 179 - 29.11.2005 - 11:27 |
+(178) : " " OpenConf? , :) ... |
a13x 180 - 29.11.2005 - 11:51 |
(178) , Engine dll, COM- ( ) . Active Scripting Engine |
Young 181 - 29.11.2005 - 12:05 |
(180) , . |
orefkov 182 - 29.11.2005 - 13:06 |
(179) " " - COM-, IActiveScript. . ProgID, CLSID , . ProgID $ENGINE , , CLSID . |
Young 183 - 29.11.2005 - 13:38 |
(182) , . |
AnyBody 184 - 29.11.2005 - 14:19 |
: =(""); . . . telepat.dll. 2.0.0.0r () Intellisence : $Revision: 1.1 $Revision: 1.13 |
vladnet 185 - 29.11.2005 - 14:28 |
. , ... : , . , , , . ( ) , , , . |
a13x 186 - 29.11.2005 - 16:05 |
(185) - http://itland.ru/forum/index.php?showtopic=11109 , alest', - - :-). . Vim ( VimComplete.js). |
trdm 187 - 29.11.2005 - 16:11 |
, ((( : @= ...... " ......"? , : (?!@=)(?:(.+)$) (VBScript.RegExp)((( |
a13x 188 - 29.11.2005 - 18:35 |
(187) ? ? var m = "@=====".match(/^@=(.*)$/); // m[1]=="====" |
trdm 189 - 29.11.2005 - 23:30 |
- "VBScript.RegExp" + 1-. 1-. -... |
a13x 190 - 30.11.2005 - 08:39 |
(189) , , - : -------------------------------------------------------------------- Set RE = New RegExp RE.IgnoreCase = True RE.Global = True ' ( js) RE.Pattern = "^@=(.*)$" Set Matches = RE.Execute("@=====") ' "====" WScript.Echo Matches(0).SubMatches(0) -------------------------------------------------------------------- |
artbear 191 - 30.11.2005 - 11:23 |
(189) . ( ) 1, . , . |
192 - 01.12.2005 - 12:12 |
, " - ", , ( , 1). , ? |
MetaEditor 193 - 01.12.2005 - 12:22 |
192)", ......." )) http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1003&lid=5476 |
slavka 194 - 01.12.2005 - 12:22 |
MetaEditor'a - fdsubst. |
trdm 195 - 01.12.2005 - 12:36 |
(191) , ... |
196 - 01.12.2005 - 12:44 |
193) , Config, :( |
MetaEditor 197 - 01.12.2005 - 13:01 |
196) excelfiledialog.vbs... |
Phoenix 198 - 01.12.2005 - 14:45 |
(176) . . , : , , , , .. , . ExtFrmsTree XML. . . : PhoenixUSA . |
AnyBody 199 - 01.12.2005 - 14:54 |
(184) . . . . |
AnyBody 200 - 01.12.2005 - 14:59 |
(199) , "". ? |
slavka 201 - 01.12.2005 - 15:24 |
(200) telepat.vbs config. Sub Init(param) . |
AnyBody 202 - 01.12.2005 - 15:26 |
(200) , telepat.vbs , "" . |
a13x 203 - 01.12.2005 - 16:34 |
(202), : TelepatSettings.js : $Revision: 1.1 $ (). |
Young 204 - 01.12.2005 - 19:14 |
(trdm) , Generator intsOLEGenerator.vbs ".ints"? |
trdm 205 - 01.12.2005 - 21:11 |
(204) . |
Young 206 - 01.12.2005 - 23:13 |
(205) :) |
vladnet 207 - 03.12.2005 - 11:41 |
: , , , : . "" , , . ? |
SKrin 208 - 03.12.2005 - 18:39 |
: "(" - . - . ? . |
Cutter 209 - 05.12.2005 - 11:14 |
, , , . Intell "<>" ( ). , ' <>.' . . , , (, , Enter), . . , ... Intell 1.1.9 . . , . ? |
trdm 210 - 05.12.2005 - 20:14 |
(207) , ((( (208) , ... . |
trdm 211 - 07.12.2005 - 21:15 |
(((( |
fez 212 - 07.12.2005 - 21:55 |
, ? :)) |
slavka 213 - 07.12.2005 - 22:08 |
? ;) |
fez 214 - 07.12.2005 - 22:16 |
(213) . . :) |
Young 215 - 09.12.2005 - 19:38 |
Up |
vS 216 - 13.12.2005 - 07:49 |
... 2 , , 11 + 2, ... |
a13x 217 - 13.12.2005 - 08:16 |
(216) Win 2k Server, ( - ) |
vS 218 - 13.12.2005 - 08:25 |
, , , ? |
a13x 219 - 13.12.2005 - 08:41 |
(218) , , , , - . . (217) , ', , ( , WSH, MFC, COM-, , ..), . . . |
vS 220 - 13.12.2005 - 09:11 |
, ... ... ... ... .. , , , ... "" , ... 24 |
artbear 221 - 15.12.2005 - 17:02 |
(ALL) " 1: 7.7 8.0 96 / 12.12.2005 - OpenConf: 1 7.7" http://kb.mista.ru/article.php?id=54 , . , , , :) , , - . , 8.0 - , 1:. (romix) "" 1:. 1. ? |
222 - 15.12.2005 - 17:13 |
221) , , - ! |
Young 223 - 15.12.2005 - 19:52 |
(221) , " 1" . , ? , MsgBox +, , . |
a13x 224 - 16.12.2005 - 08:57 |
(223) ? , (1) , , (2) , , 1- , (221), "" . |
MetaEditor 225 - 16.12.2005 - 11:03 |
) Sub F5() Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2") with CreateObject("DynamicWrapper") .Register "kernel32.DLL", "GetCurrentProcessId","f=s", "r=l" for Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process Where (Name like ""1cv7%"") and (ParentProcessID = " & cStr(.GetCurrentProcessId) & ")") if MsgBox(" 1:?", vbQuestion + vbYesNo) = vbYes Then objProc.Terminate .Register "kernel32", "Sleep", "I=l", "f=s", "r=l" .Sleep 500 .Register "kernel32", "DeleteFileA", "I=s", "f=s", "r=l" .DeleteFileA IBDir & "1SUSERS.DBF" end if next end with SendCommand(33876) End Sub |
Young 226 - 16.12.2005 - 11:58 |
(224) "" - PostMessage, ( -, ). , , - :) (225) DBF- ? -. - ... |
MetaEditor 227 - 16.12.2005 - 12:08 |
226) (224) - ... ( ), - 1SUSERS.DBF |
228 - 16.12.2005 - 12:37 |
, ? ... |
229 - 16.12.2005 - 13:24 |
227) , . ? |
trdm 230 - 16.12.2005 - 15:48 |
' ExpandForm ' : $Revision: 1.1 $ ' . ' trdm 2005.07 Set fso = CreateObject("Scripting.FileSystemObject") dim objIE dim HtmlFile dim HtmlFileName HtmlFileName = BinDir + "Config\form.htm" HtmlFile = NULL Dim dcPropMy set dcPropMy = CreateObject("Scripting.Dictionary") dcPropMy.Add cpStrID , "" dcPropMy.Add cpFormul , "" dcPropMy.Add cpTitle , "" dcPropMy.Add cpHelpString , "" dcPropMy.Add cpToolTip , "" dcPropMy.Add cpHotKey , "" dcPropMy.Add cpLayer , "" dcPropMy.Add cpLinkWith , " " dcPropMy.Add cpMetaID , "ID " dcPropMy.Add cpPictMode , " " dcPropMy.Add cpLeft , " " dcPropMy.Add cpTop , " " dcPropMy.Add cpHeight , "" dcPropMy.Add cpWidth , "" dcPropMy.Add cpFontColor , " " dcPropMy.Add cpFontItalic , " " dcPropMy.Add cpFontName , " " dcPropMy.Add cpFontSize , " " dcPropMy.Add cpFontUnderline, " " dcPropMy.Add cpFontWeight , " " dcPropMy.Add cpFlags , " " dcPropMy.Add cpFlagsEx , " " private function HtmlFileCreate() Set HtmlFile = fso.CreateTextFile(HtmlFileName) HtmlFileAddCaption() end function private function HtmlFileAddCaption() HtmlFile.WriteLine("<HTML>") HtmlFile.WriteLine("<HEAD>") HtmlFile.WriteLine("<TITLE></TITLE>") HtmlFile.WriteLine("<META HTTP-EQUIV=""Content-Type"" content=""text/html; charset=windows-1251"">") HtmlFile.WriteLine("</HEAD>") HtmlFile.WriteLine("<BODY bgcolor=silver>") end function private function HtmlFileAddFutter() HtmlFile.WriteLine("</BODY>") HtmlFile.WriteLine("</HTML>") end function private function GetColorForCtrl( TypeCtrl ) GetColorForCtrl = "#ffffcc" 'exit function select case (TypeCtrl) case "" GetColorForCtrl = "yellowgreen" case "" GetColorForCtrl = "lightgreen" case "" GetColorForCtrl = "mediumpurple" case "" GetColorForCtrl = "silver" case "" GetColorForCtrl = "plum" case "" GetColorForCtrl = "wheat" case "" GetColorForCtrl = "yellow" case else GetColorForCtrl = "#f5f5f5" End Select end function sub ShowExpandForm() DocWB = "" if not CheckWorkBook(doc) Then Exit sub HtmlFile = NULL HtmlFileCreate() set Form = Windows.ActiveWnd.Document.Page(0) Dim TableTop Dim TableFut TableTop = "<table border=0 cellpadding=1 cellspacing=1 cols="""" width="""" height="""" align=""left right"" bgcolor=#000033 bordercolor="""" bordercolorlight=black bordercolordark="""" background="""" title="""">" HtmlFile.WriteLine(TableTop) strToFile = "<tr bgcolor=#ffcc66 align=center valign=middle>" HtmlFile.WriteLine(strToFile) strToFile = "<td> </td>" + vbCrLf HtmlFile.WriteLine(strToFile) strToFile = "" Arr = dcPropMy.Items For i=0 To dcPropMy.Count-1 if Arr(i) = "" Then strToFile = strToFile + "<td>" + Arr(i) + "</td>" + vbCrLf Else strToFile = strToFile + "<td>" + Arr(i) + "</td>" + vbCrLf End IF next strToFile = strToFile + "</tr>" HtmlFile.WriteLine(strToFile) Keys = dcPropMy.Keys for i = 0 to Form.ctrlCount - 1 strToFile = "<tr>" strToFile = " <tr bgcolor= " + GetColorForCtrl(Form.ctrlType(i)) + ">" ' #f5f5f5 strToFile = strToFile + "<td>" + Form.ctrlType(i) + "</td>" For ii=0 To dcPropMy.Count-1 on error resume next str = CStr(Form.ctrlProp(i,Keys(ii))) if err.number<>0 then str = " " on error goto 0 if len(str) = 0 Then str = " " if cpHelpString = Keys(ii) Then strToFile = strToFile + "<td><NoBR>" + Trim(str) + "</NoBR></td>" + vbCrLf else strToFile = strToFile + "<td><NoBR>" + str + "</NoBR></td>" + vbCrLf End If next strToFile = strToFile + "</tr>" HtmlFile.WriteLine(strToFile) Next TableFut = "</table>" HtmlFile.WriteLine(TableFut) HtmlFileAddFutter() HtmlFile.Close set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") While objIE.Busy=-1 Wend Set f = fso.OpenTextFile(HtmlFileName,1) tText = f.ReadAll objIE.Document.Write(tText) objIE.Visible = 1 End Sub '============================================================================================= ' WorkBook ' Windows.ActiveWnd.Document.Page(0) Function CheckWorkBook(doc) CheckWorkBook = False If Windows.ActiveWnd Is Nothing Then Exit Function End If Set doc = Windows.ActiveWnd.Document If doc<>docWorkBook Then Exit Function Set doc=doc.Page(0) CheckWorkBook = True End Function |
Young 231 - 16.12.2005 - 16:55 |
(230) :)) . , WorkBook "", ( ). : , ? :) |
Young 232 - 16.12.2005 - 16:59 |
+(231) : HTML / (, ). , :) |
a13x 233 - 16.12.2005 - 17:13 |
(229) , SendCommand(33876)
Scripts(" ").RunInExclusiveMode() . . trdm, ... , webfile ? , ... |
MetaEditor 234 - 16.12.2005 - 18:13 |
229) ... SendCommand(33876) - F11 ... :-/ 233) , 4_965 bytes .................... :) |
a13x 235 - 16.12.2005 - 18:20 |
(234) . |
Young 236 - 16.12.2005 - 18:34 |
(234) , F11 "" , users.usr. |
trdm 237 - 17.12.2005 - 04:21 |
(231) . . (233) . . |
238 - 18.12.2005 - 00:15 |
, OpenIn1C, : ert mxl? , . |
artbear 239 - 18.12.2005 - 13:42 |
:( http://www.kuban.ru/forum_new/forum9/files/252406.html , 1 250, , 240 ;-) |