ÈçºÎÓÃVBд°²È«¿Ø¼þ
×ÜÊö
±¾ÎÄÐðÊöÁËÈçºÎÔÚVBÖÐʵÏֿؼþµÄIobjectSafety½Ó¿Ú£¬ÒÔ±êÖ¾¸Ã¿Ø¼þÊǽű¾°²È«ºÍ³õʼ»¯°²È«µÄ¡£VB¿Ø¼þĬÈϵĴ¦Àí·½Ê½ÊÇÔÚ×¢²á±íÖÐ×¢²á×é¼þÀàÀ´±êʶÆä°²È«ÐÔ£¬µ«ÊµÏÖIobjectSafety½Ó¿ÚÊǸüºÃµÄ·½·¨¡£±¾ÑÔÓï°üÀ¨ÁËʵÏÖ¹ý³ÌÖÐËùÐèµÄËùÓдúÂë¡£
Çë×¢Ò⣬¿Ø¼þÖ»ÓÐȷȷʵʵÊǰ²È«µÄ£¬²ÅÄܱ»±êʶΪ“°²È«µÄ”¡£±¾ÎIJ¢Î´ÂÛ¼°ÈçºÎÈ·±£¿Ø¼þµÄ°²È«ÐÔ£¬Õâ¸öÎÊÌâÇë²ÎÔÄInternet Client Software Development Kit (SDK)ÖеÄÏà¹ØÎĵµ "Safe Initialization and Scripting for ActiveX Controls"£¬ËüÔÚComponent Development À¸Ä¿ÖС£
Ïà¹ØÐÅÏ¢£º
<´Ë´¦ÂÔÈ¥ÁËÒ»¶ÎÒ²ÐíÎ޹ؽôÒªµÄ¾¯¸æ>
ÏÖÔÚ¿ªÊ¼ÑÐò½¥½øµØ¾ÙÀý˵Ã÷ÔõÑù´´½¨Ò»¸ö¼òµ¥µÄVB¿Ø¼þ£¬ÒÔ¼°ÔõÑù½«Ëü±êʶΪ½Å±¾°²È«ºÍ³õʼ»¯°²È«¡£
Ê×ÏÈн¨Ò»¸öÎļþ¼ÐÀ´´æ·ÅÔÚ±¾ÀýÖÐËù²úÉúµÄÎļþ¡£
´ÓVB CD-ROMÈ¡µÃOLE ×Ô¶¯»¯Àà¿âµÄÖÆ×÷¹¤¾ß¡£½«VB°²×°¹âÅÌÖÐ\Common\Tools\VB\Unsupprt\Typlib\Ŀ¼ÏÂËùÓÐÄÚÈÝÒ»²¢¿½±´µ½Ç°ÃæÐ½¨µÄÏîÄ¿Îļþ¼ÐÖС£
°ÑÏÂÁÐÄÚÈÝ¿½±´µ½“¼Çʱ¾”ÖУ¬È»ºó±£´æµ½ÉÏÊöÎļþ¼Ð£¬ÎļþÃûΪObjsafe.odl£º
[
uuid(C67830E0-D11D-11cf-BD80-00AA00575603),
helpstring("VB IObjectSafety Interface"),
version(1.0)
]
library IObjectSafetyTLB
{
importlib("stdole2.tlb");
[
uuid(CB5BDC81-93C1-11cf-8F20-00805F2CD064),
helpstring("IObjectSafety Interface"),
odl
]
interface IObjectSafety:IUnknown {
[helpstring("GetInterfaceSafetyOptions")]
HRESULT GetInterfaceSafetyOptions(
[in] long riid,
[in] long *pdwSupportedOptions,
[in] long *pdwEnabledOptions);
[helpstring("SetInterfaceSafetyOptions")]
HRESULT SetInterfaceSafetyOptions(
[in] long riid,
[in] long dwOptionsSetMask,
[in] long dwEnabledOptions);
}
}
ÔÚÃüÁîÐÐÌáʾ·ûÏÂÇл»µ½ÏîÄ¿Îļþ¼Ð£¬ÊäÈëÏÂÁÐÃüÁî´´½¨Ò»¸ö.tlb Îļþ£º
MKTYPLIB objsafe.odl /tlb objsafe.tlb
ÔÚVBÖÐн¨Ò»¸öActiveX Control ÏîÄ¿¡£ÐÞ¸ÄÊôÐÔ£¬°ÑÏîÄ¿ÃüÃûΪIobjSafety£¬¿Ø¼þÃüÃûΪDemoCtl¡£ÔڿؼþÉÏ·ÅÖÃÒ»¸ö°´Å¥£¬ÃüÃûΪcmdTest£¬ÔÚËüµÄClickʼþÖмÓÈëÒ»¾ä´úÂë MsgBox "Test" ¡£
´ò¿ª²Ëµ¥“¹¤³Ì->ÒýÓÔ£¬µã“ä¯ÀÀ”£¬ÕÒµ½¸Õ¸Õ½¨Á¢µÄObjsafe.tlb£¬°ÑËü¼ÓÈëµ½ÒýÓÃÖС£
Ôö¼ÓÒ»¸öÐÂmoduleÃûΪbasSafeCtl£¬²¢ÔÚÆäÖм
Ïà¹ØÎĵµ£º
½ñÌìÓñà³ÌÓïÑÔVisual Basic£¨VB£©Ð´³ö×Ô¼ºµÄ¼Çʱ¾£¡¼ÇµÃ×Ô´ÓÉϴεÄÒ»¸öVB´òÔì¼òµ¥¼ÆËãÆ÷ºó¾ÍÔÙҲûÓÐдһЩС³ÌÐòÁË£¡½ñÌìÄØ£¬Ð´Ò»¸ö¼òµ¥µÄ¼Çʱ¾³ÌÐò°É£¡
¹¤¾ß£ºÒ»Ì¨¼ÆËã»ú£¨µçÄÔ£©¡££¨ÅäÖò»×öʲôҪÇó£¬ÏÖÔڵĻúÆ÷Ó¦¸ÃûÓÐÅäÖúܵ͵İɣ¡Ö»ÒªÄÜÔËÐÐVisual Basic 6.0¾ÍÐУ¡£©
&nbs ......
ÔÚDVDRip¡¢MKVµÈ720P¸ßÇåÊÓÆµÖУ¬srt¡¢ssa¡¢ass¡¢idx¡¢subµÈÍâ¹Ò×ÖÄ»·Ç³£Á÷ÐУ¬²ÉÓõÄÏÔʾ¼¼ÊõºÁ²»ÀýÍâ¶¼ÊÇVSFilter£¨ÔçÆÚ°æ±¾ÊÇVobSub£©ºÍAviSynthÍâ¹Ò×ÖÄ»²å¼þ¡£ÏÔʾµÄµãÕóºº×ַdz£Æ¯ÁÁ£¡ÏÖÔÚÁ÷ÐеĶàýÌå²¥·ÅÆ÷£¬ÈçKMPlayer¡¢±©·çÓ°ÒôµÈ¶¼²ÉÓÃÁËÉÏÊöDirectVobSub¼¼Êõ¡£ËäÈ»DirectVobSub¼ ......
VBÈí¼þ¹¤³Ìʦ£º
ְλÃèÊö£º
1¡¢½øÐбàÂë¡¢²âÊÔ£»
2¡¢Ôڹ涨ʱ¼äÄÚÌá½»Ô´´úÂë¡£
¸ÚλҪÇó£º
1¡¢ÊìϤMS SQLÊý¾Ý¿â£»
2¡¢ÊìϤVB 6.0£»
3¡¢ÓÐÒµÎñϵͳ¿ª·¢¾Ñ飻
4¡¢¾ß±¸Á¼ºÃµÄÍŶӺÏ×÷¾«Éñ£¬ÇÚ·Ü¡¢ÉϽø£»
5¡¢´óר»òÕßÒÔÉÏѧÀú£»
6¡¢¾ßÓÐ1Äê»òÕßÒÔÉÏÏà¹Ø¹¤×÷¾Ñé £»
7¡¢ÊìϤC#ÓÅÏÈ¡£
VBÐÂÊÖ¡¢³õ¼¶³ÌÐòÔ±¹«Ë¾Ìṩרà ......
°ÑÏÂÃæµÄ´úÂë Õ³Ìùµ½Îı¾
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" ±¾³ÌÐò½«×Ô¶¯Ìæ»»Ä㵱ǰ Windows µÄÐòÁкÅ,ͨ¹ý΢ÈíÑéÖ¤ÍêÈ«Õý°æ¡£"&vbCr&vbCr&"ÐòÁкÅ(OEM°æÎÞЧ,ĬÈϰ汾Ϊ XP VLK)£ ......
ÌÖÂÛVBÖеĽṹÌå[×ªÔØ]
2009Äê10ÔÂ20ÈÕ ÐÇÆÚ¶þ 11:30
VBÀïÃæµÄ½á¹¹ÌåÊÇÒ»ÖÖWORD/DWORD¶ÔÆëµÄ½á¹¹Ì壬ÕâÒ»µãÔÚ±à³ÌÖÐÓÈÆäҪעÒ⣬Èç¹ûÊÇ´¿VB±à³Ì£¬Ôò½á¹¹ÌåµÄ¸÷¸öÓòÈçºÎÅÅÁпÉÒÔ»ù±¾²»ÓùØÐÄ£¬
¶øÈç¹ûÊǵ÷ÓÃAPI»òÕßÊǵ÷ÓÃÆäËûµÄ¶¯Ì¬Á´½Ó¿â£¬ÔòºÜÈÝÒ׳öÎÊÌ⣬ÔÒò¾ÍÔÚÓÚ£ºÕâЩ¶¯Ì¬Á´½Ó¿âÊÇÓÃC/C++дµÄ£¬¶ø´ó²¿·ÖC/C++»·¾³ ......