開啟網頁登入帳密

eric7765

請問前輩們 有好幾組帳密 需要登入網頁  "  http://hk799.net/  "
不知道要怎麼寫 才能登入網頁後 自動輸入帳密 拜託前輩指點
目前是用google 瀏覽器  要改成 ie瀏覽器也行
謝謝了

下載 (22.8 KB)

2019-10-9 10:56

GBKEE

回復 1# eric7765

1. Option Explicit
   
2. Sub Ex_網路郵局()
   
3.     With CreateObject("InternetExplorer.Application")
   
4.         .Visible = True
   
5.         '.Navigate "http://hk799.net/"                                                '***這網址拒絕讀取
   
6.         .Navigate "https://hk799.net/tpl/login_webmail.php"   '***改用這網址試試看***
   
7.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
8.          '<input name="inpN" tabindex="1" class="save_01" id="inpN" type="text">
   
9.          .Document.getElementById("inpN").Value = "帳號"
   
10.          '<input name="inpP" tabindex="2" class="save_01" id="inpP" type="password">
    
11.         .Document.getElementById("inpP").Value = "密碼"
    
12.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
    
13.          '<input name="loginbutton" tabindex="3" onclick="proLogin(document.kk.inpN.value,document.kk.inpP.value);" type="button" value="登入">
    
14.          .Document.querySelector("input[name='loginbutton'][tabindex='3'][type='button']").FireEvent ("onclick")
    
15.      '   .Quit        '關閉網頁
    
16.     End With
    
17. End Sub

複製代碼