Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÈÃ×Ô¼ºµÄÈí¼þÖ§³Ö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Á½Ö


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

vbÖÐÈçºÎÐ޸ľÖÓòÍøµçÄÔµÄÍø¹Ø»òdns?

×Ô¼º²ÉÓõÄÊÇSet objWMIService = GetObject("winmgmts:\\"&computername&"\root\cimv2")£¬ÆäÖÐcomputernameÊǾÖÓòÍøÒ»Ì¨µçÄÔµÄIP»ò¼ÆËã»úÃû£¬µ«Ê¹ÓÃÕâ¸öwmiÓï¾ä¶ÔÔ¶³Ì¼ÆËã»ú½øÐвÙ×÷ʱ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ