標題: 開啟網頁登入帳密 [打印本頁]

---

作者: eric7765    時間: 2019-10-9 10:52     標題: 開啟網頁登入帳密

本帖最後由 eric7765 於 2019-10-9 10:57 編輯

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

[attach]31328[/attach]

---

作者: GBKEE    時間: 2020-4-23 16:24

回復 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)