VB ʹÓÃWMI±à³Ì½²×ù(¶þ)
Îå¡¢ CIM´¢´æ¿âºÍCIMÀࣨ1£©
ÉÏÒ»½²ÎÒÃǽéÉÜÁËWMIµÄÌåϵ½á¹¹£¬»¹¼ÇµÃÄÇÕÅÌåϵ½á¹¹Í¼Â𣿼ǵÃÎÒÃÇ˵µ½¹Ø×¢µÄÖصãÓ¦¸ÃÊÇCIM´¢´æ¿âºÍWMI½Å±¾¶ÔÏó¿â£¬ÎªÊ²Ã´ÎÒÃÇÕâÑù˵ÄØ£¿ÒòΪÎÒÃǵijÌÐòÖ±½ÓÊÇÀûÓÃWMI½Å±¾¶ÔÏó¿â½øÐбà³Ì£¬¶øÕâ¸öWMI½Å±¾¶ÔÏó»ñÈ¡»ò²Ù×÷µÄÄÚÈݶ¼ÊÇÀ´×ÔCIM´¢´æ¿â£¨×¢Ò⣺ÎÒÃÇÕâÀï˵µÄCIM´¢´æ¿â£¬Ö¸µÄ“Êǹ«¹²ÐÅϢģÐͶÔÏó¹ÜÀíÆ÷Common Information Model Object Manager£¬CIMOM”ºÍ“¹«¹²ÐÅϢģÐÍCommon Information Model£¬CIM ´¢´æ¿â”¡£ÕâÑù×öÒ»ÊÇΪÁËÐðÊöºÍÀí½â·½±ã£¬Æä´ÎÄ¿Ç°¶ÔÎÒÃDZàдWMIÓ¦ÓóÌÐòÀ´ËµÊµÔÚûÓбØÒª°ÑËüÇø·Ö¿ªÀ´£©¡£ÎªÁËÇ¿µ÷CIM´¢´æ¿âºÍCIMÀàµÄÖØÒªÐÔ£¬×Ðϸ¹Û²ìÒ»ÏÂÔÚÇ°¼¸½²ÖÐչʾµÄʵÀý1ÖÁʵÀý4£¬Î¨Ò»ÓÐÇø±ðµÄÊDZêʶ WMI ÍйÜ×ÊÔ´µÄÀàÃûºÍÿ¸öÀàÊôÐÔµÄ×Ó¼¯¡£Ïàͬ³ÌÐòÄ£°å¿ÉÒÔÓÃÀ´¼ìË÷È«²¿µÄÎïÀíÄÚ´æ¡¢·þÎñ¡¢Ê¼þÈÕÖ¾¼Ç¼¡¢½ø³ÌºÍ²Ù×÷ϵͳÐÅÏ¢£¬ÕâÒ»ÊÂʵ˵Ã÷ÁË CIM ÀàÔÚ WMIÓ¦ÓóÌÐòÖаçÑݵÄÖØÒª½ÇÉ«¡£Ò»µ©ÖªµÀÈçºÎ±àдһ¸ö³ÌÐòÀ´¹ÜÀíÒ»Àà WMI ÍйÜ×ÊÔ´£¬Äú¾Í¿ÉÒÔ¶ÔÆäËûÍйÜ×ÊԴʹÓÃÏàͬµÄ»ù±¾¼¼Êõ¡£
µ±È»£¬ÖªµÀÒ»¸öÍйÜ×ÊÔ´µÄÀàÃûÒÔ¼°¸ÃÀàµÄÏàÓ¦ÊôÐÔÖ»ÊDZ¾ÎĵÄÒ»²¿·Ö¡£ÔÚÄúÄܹ»ÇÉÓÃWMIµÄÈ«²¿Ç¿´ó¹¦ÄÜ֮ǰ£¬ÄúÐèÒª¶Ô CIM ´¢´æ¿âºÍ CIM ÀàµÄ½á¹¹Á˽âµÃÔÙ¶àһЩ¡£ÎªÊ²Ã´ÄØ£¿ÎÒÃǽ«¸ø³öÁ½¸öÖØÒªµÄÀíÓÉ£ºÁ˽âÈçºÎä¯ÀÀ CIM ½«°ïÖúÄúÈ·¶¨Í¨¹ý WMI ¹«¿ªµÄ¼ÆËã»úºÍÈí¼þ×ÊÔ´£¬ÁíÒ»¸öÊÇÁ˽âÈçºÎ½âÊÍÍйÜ×ÊÔ´µÄÀඨÒ壬½«°ïÖúÄúÀí½â¿ÉÒÔÔÚÍйÜ×ÊÔ´ÉÏÖ´ÐеÄÈÎÎñ¡£
ÄÇôÈçºÎÁ˽â»òѧϰËüÄØ£¿Ò»ÖÖ·½·¨ÊÇͨ¹ý²éÔÄ΢Èí»òÆäËûµÚÈý·½ÌṩµÄ¸÷ÖÖ×ÊÁÏÊé¼®»òʹÓÃһЩWMI¹¤¾ß¡£ÁíÒ»ÖÖ¸üÇ¿´ó¡¢Áé»îµÄ·½·¨ÊÇʹÓà WMI ½Å±¾¶ÔÏó¿â¡£¹ØÓÚ WMI£¬ÕæÕý¿áµÄÊÂÇéÖ®Ò»ÊÇ£¬Äú¿ÉÒÔʹÓà WMI ½Å±¾¶ÔÏó¿âÀ´Ñ§Ï° WMI¡£Ã»´í£¬Óñàд WMI Ó¦ÓóÌÐòÀ´¼ìË÷ WMI ÍйÜ×ÊÔ´ÏàͬµÄ·½·¨£¬ÄúÒ²¿ÉÒÔ±àд WMI Ó¦ÓóÌÐòÀ´Ñ§Ï°¹ØÓÚ WMI ±¾ÉíµÄ¸÷ÖÖÓÐȤµÄÏêϸÐÅÏ¢¡£Äú¿ÉÒÔ±àд WMI Ó¦ÓóÌÐòÀ´Áгö CIM ´¢´æ¿âÖÐËùÓеÄÃüÃû¿Õ¼äºÍÀ࣬Äú¿ÉÒÔ±àдӦÓóÌÐòÀ´Áгöһ̨ÆôÓà WMI µÄ¼ÆËã»úÉÏ°²×°µÄËùÓÐÌṩ³ÌÐò£¬ÄúÉõÖÁ¿ÉÒÔ±àд WMI ½Å±¾À´¼ìË÷ÍйÜ×ÊÔ´ÀඨÒå¡£ÎÒÃÇÏÂÃæµÄÀý³Ì9¾ÍÊDzÉÓñàдWMI Ó¦ÓóÌÐòÀ´»ñµÃCIMµÄËùÓÐÃüÃû¿Õ¼ä¡£
½ÓÏÂÀ´ÈÃÎÒÃÇ×ÐϸÁ˽âһϠWMI µÄ¹ÜÀíÄ£ÐÍ — CIM ´¢´æ¿â¡£
CIM ´¢´æ¿â
ÔÚµÚÉÏÒ»½²ÖУ¬ÎÒÃÇ˵µ½ WMI µÄ»ù±¾Ë¼Â·ÊÇ &md
Ïà¹ØÎĵµ£º
·ÖÀࣺVBѧϰ ×ֺţº ´ó´ó ÖÐÖРСС mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È) ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®]
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ"
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2) ´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1Öе ......
VB
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = i1
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeBinary
MSComm1.InBufferCount = 0
& ......
VBÊý¾Ý¿â²Ù×÷ʵÀý
2008-02-22 05:49
VBÊý¾Ý¿â²Ù×÷¶ÔºÜ¶à³õѧÕßÅóÓѸе½±È½Ï³ÔÁ¦£¬Ä¿Ç°½Ì²ÄÖеÄʵÀý¶ÔÊý¾Ý¿â²Ù×÷¶¼±È½Ïµ¥Ò»£¬ºÜ¶àÅóÓÑÌáÒéÎÒ×öÒ»¸ö°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷ʵÀý£¬ÏÂÃæÕâ¸öʵÀý¾ÍÊÇÒ»¸öÕâÑùµÄÊý¾Ý¿â²Ù×÷ʵÀý¡£
¡¶Êé¿â¹ÜÀíϵͳ¡·ÊÇÒ»¸ö×î¼òµ¥µÄÊý¾Ý¿â²Ù×÷ʵÀý ......
'Ìí¼Ó¸öpicture1ºÍcommand1
Option Explicit
Dim lngCenter As Long
Dim lngMax As Long
Dim lngPad&
Dim PCurrent As POINT, PLast As POINT
Private Type POINT
x As Long
y As Long
End Type
Private Sub Form_Load()
lngCenter = (Picture1.Top + Picture1.Height) / 2
lngMax = Pictu ......
http://zhidao.baidu.com/question/81532606.html
VB ¶ÁÖ¸¶¨ÐÐ
ÐüÉÍ·Ö£º10 - ½â¾öʱ¼ä£º2009-1-20 11:41
vbÖÐÈçºÎ¶ÁÈ¡Ö¸¶¨ÐеÄÄÚÈÝ£¬´°ÌåÉÏÓÐÁ½¸ö±êÇ©£¬ÎļþÔÚC:\A.TXT,Ëĸö°´Å¥£¬µ¥»÷µÚÒ»¸ö£¬¶ÁÎļþµÄµÚÒ»Ðе½±êÇ©Ò»£¬µÚ¶þÐе½±êÇ©¶þ£»µ¥»÷µÚ¶þ¸ö°´Å¥£¬µÚÈýÐе½±êÇ©Ò»£¬µÚËÄÐе½±êÇ©¶þ£»ÒÔ´ËÀàÍÆ£¬Ð»Ð»
ÌáÎÊÕߣº im ......