- [C#] Viết ứng dụng xem và dò kết quả xổ số kiến thiết miền nam
- [EBOOK] Chia sẽ giáo trình học lập trình C - Giáo sư Phạm Văn Ất
- [C#] Hướng dẫn viết ứng dụng theo dõi máy in bao nhiêu trang (Monitor Printer)
- [C#] Lấy thông tin cấu hình máy tính xuất ra text file winform
- [C#] Chia sẽ class Install, Uninstall, Start và Stop Services Winform
- [C#] Tìm kiếm tập tin file nhanh chóng trên Winform sử dụng thư viện FastSearchLibrary
- [C#] Giới thiệu thư viện Fluent FTP Awesome dùng để làm việc với FTP
- [C#] Sử dụng thư viện Mini Profiler Integrations ghi log thực hiện các câu lệnh SQL
- [DEVEXPRESS] Thiết kế Dropdown ButtonBarItem trên Form Ribbon
- [C#] Lưu trạng thái các control trên Winform vào Registry Windows
- [C#] Ứng dụng ví dụ Simple Observer Pattern tăng giảm số lượng trên winform
- [C#] Hướng dẫn lấy thời gian thực server time trên winform
- [DEVEXPRESS] Hướng dẫn bật tính năng Scroll Pixcel in Touch trên GridView
- [DEVEXPRESS] Hướng dẫn sử dụng TileBar viết ứng dụng duyệt hình ảnh Winform
- [DEVEXPRESS] Tô màu border TextEdit trên Winform
- [C#] Lấy dữ liệu từ Console Write hiển thị lên textbox Winform
- [C#] Hiển thị Progress bar trên Window Console
- [C#] Di chuyển control Runtime và lưu layout trên winform
- [SQLSERVER] Sử dụng hàm NULL IF
- [C#] Chia sẽ source code mã đi tuần bằng giao diện Winform
Đăng nhập facebook với VB.NET
Hôm nay mình sẽ giới thiệu đến các bạn thủ thuật nhỏ đăng nhập vào facebook với vài dòng code VB.NET. Thủ thuật này bạn sử dụng đến đối tượng Webbrowse1, bạn thiết kế form đơn giản sau:
- Bạn thiết kế form với 2 textbox dùng để nhập username và password. Sau khi thiết kế form như trên tại sự kiện nút "Login" bạn thêm vài dòng code này vào:
Dim flag As Boolean
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
flag = True
Try
WebBrowser1.Document.GetElementById("email").SetAttribute("value", txtUserName.Text)
WebBrowser1.Document.GetElementById("pass").SetAttribute("value", txtPassword.Text)
WebBrowser1.Document.GetElementById("login").InvokeMember("click")
lblStatus.Text = "Connected"
Catch ex As Exception
lblStatus.Text = "Not connected"
End Try
End Sub
- Tại sự kiện form_load bạn mặc định khi khởi động cho webbrowse mở sẵn trang http://facebook.com luôn.
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
flag = False
WebBrowser1.Navigate("http://facebook.com/login.php")
End Sub
- Xong! Nhấn F5 thử đăng nhập vào facebook của bạn xem nào. Nếu bạn thấy bài viết hay shared nha.