Đăng nhập vào 1 website

[kunkunluv000]

Cho mình hỏi code đăng nhập 1 website (caulacbovb.com)
Nếu đăng nhập sai thì thông báo lỗi, nếu đúng thì tiếp tục
Mong các bạn giúp đỡ, cám ơn

[truongphu]

website (caulacbovb.com) có các textbox để nhập nick và pass, button Đăng nhập... Tuy thế, chúng lại không có hWnd nên không thể dùng SendMessage được
Vậy ta dùng WebBrowser với Document để điều khiển nó (các textbox và button)

* Dùng IE, mở trang http://www.caulacbovb.com/forum/ucp.php?mode=login
* Xem source code để tìm ID của 2 textbox, kết quả là: username và password
* button có name là login với value là Đăng nhập

Code tự động đăng nhập caulacbovb.com như sau: Đã Test

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

1. Private Sub Form_Load()
2. With WebBrowser1
3.     .Navigate "http://www.caulacbovb.com/forum/ucp.php?mode=login"
4.     Do While .Busy
5.         DoEvents
6.     Loop
7.     .Document.GetElementById("username").InnerText = "nick cua ban"
8.     .Document.GetElementById("password").InnerText = "pass cua ban"
9.    
10.     For Each ww In .Document.All
11.         If ww.GetAttribute("value") = ChrW(272) & ChrW(259) & "ng nh" & _
12.         ChrW(7853) & "p" Then ww.Click
13.     Next
14. ' code: truongphu 12/12/2010
15. End With
16. End Sub

GeSHi © Codebox Plus

Nếu đăng nhập sai thì thông báo lỗi

Bạn làm tiếp, cái nầy dễ

[kunkunluv000]

Cám ơn truongphu
Bạn cho mình xin các ChrW() ... đi

[hahuuhai]

các ChrW() ...

Bạn thả vào Form một UnicodeTextBox có tên là "txt", và CommandButton có tên là "cmd".
- Thiết lập như sau:

Mã: Chọn hết

txt.MultiLine = True
txt.ScrollBar = Vertical
txt.FontName = (Phông Unicode)


- Dán đoạn mã dưới đây vào và chạy:

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

1. Private Sub cmd_Click()
2.     Dim i As Integer
3.     For i = 1 To 10000
4.         DoEvents
5.         txt.Text = txt & Format$(i, "0000") & ": " & vbTab & ChrW$(i) & vbNewLine
6.     Next
7.     MsgBox "Xong!"
8. End Sub
9.  

GeSHi © Codebox Plus

- Ngồi đợi khoảng 20 phút cho nó chạy xong...
- Cuối cùng, chép ra chỗ nào đó (Excel chẳng hạn) và loại bớt những cái không cần đi.

Với cách này, bạn còn có thể tìm ra nhiều ký tự thú vị nữa, chứ không chỉ đơn thuần là những chữ cái. Vì vậy, hãy tự làm nhé!

[kunkunluv000]

Một số website không hiện label như trong caulacbovb.com mà trở thành 1 website khác khi đăng nhập
Mong bạn giúp đỡ
VD: http://gameming.oni.cc

[nimgiaminh]

Ý của bạn là không lấy được tên của hai text đó đó hả??

[kunkunluv000]

Đúng vậy, bạn giúp mình được ko

[nimgiaminh]

Mình bó tay rùi bạn ui.

@truongphu : Bác có thể chỉ cháu nếu thành công thì msgbox thành công, thất bại thì cũng cho 1 cái msgbox dc không ah???


-----------------------

[mod=]1- Đọc lại bài tôi hướng dẫn trên: Phải xem source code từng web page chứ, mỗi trang một khác.
Và các bạn phải tự làm; forum chỉ hướng dẫn. Không được thì cũng không nên hỏi thêm = Nhờ người khác làm giùm à?
2- login thất bại thì trang web clbvb tự động báo lỗi, vd sai pass, cần gì mà msgbox? vì đấy là công việc của trang web, ta không can thiệp được[/mod]

[vanthinh91]

còn trong vb.net thì làm sao nhi~ ??

[duykhanh]

Có cách nào để nhận biết khi đăng nhập thành công sẽ có 1 thông báo hiện ra không?

[01632911829]

Đăng nhập vào 1 web game thì sao

[nhochoclaptrinh]

Có code đăng nhập vậy rồi thì các bước còn lại đơn giản thôi mà, để tìm ID của Element trong trang đăng nhập thì dùng công cụ dành cho nhà phát triển của firefox là nhanh nhất (công cụ giám sát)
còn việc đăng nhập được hay mật khẩu sai thì xem đính kèm, các làm như sau: sau khi đăng nhập nếu còn element của box user name thì chưa đăng nhập đc còn nếu ko thấy thì đăng nhập ok !

[01632911829]

Áp dụng cho game vlcm thử đi nhoclaptrinh