hao268網(wǎng)站，風(fēng)格清新，無(wú)任何廣告，實(shí)在是良心之作。其首頁(yè)中的郵箱賬戶，可以方便的直達(dá)各個(gè)常用郵箱。本程序利用VBA，實(shí)現(xiàn)139郵箱的自動(dòng)登錄。

<select id="hao_mail_options" onChange="MailLogin.change(this)">

<option></option><option>@163.com</option><option>@qq.com</option><option>@126.com</option> <option>@yeah.net</option><option>@sina.com</option><option>@sohu.com</option> <option>@21cn.com</option> <option>@188.com</option> <option>@aliyun.com</option> <option>@189.cn</option> <option>@139.com</option> <option>@gmail.com</option> <option>@hotmail.com</option> <option disabled="disabled">--其它帳號(hào)--</option> <option>百度帳號(hào)</option> <option>新浪微博</option> <option>QQ空間</option>?<option>支付寶</option><option>人人網(wǎng)</option>

<option>開(kāi)心網(wǎng)</option><option>知乎帳號(hào)</option></select>

'@139.com是第11個(gè)元素

Sub 郵箱登錄()

On Error Resume Next

Set ie = CreateObject("internetexplorer.application")

ie.Visible = True

ie.Navigate "https://www.hao268.com"

Do Until ie.ReadyState = 4

? ? DoEvents

Loop

With ie.Document ? ?

? .getelementbyid("hao_mail_username").Value = "yourname"

? .getelementbyid("hao_mail_options")(11).Selected = True'選中@139.com

? .getelementbyid("hao_mail_passwd").Value = "yourpassword"

? .getElementById("emailsubmit").Click

? ??

End With

End Sub

轉(zhuǎn)載于:https://blog.51cto.com/13834900127/1969851

總結(jié)

以上是生活随笔為你收集整理的VBA自动填写表单的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。