- [DEVEXPRESS] Chia sẻ source code cách tạo biểu đồ sơ đồ tổ chức công ty Org Chart trên Winform C#
- [C#] Hướng dẫn tạo Auto Number trên Datagridview winform
- [DATABASE] Hướng dẫn tạo Procedure String Split in Mysql
- [C#] Thiết lập dấu (,) hay dấu (.) ở định dạng số đúng với định dạng số Việt Nam
- [C#] Chia sẻ source code Game Spin Lucky Wheel
- [C#] Hướng dẫn Encode and Decode HTML
- Danh sách tài khoản ChatGPT miễn phí - Hướng dẫn tạo tài khoản Chat Open AI GPT tại Việt Nam
- [C#] Hướng dẫn thay đổi giao diện ứng dụng Winform theo giao diện của Windows
- [VB.NET] Hiệu ứng Acrylic, Mica, Tabbed Blur Effect trên Winform
- [DEVEXPRESS] Hướng dẫn sử dụng HTML Template trên Combobox Edit
- [C#] Chia sẻ source code Orange Rain in Winform
- [DEVEXPRESS] Hướng dẫn sử dụng HTML Template trên XtraMessageBox Winform Devexpress 22.2.3
- [DEVEXPRESS] Hướng dẫn sử dụng HTML and CSS Code Viewer trên Winform
- [C#] Number Effect Counter up and down in winform
- [C#] Hướng dẫn Supend and Resume Process ID in Winform
- [C#] Hiển thị line number trên Richtextbox Winform
- [C#] Fake Blue Screen BSOD in winform
- [C#] Chia sẽ code demo sử dụng Async Parallel Foreach and For in Winform
- [C#] Sử dụng ActionBlock run X task at time winform
- [C#] Hướng dẫn sử dụng Property Grid để lưu và tải lại thông tin cấu hình user trên winform
[VB.NET] Lập trình tự động đăng bài viết lên diễn đàn Xenforo
Bài viết này, mình xin tiếp tục hướng dẫn các bạn cách lập trình ứng dụng tự động đăng bài lên các diễn đàn forum của Xenforo.
Nếu là bạn Seoer, các bạn thường xuyên viết bài để rồi đi đăng lên các diễn đàn, để trỏ backlink về website của mình. Nếu chúng ta, post 1-3 diễn đàn thì không sao. Nhưng nếu chúng ta có khoảng 20-50 diễn đàn, và seo cho nhiều website thì công việc đó, sẽ làm cho các bạn tốn rất nhiều thời gian và đặc biệt là tốn công nữa.
+ Cách mình post tin lên diễn dàn:
Để đăng được tin lên diễn đàn các bạn cần có tài khoản của diễn dàn để đăng tin.
1. Tên đăng nhập và mật khẩu của forum xenforo cần post.
2. Link đường dẫn login vào trang đăng nhập.
3. Đường dẫn vào category (chuyên mục của bài viết) nếu các bạn muốn đăng tin tự động vào chuyên mục nào thì mình dẫn đường dẫn vào link chuyên mục đó.
+ Cơ chế đăng tin trên forum:
- Đầu tiên mình sẽ login vào đường dẫn của trang đăng nhập vào diễn đàn.
- Sau đó, mình cho chương trình tự động quét ID của ô username và password, để cho ứng dụng tự động điền vào, và click vào nút đăng nhập.
- Tiếp đến, mình sẽ cho chương trình trỏ đường dẫn vào chuyên mục cần post (create thead).
- Ứng dụng, tiếp tục điền thông tin tiêu đề và nội dung bài viết vào ID element của forum.
Lưu ý: để đăng tin lên forum xenforo các bạn cần convert source code HTML của bạn sang Code BBcode. Nếu các bạn post dưới dạng HTML sẽ bị lỗi, Xenforo sẽ không nhận dạng được.
Dưới đây là đoạn function post to xenforo được viết bằng ngôn ngữ lập trình VB.NET. Nếu các bạn nào đang viết bằng C#, thì có thể convert qua để sử dụng.
Public Function post_to_xenforo(linklogin As String, username As String, password As String, tieude As String, noidung As String, linkpost As String) As String
'Dim web As New WebBrowser
WebBrowser2.Navigate(linklogin)
WaitForPageLoad()
'get link hien tai
'Dim linkhientai As String = WebBrowser1.Url.AbsoluteUri.ToString
Dim element = WebBrowser2.Document.GetElementById("ctrl_pageLogin_login")
If element IsNot Nothing Then
WebBrowser2.Document.GetElementById("ctrl_pageLogin_login").SetAttribute("value", username)
WebBrowser2.Document.GetElementById("ctrl_pageLogin_password").SetAttribute("value", password)
WebBrowser2.Document.GetElementById("ctrl_pageLogin_remember").SetAttribute("checked", "checked")
SignInButton("value", "Đăng nhập")
SignInButton("value", "Log in")
WaitForPageLoad()
End If
If pageready = False Then
WebBrowser2.Navigate(linkpost)
End If
WaitForPageLoad()
WebBrowser2.Document.GetElementById("ctrl_title_thread_create").SetAttribute("value", tieude)
WebBrowser2.Document.GetElementById("ctrl_message").SetAttribute("value", noidung)
SignInButton("value", "Đăng chủ đề")
SignInButton("value", "Create Thread")
Return WebBrowser2.Url.AbsoluteUri.ToString()
End Function
Vì mình, không có nhiều thời gian viết bài, nên chỉ đăng source code lên. Bạn nào không hiểu có thể để lại nhận xét bên dưới, khi nào mình online sẽ hỗ trợ.
HAVE FUN!