- [DATABASE] Hướng dẫn thêm và cập nhật Extended Property Column trong Table Sqlserver
- [DEVEXPRESS] Hướng dẫn sử dụng Vertical Gridview để hiển thị thông tin sản phẩm
- [C#] Hướng dẫn sử dụng Json Schema để Validate chuỗi string có phải json
- [C#] Hướng dẫn sử dụng công cụ Clean Code trên Visual Studio
- [C#] Hướng dẫn Drag and Drop File vào RichTextBox
- [C#] Hướng dẫn tạo hiệu ứng Karaoke Text Effect Winform
- [C#] Sử dụng thư viện ZedGraph vẽ biểu đồ Line, Bar, Pie trên Winform
- [DATABASE] Hướng dẫn sort sắp xếp địa chỉ IP trên sqlserver sử dụng hàm PARSENAME
- [C#] Theo dõi sử kiện process Start hay Stop trên Winform
- [ASP.NET] Chia sẻ source code chụp hình sử dụng camera trên website
- [C#] Chạy ứng dụng trên Virtual Desktop (màn hình ảo) Winform
- [C#] Mã hóa và giải mã Data Protection API trên winform
- [C#] Hướng dẫn tạo Gradient Background trên Winform
- [DATABASE] Hướng dẫn convert Epoch to DateTime trong sqlserver
- [DATABASE] Hướng dẫn sử dụng STRING_AGG và CONCAT_WS trong sqlserver 2017
- [C#] Hướng dẫn Copy With All Property in Class Object
- [DEVEXPRESS] Hướng dẫn load Json DataSource vào GridView
- [C#] Hướng dẫn tạo chữ ký trên winform Signature Pad
- [DEVEXPRESS] Format code T-SQL highlight in RichEditControl
- [C#] Hướng dẫn upload file, hình ảnh từ Winform lên server API ASP.NET Core
Lấy thông tin chi tiết website (file get content hay CURL) trong Visual Basic . NET - Tìm kiếm thông tin doanh nghiệp qua mã số thuế
Chào các bạn. Hôm nay, mình xin hướng dẫn các bạn cách lấy thông tin từ website từ VB.NET (CURL hay file get content trong PHP), bạn nào code bằng Csharp có thể convert code từ VB.NET sang Csharp nha . Thông tin, chúng ta có thể lấy thông tin từ website khác về phần mềm qua RSS. Các bạn có thể xem bài viết trước
Lấy tỷ giá trực tuyến Vietcombank
Bây giờ mình xin hướng dẫn các bạn cách lấy thông tin của công ty qua mã số thuế, lấy dữ liệu từ trang web http://thongtincongty.com.
Ví dụ khi nhập mã số thuế trên trang web thongtincongty.com ta sẽ có được thông tin như hình bên dưới:
Bây giờ, mình sẽ viết ứng dụng có giao diện như hình bên dưới:
+ Gồm một 1 text box để nhập mã số thuế cần tìm kiếm vào
+ Một button để sử lý sự kiện
+ Và 1 webbrowser để load thông tin trả về từ câu truy vấn
Các bạn, thiết kế giao diện ứng dụng như hình bên dưới:
Các bạn có thể xem video demo của ứng dụng:
Ở trên website, khi ta nhập mã số thuế vào và nhấn nút tìm kiếm, thì form trên sẽ submit theo dạng POST, và trả về dữ liệu thông tin chi tiết của công ty
Bây giờ, mình chỉ hiển thị phần thông tin trong class Jumbotron là ok.
Dưới đây là code của chương trình:
Imports System.Net
Imports System.Text
Imports System.IO
Public Class Form1
Dim loginCookie As CookieContainer
Private Sub btn_timkiem_Click(sender As Object, e As EventArgs) Handles btn_timkiem.Click
Dim postData As String = "q=" & txtquery.Text
Dim tempCookie As New CookieContainer
Dim encoding As New UTF8Encoding
Dim byteData As Byte() = encoding.GetBytes(postData)
Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://www.thongtincongty.com"), HttpWebRequest)
postReq.Method = "POST"
postReq.KeepAlive = True
postReq.CookieContainer = tempCookie
postReq.ContentType = "application/x-www-form-urlencoded"
postReq.Referer = "http://www.thongtincongty.com"
postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/54.0.2840.71 Safari/537.36"
postReq.ContentLength = byteData.Length
Dim postreqstream As Stream = postReq.GetRequestStream()
postreqstream.Write(byteData, 0, byteData.Length)
postreqstream.Close()
Dim postresponse As HttpWebResponse
postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
tempCookie.Add(postresponse.Cookies)
loginCookie = tempCookie
Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
Dim thepage As String = postreqreader.ReadToEnd
RichTextBox1.Text = thepage
WebBrowser1.DocumentText = RichTextBox1.Text
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim divs = WebBrowser1.Document.Body.GetElementsByTagName("div")
Dim i As Integer = 0
Dim d As HtmlElement
For Each d In divs
If d.GetAttribute("className") = "jumbotron" Then
WebBrowser2.DocumentText = d.InnerHtml
i = i + 1
End If
Next
If i = 0 Then
WebBrowser2.DocumentText = "
MÃ SỐ THUẾ KHÔNG TỒN TẠI
" End If End Sub End Class
Chúc các bạn thành công. Mọi câu hỏi thắc mắc đến bài viết xin truy cập http://hoidap.laptrinhvb.net để được support.
ĐỪNG QUÊN LIKE AND SHARE NHA CÁC BẠN.
CÁM ƠN CÁC BẠN ĐÃ THEO DÕI.