Minecraft Forums

Public Class frmMain

	Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
		txtAutoTypeDelay.Text = 10
		chkbxDoClose.Checked = True
		chkbxDoClearClipboard.Checked = True
	End Sub

	Private Sub btnStartDelayedAutoType_Click(sender As System.Object, e As System.EventArgs) Handles btnStartDelayedAutoType.Click
		If TextboxAllNumericAndValid() = True Then
			btnStartDelayedAutoType.Enabled = False
			txtAutoTypeDelay.Enabled = False

			Dim TempAutoType As New DelayedAutoType
			TempAutoType.SetAndStartTimer()
		Else
			MessageBox.Show("Invalid delay time!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
		End If
	End Sub

	Private Function TextboxAllNumericAndValid() As Boolean
		If txtAutoTypeDelay.Text <> "" Then
			Dim LoopTextCount As Byte = 0
			For LoopTextCount = 0 To (txtAutoTypeDelay.TextLength - 1)
				If IsNumeric(txtAutoTypeDelay.Text.Substring(LoopTextCount, 1)) = False Or txtAutoTypeDelay.Text.Substring(LoopTextCount, 1) = "." Or txtAutoTypeDelay.Text.Substring(LoopTextCount, 1) = "-" Then
					Return False
				End If
			Next

			If System.Convert.ToUInt32(txtAutoTypeDelay.Text) <= 0 Then
				Return False
			Else
				Return True
			End If
		Else
			Return False
		End If
	End Function
End Class

Public Class DelayedAutoType
	Private WithEvents tmrAutoType As New Timer

	Public Sub SetAndStartTimer()
		With (tmrAutoType)
			.Interval = System.Convert.ToInt32((System.Convert.ToUInt32(frmMain.txtAutoTypeDelay.Text)) * 1000)
			.Enabled = True
		End With
	End Sub

	Private Sub tmrAutoType_Tick() Handles tmrAutoType.Tick
		tmrAutoType.Enabled = False

		SendKeys.Send(My.Computer.Clipboard.GetText)

		If frmMain.chkbxDoClearClipboard.Checked = True Then
			My.Computer.Clipboard.Clear()
		End If
		If frmMain.chkbxDoClose.Checked = True Then
			frmMain.Close()
		Else
			frmMain.btnStartDelayedAutoType.Enabled = True
			frmMain.txtAutoTypeDelay.Enabled = True
		End If
	End Sub
End Class