module1.bas

电子书“Visual Basic 6 网络编程实例教程.rar”

Attribute VB_Name = "Module1"
Option Explicit
'常量声明
Public Const NERR_SUCCESS As Long = 0&
Public Const MAX_PREFERRED_LENGTH As Long = -1
Public Const RESOURCETYPE_ANY = &H0
Public Const RESOURCE_CONNECTED = &H1

Public Type NetResource
   dwScope        As Long
   dwType         As Long
   dwDisplayType  As Long
   dwUsage        As Long
   lpLocalName    As Long
   lpRemoteName   As Long
   lpComment      As Long
   lpProvider     As Long
End Type
'API声明
Public Declare Function WNetOpenEnum Lib "mpr.dll" _
   Alias "WNetOpenEnumA" _
  (ByVal dwScope As Long, _
   ByVal dwType As Long, _
   ByVal dwUsage As Long, _
   lpNetResource As Any, _
   lphEnum As Long) As Long

Public Declare Function WNetEnumResource Lib "mpr.dll" _
   Alias "WNetEnumResourceA" _
  (ByVal hEnum As Long, _
   lpcCount As Long, _
   lpBuffer As Any, _
   lpBufferSize As Long) As Long

Public Declare Function WNetCloseEnum Lib "mpr.dll" _
  (ByVal hEnum As Long) As Long

Public Declare Function lstrlen Lib "kernel32" _
   Alias "lstrlenA" _
  (ByVal lpString As Any) As Long

Public Declare Function lstrcpy Lib "kernel32" _
  Alias "lstrcpyA" _
 (ByVal lpString1 As Any, _
  ByVal lpString2 As Any) As Long