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

你可能感兴趣的:(vbs)