Текущий архив: 2008.03.16;
Скачать: CL | DM;
Вниз
Как определить расшаренные ресурсы человека по 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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.015 c
