trewq343

Untitled

Jun 17th, 2012
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.66 KB | None | 0 0
  1. For Each line In HackList.Split(vbLf)
  2. If line.StartsWith("//") Then GoTo hell
  3. Dim info() As String = line.Split("|")
  4. If ListView1.SelectedItems(0).Text = info(0) Then
  5. LaunchToolStripMenuItem.Text = "Downloading " & info(0)
  6. Path = DownloadDirectory & info(0)
  7. If info(3) = "Application" Then ItemType = Type.Application Else ItemType = Type.Hack
  8. Dim URL As String = info(8).Replace(vbLf, "")
  9. downloader.DownloadFileAsync(New Uri(URL), Path)
  10.  
  11. Exit For
  12. End If
  13. hell:
  14. Next
Advertisement
Add Comment
Please, Sign In to add comment