| Вопрос: Сетевой прграмминг | Добавлено: 19.11.05 22:52 |
Автор вопроса:  MC ShaLLoW
|
|
Длбрый день, у меня проблема, даже 2.
1-я - нашел вот такую фичу в е-учебниках: Option Explicit
Private Const NERR_SUCCESS As Long = 0& 'типы шар Private Const STYPE_ALL As Long = -1 'note: my const Private Const STYPE_DISKTREE As Long = 0 Private Const STYPE_PRINTQ As Long = 1 Private Const STYPE_DEVICE As Long = 2 Private Const STYPE_IPC As Long = 3 Private Const STYPE_SPECIAL As Long = &H80000000 'разрешения Private Const ACCESS_READ As Long = &H1 Private Const ACCESS_WRITE As Long = &H2 Private Const ACCESS_CREATE As Long = &H4 Private Const ACCESS_EXEC As Long = &H8 Private Const ACCESS_DELETE As Long = &H10 Private Const ACCESS_ATRIB As Long = &H20 Private Const ACCESS_PERM As Long = &H40 Private Const ACCESS_ALL As Long = ACCESS_READ Or _ ACCESS_WRITE Or _ ACCESS_CREATE Or _ ACCESS_EXEC Or _ ACCESS_DELETE Or _ ACCESS_ATRIB Or _ ACCESS_PERM Private Type SHARE_INFO_2 shi2_netname As Long shi2_type As Long shi2_remark As Long shi2_permissions As Long shi2_max_uses As Long shi2_current_uses As Long shi2_path As Long shi2_passwd As Long End Type 'далее объявим функцию NetShareAdd - Private Declare Function NetShareAdd Lib "netapi32" _ (ByVal servername As Long, _ ByVal level As Long, _ buf As Any, _ parmerr As Long) As Long 'тоже вставляем Private Function ShareAdd(sServer As String, _ sSharePath As String, _ sShareName As String, _ sShareRemark As String, _ sSharePw As String) As Long Dim dwServer As Long Dim dwNetname As Long Dim dwPath As Long Dim dwRemark As Long Dim dwPw As Long Dim parmerr As Long Dim si2 As SHARE_INFO_2 dwServer = StrPtr(sServer) dwNetname = StrPtr(sShareName) dwPath = StrPtr(sSharePath) If Len(sShareRemark) > 0 Then dwRemark = StrPtr(sShareRemark) End If If Len(sSharePw) > 0 Then dwPw = StrPtr(sSharePw) End If With si2 .shi2_netname = dwNetname .shi2_path = dwPath .shi2_remark = dwRemark .shi2_type = STYPE_DISKTREE .shi2_permissions = ACCESS_ALL .shi2_max_uses = -1 .shi2_passwd = dwPw End With 'наконец расшарка ShareAdd = NetShareAdd(dwServer, 2, si2, parmerr) End Function 'Затем помучаем процедуру загрузки формы: Private Sub Form_Load() 'получим имя компа Text1.Text = "\\" & Environ$("COMPUTERNAME") 'Какую папку расшариваем Text2.Text = "c:\windows" 'Ее расшаренное имя Text3.Text = "LASHwindows" 'комментарий Text4.Text = "Папка Windows" 'а пароль ставить не будем Text5.Text = "" End Sub 'Ну и наконец код кнопки: Private Sub Command1_Click() Dim success As Long success = ShareAdd(Text1.Text, Text2.Text, Text3.Text, Text4.Text, _ Text5.Text) Select Case success Case 0: MsgBox "Расшарено успешно !" Case 2118: MsgBox "Такое расшаренное имя уже существует" Case Else: MsgBox "Ошибка " & success End Select End Sub это полностью как велели писать, но это идёт тока на 2000 винде(у меня ХР), ну так вот, а я себе эту самую Виндоуз папку разшарил, а обратно сделать недоступной немогу... Так, теперь то, что прошу мне сделать (так как я в ВБ тотал ньюб )... - так чтобы можно было сделать недоступной разшаренную папку, и нр2 - чтоб выше описанным способом можно-было разшаривать любого в локал-сети. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 20.11.05 04:48 |
| net help share - это именно то, что тебе нужно. Функция Shell тоже пригодится. Для расшаривания любого в локальной сети ты должен иметь привилегии администратора на любой машине локальной сети и соответствующие настройки в политиках безопасности на всех машинах локальной сети. | ||
|
Номер ответа: 2 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #2 | Добавлено: 20.11.05 19:08 |
|
Actro, пожалуйста, не нужно:
во-первых создавать темы с неинформативными названиями во-вторых задавать один и тот же вопрос по десять раз подряд в разных разделах форума |
||
|
Номер ответа: 3 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #3 | Добавлено: 21.11.05 10:54 |
|
Скрытые ресурсы типа ADMIN$, C$, D$ и т.п. обычными средствами не зашарить - они расшарятся после перезагрузки. Для сей фичи есть ключик в реестре
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters Параметр AutoShareWks |
||
|
Номер ответа: 4 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #4 | Добавлено: 22.11.05 01:39 |
| И AutoShareServer | ||
Страница: 1 |