如何用程序实现将远程共享文件夹的文件下载和上传文件-星旺坡

管理首页

如题,对方机器为nt,我有它的用户和密码,要用程序实现下载和上传,请问该如何实现?
http://www.dapha.net/down/show.asp?page=5&classid=1&Nclassid=100
在这里可找到类似文章的源代码
Top

2 楼demo001（给分是我最大的快乐）回复于 2003-10-21 10:25:31 得分 0 http://expert.csdn.net/Expert/topic/2352/2352768.xml?temp=5.413234E-03


  如果有一台机子叫server或者它的IP是xxx.xxx.x.xx，用户名是admin，密码是111

  用net   use命令获得访问权限。

  可以写成net   use   \\xxx.xxx.x.xx\相应路径   111     /user:admin
  或者net   use   \\server\相应路径   111     /user:admin

  用VB将这个net   use写入某个批处理，再用shell调用执行

  然后直接用filecopy语句考文件，很方便的。



Top

3 楼since1990（level）回复于 2003-10-21 21:36:46 得分 0 up
Top

4 楼since1990（level）回复于 2003-10-21 21:37:53 得分 0 得到服务器的用户名、密码。

  然后用VB写一个bat批处理文件，上面用net   use命令获得服务器权限。

  格式是-----net   use   \\服务器名\路径   password     /user:username

  用VB的shell执行这个bat

  再用filecopy拷到服务器相应目录之下即可。

http://www.dapha.net/down/show.asp?page=5&classid=1&Nclassid=100
在这里可找到类似文章的源代码
Top

3 楼since1990（level）回复于 2003-10-21 21:36:46 得分 0 up
Top

1 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2003-10-14 10:32:35 得分 0 上传需要服务器配合，下载可用API，查一下这个API的使用方法 URLDownloadToFile
Top

2 楼airon2002（等我有了钱，豆浆买两碗，喝一碗，倒一碗）回复于 2003-10-14 12:13:40 得分 0 用网页方面上传呀！！！

    加参数传到，asp?pata.......
Top

3 楼demo001（给分是我最大的快乐）回复于 2003-10-14 12:16:59 得分 15filecopy就可以在网络上的机子之间拷东西啊。

  可是服务器不给你权限你怎么拷东西到服务器的硬盘呢？

  你至少得得到服务器的用户名、密码。

  然后用VB写一个bat批处理文件，上面用net   use命令获得服务器权限。

  格式是-----net   use   \\服务器名\路径   password     /user:username

  用VB的shell执行这个bat

  再用filecopy拷到服务器相应目录之下即可。


Top

4 楼demo001（给分是我最大的快乐）回复于 2003-10-14 12:18:30 得分 0 不过如果不是局域网，服务器名打IP，同时还要考虑到防火墙什么的。

  不过这个方法简单啊。

  不需要太复杂的调用。

其实就是ftp程序阿

  可以用winsock做一个ftp客户端
Top

6 楼oxfordxyc（石头）回复于 2003-10-14 16:11:12 得分 0 我要上传的话肯定是知道了FTP的地址，还有用户名和密码的

  net   use   \\服务器名\路径   password     /user:username   这个格式如何实现？

  还有请问online(龙卷风(白学了,重新充电中))   怎么做FTP程序呀，介绍一点相关资料，谢谢
Top

7 楼qqyy_sj（♀天地无邪）回复于 2003-10-14 16:30:42 得分 0 用ftp控件简单
也可以有api
Top

8 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2003-10-14 18:34:02 得分 15使用winsock控件
  Private   Sub   Command1_Click()
          Command1.Enabled   =   False
          Command2.Enabled   =   True
          While   Winsock2.State   <>   sckConnected
                  Timer2.Enabled   =   True
                  DoEvents
          Wend
          Dim   i   As   Integer
          LnFile   =   FileLen(srcFile)
          nLoop   =   0

          ReDim   Buffer(maxByte)
          Open   srcFile   For   Binary   Access   Read   As   #1

          Winsock1.SendData   "SF"
          DoEvents
          Winsock1.SendData   Text1.Text
          DoEvents
          serResponse   =   ""
          Do
                  If   CtrlCommand   <>   False   Then
                          Exit   Do
                  End   If
                  strMessage   =   "正在发送文件…"
                  If   (nLoop   +   maxByte   +   1)   <   LnFile   Then
                          Get   #1,   ,   Buffer     '每次读   1024   个位元组
                          Winsock1.SendData   "SendDatas"
                          DoEvents
                          While   serResponse   <>   "Ready"
                                  DoEvents
                          Wend
                          serResponse   =   ""
                          Winsock2.SendData   Buffer
                          DoEvents
                          nLoop   =   nLoop   +   maxByte   +   1
                  Else
                          nLoop   =   LnFile   -   nLoop   -   1
                          ReDim   Buffer(nLoop)
                          Get   #1,   ,   Buffer     '每次读   1024   个位元组
                          Winsock1.SendData   "SendDatas"
                          DoEvents
                          While   serResponse   <>   "Ready"
                                  DoEvents
                          Wend
                          serResponse   =   ""
                          Winsock2.SendData   Buffer
                          DoEvents
                          Exit   Do
                  End   If
          Loop
          Close   #1
          If   CtrlCommand   =   False   Then
                  Winsock1.SendData   "SendComplete"
                  DoEvents
                  strMessage   =   "文件发送完毕！"
                  Command2.Enabled   =   False
          Else
                  Winsock1.SendData   "Cancel"
                  DoEvents
                  strMessage   =   "取消文件发送！"
                  CtrlCommand   =   False
          End   If
          Winsock2.Close
  End   Sub
Top

9 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2003-10-14 18:34:54 得分 0 http://www.ourfly.com/download/downloadlist.aspx?type=VB
  vb网络编程从入门到精通源码
  其中第十章的例子为ftp

Top

10 楼oxfordxyc（石头）回复于 2003-10-14 19:18:21 得分 0 学习中……
Top

11 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2003-10-14 19:35:24 得分 0 winsock更需要服务器端程序，winsock使用的是TCP协议，与题中的所谓“WWW”（其实应该是HTTP协议，现在的网址已经不用WWW也可以）无关了。
只要客户端与服务器端配合好，上传的方法很多，关键是“配合”
Top

12 楼demo001（给分是我最大的快乐）回复于 2003-10-15 08:37:41 得分 0 那个net命令

  如果有一台机子叫server或者它的IP是xxx.xxx.x.xx，用户名是admin，密码是111

  net   use可以写成net   use   \\xxx.xxx.x.xx\相应路径   111     /user:admin
  或者net   use   \\server\相应路径   111     /user:admin

  在批处理中执行了以上命令，你就获得了向服务器直接filecopy的权利了。

  那个相应路径指的是服务器硬盘上的与网址对应的路径(你需要知道IIS的设置)，而不是网址路径。

  这种方法在局域网的维护中更为常见。

  在互联网上，还要考虑到服务器防火墙设置的问题，要让它给你留个通道。

  这个法子，相比较ftp而言，简单些，不过有点不太正规。

  偶赞同楼上的意见，方法有很多，关键是“配合”。

  能用就行。