VBNet - Форум - WNetEnumCachedPasswords

Вопрос: WNetEnumCachedPasswords Добавлено: 03.09.05 23:23

Автор вопроса: «UL.eXe» | ICQ: 197.895.916.247

Ошибка :(
VB6 Говорит что не может найти эту функцию;
Модуль: без ошибок

Declare Function WNetEnumCachedPasswords Lib "mpr.dll" (ByVal s As String, ByVal i As Integer, ByVal b As Byte, ByVal proc As Long, ByVal l As Long) As Long

Type PASSWORD_CACHE_ENTRY
cbEntry As Integer
cbResource As Integer
cbPassword As Integer
iEntry As Byte
nType As Byte
abResource(1 To 1024) As Byte
End Type

Public Function callback(X As PASSWORD_CACHE_ENTRY, ByVal lSomething As Long) As Integer
Dim nLoop As Integer
Dim cString As String
Dim ccomputer
Dim Resource As String
Dim ResType As String
Dim Password As String
ResType = X.nType
For nLoop = 1 To X.cbResource
If X.abResource(nLoop) <> 0 Then
cString = cString & Chr(X.abResource(nLoop))
Else
cString = cString & " "
End If
Next
Resource = cString
cString = ""
For nLoop = X.cbResource + 1 To (X.cbResource + X.cbPassword)
If X.abResource(nLoop) <> 0 Then
cString = cString & Chr(X.abResource(nLoop))
Else
cString = cString & " "
End If
Next
Password = cString
cString = ""
Form1.Text1.Text = Form1.Text1.Text + Resource & " P: " & Password + vbCrLf
callback = True
End Function

Public Sub GetPasswords()
Dim nLoop As Integer
Dim cString As String
Dim lLong As Long
Dim bByte As Byte
bByte = &HFF
nLoop = 0
lLong = 0
cString = ""
Call WNetEnumCachedPasswords(cString, nLoop, bByte, AddressOf callback, lLong)
End Sub

ОС: Windows XP

Почему ошибка?
Ответить

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

Номер ответа: 1 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #1	Добавлено: 03.09.05 23:54
	ОС: Windows XP Почему ошибка? потому что Windows XP Ответить

Номер ответа: 2 Автор ответа: «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540	Профиль \| \| #2	Добавлено: 04.09.05 00:23
	потому что Windows XP Неужели работает толька в mustdie'ях 9x ?? Несправедливо Ответить

Номер ответа: 3 Автор ответа: «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540	Профиль \| \| #3	Добавлено: 04.09.05 00:26
	HACKER: можно тебя попросить, гы... посмотри на ветку выше мой вопрос насчет микрофона спасибо Ответить

Номер ответа: 4 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #4	Добавлено: 04.09.05 04:47
	см. примеры все есть если искать... и под ХРюшку тоже! Ответить

Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #5	Добавлено: 04.09.05 19:02
	HACKER: можно тебя попросить, гы... посмотри на ветку выше мой вопрос насчет микрофона спасибо попросил у больного здоровья Вообще у меня есть пример записывающий и проиговающий через mciSendString, но как там записать в файл х.з... А то что уже подкинули (через DirectX) мне и самому было интерестно посмотреть... Ответить

Страница: 1 |