VB编写自动按键

问题描述

精选答案

在窗体上放一个文本框text1，其multiline 属性值设为True,scrollbars属性值设为2，然后再放3个定时器控键timer1,timer2,timer3，代码如下，你看这样行不Option Explicit: Dim kaiguan1 As Boolean, a As String, kaiguan2 As BooleanPrivate Sub Form_Load()***.interval = 5000***.interval = 1000***.interval = 1000Text1 = ""End SubPrivate Sub Timer1_Timer()a = a & "zz"Text1 = akaiguan1 = TrueEnd SubPrivate Sub Timer2_Timer()If kaiguan1 = True Then a = a & " " Text1 = a kaiguan1 = False kaiguan2 = TrueEnd IfEnd SubPrivate Sub Timer3_Timer()If kaiguan2 = True Then a = a & vbCrLf Text1 = a kaiguan2 = FalseEnd IfEnd Sub