[Mina Botros]

تضغط على الفورم ضغطتين وتمسح الكل وتنسخ هذا وتلصقه

PHP كود :

Imports System.Net
Imports System.IO
Public Class Form1
    Private Function getHTML(ByVal Address As String)
        Try

            Dim rt As String = ""
            Dim wRequest As WebRequest
            Dim wResponse As WebResponse
            Dim SR As StreamReader

            wRequest = WebRequest.Create(Address)
            wResponse = wRequest.GetResponse

            SR = New StreamReader(wResponse.GetResponseStream)
            rt = SR.ReadToEnd
            SR.Close()

            Return rt
        Catch ex As Exception
            MessageBox.Show("Please make sure you put something in the textbox.")
        End Try


    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = getHTML("http://tinyurl.com/api-create.php?url=" + TextBox1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        My.Computer.Clipboard.SetText(TextBox2.Text)
    End Sub
End Class