如何调用wnetgetconnection等api函数.txt

VB技巧问答10000例 VB技巧问答10000例

这 几 个 API的 声 明 可 以 在 Win32api.txt找 到 。 使 用 说 明 可 以 参 考 Win32SDK.hlp的 帮 助 。 下 面 我 给 出 一 个 例 子 ， 它 是 得 到 一 个 网 络 驱 动 器 的 UNC路 径 (“ \\服 务 器 \共 享 路 径 ” )。 
     
     ' 32-bit Function version. 
     ' Enter this declaration on a single line. 
     Declare Function WNetGetConnection32 Lib "MPR.DLL" Alias _ 
     "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal _ 
     lpszRemoteName As String, lSize As Long) As Long 
     
     ' 32-bit declarations: 
     Dim lpszRemoteName As String 
     Dim lSize As Long 
     
     ' Use for the return value of WNetGetConnection() API. 
     Const NO_ERROR As Long = 0 
     
     ' The size used for the string buffer. Adjust this if you 
     ' need a larger buffer. 
     Const lBUFFER_SIZE As Long = 255 
     
     Sub GetNetPath() 
     
     ' Prompt the user to type the mapped drive letter. 
     DriveLetter = UCase(InputBox("Enter Drive Letter of Your Network" & _ 
     "Connection." & Chr(10) & "i.e. F (do not enter a colon)")) 
     
     ' Add a colon to the drive letter entered. 
     DriveLetter = DriveLetter & ":" 
     
     ' Specifies the size in charaters of the buffer. 
     cbRemoteName = lBUFFER_SIZE 
     
     ' Prepare a string variable by padding spaces. 
     lpszRemoteName = lpszRemoteName & Space(lBUFFER_SIZE) 
     
     ' Return the UNC path (\\Server\Share). 
     lStatus& = WNetGetConnection32(DriveLetter, lpszRemoteName, _ 
     cbRemoteName) 
     
     ' Check to see if WNetGetConnection() succeeded. WNetGetConnection() 
     ' returns 0 (NO_ERROR) if it succesfully retrieves the UNC path. 
     If lStatus& = NO_ERROR Then 
     
     ' Display the UNC path. 
     MsgBox lpszRemoteName, vbInformation 
     
     Else 
     ' Unable to obtain the UNC path. 
     MsgBox "Unable to obtain the UNC path.", vbInformation 
     End If 
     
     End Sub 
<END>