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

VBʵÏÖ¡°Ä¾Âí¡±Ê½ÒþÐÎÔËÐгÌÐò

³ÌÐòÒþÐεÄÔ­Àí
¡¡¡¡¶ÔÓÚÒ»¸öÒþÐγÌÐò¶øÑÔ£¬×î»ù±¾µÄÒªÇóÊÇ£º
¡¡¡¡1. ²»ÔÚ×ÀÃæ³öÏÖ½çÃæ£»
¡¡¡¡2. ²»ÔÚÈÎÎñÀ¸³öÏÖͼ±ê£»
¡¡¡¡3. ³ÌÐòÃû´ÓÈÎÎñ¹ÜÀíÆ÷Ãûµ¥ÖÐÏûʧ¡£
Public Declare Function GetCurrentProcessId Lib “kernel32” () As Long
’»ñµÃµ±Ç°½ø³ÌIDº¯ÊýµÄÉùÃ÷
Public Declare Function RegisterServiceProcess Lib “kernel32” (ByVal ProcessId As Long, ByVal ServiceFlags As Long) As Long
’ÔÚϵͳÖÐ×¢²áµ±Ç°½ø³ÌIDº¯ÊýµÄÉùÃ÷
ÉèÖÃForm1µÄÊôÐÔ£º form1.Visible=False
form1.ShowInTaskBar=False
Private Declare Function GetDriveType Lib “kernel32” Alias “GetDriveTypeA” (ByVal nDrive As String) As Long
’»ñµÃµ±Ç°Çý¶¯Æ÷ÀàÐͺ¯ÊýµÄÉùÃ÷
Private Declare Function GetVolumeInformation Lib “kernel32” Alias “GetVolumeInformationA” (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
’»ñµÃµ±Ç°Çý¶¯Æ÷ÐÅÏ¢º¯ÊýµÄÉùÃ÷
Private Sub Form_Load()
Dim drive_no As Long, drive_flag As Long
Dim drive_chr As String, drive_disk As String
Dim serial_no As Long, kkk As Long
Dim stemp3 As String, dflag As Boolean
Dim strlabel As String, strtype As String£¬strc As Long
RegisterServiceProcess GetCurrentProcessId, 1 ’ ´ÓϵͳÖÐÈ¡Ïûµ±Ç°½ø³Ì
strlabel = String(255, Chr(0))
strtype = String(255, Chr(0))
stemp3 = “172498135” ’ÕâÊÇ×÷ÕßCÅ̵ÄÐòÁкţ¨Ê®½øÖÆ£©,¶ÁÕ߿ɸù¾Ý×Ô¼ºÇé¿ö¸ü¸Ä¡£
dflag = False
For drive_no = 0 To 25
¡¡drive_disk = Chr(drive_no + 67)
¡¡drive_chr = drive_disk & “:\”
¡¡drive_flag = GetDriveType(drive_chr)
¡¡If drive_flag = 3 Then
¡¡¡¡ kkk = GetVolumeInformation(drive_chr, strlabel, Len(strlabel), serial_no, 0, 0, strtype, Len(strtype)) ’ͨ¹ýGetVolumeInformation»ñµÃ´ÅÅÌÐòÁкÅ
¡¡Select Case drive_no
¡¡¡¡


Ïà¹ØÎĵµ£º

VBÖд¦Àí¼ÓÁËÃÜÂëµÄMDBÎļþ

µ±MDB Îļþ¼ÓÁËÃÜÂ룬ֱ½ÓÓÉ   Access   ´òÓ¡MDBÎļþʱ£¬»á³öÏÖÃÜÂë¶Ô»°¿ò£¬Ñ¯ÎÊÃÜÂë¡£µ«ÊÇÈôÒªÓÉ   VB   ³ÌÐòÖдòÓ¡£¬±Ø須¸ü¸Ä   VB³ÌÐòÖдò¿ªMDBÎļþµÄÖ¸Á·ñÔò»á³öÏÖ´íÎóÐÅÏ¢£¡ÒÔÏÂÕë¶Ô¸÷ÖÖÇé¿ö£¬·Ö別¼ÓÒÔ˵Ã÷£º  
   
  1¡¢   ʹÓà   D ......

vb °Ù¶È×¢²áµÇ¼

   ×î½üÔÚÀûÓÃvb±àд¹ØÓڰٶȿռäÑéÖ¤Âë×Ô¶¯Ê¶±ðµÄ³ÌÐò£¬µ«ÊÇһֱûÄÜʵÏÖ£¬Ô­Òò¾ÍÊÇÎÒµÄˮƽ»¹ÊÇÌ«²Ë¡£ÓÚÊÇ´ÓÍøÉÏѰÕÒÁËºÜ¶à¹ØÓÚÑéÖ¤Âëʶ±ðµÄÔ´´úÂ룬´ÓÀïÃæÑ§µ½²»ÉÙ¶«Î÷£¬ËãÊÇû°×ŬÁ¦°É¡£ÔÚ´Ë×ܽáÒ»ÏÂѧµ½µÄ¶«Î÷£¬Ï£ÍûÄܶÔÅóÓÑÃÇÓÐЩ°ïÖú°É¡£
  Ê×ÏÈÕûÀíϱàдÑéÖ¤Âëʶ±ðµÄ˼·°É£º
  1 ......

Çó×¢ÊÍVB³ÌÐò£¬Ö»Òª´ó¸ÅÕû¾äÒâ˼¼´¿É£¬¼±Óã¡£¡£¡

Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
        frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '³ÌÐò¶Î
         ......

VBÓëWindows API½²×ù(¶þ) өĻץȡÓëÓ©Ä»±£»¤³Ìʽ

ÎÄÕÂÀ´Ô´:vb´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾Ô­ÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......

VB¾ÖÓòÍø×Ô¶¯´«²¥²¡¶¾


Ö÷´°Ìå´úÂ룺
'´ò¿ªÍøÒ³
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'¸´ÖÆÎļþ
Private Declare Fu ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ