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

¹ØÓÚVBµÄÒ»¸öСÎÊÌâ - VB / »ù´¡Àà

ÔÚVBÖÐÈçºÎʵÏÖµ¥»÷Ò»¸ö°´Å¥¾Í¿ÉÒÔ´ò¿ª¼ÆËã»ú¹ÜÀí¡¢±¾µØ×é²ßÂÔ¡¢ÍøÂçÊôÐÔ°¡£¡¿ÉÒÔÓÃshellº¯Êýµ÷ÓÃÂð£¿ÄǸÃÈçºÎʵÏÖÄØ£¿
Shell ("cmd /c gpedit.msc"), vbHide '´ò¿ª±¾µØ×é²ßÂÔ
Shell ("cmd /ccompmgmt.msc"), vbHide '´ò¿ª¼ÆËã»ú¹ÜÀí

ÔÚ¡°¿ªÊ¼²Ëµ¥¡±¡¢¹ÜÀí¹¤¾ß ÀïÃ棬ÓÒ»÷¸÷¹¤¾ß£¬Ñ¡Ôñ¡°ÊôÐÔ¡±£¬¾ÍÄÜ¿´µ½ËüÃǵ÷ÓõÄÖ´ÐÐÎļþ»òMSCÃüÁî¡£
ÓÃSHELLµ÷ÓÃÖ´ÐÐËüÃǾͿÉÒÔÁË¡£

Â¥ÉÏÓÃÁËvbHide£¬ÕâÊÇʹÔËÐкóµÄ´°¿ÚÒþ²ØÆðÀ´ÁË£¬²»ºÃ£¬Ó¦¸ÃÊÇÓÃvbNormal£¬Èô°¿ÚÕý³£ÏÔʾ£¬»òÕß×î´ó»¯Ò²¿ÉÒÔ¡£


VB code:
Shell ("cmd /c gpedit.msc")'´ò¿ª±¾µØ×é²ßÂÔ
Shell ("cmd /ccompmgmt.msc")'´ò¿ª¼ÆËã»ú¹ÜÀí
Shell ("cmd /ncpa.cpl")'´ò¿ªÍøÂçÁ¬½Ó


cmd¡­¡­

ps£º
´ó¼Ò°ï°ï棺http://topic.csdn.net/u/20100524/21/68c9d03a-7e09-46f7-b284-66a801857f8e.html?seed=1492863464&r=65687764#r_65687764

ѧϰ,,ѧϰ


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ