створити мережевий диск
Suntechnic
А що тут навпаки?
А як це зробити (не програмне) на своїй же машині?
ATLANTIDO
Правою кнопкою на папці - закладка доступ
Якщо закладки немає - налаштовуй (встанови) мережу (вже не пам'ятаю що).
> Якщо закладки немає - налаштовуй (встанови) мережу
> (Вже не пам'ятаю що).
Служба доступу до файлів і принтерів мереж Microsoft
(Мережа Microsoft)
А як його програмно розшарити?
> А як його програмно розшарити.
Легко і просто: під ДОС "ом: format YOURDRIVE:
y
> Агент 007 (23.02.02 14:26)
дуже смішно.
Після того як я расшарівать диск він стає доступним іншим користувачам мережі. Як я можу отримати доступ до розшарений диску іншої машини в мережі?
У конференції "Мережі" ти знайдеш відповідь на своє питання.
Все добре, от тільки. Розумію що я моторошно ламером,
але дайте відповідь на ще один тупий питання, який мені навіть складно
сформулювати (просто я ніколи не сидів в локалке).
У мене комп'ютер не перебуває в локальній мережі, але встановлено соедінеіе з инетом. Можу я програмно розшарити
свої диски, що б вони стали доступними для користувачів
інету?
І ось це називається троянопісатель :)
ATLANTIDO
> Можу я програмно розшарити
> Свої диски, що б вони стали доступними для користувачів інету.
Давай перевіримо - розшарити диск С і напиши сюди його назву і твій IP-шник і ти дізнаєшся чи доступні вони користувачам інтернету :)
Ну чому ж відразу так. уточню:
якщо мій комп'ютер не в LAN то на ньому можуть бути не встановлені
деякі мережеві служби кс допомогою яких можна диск розшарити
(Це не твердження! А питання). Просто я спробував розшарити свій диск (>> Tosov c паролем ественной) і у мене видалася помилка "Сервер не доступний". На прохання трудящих
можу код привести.
Пуск | Налаштування | Мережа та встановлюй все, що душа забажає. А що встановлювати - подивися пост 33 (21.02.02 06:28). І відповідно якщо у тебе цих служб немає - нічого працювати не буде :)
якщо ти знаєш З я можу тобі скинути исходник проги яка сидить в пам'яті і прослуховує
6000 порт, при підключенні на нього звичайним телнетом
видає мережеве ім'я машини і паролі до дисків,
даними до загального доступ :) дуже цікавий исходник вийшов.
ето значить залізти на чужий диск і розшарити там все те, що його господар дбайливо зашаріл (тобто сховав від чужих очей). -)))
NERR_InvalidComputer: ErrMes: = "Невірне ім'я комп'ютера!";
NERR_UnknownServer: ErrMes: = "Невідомий сервер!";
NERR_UnknownDevDir: ErrMes: = "Пристрій" "+ Path +" "відсутня!";
NERR_ServerNotStarted: ErrMes: = "Сервер не працює!";
NERR_RedirectedPath: ErrMes: = "перепризначення шлях!";
NERR_DuplicateShare: ErrMes: = "Мережеве ім'я" "+ NetName +" "вже існує!";
NERR_BufTooSmall: ErrMes: = "Занадто маленький буфер для даних!";
Else
End;
End;
// видамо повідомлення
MessageBox (Application.Handle, PChar (ErrMes), PChar (ErrCap), MessIconBtn);
end;
procedure TForm1.Button2Click (Sender: TObject);
Var
rc: DWord;
Servername, NetName, ErrMes, ErrCap: String;
MessIconBtn: Byte;
begin
ServerName: = "";
NetName: = "TEST";
rc: = NetShareDel (PChar (ServerName), PChar (NetName), 0);
ErrMes: = "Доступ до пристрою" "+ NetName +" "закритий!";
ErrCap: = "Все в порядку!";
MessIconBtn: = MB_OK OR MB_ICONINFORMATION;
If rc <> 0 Then
Begin
// помилка
ErrCap: = "Помилка!";
MessIconBtn: = MB_OK OR MB_ICONERROR;
Case rc Of
// розшифровка помилок
ERROR_BAD_NETPATH: ErrMes: = "" "+ Servername +" "- невірне мережеве ім'я!";
ERROR_INVALID_PARAMETER: ErrMes: = "Неправильний параметр!";
NERR_NetNotStarted: ErrMes: = "Мережа недоступна!";
NERR_ServerNotStarted: ErrMes: = "Сервер не працює!";
NERR_NetNameNotFound: ErrMes: = "Пристрій не існує!";
NERR_ShareNotFound: ErrMes: = "Мережеве ім'я" "+ NetName +" "не знайдено!";
Else
// дивись помилки для NetShareAdd або
ErrMes: = "Невідома мережева помилка!";
End;
End;
MessageBox (Application.Handle, PChar (ErrMes), PChar (ErrCap), MessIconBtn);
end;
end.
2ATLANTIDO
не зрозумів. конкретно яке питання?
Повторю: я запускаю цей код на своїй машині, і видається повідомлення
"Сервер не доступний".