主题：[推荐] 通过代码登录及管理网盘文件-已解决

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

 

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

 

 

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

  打开可以,直接上传或是下载不行

Dim Proc As New Process '定义一个新的Process
Proc.File = "http://www.1tpan.com/login/" '指定要打开的网页地址
Proc.Start()

谢谢yangming版主的回复，打开网址的代码我会，我想求助的是：通过代码和预先注册好的登录信息登陆上指定网盘，如有狐兄知道的请告知，谢谢。

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

收藏，学习，谢谢！

飞飞，你太棒了，我不自禁的喜欢上你了，顶上去

收藏

我顶

请教飞

能自动登录QQ邮箱吗？

飞 实在太棒了，我也不禁的“爱”上你了