Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim [integer] As Integer = Conversions.ToInteger(Me.THREADZ.Text) * 3
- Try
- If (Operators.CompareString(Me.user.Text, "", False) = 0) Then
- Interaction.MsgBox(" Username!", MsgBoxStyle.OkOnly, "Nawaf Turbo")
- ElseIf (Operators.CompareString(Me.pass.Text, "", False) = 0) Then
- Interaction.MsgBox("Password!", MsgBoxStyle.OkOnly, "Nawaf Turbo")
- ElseIf (Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(API.smethod_0(Me.user.Text, Me.pass.Text)))))))) Then
- If (Not Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(API.smethod_2()))))))) Then
- Interaction.MsgBox("Error Information!", MsgBoxStyle.OkOnly, "Nawaf Turbo")
- ElseIf (Not Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.method_7(Me.target.Text)))))))) Then
- Dim thread As System.Threading.Thread = New System.Threading.Thread(Sub(a0 As Object) Me.method_4(), 100)
- thread.Start(Conversions.ToDouble([integer]) - 1)
- GC.Collect()
- Else
- Me.bool_0 = True
- End If
- End If
- Catch exception1 As System.Exception
- ProjectData.SetProjectError(exception1)
- Dim exception As System.Exception = exception1
- Interaction.MsgBox(String.Concat("Error : ", exception.Message), MsgBoxStyle.OkOnly, Nothing)
- ProjectData.EndApp()
- ProjectData.ClearProjectError()
- End Try
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment