Advertisement
Guest User

Untitled

a guest
Nov 20th, 2014
134
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Dim primurl As String = "http://sim10174.agni.lindenlab.com:12046/cap/28731ed4-78c3-6897-c139-7ff3b9c938a1"
  3.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  4.         Try
  5.             ImageList1.Images.Add(Bitmap.FromStream(System.Net.HttpWebRequest.Create("http://schmoesknow.com/wp-content/uploads/2014/04/Avatar-Wallpaper-Neytiri7.jpg").GetResponse.GetResponseStream))
  6.             PictureBox1.Image = ImageList1.Images(1)
  7.  
  8.             Dim wc As New System.Net.WebClient
  9.             Dim s As String = wc.DownloadString(primurl + "?=requestavatarlist")
  10.             Dim words As String() = s.Split(New Char() {"|"c})
  11.             Dim list As New ArrayList
  12.             Dim word As String
  13.             For Each word In words
  14.                 list.Add(word)
  15.             Next
  16.             For i As Integer = 0 To list.Count - 1
  17.                 ListView1.Items.Add(list(i))
  18.             Next
  19.         Catch ex As Exception
  20.             ListView1.Items.Add("Failed to retreive avatar keys")
  21.         End Try
  22.     End Sub
  23. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement