11-07-17, 03:54 PM
تضغط على الفورم ضغطتين وتمسح الكل وتنسخ هذا وتلصقه
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