Đăng nhập vào 1 website
Moderator: tungblt
-
- Thành viên năng nổ
- Posts: 75
- Joined: Wed 07/07/2010 11:08 am
Đăng nhập vào 1 website
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
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
- VIP
- Posts: 4781
- Joined: Sun 04/11/2007 10:57 am
- Location: Cam Đức, Khánh hòa
- Has thanked: 14 times
- Been thanked: 525 times
Re: Đăng nhập vào 1 website
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
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
- Private Sub Form_Load()
- With WebBrowser1
- .Navigate "http//www.caulacbovb.com/forum/ucp.php?mode=login"
- Do While .Busy
- DoEvents
- Loop
- .Document.GetElementById("username").InnerText = "nick cua ban"
- .Document.GetElementById("password").InnerText = "pass cua ban"
- For Each ww In .Document.All
- If ww.GetAttribute("value") = ChrW(272) & ChrW(259) & "ng nh" & _
- ChrW(7853) & "p" Then ww.Click
- Next
- ' code truongphu 12/12/2010
- End With
- End Sub
Bạn làm tiếp, cái nầy dễkunkunluv000 wrote:Nếu đăng nhập sai thì thông báo lỗi
-
- Thành viên năng nổ
- Posts: 75
- Joined: Wed 07/07/2010 11:08 am
-
- Thành viên năng nổ
- Posts: 61
- Joined: Mon 13/04/2009 8:38 am
- Location: Thạch Thành, Thanh Hóa
Re: Đăng nhập vào 1 website
Bạn thả vào Form một UnicodeTextBox có tên là "txt", và CommandButton có tên là "cmd".các ChrW() ...
- Thiết lập như sau:
Code: Select all
txt.MultiLine = True
txt.ScrollBar = Vertical
txt.FontName = (Phông Unicode)
- Private Sub cmd_Click()
- Dim i As Integer
- For i = 1 To 10000
- DoEvents
- txt.Text = txt & Format$(i, "0000") & " " & vbTab & ChrW$(i) & vbNewLine
- Next
- MsgBox "Xong!"
- End Sub
- 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é!
-
- Thành viên năng nổ
- Posts: 75
- Joined: Wed 07/07/2010 11:08 am
Re: Đăng nhập vào 1 website
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
Mong bạn giúp đỡ
VD: http://gameming.oni.cc
- nimgiaminh
- Thành viên danh dự
- Posts: 432
- Joined: Sat 07/08/2010 9:24 am
- Location: Ở dưới đó đó
- Has thanked: 6 times
- Been thanked: 18 times
- Contact:
-
- Thành viên năng nổ
- Posts: 75
- Joined: Wed 07/07/2010 11:08 am
- nimgiaminh
- Thành viên danh dự
- Posts: 432
- Joined: Sat 07/08/2010 9:24 am
- Location: Ở dưới đó đó
- Has thanked: 6 times
- Been thanked: 18 times
- Contact:
Re: Đăng nhập vào 1 website
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???
-----------------------
Ghi chú của điều hành viên:
@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???
-----------------------
Ghi chú của điều hành viên:
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
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
-
- Thành viên chính thức
- Posts: 46
- Joined: Sat 09/01/2010 8:01 pm
- Has thanked: 3 times
-
- Thành viên tâm huyết
- Posts: 326
- Joined: Tue 11/08/2009 10:54 am
- Location: Gò Vấp - TP.HCM
- Been thanked: 1 time
Re: Đăng nhập vào 1 website
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
- Thành viên chính thức
- Posts: 42
- Joined: Sat 11/08/2012 12:50 pm
- Location: Bình Thuận
- Has thanked: 4 times
- Been thanked: 2 times
- Contact:
- nhochoclaptrinh
- Thành viên danh dự
- Posts: 517
- Joined: Sat 28/05/2011 12:10 pm
- Has thanked: 15 times
- Been thanked: 83 times
Re: Đăng nhập vào 1 website
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 ! ;)
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 ! ;)
- Attachments
-
- testlogin.7z
- (1.77 KiB) Downloaded 444 times
Sad eyes never lie

- 01632911829
- Thành viên chính thức
- Posts: 42
- Joined: Sat 11/08/2012 12:50 pm
- Location: Bình Thuận
- Has thanked: 4 times
- Been thanked: 2 times
- Contact: