ممكن المساعدة في المرفق

[حاتم مبروك]

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim wb As New Net.WebClient

        Dim url As String = "&url="  & Uri.EscapeDataString(TextBox1.Text)"

        Dim rsp As String
        Try

            rsp = wb.DownloadString("https://is.gd/create.php?format=simple"@url)
            TextBox2.Text = rsp
        End Try

End Class

 

 

[مهند محسن]

فين الملف ولا تبخل فى شرح طلبك حتى لا تبخل الأساتذة فى الرد عليك !!!!!