Vzdálený registr

Ukázka získání informací z registrační databáze jiného počítače v síti.
3690 bytů	Kopírovat

Zpět na obsah

Nastavení sítě

Příklad zobrazí některé informace týkající se konfigurace sítě na Vašem počítači, např. počet síťových adaptérů, doménu, IP adresu WINS serveru atd.
6431 bytů	Kopírovat

Zpět na obsah

Ukončení procesu

Příklad použití funkce API TerminateProcess, která ukončí proces včetně všech jeho vláken. Tuto funkci používejte jen v krajních případech, pokud to jde, raději použijte ExitProcess.
1912 bytů	Kopírovat

Zpět na obsah

Je vlastník procesu administrátor

Příklad umí zjistit, jestli byl váš program spuštěn pod účtem administrátora počítače (nemusí to být zrovna uživatel Administrator, ale jakýkoliv člen takové skupiny).
3518 bytů	Kopírovat

Zpět na obsah

Telefonické připojení sítě

Jak již napovídá název, příklad ukazuje pár technik pro použití telefonického připojení sítě pomocí funkcí API.
2267 bytů	Kopírovat

Zpět na obsah

DirectX

Pod tímto názvem se neschovává pouze jeden, ale hned tři příklady, které vás naučí pár věcí s DirectX.
180609 bytů	Kopírovat

Zpět na obsah

Programování her

Přestože Visual Basic nemá dobrou pověst pokud jde o programování her, spousta z nás se přesně o to pokouší. Nechcete-li použít DirectX, vyzkoušejte tento příklad. Ukazuje některé techniky, které můžete ve svých hrách úspěšně využít.
19616 bytů	Kopírovat

Zpět na obsah

WNetAddConnection2

Funkce vytvoření spojení k síťovému zdroji.

Pokud skončí bez chyby, vrací hodnotu 0, v opačném případě vrací číslo chyby.

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

Type NETRESOURCE
  dwScope As Long
  dwType As Long
  dwDisplayType As Long
  dwUsage As Long
  lpLocalName As String
  lpRemoteName As String
  lpComment As String
  lpProvider As String
End Type

Const RESOURCETYPE_DISK = &H1

Const RESOURCETYPE_PRINT = &H2


Const CONNECT_UPDATE_PROFILE = &H1

lpNetResource

Proměnná typu NETRESOURCE, která nastavuje hlavní parametry připojení. Ne všechny proměnné této struktury jsou využívány touto funkcí, proto si popíšeme jen ty důležité.

dwType

Typ připojovaného zařízení - RESOURCETYPE_DISK (síťový disk) a RESOURCETYPE_PRINT (síťová tiskárna).

lpLocalName

Lokální zařízení, které bude sloužit jako odkaz na připojený zdroj, např. F: nebo LPT1.

lpRemoteName

Název připojovaného zdroje.

lpPassword

Heslo pro připojení. Pokud je empty, automaticky se předá heslo aktuálně přihlášeného uživatele.

lpUserName

Jméno uživatele pro připojení. Pokud je empty, předá se automaticky jméno právě přihlášeného uživatele.

dwFlags

Další parametry připojení. Nastavením příznaku CONNECT_UPDATE_PROFILE bude vzdálený prostředek automaticky připojen při každém startu operačního systému.

'Příklad připojí sdílený disk C na počítači \\PETR jako disk D
Dim addDisk As NETRESOURCE, ret As Long
With addDisk
  .dwType = RESOURCETYPE_DISK
  .lpLocalName = "D:"
  .lpRemoteName = "\\PETR\C"
End With
ret = WNetAddConnection2(addDisk, "heslo", "jmeno", 0)
If ret<>0 Then
  MsgBox "Nelze připojit"
End If

Zpět na obsah

WNetCancelConnection2

Odpojí připojený síťový zdroj nebo zruší automatické připojování zdroje po startu operačního systému.

Pokud proběhne odpojení bez chyb, vrátí funkce hodnotu 0, jinak číslo chyby.

Declare Function WNetCancelConnection2 Lib "mpr.dll" _
  Alias "WNetCancelConnection2A" (ByVal lpName As String, _
  ByVal dwFlags As Long, ByVal fForce As Long) As Long

Const CONNECT_UPDATE_PROFILE = &H1

lpName

Název lokálního odkazu na síťový zdroj, který bude odpojen.

dwFlags

Další nastavení. Pokud je rovno 0, neprovedou se žádné změny v registru. Pokud je rovno CONNECT_UPDATE_PROFILE, zruší se automatické připojování po startu operačního systému.

fForce

Pokud je rvno 0 a s odpojovaným zdrojem se pracuje (např. otevřený soubor apod.), nastane chyba.

'Odpojí síťový disk připojený jako disk D
Dim ret As Long
ret = WNetCancelConnection2("D:", 0, 0)
If ret<>0 Then
  MsgBox "Nelze odpojit."
End If

Zpět na obsah

WNetConnectionDialog

Zobrazí standardní systémový dialog pro připojení síťového prostředku.

Pokud skončí bez chyb, vrátí hodnotu 0, pokud uživatel zmáčkne tlačítko CANCEL, vrátí hodnotu 0xFFFFFFFF.

Declare Function WNetConnectionDialog Lib "mpr.dll" _
  (ByVal hwnd As Long, ByVal dwType As Long) As Long

Const RESOURCETYPE_DISK = &H1

hwnd

Handle vlastníka dialogu.

dwType

Umožňuje zadat pouze hodnotu RESOURCETYPE_DISK.

WNetConnectionDialog Form1.hwnd, RESOURCETYPE_DISK

Zpět na obsah

WNetDisconnectDialog

Zobrazí standardní systémový dialog pro odpojení síťového prostředku.

Pokud skončí bez chyb, vrátí hodnotu 0, pokud uživatel zmáčkne tlačítko CANCEL, vrátí hodnotu 0xFFFFFFFF.

Declare Function WNetDisconnectDialog Lib "mpr.dll" _
  (ByVal hwnd As Long, ByVal dwType As Long) As Long

Const RESOURCETYPE_DISK = &H1

hwnd

Handle vlastníka dialogu.

dwType

Umožňuje zadat pouze hodnotu RESOURCETYPE_DISK.

WNetDisconnectDialog Form1.hwnd, RESOURCETYPE_DISK

Zpět na obsah

WNetGetConnection

Funkce vrací název síťového prostředku připojeného na počítač.

Pokud skončí bez chyba, vrátí hodnotu 0, jinak číslo chyby.

Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" _
  (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long

lpszLocalName

Název lokálního zařízení, ke kterému je síťový zdroj připojen.

lpszRemoteName

Do této proměnné je vrácen název síťového prostředku.

cbRemoteName

Délka proměnné lpszRemoteName.

Dim str As String, ret As Long
str = Space(255)
ret = WNetGetConnection("D:", str, 255)
If ret<>0 Then
  MsgBox "Název nelze zjistit."
Else
  MsgBox str
End If

Zpět na obsah

© 2001 Vogel Publishing, design by ET NETERA