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