Çë½ÌÒ»¸öVB shellµÄÎÊÌâ
ÊÂÇéÊÇÕâÑùµÄ£º
ÎÒÃÇÏ뽫¹«Ë¾ÄÚËùÓÐÔ±¹¤µçÄԵĹÜÀíԱȨÏÞÊջأ¬±àдÁËÒ»¸öbatÎļþ£¬µ«ÊǸü¸Äÿ¸öµçÄÔ¶¼ÐèÒªÐÞ¸ÄÕâ¸öbatÎļþ£¬ºÜÊÇÂé·³¡£ÓÚÊÇдÁËÒ»¸öС³ÌÐò£¬µ«ÊÇÎÒѧVBµÄʱ¼ä¼Óµ½Ò»ÆðûÓÐ10µÄСʱ£¬²»Ì«Ã÷°×£¬Çë¸ßÊÖÖ¸µã¡£
ÔÚÎı¾¿òÖÐÊäÈëÐèÒª¸ü¸ÄΪUserȨÏÞµÄÓòÓû§Ãû£¬È»ºóÑ¡Ôñ¡°½«¸ÃÓòÕ˺޵¼¶ÎªUser¡±°´Å¥£¬¼´¿É½«±¾»ú¹ÜÀíԱȨÏÞ½«ÎªUser
Õâ¸ö°´Å¥µÄ´¦Àí³ÌÐòÊÇÕâÑùµÄ£º
Shell ("net localgroup users Text1.Text /add")
Shell ("net localgroup administrators Text1.Text /delete")
Text1.Text ¾ÍÊÇÐèÒª¸ü¸ÄµÄÓòÕË»§¡£
ÈçºÎ½«Îı¾¿òÖÐÊäÈëµÄÓòÓû§Ãû¹ØÁªÆðÀ´£¬ÎÒÊÔ¹ýÔÚShellÖÐÖ±½ÓдÈëText1.Text²¢²»Æð×÷Óá£
²»ÖªµÀÎÒÃèÊöµÄÊÇ·ñÇåÎú£¬Çë¸ßÊÖ°ïæָµã¡£
³É¹¦£¬Ð»Ð»¡£
½áÌù
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......