Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2008.03.16;
Скачать: [xml.tar.bz2];

Вниз

Как определить расшаренные ресурсы человека по IP?   Найти похожие ветки 

 
SkySpeed   (2007-06-19 22:04) [0]

Как определить расшаренные ресурсы человека по IP?
(включая вложенные файлы, папки...........)

P.S.: пример от Rouse содержит только определение локально расшаренных ресурсов

Заранее спасибо за помощь!


 
Kolan ©   (2007-06-19 22:07) [1]

> ресурсы человека по IP

Гхххмм, интересно как ты IP человека определять будешь? У меня какой например?


 
SkySpeed   (2007-06-19 23:02) [2]


> Kolan ©   (19.06.07 22:07) [1]
> > ресурсы человека по IPГхххмм, интересно как ты IP человека
> определять будешь? У меня какой например?

Имел в виду по локальной сети


 
Плохиш ©   (2007-06-20 00:57) [3]


> Как определить расшаренные ресурсы человека по IP?


> Имел в виду по локальной сети

Матрица, однако...


 
iXT ©   (2007-06-20 09:38) [4]

> [1] Kolan ©   (19.06.07 22:07)
> У меня какой например?

А у тебя есть расшаренные ресурсы? :)


 
raptoridze   (2007-06-20 13:28) [5]

ппц, такое впечатление что только и можете гнать, еще скажите что вы не поняли что SkySpeed   хочет?

function Get_shares(IP: String):string;
var
hNetEnum: THandle;
NetContainerToOpen: NETRESOURCE;
ResourceBuffer: array[1..2000] of TNetResource;
i, ResourceBuf, EntiriesToGet: DWORD;
begin
NetContainerToOpen.dwScope:=RESOURCE_GLOBALNET;
NetContainerToOpen.dwType:=RESOURCETYPE_ANY;
NetContainerToOpen.lpLocalName:=nil;

NetContainerToOpen.lpRemoteName:=PChar("\\"+IP);
NetContainerToOpen.lpProvider:=nil;
WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, RESOURCEUSAGE_CONNECTABLE or RESOURCEUSAGE_CONTAINER, @NetContainerToOpen, hNetEnum);
while TRUE do
begin
RESOURCEBUF:= sizeof(ResourceBuffer);
EntiriesToGet:=2000;
if (NO_ERROR<> WNetEnumResource(hNetEnum, EntiriesToGet, @ResourceBuffer, ResourceBuf)) then
begin
WNetCloseEnum(hNetEnum);
exit;
end;
for i:=1 to EntiriesToGet do
result:=result+ResourceBuffer[i].lpRemoteName+#13#10;
end;
end;


 
Rouse_ ©   (2007-06-21 09:30) [6]


> пример от Rouse содержит только определение локально расшаренных
> ресурсов

Да? О как...
Это ты просто не разобрался :)
Смотри на эти примеры:
http://rouse.drkb.ru/network.php#fastscan
http://rouse.drkb.ru/network.php#netscan
http://rouse.drkb.ru/network.php#infofromip



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2008.03.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.005 c
3-1193151397
opoloXAI
2007-10-23 18:56
2008.03.16
Знак диаметра в DBGrid


15-1202184216
Dmitry S
2008-02-05 07:03
2008.03.16
проигрывание midi


2-1202919123
batya-x
2008-02-13 19:12
2008.03.16
lpt порт


15-1202144713
ProgRAMmer Dimonych
2008-02-04 20:05
2008.03.16
Нужна помощь в выборе программы


15-1202232861
terminalhead
2008-02-05 20:34
2008.03.16
Как в компоненнте Webbrowser пропускать ошибки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский