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
¡¡¡¡
Ïà¹ØÎĵµ£º
µ±MDB Îļþ¼ÓÁËÃÜÂ룬ֱ½ÓÓÉ Access ´òÓ¡MDBÎļþʱ£¬»á³öÏÖÃÜÂë¶Ô»°¿ò£¬Ñ¯ÎÊÃÜÂë¡£µ«ÊÇÈôÒªÓÉ VB ³ÌÐòÖдòÓ¡£¬±Ø須¸ü¸Ä VB³ÌÐòÖдò¿ªMDBÎļþµÄÖ¸Á·ñÔò»á³öÏÖ´íÎóÐÅÏ¢£¡ÒÔÏÂÕë¶Ô¸÷ÖÖÇé¿ö£¬·Ö別¼ÓÒÔ˵Ã÷£º
1¡¢ ʹÓà D ......
×î½üÔÚÀûÓÃvb±àд¹ØÓڰٶȿռäÑéÖ¤Âë×Ô¶¯Ê¶±ðµÄ³ÌÐò£¬µ«ÊÇһֱûÄÜʵÏÖ£¬ÔÒò¾ÍÊÇÎÒµÄˮƽ»¹ÊÇÌ«²Ë¡£ÓÚÊÇ´ÓÍøÉÏѰÕÒÁËºÜ¶à¹ØÓÚÑéÖ¤Âëʶ±ðµÄÔ´´úÂ룬´ÓÀïÃæÑ§µ½²»ÉÙ¶«Î÷£¬ËãÊÇû°×ŬÁ¦°É¡£ÔÚ´Ë×ܽáÒ»ÏÂѧµ½µÄ¶«Î÷£¬Ï£ÍûÄܶÔÅóÓÑÃÇÓÐЩ°ïÖú°É¡£
Ê×ÏÈÕûÀíϱàдÑéÖ¤Âëʶ±ðµÄ˼·°É£º
1 ......
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´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾ÔÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......
Ö÷´°Ìå´úÂ룺
'´ò¿ªÍøÒ³
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 ......