- [C#] Di chuyển và thay đổi kích thước Control Winform khi ứng dụng đang chạy
- [VB.NET] Chia sẻ source tạo sắp xếp đội hình bóng đá Line-ups đội bóng
- [C#] Hướng dẫn chỉnh sửa Text của label trực tiếp trên winform
- [C#] Hướng dẫn custom TextBox giống Ultraviewer trên Winform
- [C#] Show Modal Winform like Bootstrap
- [DATABASE] Thứ tự thực hiện mệnh đề truy vấn SELECT trong Sqlserver
- [C#] Hướng dẫn viết addin Excel Lấy hình ảnh từ URL internet vào Excel
- [DATABASE] TSQL view max length all column data trên table Sqlserver
- [DEVEXPRESS] Hướng dẫn sử dụng MailMerge kèm Hình ảnh trên Winform
- [DATABASE] Hướng dẫn truy vấn xem kích thước lưu trữ của từng bảng ghi Table trên sqlserver
- [C#] Hướng dẫn Fake Date Time sử dụng thư viện Harmony
- [DATABASE] Phân biệt câu lệnh DDL và DML trong sqlserver
- [C#] Hướng dẫn convert file mã HTML sang file Pdf trên winform
- [DEVEXPRESS] Tạo các loại mã vạch Barcode trực tiếp trên Devexpress Barcode API
- [DEVEXPRESS] Hướng dẫn custom Simple button thành Progressbar
- [DATABASE] Tách số và chữ từ chuỗi - hàm tối ưu hóa tách số và chữ trong Sqlserver
- [C#] Tìm kiếm gần đúng Full Text Search sử dụng thư viện Lucene.NET
- [C#] Chia sẻ tài liệu, sdk và source code máy chấm công dòng máy ZKTeco
- [C#] Memory Cache là gì, và sử dụng trong ứng dụng Winform
- [DATABASE] Khóa chính Primary Key trong Sqlserver
Đă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.