- [C#] Hướng dẫn sử dụng temp mail service api trên winform
- [C#] Hướng dẫn tạo mã thanh toán VietQR Pay không sử dụng API trên winform
- [C#] Hướng Dẫn Tạo Windows Service Đơn Giản Bằng Topshelf
- [C#] Chia sẻ source code đọc dữ liệu từ Google Sheet trên winform
- [C#] Chia sẻ source code tạo mã QR MOMO đa năng Winform
- [C#] Chia sẻ source code phần mềm lên lịch tự động chạy ứng dụng Scheduler Task Winform
- [Phần mềm] Tải và cài đặt phần mềm Sublime Text 4180 full version
- [C#] Hướng dẫn download file từ Minio Server Winform
- [C#] Hướng dẫn đăng nhập zalo login sử dụng API v4 trên winform
- [SOFTWARE] Phần mềm gởi tin nhắn Zalo Marketing Pro giá rẻ mềm nhất thị trường
- [C#] Việt hóa Text Button trên MessageBox Dialog Winform
- [DEVEXPRESS] Chia sẻ code các tạo report in nhiều hóa đơn trên XtraReport C#
- [POWER AUTOMATE] Hướng dẫn gởi tin nhắn zalo từ file Excel - No code
- [C#] Chia sẻ code lock và unlock user trong domain Window
- [DEVEXPRESS] Vẽ Biểu Đồ Stock Chứng Khoán - Công Cụ Thiết Yếu Cho Nhà Đầu Tư trên Winform
- [C#] Hướng dẫn bảo mật ứng dụng 2FA (Multi-factor Authentication) trên Winform
- [C#] Hướng dẫn convert HTML code sang PDF File trên NetCore 7 Winform
- [C#] Hướng dẫn viết ứng dụng chat với Gemini AI Google Winform
- Hướng dẫn khóa file bằng nhiều process id, không cho xóa tập tin
- Hướng dẫn cách tạo Product Id cho ứng dụng phần mềm XXXXX-XXXXX-XXXXX-XXXXX
Đă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.