Tác giả: Sưu tầm
Mô tả: Đăng nhập tự động Câu Lạc Bộ Visual Basic
- With WebBrowser1
- .Navigate "ucp.php"
- Do While .Busy
- DoEvents
- Loop
- .Document.GetElementById("username").InnerText = "Ten Dang Nhap"
- .Document.GetElementById("password").InnerText = "Mat Khau"
- For Each ww In .Document.All
- If ww.GetAttribute("name") = "bntlogin" Then ww.Click
- Next
- End With
Rất đơn giản phải không nào !