如何得到远程控制计算机的目录,文件列表?(50分)

  • 主题发起人 主题发起人 mount
  • 开始时间 开始时间
M

mount

Unregistered / Unconfirmed
GUEST, unregistred user!
我想得到远程要控制的计算机的目录,文件列表,
然后可以选择我要的目录或文件,便可把远程的内容发过来。
应该如何实现?
 
编制两个应用程序,一个为装在受控机上,另一个装在主控机上。主控机指定要
监视的受控机的IP地址和将要在受控机得到计算机的目录、文件列表并发出指令
给受控机,受控机e得到指令后,在受控机得到计算机的目录、文件列表,生成数
据流,将其发回主控机,并在主控机上显示.具体请看“我要杀人”。
 
‘我要杀人’,是要自己先写出要得到的文件,目录名。
但是我想要在主控机能浏览到受控机的文件及目录,然后
选择我要的,让对方发过来。
 
你可以发出指令要哪个盘的目录和文件名,然后拷贝到你的机上:

uses shellapi
procedure TForm1.Button1Click(Sender: TObject);
var
opstruc:tshfileopstruct;
frombuf,tobuf:array[0..128] of char;
begin
fillchar(frombuf,sizeof(frombuf),0);
fillchar(tobuf,sizeof(tobuf),0);
//假设把d:/mpg目录下的所有文件拷贝到你完全共享的abc目录下
strcopy(frombuf,'d:/mpg/*.*');
strcopy(tobuf,'//bob/abc/');//其中bob为你的计算机名
with opstruc do
begin
wnd:=handle;
wfunc:=fo_copy;
pfrom:=@frombuf;
pto:=@tobuf;
fflags:=fof_noconfirmation or fof_renameoncollision;
fanyoperationsaborted:=false;
hnamemappings:=nil;
lpszprogresstitle:=nil;
end;
shfileoperation(opstruc);
messagedlg('拷贝完毕!',mtinformation,[mbok],0);
end;

要想得到隐蔽目录的效果,可在共享目录名称后加$,如//bob/abc$,这样别人在网上
邻居看不到目录abc,但却可以访问它.

 
建议你用netspy,很好用!完全可以满足你的要求!没有的话找我要!
 
乐天:
能否给我发过来netspy?多谢!
jiangtao:
多谢,可我想能浏览到对方的目录和文件,并进行传输。而不要自己指定所要的目录和文件。

 
怎么没响应了?
 
netspy可以完全控制远程机器,就象使用自己的机器一样,可以浏览目录,上传下载
文件,运行程序,关闭计算机,这还不够吗?我已经给你发过去了,没有收到的话,
给我说一声。
 
我也感兴趣......!请将答案给我一份.
 
我有编制一对控制远程计算机进程START和KILL的SOCKET扩展控件组,如果想要取得远程的文件和目录只要稍做修改即可.需要可提供原码
 
to 黄小民:
能否发给我,若可以的话,马上给分
 
黄小民:
发给我一份吧!多谢!l_lemon@sina.com
 
to 黄小民:
也给我一份吧,老兄!多谢! gcqmail@sohu.com
 
偶也要!
lotus.m@263.net

呵呵,其实你利用外部命令也可以达到这个目的的
你用服务器执行ShellExecute一个BAT文件
让他
Dir *.*/a > Temp.out
attrib *.* >>Temp.out
然后把这个文本发过来不难吧:)你用控制端解析一下就知道他有什么东东了
换目录都是自己改啦

发送一点也不难的说:)控件里有,我不详述了:)
 
to 黄小民:
这可是好东西,请也给我一份。

to mikecool:
这方法到是够鬼的。
 
to 黄小民。也能发一份给我吗?
 
to 黄小民。也能发一份给我吗?
 
后退
顶部