Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- For Each line In HackList.Split(vbLf)
- If line.StartsWith("//") Then GoTo hell
- Dim info() As String = line.Split("|")
- If ListView1.SelectedItems(0).Text = info(0) Then
- LaunchToolStripMenuItem.Text = "Downloading " & info(0)
- Path = DownloadDirectory & info(0)
- If info(3) = "Application" Then ItemType = Type.Application Else ItemType = Type.Hack
- Dim URL As String = info(8).Replace(vbLf, "")
- downloader.DownloadFileAsync(New Uri(URL), Path)
- Exit For
- End If
- hell:
- Next
Advertisement
Add Comment
Please, Sign In to add comment