ÈÃ×Ô¼ºµÄÈí¼þÖ§³ÖVB½Å±¾¸´ÔÓÂð£¿
½Å±¾ÒýÇæÊÇÊշѵϹÊÇÃâ·ÑµÄ£¿
ºÃÏóÊÇÃâ·ÑµÄ£¬ÎÒÍüÁËÔÚʲôµØ·½¿´µ½ÁË£¬ÊǸö×é¼þ¡£
ÄÜ·ñ˵Ïêϸµã£¿
ActiveX Scripting¼¼Êõ(Ò»)
ÂÀ˼ΰ Å˰®Ãñ
ActiveX Scripting¼¼ÊõÊÇMicrosoft ActiveX¼¼ÊõµÄÒ»¸ö×é³É²¿·Ö,ËüµÄÖ÷ҪĿµÄÊÇʹӦÓóÌÐòÔÚ²»±»Ð޸ĵÄÇé¿öÏÂ,Ϊ¸÷Öֽű¾ÓïÑÔËù¿ØÖÆ¡£ÔÚÈí¼þ½»»¥ÐÔ²»¶ÏÌá¸ßµÄ½ñÌì,½ö½öÌṩ²Ëµ¥»ò¹¤¾ßÏäµÄ½çÃæÒѾ²»ÄÜÂú×ãÓû§µÄÐèÒªÁË,Èí¼þµÄ¿É¶¨ÖÆÌØÐÔÒѾ³ÉΪµ±½ñÈí¼þµÄÒ»Ïî»ù±¾ÌØÕ÷,ÓÈÆä¶ÔÓÚһЩͨÓõÄÈí¼þ¸üΪÈç´Ë¡£´ó¼Ò±È½ÏÊìϤµÄMicroso ft Office,±ÈÈçWord×Ö´¦ÀíÈí¼þ,Ëü²»½öÌṩÁ˽çÃæµÄÈÎÒâ¶¨ÖÆ,»¹ÌṩÁË·½±ãµÄBASICÓïÑԵĿɱà³ÌÌØÐÔ,Óû§¿ÉÒÔͨ¹ý±àдBASICÓïÑÔʵÏÖ½ÏΪ¸´ÔӵŦÄÜÀ©³ä¡£
MicrosoftÌṩµÄActiveX Scripting¼¼Êõ¿ÉʹÈí¼þÀ©³ä±äµÃ·Ç³£¼òµ¥,Èí¼þ¿ª·¢ÉÌÀûÓýű¾ÒýÇæ(Script Engine)Ö§³Ö½Å±¾ÓïÑԵĽâÊͺÍÖ´ÐвÙ×÷,¶øÈí¼þÓû§¿ÉÒÔ¸ù¾ÝÐèÒª±àд×Ô¼ºµÄ½Å±¾´úÂë,½»ÓÉÈí¼þ´¦Àí¡£¶ÔÓÚÓû§À´Ëµ,¾ÍºÃÏñ×Ô¼ºÔÚ±àд³ÌÐò¿ØÖÆÓ¦ÓóÌÐò,ÒÔÍê³É×Ô¼ºËùÆÚÍûµÄ¹¦ÄÜ¡£¶øÓ¦ÓÃÈí¼þ²¢²»ÐèÒª×Ô¼ºÈ¥½âÊÍÖ´ÐÐÓû§µÄ½Å±¾´úÂë,Ö»ÒªÀûÓýű¾ÒýÇæ¾Í¿ÉÒԺܷ½±ãµØÊµÏÖ¶ÔÓû§½Å±¾ÓïÑÔµÄÖ§³Ö¡£Ó¦ÓÃϵͳҲ¿ÉÒÔÀûÓÃÕâÖÖ¼¼ÊõÀ´Ìṩ¶þ´Î¿ª·¢µÄÌØÐÔ¡£
ËäÈ»½Å±¾ÒýÇæÌṩÁ˽ű¾ÓïÑԵĽâÊÍÖ´ÐеŦÄÜ,µ«ÒªÓúÃActiveX Scripting¼¼ÊõÔòÐèÒª¶ÔËüÓÐÒ»¸öÈ«ÃæµÄÁ˽⡣±¾ÏµÁн²×ù½«¶ÔActiveX Scripting¼¼Êõ×÷һ̽ÌÖ,²¢¸ø³öÒ»¸ö¾ßÌåÀý×Ó,ÒÔʹ¶ÁÕß½øÒ»²½Àí½âActiveX Scripting¼¼Êõ¡£
Ò»¡¢ActiveX Scripting±³¾°
ActiveX ScriptingÊÇMicrosoftµÄAutomation¼¼ÊõºÍScript¼¼Êõ½áºÏµÄ²úÎï¡£Òò´Ë,ÔÚ½éÉÜActiveX Scripting֮ǰ,Ê×ÏÈÎÒÃÇÀ´¿´¿´AutomationºÍScriptÁ½Ö
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
×Ô¼º²ÉÓõÄÊÇSet objWMIService = GetObject("winmgmts:\\"&computername&"\root\cimv2")£¬ÆäÖÐcomputernameÊǾÖÓòÍøÒ»Ì¨µçÄÔµÄIP»ò¼ÆËã»úÃû£¬µ«Ê¹ÓÃÕâ¸öwmiÓï¾ä¶ÔÔ¶³Ì¼ÆËã»ú½øÐвÙ×÷ʱ ......