Advertisement
vaq4

Untitled

Sep 14th, 2019
149
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.97 KB | None | 0 0
  1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  2. Dim [integer] As Integer = Conversions.ToInteger(Me.THREADZ.Text) * 3
  3. Try
  4. If (Operators.CompareString(Me.user.Text, "", False) = 0) Then
  5. Interaction.MsgBox(" Username!", MsgBoxStyle.OkOnly, "Nawaf Turbo")
  6. ElseIf (Operators.CompareString(Me.pass.Text, "", False) = 0) Then
  7. Interaction.MsgBox("Password!", MsgBoxStyle.OkOnly, "Nawaf Turbo")
  8. ElseIf (Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(API.smethod_0(Me.user.Text, Me.pass.Text)))))))) Then
  9. If (Not Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(API.smethod_2()))))))) Then
  10. Interaction.MsgBox("Error Information!", MsgBoxStyle.OkOnly, "Nawaf Turbo")
  11. ElseIf (Not Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.method_7(Me.target.Text)))))))) Then
  12. Dim thread As System.Threading.Thread = New System.Threading.Thread(Sub(a0 As Object) Me.method_4(), 100)
  13. thread.Start(Conversions.ToDouble([integer]) - 1)
  14. GC.Collect()
  15. Else
  16. Me.bool_0 = True
  17. End If
  18. End If
  19. Catch exception1 As System.Exception
  20. ProjectData.SetProjectError(exception1)
  21. Dim exception As System.Exception = exception1
  22. Interaction.MsgBox(String.Concat("Error : ", exception.Message), MsgBoxStyle.OkOnly, Nothing)
  23. ProjectData.EndApp()
  24. ProjectData.ClearProjectError()
  25. End Try
  26. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement