And small A's bet-text Berserker bomber

Yesterday small A to me bet, he let me in 10 seconds to give him a random sentence 100 times, he said, even if you copy and paste up to 1 seconds to copy 10 times, reached the invite me to eat a big meal.

At first let me bet the time, in fact I was refused, you can not let me bet I immediately go to hair, I want to think about, because I do not want to send out a later, on duang~ later I think, first promised, promised to add stunts, that information, duang~duang~duang~ sent out.

I said ok~.

So open VB.

Build form, three textbox, content, count, milliseconds, one timer.

I think: why do you have to copy and paste, he must have forgotten I learned computer, began to add stunts ~

Haha, my big meal ~

A do-loop loop, a SendKeys.

duang~duang~duang~

Private Declare Function getasynckeystate Lib "user32" (ByVal vkey as Long) as Longprivate Sub Form_Load () timer1.interval = Text3.text ' detection interval (milliseconds) End subprivate Sub Timer1_timer () Dim II = text2.textif getasynckeystate (vbKeyF5) then does while I & Gt 0  SendKeys text1.text  SendKeys "{Enter}" ' Press ENTER to simulate keys with {}  i = i-1 loopend ifend Sub

duang~

Try the Notepad first:

Oh, roar, I open the QQ form, press f5,duang~duang~duang~

No more, I went to have a big meal.

@ Mayuko

And small A's bet-text Berserker bomber