以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [推荐] 通过代码登录及管理网盘文件-已解决  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15970)
--  作者：Gryvip
--  发布时间：2012/1/23 12:01:00
--  [推荐] 通过代码登录及管理网盘文件-已解决

http://www.1tpan.com/login/

 

http://www.kuaipan.cn/index.php?ac=account&op=login

 

 

各位狐兄，先向大家拜年，请问可否结合狐表利用网盘管理网络文件，使用界面及功能应该比FTP友好很多，请不吝赐教，谢谢。

[此贴子已经被作者于2012-1-31 20:56:39编辑过]
--  作者：yangming
--  发布时间：2012/1/23 13:23:00
--  
  打开可以,直接上传或是下载不行

Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://www.1tpan.com/login/" \'指定要打开的网页地址
Proc.Start()
--  作者：Gryvip
--  发布时间：2012/1/23 17:16:00
--  
谢谢yangming版主的回复，打开网址的代码我会，我想求助的是：通过代码和预先注册好的登录信息登陆上指定网盘，如有狐兄知道的请告知，谢谢。
--  作者：飞
--  发布时间：2012/1/25 20:13:00
--  
Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
    .Visible = True
    .Navigate("https://www.kuaipan.cn/index.php?ac=account&op=login")
    Application.DoEvents
    Do While .Busy
        Application.DoEvents
    Loop
    Dim DoM As Object = .Document
    With DoM
        .getElementById("userName").Value = "在此输入您的用户名"
        .getElementById("userPwd").Value = "在此输入您的密码"
        .getElementById("loginform").submit
    End With
    .Visible = True
End With
--  作者：程兴刚
--  发布时间：2012/1/25 23:07:00
--  
收藏，学习，谢谢！
--  作者：Gryvip
--  发布时间：2012/1/31 20:50:00
--  
飞飞，你太棒了，我不自禁的喜欢上你了，顶上去
--  作者：ymjr2011
--  发布时间：2012/2/1 8:45:00
--  
收藏
--  作者：狐狸爸爸
--  发布时间：2012/2/1 9:13:00
--  
我顶
--  作者：方丈
--  发布时间：2012/2/4 22:16:00
--  

请教飞

能自动登录QQ邮箱吗？
--  作者：xiaoqiwei
--  发布时间：2012/2/15 14:34:00
--  
飞 实在太棒了，我也不禁的“爱”上你了