Siec lokalna







Siec lokalna (LAN)

Wiele osób w VB pisalo, albo pisze jakiś program podobny do ekspolatora Windows.
Jednak nie kazdy wie jak, korzystac z sieci lokalnych LAN. Obecnie w czasach, gdy coraz
popularniejsze staja sie blokowe sieci komputerowe (wiadomo, SDI jest dzielone na kilka
komputerow wiec i siec lokalna jest) warto pisać programy, obsługujące takie sieci
komputerowe. Poniżej opiszę sztuczkę, jak można utworzyć prosty program obsługujący
sieci lokalne. Niestety, ale powyższy program będzie miał ograniczenie: będzie
pracował jedynie w obrębie tej grupy roboczej, do której należysz (twój komputer i
komputer na którym chcesz coś kopiować/kasować musi mieć taką samą grupę
roboczą). O ile wiemy, w sieci lokalnej możemy bawić się tylko tymi folderami, ktore
ktoś nam udostępnił. Dodatkowo niektóre foldery można tylko odczytywać (tj. można
otwierać pliki, kopiować na sój dysk, ale nie można ich kasować czy kopiować tam
swoich plików). Oto najprostsza metoda na otworzenie pliku będącego na innym
komputerze:

open "\\kolega\temp\plik.txt" for input as #1

Plik mozna otworzyć do zapisu jak i do odczytu (jednak nie mając pełnych uprawnień
nie można otwierać pliku do zapisu. Kolega to oczywiście nazwa komputera kolegi (każdy
komputer w sieci lokalnej musi mieć inną nazwę). Temp to nazwa folderu, który mamy
udostępniony :-) Oczywiście udostępniając jakiś folder/dysk udostępniamy go wraz z
podfolderami, więc można również otworzyć plik będący w takim katalogu: "\\kolega\temp\gry\pasjans\vb\plik.txt".
Nasze umiejętności wcale się nie ograniczają tylko do otwierania plików, można
również używać wielu instrukcji plikowych w VB. Poniżej podam kilka przykładów, bez
objaśnień, gdyż te instrukcje powinienś znać:


FileCopy "\\kolega\temp\plik.txt","c:\plik.txt"
FileCopy "c:"\plik.txt","\\kolega\temp\plik.txt"
Kill "\\kolega\temp\plik.txt"
Mkdir "\\kolega\temp\Katalog"
RmDir "\\komega\temp\katalog"


A teraz mała niespodzianka: kontrolki File i Dir są bardzo przyjazne i można w
kodzie wpisać:
File1.Path="\\kolega\temp"
Dir1.Path="\\kolega\temp"
i będą pokazywały wszystkie pliki/katalogi w udostępnionym folderze !!
Naprawdę to działa, sprawdzałem i nie ma efektów ubocznych. Po opanowaniu tego
materiału zastanawiasz się, jak sprawdzić wszystkie udostępniane foldery. Być może
wydaje Ci się to trudne, ale znalazłem w necie bardzo fajny sampel, który przerobiłem
i jest naprawdę spoko (zobacz plik lan.zip 5KB).

Jelcyn
[e-mail]