[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 


[alsouf]

شكرا على المجهود

[محمد سالم المحترف]

بارك الله فيك فكرة رائعة ♥

[Mina Botros]

(03-12-17, 05:44 PM)alsouf كتب : شكرا على المجهود

عفوا يا رب يكون الموضوع نال اعجابك

---

(02-01-18, 07:13 PM)محمد سالم المحترف كتب : بارك الله فيك فكرة 

شكرا