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