VB6 - Auto Login Zing Me


Đây là bài mình viết cũng đã lâu rồi :D ai biết về cái này rồi thì thông cảm cho mình nhé. Giờ mình post lại bài này cho cần đến chế độ này ^^!

With WebBrowser1
.Navigate "http://login.me.zing.vn/"
Do While .Busy
DoEvents
Loop
.Document.GetElementById("u").InnerText = "Ten Dang Nhap"
.Document.GetElementById("pp").InnerText = "Mat Khau"

For Each ww In .Document.All
If ww.GetAttribute("name") = "bntlogin" Then ww.Click
Next
End With

Done! Chúc các bạn thành công ^^
Lê Hùng

Chia sẽ kiến thức và tư duy sáng tạo của bản thân mỗi ngày cho cộng đồng IT Việt Nam và Thế giới. Chia sẽ thủ thuật lập trình Csharp, Visual Basic, Python, Php, Javascript, Css, Html. Tối ưu hóa Windows, Microsoft, Facebook, Youtube, Chrome...v.v. Và nhiều thứ bổ trợ cho công nghệ lập trình mới nhất.

Đăng nhận xét

Mới hơn Cũ hơn
/* bao tri */