Attribute VB_Name = "API" Option Explicit '/////////////////////////////////////////////////////////////////// '################################################################### ' 네트워크에 관련된 API ' 시스템에게 네트워크 자원의 연결을 저장하게 하고, ' 시스템 재시작 시에도 재연결이 수행되도록 한다. Public Const CONNECT_UPDATE_PROFILE As Long = &H1 '/////////////////////////////////////////////////////////////////// ' WNetAddConnection2 함수에서 리턴값으로 넘어오는 상수값 ' 아무이상이 없음 Public Const NO_ERROR = 0 ' dderror ' 접근불가 Public Const ERROR_ACCESS_DENIED = 5& ' lpNetResource 의 기술한 장치가 이미 연결되어 있음. Public Const ERROR_ALREADY_ASSIGNED = 85& ' 장치 유형과 자원 유형이 일치하지 않음. Public Const ERROR_BAD_DEV_TYPE = 66& ' lpLocalName에 기술한 값이 유효하지 않음. Public Const ERROR_BAD_DEVICE = 1200& ' lpRemoteName에 기술한 값이 유효하지 않거나 존재하지 않음. Public Const ERROR_BAD_NET_NAME = 67& ' 사용자 프로파일이 잘목된 형식임. Public Const ERROR_BAD_PROFILE = 1206& ' 시스템 재시작 후 재연결을 시도하는 과정에서 사용자 프로파일을 열 수 없음. Public Const ERROR_CANNOT_OPEN_PROFILE = 1205& ' lpLocalName에 기술한 장치가 이미 다른 사용자 프로파일에서 사용중임. Public Const ERROR_DEVICE_ALREADY_REMEMBERED = 1202& ' 네트워크 상에 오류가 발생됨. Public Const ERROR_EXTENDED_ERROR = 1208& ' 지정된 암호가 유효하지 않음. Public Const ERROR_INVALID_PASSWORD = 86& ' 네트워크 상의 컴퓨터가 작동중이지 않거나 사용할 수 없음. Public Const ERROR_NO_NET_OR_BAD_PATH = 1203& ' 네트워크가 존재하지 않음. Public Const ERROR_NO_NETWORK = 1222& '/////////////////////////////////////////////////////////////////// '/////////////////////////////////////////////////////////////////// ' 네트워크에 접속할 수 있게 하는 함수들 '/////////////////////////////////////////////////////////////////// ' 함 수 명 : WNetAddConnection ' 매개변수 : ByVal lpszNetPath As String, 연결하고자 하는 네트워크 자원의 이름 ' ByVal lpszPassword As String, 연결시 사용되는 암호를 기술한다. ' ByVal lpszLocalName As String 연결시킬 자신의 드라이브 또는 포트의 이름. ' 리 턴 값 : Long ' 설 명 : 장치를 네트워크 자원에 연결시킨다. ' 연결이 성공적으로 이루어지면 시스템을 재시작 하더라도 해당 자원의 연결을 지속된다. Public Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" _ (ByVal lpszNetPath As String, ByVal lpszPassword As String, _ ByVal lpszLocalName As String) As Long ' 함 수 명 : WNetAddConnection2 ' 매개변수 : lpNetResource As NETRESOURCE, 연결시키고자 하는 네트워크의 자원 ' ByVal lpPassword As String, 네트워크의 자원에 연결하기 위한 암호 ' ByVal lpUserName As String, 네트워크 연결을 위한 사용자 이름 ' ByVal dwFlags As Long 연결을 위한 옵션을 표시하는 플래그 ' 리 턴 값 : Long ' 설 명 : 장치를 네트워크 자원에 리다이렉트하고 연결시킨다. ' WNetAddConnection 함수의 기능에 추가적으로 연결한 후의 처리 방법 등을 지정한다. Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" ( _ lpNetResource As NETRESOURCE, ByVal lpPassword As String, _ ByVal lpUserName As String, ByVal dwFlags As Long) As Long '/////////////////////////////////////////////////////////////////// '/////////////////////////////////////////////////////////////////// ' 네트워크 자원 구조체 Public Type NETRESOURCE dwScope As Long ' 무시 dwType As Long ' 연결할 네트워크 자원의 유형 dwDisplayType As Long ' 무시 dwUsage As Long ' 무시 pLocalName As String ' 지역 장치의 이름 pRemoteName As String ' 네트워크 상의 자원 이름 pComment As String ' 무시 pProvider As String ' 연결을 지원하는 네트워크 제공자의 이름 End Type ' NETRESOURCE 구조체의 dwType에서 사용하는 상수값 Public Const RESOURCETYPE_ANY = &H0 Public Const RESOURCETYPE_DISK = &H1 Public Const RESOURCETYPE_PRINT = &H2 Public Const RESOURCE_GLOBALNET As Long = &H2& Public Const RESOURCEDISPLAYTYPE_SHARE = &H3 '################################################################### '/////////////////////////////////////////////////////////////////// Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Public strLocalName As String Public strNetPath As String Public nResult As Boolean Public strUserName As String Public strPassword As String