home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / Chip_1999-08_cd.bin / zkuste / VBasic / Data / Priklady / wnet.bas < prev   
BASIC Source File  |  1999-06-16  |  5KB  |  103 lines
  1. Attribute VB_Name = "Module1"
  2. 'dwType
  3. Public Const RESOURCETYPE_ANY = &H0
  4. Public Const RESOURCETYPE_DISK = &H1
  5. Public Const RESOURCETYPE_PRINT = &H2
  6.  
  7. 'dwScope
  8. Public Const RESOURCE_CONNECTED = &H1           'vsechny pripojene zdroje
  9.                                                 'dwUsage je ignorovano
  10. Public Const RESOURCE_GLOBALNET As Long = &H2&  'vsechny zdroje na siti
  11. Public Const RESOURCE_REMEMBERED = &H3          'vsechny pamatovane zdroje
  12.                                                 'dwUsage je ignorovano
  13. 'dwUsage
  14. Public Const RESOURCEUSAGE_CONNECTABLE = &H1
  15. Public Const RESOURCEUSAGE_CONTAINER = &H2
  16.  
  17. 'dwFlags pro WNetAddConnection2
  18. Public Const CONNECT_UPDATE_PROFILE = &H1
  19.  
  20. 'Tak byla chyba, nebo ne ?
  21. Public Const NO_ERROR = 0
  22. Public Const ERROR_NO_MORE_ITEMS = 259&
  23. Public Const ERROR_MORE_DATA = 234
  24. Public Const ERROR_NO_NETWORK = 1222&
  25. Public Const ERROR_EXTENDED_ERROR = 1208&
  26. Public Const ERROR_INVALID_HANDLE = 6&
  27.  
  28. Public Type NETRESOURCE
  29.         dwScope As Long
  30.         dwType As Long          'Typ zdroje - tiskarna nebo disk
  31.         dwDisplayType As Long
  32.         dwUsage As Long
  33.         lpLocalName As String   'napr. I: nebo LPT1
  34.         lpRemoteName As String  'napr. \\KONDOR\KONDOR_C
  35.         lpComment As String
  36.         lpProvider As String    'nazev pocitace, ke kteremu se chces pripojit
  37.                                 'muze byt NULL
  38. End Type
  39.  
  40. 'Prida pripojeni na sit
  41. Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" _
  42.  (lpNetResource As NETRESOURCE, ByVal lpPassword As String, _
  43.   ByVal lpUsername As String, ByVal dwFlags As Long) As Long
  44.   'lpNetResource pouziva jen dwType,lpLocalName,lpRemoteName a lpProvider
  45.   'dwFlags - namapovat pri prihlaseni nebo ne
  46.  
  47. Public Declare Function WNetAddConnection3 Lib "mpr.dll" Alias "WNetAddConnection3A" _
  48.  (hWnd As Long, lpNetResource As NETRESOURCE, ByVal lpPassword As String, _
  49.   ByVal lpUsername As String, ByVal dwFlags As Long) As Long
  50.   'podobne dvojce, ma vsak handle okna, ke kteremu se budou vztahovat dialogy
  51.  
  52. 'Rusi pripojene spojeni a take rusi automaticke pripojeni, ktere neni zrovna namapovano
  53. Public Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" _
  54.  (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long
  55.  'lpName - jestlize lokalni (I:) zrusi jen toto pripojeni, jestli sit (KONDOR) zrusi vse
  56.  'dwFlags - pamatovat, nepamatovat
  57.  'fForce - jestlize TRUE, zrusi i kdyz je otevreny soubor, jestlize FALSE, hodi chybu
  58.  
  59. 'UkonΦuje "enumeraci" sφ¥ov²ch p°ipojenφ zapoΦatΘho funkcφ WNetOpenEnum
  60. Public Declare Function WNetCloseEnum Lib "mpr.dll" (ByVal hEnum As Long) As Long
  61.  
  62. 'Pripojovaci dialog
  63. Public Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hWnd As Long, _
  64.  ByVal dwType As Long) As Long
  65.  
  66. 'Dialog odpojeni
  67. Public Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hWnd As Long, _
  68.  ByVal dwType As Long) As Long
  69.  
  70. 'Vracφ poslednφ chybu vzniklou pou₧itφm vÜech t∞chto funkcφ
  71. Public Declare Function WNetGetLastError Lib "mpr.dll" Alias "WNetGetLastErrorA" _
  72.  (lpError As Long, ByVal lpErrorBuf As String, ByVal nErrorBufSize As Long, _
  73.   ByVal lpNameBuf As String, ByVal nNameBufSize As Long) As Long
  74.  
  75. 'Vracφ informace o sφ¥ovΘm p°ipojenφ
  76. Public Declare Function WNetGetUniversalName Lib "mpr" Alias "WNetGetUniversalNameA" _
  77.  (ByVal lpLocalPath As String, ByVal dwInfoLevel As Long, lpBuffer As Any, _
  78.   lpBufferSize As Long) As Long
  79.  
  80. 'Vracφ jmΘno aktußln∞ p°ipojenΘho u₧ivatele nebo u₧ivatele pou₧itΘho k sφ¥ovΘmu spojenφ
  81. Public Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
  82.  (ByVal lpName As String, ByVal lpUsername As String, lpnLength As Long) As Long
  83.  
  84. 'Pokracuje ve vyhledavani zdroju
  85. Public Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" _
  86.  (ByVal hEnum As Long, lpcCount As Long, lpBuffer As Any, _
  87.   lpBufferSize As Long) As Long
  88. 'hEnum je vraceno WNetOpenEnum
  89. 'lpcCount kolik jich ma hledat , if=0xFFFFFFFF, hleda vsechno, jestli to skonci OK, vraci tu pocet
  90. 'lpBuffer pole NETRESOURCE
  91. 'lpBufferSize velikost lpBuffer
  92.  
  93. 'Zacina vypisovat zdroje na siti nebo existujici pripojeni
  94. Public Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" _
  95.  (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, _
  96.   lpNetResource As NETRESOURCE, lphEnum As Long) As Long
  97. 'dwScope - co se bude zobrazovat, dwType - klasika
  98. 'dwUsage - moc nechapu
  99. 'lpNetResource - jestlize NULL, tak hleda od rootu.
  100.  'muze byt vyplneno, nebo se pouziva dale pri volani funkce WNetEnumResources
  101.  'dwUsage musi byt nastaveno na container
  102.  'Jestlize dwScope neni GLOBALNET, musi byt tento NULL
  103.  'lphEnum se predava WNetEnumResource