Chào các bác,
Em đăng gặp khó khăn về code tự động đăng nhập vào trang web rồi lấy dữ liệu, vấn đề là em đã tìm được cách điền uer và password bằng cách xem code của trang web đó nhưng với nút đăng nhập thì em ko tìm thấy, nên không thể tự động đăng nhập bằng code được.
Mong các bác giúp đỡ em.
Cảm ơn các bác nhiều.
Em đăng gặp khó khăn về code tự động đăng nhập vào trang web rồi lấy dữ liệu, vấn đề là em đã tìm được cách điền uer và password bằng cách xem code của trang web đó nhưng với nút đăng nhập thì em ko tìm thấy, nên không thể tự động đăng nhập bằng code được.
Mong các bác giúp đỡ em.
Cảm ơn các bác nhiều.
PHP:
Public Sub Launch()
Const strURL_c As String = "https://www.vietinbank.vn/ipay/vbh/timeout.do"
Const strUsr_c As String = "user"
Const strPwd_c As String = "****"
Dim objIE As SHDocVw.InternetExplorer
Dim ieDoc As MSHTML.HTMLDocument
Dim tbxPwdFld As MSHTML.HTMLInputElement
Dim tbxUsrFld As MSHTML.HTMLInputElement
Dim btnSubmit As MSHTML.HTMLInputElement
On Error GoTo Err_Hnd
'Create Internet Explorer Object
Set objIE = New SHDocVw.InternetExplorer
'Navigate the URL
objIE.Navigate strURL_c
'Wait for page to load
Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
'Get document object
Set ieDoc = objIE.Document
'lay truong uername/password va nut dang nhap
Set tbxPwdFld = ieDoc.all.Item("j_password") ' j_password-ID của pass
Set tbxUsrFld = ieDoc.all.Item("j_username") 'j_username -ID của ueser name
Set btnSubmit = ieDoc.all.Item("") ' cái này chưa biết ID cua nut dang nhap
'Fill Fields
tbxUsrFld.Value = strUsr_c
tbxPwdFld.Value = strPwd_c
'Click submit
btnSubmit.Click
'Wait for page to load
Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
Err_Hnd: '(Fail gracefully)
objIE.Visible = True
End Sub
