和小A的打赌-文本狂框轰炸机

昨天小A给我打赌，他让我10秒中给他发随意的一句话100遍，他说，即使你复制粘贴也达不到1秒钟复制10次，达到了请我吃大餐。

一开始让我打赌的时候,其实我是拒绝的，你不能让我打赌我就马上去发，我要思考一下，因为我不想发出来一个以后,就duang～后来我就想，先答应，答应完之后加特技，那信息，duang~duang~duang~的就发出去了。

我说OK~

于是打开VB。

构建窗体，三个Textbox，分别是内容，次数，毫秒；一个计时器。

我想：干吗非得复制粘贴，他一定是忘了我学计算机了，开始加特技~

哈哈，我的大餐~

一个do-loop循环，一个sendkeys。

duang~duang~duang~

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long
Private Sub Form_Load()
Timer1.Interval = text3.text '检测间隔时间（毫秒）
End Sub

Private Sub Timer1_Timer()
Dim i
i = Text2.Text
If GetAsyncKeyState(vbKeyF5) Then
 Do While i > 0
  SendKeys Text1.Text
  SendKeys "{enter}" '按enter模拟按键时要有{}
  i = i - 1
 Loop
End If
End Sub

duang~

先拿记事本试一下：

哦吼吼，我打开QQ窗体下，按下F5，duang~duang~duang~

不多说了，我去吃大餐去了。

@ Mayuko