А если перевести на русский

выделить определенные элемента жирным цветом

то как это будет звучать????

Ответить

Ответить

3 - WNetShareAdd или чот-то в этом роде

Ответить

Ну расшарить можно примерно так:

на форме следует разместить пять элементов Label, 5 элементов TextBox, и большую кнопку, с названием "РАСШАРИТЬ". Над каждым текстовым полем должен находиться один лэйбл. Потом дай им осмысленные названия:
Имя компа, Папка, Расшаренное имя, Комментарий и Пароль. Если с этим ты справился то отдохни, погуляй, поспи часок, пивка хлебни, а затем продолжи писать злую прогу. Теперь зайди в редактор кода и вставь следующий кусок кода:

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

Ответить

Это под какую ось?

у меня в 98se на строке ShareAdd = NetShareAdd(dwServer, 2, si2, parmerr) заругалась.

говорит "в вашей ddl_ке не найдена функция" в общем ошибка 453_я (

Ответить

Правда? Я не тестил, но у меня тоже 98SE... К слову, посмотрел только что Net Inspector - в нем нет NetShareAdd, хотя он их позволяет добавлять... Как всегда, мелкомягкие оставили нам объедки.

Ответить

по поводу громкости... ничерта там нет.

есть там только как воспроизвести какой нибудь файл, а по поводу регулировки и БАЛАНСА звука там ничего не видно(((

Ответить

Ответить

по поводу шары-работает все отлично, за код спасибо, но мне можно было даже просто имя функции и библиотеку назвать! Но спасибО!

Ответить