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

VB »ñÈ¡Íø¿¨Ó²¼þÐÅÏ¢

VB ÈçºÎͨ¹ýAPI»ñÈ¡Íø¿¨µÄÓ²¼þÐÅÏ¢£¬±ÈÈ磺
ÎÒµÄÍø¿¨Îª£º
Atheros L1 Gigabit Ethernet 10/100/1000Base-T Controller
ÈçºÎͨ¹ýÕâ¸öÍø¿¨Ãû»ñµÃÏñÏÂÃæÕâ¸öÑùµÄÐÅÏ¢
\Device\Tcpip_{113F8C45-C710-4CA4-9745-A6AA9339F057}
ÎÒÖ»Òª{}ÖеÄÖµ
È»ºóÔÚ×¢²á±íÖжÁÈ¡Õâ¸ö×Ó¼üÖеÄÄÚÈÝ£¬À´ÅжϸÃÍø¿¨ÊDz»ÊÇÎïÀíÍø¿¨

ÎÒ¾õµÃWMI¾Í¿ÉÒÔÁË¡£

ÓÐûÓÐAPIÄØ£¬ÎÒÒªAPIѽ£¬ÖªµÀÓÐûÓУ¬»¹Çë¸ßÊÖ˵Ï£¬Ð»Ð»ÁË

È¡µÃÍø¿¨ÐòÁкÅ

¡¡¡¡ºÜ¶àÈí¼þÒÔÈ¡µÃÍø¿¨µØÖ·×÷ΪLicenseÑéÖ¤£¬ÕⲻʧΪһ¸öÑéÖ¤ºÏ·¨Óû§µÄºÃ°ì·¨£¬²»¹ýÒª¸¶³ö»Ø¸´Óû§µç»°¡¢´«ÕæµÄ´ú¼ÛŶ¡¡^_^
¡¡¡¡½«ÏÂÃæÕâ¶Î´úÂ뿽±´µ½³ÌÐòÖУ¬È»ºóÔÚÄãµÄ³ÌÐòÐèÒªµÄʱºòµ÷ÓÃEthernetAddress(0),¸Ãº¯Êý·µ»ØµÄ×Ö·û´®¾ÍÊÇÄú»úÆ÷ÉÏÍø¿¨µÄÒÔÌ«ÐòÁкš£

Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32

Private Type NCB
¡¡ncb_command As Byte
¡¡ncb_retcode As Byte
¡¡ncb_lsn As Byte
¡¡ncb_num As Byte
¡¡ncb_buffer As Long
¡¡ncb_length As Integer
¡¡ncb_callname As String * NCBNAMSZ
¡¡ncb_name As String * NCBNAMSZ
¡¡ncb_rto As Byte
¡¡ncb_sto As Byte
¡¡ncb_post As Long
¡¡ncb_lana_num As Byte
¡¡ncb_cmd_cplt As Byte
¡¡ncb_reserve(9) As Byte ' Reserved, must be 0
¡¡ncb_event As Long
End Type
<


Ïà¹ØÎÊ´ð£º

vbÈçºÎµ÷ÓÃIllustrator£¨´ËÇ°IllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

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

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

vb²éѯÊý¾Ý¿âÎÊÌâ

ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

Éæ¼°µ½Ëã·¨£¬goog ......

VB Çë½Ì¸ßÊÖ¹ØÓÚÓû§¿Ø¼þÎÊÌâ

ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔص½´°ÌåÉÏ

    Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName)
    objExt.Visible = True

³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ