ìÓë¶Ü:ÓÃVB´òÔìÇý¶¯¼¶¼üÅ̼ǼÆ÷,ÄܹýQQÃÜÂë¿ò(Ô´Âë)
	
    
    
	¡¡¡¡ÐÅÏ¢¼à¿ØÓëÒþ˽±£»¤ÓÀÔ¶ÊÇÒ»¶Ôì¶Ü¡£
       ÔÚ¶Ô¸¶¸÷ÖÖÐÅÏ¢ÇÔÈ¡Èí¼þÉÏ¡£
       Ð¼¼Êõ×ÜÊDzã³ö²»Çî¡£±¾ÎĽéÉÜÒ»ÖÖ¹ÅÀϵļüÅ̼ǼÆ÷¼¼Êõ£¬È·ÊµºÜ¹ÅÀÏ¡£
       DOSʱ´úÈËÃǾÍÔÚÓÃÁË¡£
       µ«ÊÇÏÖÔÚËüÈÔÈ»ºÜÓÐЧ£¬ÔÚ¼üÅ̹ýÂËÇý¶¯Ê§Ð§µÄÇé¿öÏ£¬ËüÈÔÈ»¿ÉÓᣵ«ÊǼæÈÝÐÔ²»¼ÑÊÇËüµÄÒ»¸öÎÊÌâ¡£
       ÌرðÊÇÔÚWindows Vista²Ù×÷ϵͳÉÏ£¬ÎÒ²»Äܱ£Ö¤ËüÊÇ¿ÉÓõġ£²»¹ýÔÚ¿ÉÓõÄÇé¿öÏ£¬ËüÄܼǼÎÒËùÕÒµ½µÄ¸÷ÖÖ´ø±£»¤µÄÃÜÂë¿ò¡£
       °üÀ¨QQ2008µÄÃÜÂë¿ò¡£ 
¡¡¡¡ÔÚ´Ë֮ǰÄ㻹¿ÉÒÔ¿´¿´ÎÒÒÔǰµÄһƪÌû×Ó¡£
       ÉÏÃæ½éÉÜÁËһЩWindows¼üÅÌÏìÓ¦»úÖÆµÄÄÚÈÝ¡£
       µØÖ·ÊÇ£ºhttp://topic.csdn.net/t/20061224/14/5252514.html 
¡¡¡¡ÏÖÔڵļÆËã»ú¼üÅ̳ýÁË´«Í³µÄPS/2¼üÅÌÖ®Í⻹ÓÐUSB¼üÅÌ£¬±¾ÎÄÖ»½éÉÜÆÕͨµÄPS/2¼üÅÌ£¬Òò´Ë±¾ÎĵÄʾÀý´úÂëÒ²Ö»Ö§³ÖPS/2¼üÅÌ¡£
       ¶ÔUSB¼üÅÌÎÞЧ¡£ÎÒÃÇÖªµÀ¼ÆËã»úÒªµÃµ½¼üÅ̵ÄÐÅÏ¢¡£
       ±ØÐëÓë¼üÅ̽øÐÐͨÐÅ¡£¼ÆËã»úÓëÍâÉèµÄͨÐŶ¼ÊÇÒÀ¿¿I/O²Ù×÷Íê³ÉµÄ£¬¼üÅÌÒ²²»ÁÐÍ⣬µ±¼üÅÌÉÏÒ»¸ö¼ü±»°´Ïºó¡£
       ¼üÅ̾ÍÐèÒª·¢ËÍÒ»¸öÐÅÏ¢µ½Ö÷»ú¡£Ö÷»úÔõô֪µÀ¼üÅÌʲôʱºò·¢ËÍÁËÐÅÏ¢ÄØ£¿ÓÐÁ½ÖÖ·½Ê½£ºÂÖѯºÍÖжϡ£ÂÖѯ¾ÍÊÇ˵Ö÷»ú²»Í£µÄѯÎʼüÅÌÊÇ·ñÓÐеÄÐÅÏ¢¡£
       ÕâÊÇÒÔǰI/O²Ù×÷×ͳµÄ·½Ê½¡£ÖжÏÔòÊÇÒ»ÖֱȽÏÏȽøµÄ·½Ê½¡£
       ²»ÊÇÓÉÖ÷»úÀ´²»Í£µÄѯÎʼüÅÌ£¬¶øÊÇÓɼüÅÌÖ÷¶¯¸æËßÖ÷»ú£ºÓÐеÄÐÅÏ¢À´ÁË¡£
       ÕâÑùÖ÷»ú¾Í»áÖ´ÐÐÒ»¶ÎÖжϴ¦Àí³ÌÐò£¬À´´¦Àí¼üÅ̵ÄÊý¾Ý¡£ºÃÁË¡£
       ÄÇôWindowsÊÇÓÃÄÄÖÖ·½Ê½´¦Àí¼üÅ̵ÄÄØ£¿µ±È»¿Ï¶¨ÊÇÒÔÖжϷ½Ê½µÄ¡£
       ÒòΪÕâÑùÖ÷»ú²»±Ø²»¶ÏÂÖѯÉ豸¡£
       ´ó´óÌá¸ßÁËЧÂÊ¡£ÊÂʵÉÏWindowsÖÐÓÐÒ»¸ö¼üÅÌÖжϴ¦Àí³ÌÐò£¬Ò»µ©¼üÅÌÖжϲúÉúºó£¬¸Ã³ÌÐò¾Í»á±»Ö´ÐУ¬È»ºó½«´¦ÀíºóµÄÊý¾ÝÌṩ¸ø¸ü¸ß²ã´ÎµÄ³ÌÐòʹÓ᣼üÅÌÖжϴ¦Àí³ÌÐòÊÇRing0ϵÄÒ»¶Î´úÂ룬ÔÚËüÖ®ÉÏ»¹Óиü¸ß²ãµÄ¼üÅÌÇý¶¯³ÌÐò£¬ºÍÆäËü¸ü³éÏóµÄÓ²¼þ¹ÜÀíÀàÇý¶¯³ÌÐò£¬ÔÙÍùÉÏ×ߣ¬µ½ÁËRing3²ã£¬Ò²¾ÍÊÇÓû§²ã¡£
       »áÊ×Ï
    
     
	
	
    
    
	Ïà¹ØÎĵµ£º
        
    
    ÒÑÖªÓÐÒ»¸öXMLÎļþ£¨bookstore.xml£©ÈçÏ£º 
<?xml version="1.0" encoding="gb2312"?> 
<bookstore> 
<book genre="fantasy" ISBN="2-3631-4"> 
<title>Oberon's Legacy</title> 
<author>Corets, Eva</author> 
<price>5.95</price> 
</book> 
< ......
	
    
        
    
     
'ÕâÀïÊÇÆô¶¯¹ý³Ì[ʼþ»¥³â¾Í²»Ð´ÁË]
Dim f as frmMain
Sub Main
       Set f=New frmMain
       f.Show
End Sub
 
'ÕâÀïÊÇÒ»¸öÏß³ÌÀà¡£¡£¡£Ëæ±ãдɶ¡£¡£¡£
ˈ̞:BT
 
'ÕâÀïÊÇÖ÷´°¿Ú
Dim cBT as BT
Sub form_Load
       'Ææ¹ÖµÄÎÊÌâ¾ÍÔÚÕâÀï...
      Set cBT=CreateObject("¹¤³ÌÃû.BT")   
      'ÔÚL ......
	
    
        
    
     
'*************************************************************************
'**Ä£ ¿é Ãû£ºfBackupDatabase_a
'**Ãè    Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
'**µ÷    ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿ ......
	
    
        
    
    Public Class Form1
    Dim x As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        x = 1
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e ......