[VB] Short Link Tiny Url By HungQB

Hi mọi người, mình đã quay lai và chia sẽ cho mọi người thủ thuật rút gọn link trực tiếp từ ứng dụng desktop do mình phát triển nhé. Thủ thuật này mình chia sẽ khá lâu rồi rồi, nhưng giờ đem về chia sẽ lại cho mọi người được rỏ, và thủ thuật khá đơn giản một phần do là trang mình tạo ứng dụng rút gọn link đó có mã nguồn khá phù hợp cho người mới bắt đầu lập trình như mình, còn những trang rút gọn link khác thì nó cần lầy API người dùng và sữ dụng hàm "GET" và "POST" data sever để nhận được link nhé.

Nhìn lên hình ảnh bên trên các bạn cũng đã đoán sơ qua là code nó hoàn toàn đơn giản chứ không phức tạp gì hết cả nhé. Các bạn chỉ cần thêm vào form : 1 Button và 2 Textbox thế là xong còn các bạn muốn tùy biến hơn hay làm gì thì tùy thuộc vào khả năng của các bạn.

FULL CODE:

Imports System.Net
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim webclient As New Net.WebClient
        TextBox2.Text = webclient.DownloadString("https://tinyurl.com/api-create.php?url=" & TextBox1.Text)
    End Sub
End Class

Các bạn nhớ thêm 2 dữ kiện mà Hùng bôi đen phía trên nhé để có thể lấy dữ liệu web.
Nhìn vào code trên các bạn cũng đã thấy đường linh tinyurl đó là để rút gọn link rồi phải không :D

Mình chỉ thêm một số bổ trợ để rút gọn link nhanh hơn chút chứ không phức tạp nhé, nếu có thời gian mình sẽ giới hạn rút gọn link trên ứng dụng là cứ 1p hay 5p mới rút link 1 lần để bắt người dùng mua bản quyền tool =))) ( Đó là ý tưởng vui chơi thôi chứ không thực hiện nha mọi người)

VIDEO DEMO:

Hiện tại ứng dụng demo mình chưa viết ra được vì có một số việc nên chưa có thời gian nhiều để viết bản demo cho người dùng. Sau này nếu có ra mắt chương trình gì khác mình sẽ tích hợp thêm thủ thuật này vào ứng dụng nhé.

Chúc các bạn thành công.