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

VB ʹÓÃWMI±à³Ì£¨Ò»£©

Óɵ×ÖÁÉÏÊÇ£º
          • ÍйÜ×ÊÔ´
          • WMI »ù´¡½á¹¹
          • ʹÓÃÕß
ÍйÜ×ÊÔ´
    ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼­»òÎïÀí×é¼þ£¬Í¨¹ýʹÓà WMI ½øÐй«¿ªºÍ¹ÜÀí¡£¿ÉÒÔʹÓà WMI ¹ÜÀíµÄ Windows ×ÊÔ´°üÀ¨£º¼ÆËã»úϵͳ¡¢´ÅÅÌ¡¢ÍâΧÉ豸¡¢Ê¼þÈÕÖ¾¡¢Îļþ¡¢Îļþ¼Ð¡¢Îļþϵͳ¡¢ÍøÂç×é¼þ¡¢²Ù×÷ϵͳ×Óϵͳ¡¢ÐÔÄܼÆÊýÆ÷¡¢´òÓ¡»ú¡¢½ø³Ì¡¢×¢²á±íÉèÖᢰ²È«ÐÔ¡¢·þÎñ¡¢¹²Ïí¡¢SAM Óû§ºÍ×é¡¢Active Directory¡¢Windows °²×°³ÌÐò¡¢Windows Çý¶¯³ÌÐòģʽ (WDM) É豸Çý¶¯³ÌÐò£¬ÒÔ¼° SNMP ¹ÜÀíÐÅÏ¢»ù (MIB) Êý¾ÝµÈ¡£WMI ÍйÜ×ÊԴͨ¹ýÒ»¸öÌṩ³ÌÐòÓë WMI ͨѶ¡£
WMI »ù´¡½á¹¹
    Öмä²ãÊÇ WMI »ù´¡½á¹¹¡£WMI ÓÉËĸöÖ÷Òª×é¼þ¹¹³É£º¹«¹²ÐÅϢģÐͶÔÏó¹ÜÀíÆ÷£¨Common Information Model Object Manager£¬CIMOM£©¡¢¹«¹²ÐÅϢģÐÍ£¨Common Information Model£¬CIM£©´¢´æ¿â£¬ÒÔ¼°Ìṩ³ÌÐò¡£ÕâÈý¸ö WMI ×é¼þ¹²Í¬Ìṩͨ¹ýÆä¶¨Òå¡¢¹«¿ª¡¢·ÃÎʺͼìË÷ÅäÖú͹ÜÀíÊý¾ÝµÄ»ù´¡½á¹¹£¬ÎªÁËÐðÊöºÍÀí½â·½±ã£¬ÎÒÃÇÔÚ±¾ÎÄÖоͽ«ÕâÈý¸ö×é¼þͨ³ÆÎªCIM´¢´æ¿â¡£µÚËĸö×é¼þÊÇ WMI ½Å±¾¶ÔÏó¿â£¬¾ÍÊÇÎÒÃÇÇ°Ãæ¼¸¸öÀý³Ì¶¼±ØÐëÒýÓõēMicrosoft WMI Scripting V1.1 Library”¶ÔÏó¿â£¬¾ÍÎÒÃÇÀ´Ëµ — ¾ÍÊÇʹÓÃÕߣ¬Ê×ÏȾÍÊÇͨ¹ýWMI ½Å±¾¿âÓëCIM´¢´æ¿â´ò½»µÀÈ¥¹ÜÀíϵͳµÄ¸÷ÖÖÍйÜ×ÊÔ´¡£Òò´ËÎÒÃÇÖØµã¹Ø×¢µÄÓ¦¸ÃÊÇCIM´¢´æ¿âºÍWMI½Å±¾¶ÔÏó¿â¡£
CIM ´¢´æ¿â
    WMI µÄ»ù±¾Ë¼ÏëÊÇ — ¿ÉÒÔÓÃÒ»¸ö¼Ü¹¹Í³Ò»±íʾÀ´×Ô²»Í¬Ô´µÄÅäÖú͹ÜÀíÐÅÏ¢¡£CIM ¾ÍÊÇÕâ¸ö¼Ü¹¹£¬»¹µ÷ÓÃÁËÄ£ÐÍ»¯Íйܻ·¾³ºÍ¶¨Òåÿ¸öÓÉ WMI ¹«¿ªµÄÊý¾Ý¿éµÄ¶ÔÏó´¢´æ¿â»òÀà´æ´¢¡£¸Ã¼Ü¹¹»ùÓÚ DMTF ¹«¹²ÐÅϢģÐͱê×¼¡£
    CIM ÓÉÀà ×é³É¡£ÀàÊÇÒ»¸ö WMI ÍйÜ×ÊÔ´µÄÒ»¸öÄ£ÐÍ¡£CIM Ààͨ³£±íʾ¶¯Ì¬×ÊÔ´£¬¾ÍÊÇ˵ÍйÜ×ÊÔ´µÄʵÀý²¢²»´æ´¢ÔÚ CIM ÖУ¬¶øÊÇͨ¹ý»ùÓÚʹÓÃÕßÇëÇóµÄÌṩ³ÌÐò¶¯Ì¬¼ìË÷¡£ÆäÔ­ÒòºÜ¼òµ¥£¬´ó¶àÊý WMI ÍйÜ×ÊÔ´µÄ²Ù×÷״̬¸ü¸ÄºÜƵ·±£¬Òò¶ø±ØÐë°´Ðè¶ÁÈ¡ÒÔÈ·±£¼ìË÷µÄÊÇ×îеÄÐÅÏ¢£¬¾ÍÏóÎÒÃÇÀý³Ì1ÖеĽø³ÌºÍÀý³Ì2ÖеķþÎñËæÊ±¶¼Ôڱ䶯µÄ¡£
    ×¢ÔÚ CIM µÄÉÏÏÂÎÄÖУ¬´¢´æ¿âÕâÒ»ÊõÓïÓÐЩ±»Îó½â¡£¾¡¹Ü CIM ÊÇÒ»¸ö´¢´æ¿â£¬¶øÇÒÄܹ»´æ´¢¾²Ì¬Êý¾Ý£¬µ«ÆäÖ÷Òª½ÇÉ«ÊÇ´æ´¢ÍйÜ×ÊÔ´µÄÄ


Ïà¹ØÎĵµ£º

VB ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨

VBÎı¾¼ÓÃÜ ÌØ±ðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾­³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâÆªÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆÑ§Ó빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
      ±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡ ......

vbÅúÁ¿´òÓ¡Êý¾Ý¿âÖеÄÕÕÆ¬

Private Sub Command12_Click()
Dim i As Integer
On Error GoTo ABC
ShowPrinterSetup Me
For i = 1 To Adodc1.Recordset.RecordCount
If Picture2.Picture <> LoadPicture("") Then
  
    Printer.PaintPicture Picture2.Picture, 200, Picture1.Top + 1000
Else
   ......

VBµ÷ÓÃϵͳµÄ"´òÓ¡»úÉèÖÃ"ºÍ"Ò³ÃæÉèÖÃ".

VBµ÷ÓÃϵͳµÄ"´òÓ¡»úÉèÖÃ"ºÍ"Ò³ÃæÉèÖÃ".
Option Explicit
Const FW_NORMAL = 400
Const DEFAULT_CHARSET = 1
Const OUT_DEFAULT_PRECIS = 0
Const CLIP_DEFAULT_PRECIS = 0
Const DEFAULT_QUALITY = 0
Const DEFAULT_PITCH = 0
Const FF_ROMAN = 16
Const CF_PRINTERFONTS = &H2
Const C ......

VB»ñÈ¡´°¿ÚµØÖ·À¸ÄÚÈÝ

http://zhidao.baidu.com/question/84802747.html
VBÈçºÎ»ñÈ¡´°¿ÚµØÖ·À¸ÄÚÈÝ
¾ÍÊDZÈÈçÎÒ´ò¿ªDÅ̵ÄaaaÎļþ¼Ð£¬´°¿ÚµØÖ·À¸¾ÍÊÇÏÔʾD:\aaa£¬ÇëÎÊÎÒÒªÔõôÓÃVBд³ÌÐòÀ´»ñÈ¡´°¿ÚµØÖ·À¸µÄÄÚÈÝ£¿£¨²»ÊÇIEµÄµØÖ·À¸£©
Èô´ò¿ªÁËÁ½¸ö´°¿Ú£¬±ÈÈçDÅ̵ÄaaaÎļþ¼ÐºÍEÅ̵ÄbbbÎļþ¼ÐϵÄcccÎļþ¼Ð¶¼´ò¿ªµÄ»°£¬µã»÷command1,text1¾ÍÏÔʾ£º ......

VB ¶ÁÖ¸¶¨ÐÐ

http://zhidao.baidu.com/question/81532606.html
VB ¶ÁÖ¸¶¨ÐÐ
ÐüÉÍ·Ö£º10 - ½â¾öʱ¼ä£º2009-1-20 11:41
vbÖÐÈçºÎ¶Áȡָ¶¨ÐеÄÄÚÈÝ£¬´°ÌåÉÏÓÐÁ½¸ö±êÇ©£¬ÎļþÔÚC:\A.TXT,Ëĸö°´Å¥£¬µ¥»÷µÚÒ»¸ö£¬¶ÁÎļþµÄµÚÒ»Ðе½±êǩһ£¬µÚ¶þÐе½±êÇ©¶þ£»µ¥»÷µÚ¶þ¸ö°´Å¥£¬µÚÈýÐе½±êǩһ£¬µÚËÄÐе½±êÇ©¶þ£»ÒÔ´ËÀàÍÆ£¬Ð»Ð»
ÌáÎÊÕߣº im ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ