狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

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") '根據(jù)ID取得對象
Ele.Value = "www.m5home.com"

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

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