開啟網頁登入帳密

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-10-9 10:52 | 只看該作者

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

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2020-4-23 16:24 | 只看該作者

回復 1# eric7765

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。