vb.net间隔时间按下键盘指定按键

qq_28072089

已于 2024-03-16 09:05:10 修改

阅读量346

点赞数 7

文章标签： .net java 服务器

于 2024-03-16 08:19:28 首次发布

本文链接：https://blog.csdn.net/qq_28072089/article/details/136754219

版权

这篇文章介绍了如何在VisualStudio的Winform界面中使用Timer控件，通过定时发送数字键4来模拟游戏中的技能提升过程，同时提供了代码示例和工具下载链接。

摘要由CSDN通过智能技术生成

游戏中需要提高技能的熟练度，间隔13s按动数字键4；决定自己做一个简单的工具。底部附工具下载链接

vs中winform界面如下：

Public Class Form2
Dim clicksum As Integer = 0
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.Button6.Enabled = True
Me.Button7.Enabled = False
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Debug.Print("发送")
SendKeys.Send(Me.TextBox2.Text)
clicksum = clicksum + 1
Me.TextBox3.Text = clicksum
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim timeInterval As Double = Double.Parse(Me.TextBox1.Text)
Me.Timer1.Enabled = True
Me.Timer1.Interval = timeInterval * 1000
Me.Timer1.Start()
Me.Button6.Enabled = False
Me.Button7.Enabled = True
clicksum = 0
Me.TextBox3.Text = clicksum
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Me.Timer1.Stop()
Me.Timer1.Enabled = False
Me.Button6.Enabled = True
Me.Button7.Enabled = False
End Sub
End Class