Private Function shrink(ByVal url As String) As String Dim enteredURL As String enteredURL = "http://tinyurl.com/api-create.php?url=" + url.ToLower Dim strURL As String = enteredURL Dim objWebRequest As System.Net.HttpWebRequest Dim objWebResponse As System.Net.HttpWebResponse Dim streamReader As System.IO.StreamReader Dim strHTML As String Dim sendString As String objWebRequest = CType(System.Net.WebRequest.Create(strURL), System.Net.HttpWebRequest) objWebRequest.Method = "GET" objWebResponse = CType(objWebRequest.GetResponse(), System.Net.HttpWebResponse) streamReader = New System.IO.StreamReader(objWebResponse.GetResponseStream) strHTML = streamReader.ReadToEnd Return (strHTML) streamReader.Close() objWebResponse.Close() objWebRequest.Abort() End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ListBox2.Items.Clear() ListBox3.Items.Clear() Label4.Text = "Working ..." ProgressBar1.Value = 0 ProgressBar1.Maximum = ListBox1.Items.Count Threading.Thread.Sleep(1000) For i As Integer = 0 To ListBox1.Items.Count - 1 Try ListBox3.Items.Add(ListBox1.Items.Item(i).ToString) ListBox2.Items.Add(shrink(ListBox1.Items.Item(i).ToString)) Threading.Thread.Sleep(1000) ProgressBar1.Value += 1 Catch t As Exception MsgBox(t.Message) End Try Next ListBox1.Items.Clear() ProgressBar1.Value = 0 Label4.Text = "" End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)