关于局域网内文件复制问题(30分)

  • 主题发起人 主题发起人 xxaal1
  • 开始时间 开始时间
X

xxaal1

Unregistered / Unconfirmed
GUEST, unregistred user!
我们在局域网内访问别人的机器,如果对方是2000的系统,会让你输入用户名和密码。我在使用CopyFile进行局域网内文件复制问题时,如果我用已知的用户名和密码先去登陆一下,那COPYFile可以成功复制文件,如果不去登陆,则复制不成功。
请教如何编程去登陆对方的机器?
 
没有人知道吗?
 
帅哥:人气不是很旺哦。
告诉你两个办法:
1、用dos命令:net use建立起一个连接。不会用?用这个试试net use /?还不会?那就不要来问我了。
2、用一个API函数。好像是 netaddconnect 你用add net connect 作关键字搜搜吧
代码我有,但我不想贴出来。自己找找吧,DFW里就有了。
3、我看你是一个懒人而且又吝啬。
4、我是一个懒人,分可以不给我
 
楼上的兄弟,你实在是误会我了。
1、我在这里发贴前,我就已经检索过了,没能找到相应资料,所以我才会发帖。
2、我之所以只给30分,是我觉得这个问题只值30分,你觉得不够,我可以另外再开帖给你
3、你既然回答了我的问题,分我是会给你的,另外再加一句谢谢你
4、请你以后回答问题真诚点,总也有你提问题的时候
 
1\你说你不懒,我不是很相信
2\我觉得这个问题不需要30分,为什么呢?因为很多人懂,很多地方都有贴出来.物以稀为贵嘛.那为什么你找不到呢?要么懒,要么笨.我相信我们的国人不笨,那就只有一种解释了.没错你找过了,但你没想过你为什么没找到!
3\谢就算了.分我无所谓,给需要的人吧.我有分问问题
4\为了表示诚意就贴一次.哎,又浪费了不少空间
{使用:只有两个函数,映射驱动器,断开映射.你可以这样做先映射,映射成功马上断开.就可以复制文件了.


unit Unit2;

interface
uses
Windows;


function NetDisConection(LocalDriver:pchar):boolean;
function NetConection(LocalDriver,RemoteDriver,User,password:pchar):boolean;
implementation
function NetConection(LocalDriver,RemoteDriver,User,password:pchar):boolean;
var
NetR:NETRESOURCE;
intRet:Longint;
begin
NetR.dwScope:=RESOURCE_GLOBALNET;
NetR.dwType:=RESOURCETYPE_DISK;
NetR.dwDisplayType:=RESOURCEDISPLAYTYPE_SHARE;
NetR.dwUsage:=RESOURCEUSAGE_CONNECTABLE;
netr.lpProvider:='';
NetR.lpLocalName:=Localdriver;
NetR.lpRemoteName:=Remotedriver;
intRet:=WNetAddConnection2(NetR,password,user,CONNECT_UPDATE_PROFILE);
result:=(intRet<>0);
end;


function NetDisConection(LocalDriver:pchar):boolean;
var
intRet:longint;
begin
intRet := WNetCancelConnection2(Localdriver, CONNECT_UPDATE_PROFILE, False);
result:=(intRet<>0);
end;
end.
 
999roseto347,谢谢了,其实你早就提醒我用驱动器映射,就用不着你这么麻烦了,你的第一种方法也试过了,用winexec()调用net use 没能连上
 
接受答案了.
 
请问lpRemoteName可用'//10.33.67.254/c$'吗?
 
后退
顶部