VBNet - Форум - помогите, плз, с API

Вопрос: помогите, плз, с API Добавлено: 29.08.07 18:00

Автор вопроса: $Костян | ICQ: 448495665

Хочу создать программу для расшаривания ресурсов.
Вроде все сделал, но при отладке VB6 вылетает
Вот код:

Option Explicit
Private Const NERR_SUCCESS As Long = 0&

Private Const STYPE_DISKTREE  As Long = 0

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

Private Declare Function NetShareAdd Lib "netapi32" _
  (ByVal servername As Long, _
   ByVal level As Long, _
   buf As Any, _
   parmerr As Long) As Long



Private Sub Main()

Dim si2 As SHARE_INFO_2

   With si2
      .shi2_netname = StrPtr("ShareC$")
      .shi2_path = StrPtr("C:\")
      '.shi2_remark =
      .shi2_type = STYPE_DISKTREE
      .shi2_permissions = ACCESS_ALL
      .shi2_max_uses = -1
      .shi2_passwd = StrPtr("NetShareAdd")
   End With

Call NetShareAdd(vbNull, 2, si2, vbNull) ' вот здесь vb вылетает

End Sub

Где ошибка?
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: Stuart Вопросов: 5 Ответов: 152	Профиль \| \| #1	Добавлено: 29.08.07 21:24
	Беги сюда: http://www.vbnet.ru/forum/show.aspx?id=63029 Ответить

Номер ответа: 2 Автор ответа: Stuart Вопросов: 5 Ответов: 152	Профиль \| \| #2	Добавлено: 29.08.07 21:34
	Так же еще можно открыть доступ к расшареному ресурсу через реестр. Вот путь где храниться информация о расшареных ресурсах в реестре: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\Shares Вот исходник к программе которая открывает все диски компьютера через реестр, правда есть минус работает тока на файловой системе FAT, на NTFS работать не будет: http://vbrus.narod.ru/MyProgs/Share.zip Ответить

Номер ответа: 3 Автор ответа: Stuart Вопросов: 5 Ответов: 152	Профиль \| \| #3	Добавлено: 29.08.07 21:38
	Чего то я криво как-то текст написал, не открыть доступ к расшареному ресурсу, а расшарить ресурс Ответить

Номер ответа: 4 Автор ответа: »VladikComper« ICQ: 419668582 Вопросов: 23 Ответов: 147	Web-сайт: vladikcomper.narod.ru Профиль \| \| #4	Добавлено: 30.08.07 10:04
	Вроде в разделе "Примеры" есть подоная прога. Ответить

Номер ответа: 5 Автор ответа: $Костян ICQ: 448495665 Вопросов: 11 Ответов: 33	Профиль \| \| #5	Добавлено: 30.08.07 11:25
	всем большое спасибо, особенно про идею с реестром Ответить

Страница: 1 |