公交车上荫蒂添的好舒服的电影-公用玩物(np双xing总受)-公用小荡货芊芊-公与妇仑乱hd-攻把受做哭边走边肉楼梯play-古装一级淫片a免费播放口

Option Explicit

Private Const sURL As String = "http://218.202.107.178:8081/aincs/webpage/index.jsp?SelfSessionKey=000000000000001a49444c3a687474702f52657150726f636573736f723a312e300000000000000100000000000000ac000102000000000c31302e3232302e332e313900ff8400000000004900504d43000000000000001a49444c3a687474702f52657150726f636573736f723a312e300020200000000974635f61696e6373002020200000000d2f746f6d636174345f706f6100000000000000035649530300000005000507017f000000000000000000000800000000564953000000000100000018000000000001000100000001050100010001010900000000_7A1B861487D6AFEDE237964589A17B26"

Private Sub Form_Load()
WebBrowser1.Navigate sURL
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = sURL Then
Dim Ele As Object

Set Ele = WebBrowser1.Document.getElementById("mobileno") '根據ID取得對象
Ele.Value = "www.m5home.com"

Set Ele = WebBrowser1.Document.getElementsByName("password") '根據Name取得對象
Ele(0).Value = "www.m5home.com"

Set Ele = WebBrowser1.Document.getElementsByName("operVerifyCode") '根據Name取得對象
Ele(0).Value = "www.m5home.com"
End If
End Sub