vbs自动登陆115网盘代码

vbs自动登陆115网盘代码：

  
    

   
     Sub
   
      log115()
 
   
     Dim
   
      ieobj
 
   
     Set
   
      ieobj
   
     =
   
     CreateObject
   
     (
   
     "
   
     InternetExplorer.Application
   
     "
   
     )
 ieobj.Visible 
   
     =
   
      
   
     True
   
     
 ieobj.navigate 
   
     "
   
     http://u.115.com
   
     "
   
     
 
   
     Do
   
      Until ieobj.Readystate 
   
     =
   
      
   
     4
   
     
 WScript.Sleep 
   
     100
   
     
 
   
     Loop
   
     
 
   
     If
   
      
   
     InStr
   
     (ieobj.LocationURL,
   
     "
   
     http://u.115.com/?
   
     "
   
     )
   
     >
   
     0
   
      
   
     Then
   
     
 ieobj.Silent
   
     =
   
     True
   
     
 
   
     Else
   
     
 ieobj.Document.All(
   
     "
   
     account
   
     "
   
     ).Value 
   
     =
   
      
   
     "
   
     aautotest
   
     "
   
     
 ieobj.Document.All(
   
     "
   
     passwd
   
     "
   
     ).Value 
   
     =
   
      
   
     "
   
     asd123
   
     "
   
     
 ieobj.Document.All(
   
     "
   
     passwd
   
     "
   
     ).Form.Submit()
 
   
     End
   
      
   
     If
   
     
 
   
     Set
   
      ieobj
   
     =
   
     Nothing
   
     

   
     End Sub
   
     
log115()
  
    

vba版登陆115网盘代码（office中使用）

  
    

   
     Sub
   
      log115()
 
   
     Dim
   
      ieobj
 
   
     Set
   
      ieobj 
   
     =
   
      
   
     CreateObject
   
     (
   
     "
   
     InternetExplorer.Application
   
     "
   
     )
 ieobj.Visible 
   
     =
   
      
   
     True
   
     
 ieobj.navigate 
   
     "
   
     http://u.115.com
   
     "
   
     
 
   
     Do
   
      Until ieobj.Readystate 
   
     =
   
      
   
     4
   
     
 DoEvents
 
   
     Loop
   
     
 
   
     If
   
      
   
     InStr
   
     (ieobj.LocationURL, 
   
     "
   
     http://u.115.com/?
   
     "
   
     ) 
   
     >
   
      
   
     0
   
      
   
     Then
   
     
 ieobj.Silent 
   
     =
   
      
   
     True
   
     
 
   
     Else
   
     
 ieobj.Document.All(
   
     "
   
     account
   
     "
   
     ).Value 
   
     =
   
      
   
     "
   
     aautotest
   
     "
   
     
 ieobj.Document.All(
   
     "
   
     passwd
   
     "
   
     ).Value 
   
     =
   
      
   
     "
   
     asd123
   
     "
   
     
 ieobj.Document.All(
   
     "
   
     passwd
   
     "
   
     ).Form.Submit
 
   
     End
   
      
   
     If
   
     
 
   
     Set
   
      ieobj 
   
     =
   
      
   
     Nothing
   
     

   
     End Sub