html5 自动点击按钮,怎么让程序 5秒钟 自动点击 button按钮

Dim conn As New ADODB.Connection

Dim rs1 As New ADODB.Recordset

Dim rs2 As New ADODB.Recordset

Dim rs3 As New ADODB.Recordset

Dim rs4 As New ADODB.Recordset

Dim rs5 As New ADODB.Recordset

Dim rs6 As New ADODB.Recordset

Dim rs7 As New ADODB.Recordset

'Dim i As Integer

Dim test As Integer

Dim j As Integer

Dim k As Integer

Dim min As Integer

Dim X As Integer

Dim Y As Integer

Dim z As Integer

Private Sub scroll()

Do While True

Dim NewLeft, n As Long

NewLeft = Form1.ScaleWidth

Do While True

LabelMessage.Move NewLeft, 1900

NewLeft = NewLeft - 60

For n = 1 To 20000

DoEvents

Next

'''' 若标签框最末端滚动出窗体视野区域，则重置初始位置

If test = 4 Then

Exit Sub

End If

If NewLeft <= -LabelMessage.Width Then

NewLeft = Form1.ScaleWidth

End If

Loop

Loop

'tuichu:

'MsgBox ("退出程序")

End Sub

Private Sub Command1_Click()

Print "mimaa"

Call Form1.lianjied

Form1.Timer1.Interval = 5000

Call Form1.result

Form1.Show

End Sub

Private Sub Form_Load()

Dim jjjjj As Integer

jjjjj = 200

sj = jjjjj

Label1.BackColor = Form1.BackColor

LabelMessage.BackColor = Form1.BackColor

Label2.BackColor = Form1.BackColor

yi.BackColor = Form1.BackColor

er.BackColor = Form1.BackColor

san.BackColor = Form1.BackColor

class1.BackColor = Form1.BackColor

class2.BackColor = Form1.BackColor

class3.BackColor = Form1.BackColor

Frame1.BackColor = Form1.BackColor

Text1.BackColor = Form1.BackColor

'

Frame2.BackColor = Form1.BackColor

Text2.BackColor = Form1.BackColor

Frame3.BackColor = Form1.BackColor

Text3.BackColor = Form1.BackColor

Frame4.BackColor = Form1.BackColor

Text4.BackColor = Form1.BackColor

'Call connect

'Call result

LabelMessage.AutoSize = True

Label3.AutoSize = True

'Form4.Show

End Sub

Public Sub result()

If (conn.State = 0) Then

Call Form1.lianjied

Form1.Timer1.Interval = 5000

Call Form1.result

Else

Dim i As Integer

Set rs1 = New Recordset

Set rs2 = New Recordset

Set rs3 = New Recordset

Set rs4 = New Recordset

rs4.Open "select count(cPrepay) from tStat where cPrepay=0", conn, adOpenDynamic, adLockOptimistic, -1

rs5.Open "select count(cPrepay) from tStat where cPrepay=0 and sCom like 'a%'", conn, adOpenDynamic, adLockOptimistic, -1

rs6.Open "select count(cPrepay) from tStat where cPrepay=0 and sCom like 'b%'", conn, adOpenDynamic, adLockOptimistic, -1

rs7.Open "select count(cPrepay) from tStat where cPrepay=0 and sCom like 'c%'", conn, adOpenDynamic, adLockOptimistic, -1

rs1.Open "select top 6 sCom from tStat where sCom like 'a%' and cPrepay=0 order by newid()", conn, adOpenDynamic, adLockOptimistic, -1

rs2.Open "select top 6 sCom from tStat where sCom like 'b%' and cPrepay=0 order by newid()", conn, adOpenDynamic, adLockOptimistic, -1

rs3.Open "select top 6 sCom from tStat where sCom like 'c%' and cPrepay=0 order by newid()", conn, adOpenDynamic, adLockOptimistic, -1

class1.Caption = ""

class2.Caption = ""

class3.Caption = ""

Text1.Text = rs4.Fields(0).Value

Text2.Text = rs5.Fields(0).Value

Text3.Text = rs6.Fields(0).Value

Text4.Text = rs7.Fields(0).Value

X = Text2.Text

Y = Text3.Text

z = Text4.Text

If (X < 6) Then

For i = 1 To X

If (rs1.EOF = True Or rs1.BOF = True) Then

Call Form3.lianjied

Form3.Timer1.Interval = 5000

Call Form3.result

Form3.Show

Else

class1.Caption = class1.Caption + " " + rs1.Fields(0).Value

rs1.MoveNext

End If

Next i

Else

For i = 1 To 6

class1.Caption = class1.Caption + " " + rs1.Fields(0).Value

rs1.MoveNext

Next i

End If

If (Y < 6) Then

For j = 1 To Y

If (rs2.EOF = True Or rs2.BOF = True) Then

Call Form3.lianjied

Form3.Timer1.Interval = 5000

Call Form3.result

Form3.Show

Else

class2.Caption = class2.Caption + " " + rs2.Fields(0).Value

rs2.MoveNext

End If

Next j

Else

For j = 1 To 6

class2.Caption = class2.Caption + " " + rs2.Fields(0).Value

rs2.MoveNext

Next j

End If

If (z < 6) Then

For k = 1 To z

If (rs3.EOF = True Or rs3.BOF = True) Then

Call Form3.lianjied

Form3.Timer1.Interval = 5000

Call Form3.result

Form3.Show

Else

class3.Caption = class3.Caption + " " + rs3.Fields(0).Value

rs3.MoveNext

End If

Next k

Else

For k = 1 To 6

class3.Caption = class3.Caption + " " + rs3.Fields(0).Value

rs3.MoveNext

Next k

End If

rs1.Close

rs2.Close

rs3.Close

rs4.Close

rs5.Close

rs6.Close

rs7.Close

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

test = 4

'conn.Close

End

End Sub

Public Sub lianjied()

If (conn.State = 0) Then

conn.ConnectionString = "SERVER=" & Form2.ip & ";PROVIDER=SQLOLEDB" & _

";DATABASE=" & Form2.ming & ";UID=" & Form2.zhanghao & ";PWD=" & Form2.mima

conn.ConnectionTimeout = 5

conn.Open

End If

End Sub

Private Sub Timer1_Timer()

Call result

End Sub

Private Sub Timer2_Timer()

Form1.LabelMessage.Caption = Form4.Text1.Text

Form1.Label3.Caption = Form4.Text2.Text

End Sub

Private Sub Timer4_Timer()

Call scroll

Timer4.Interval = 0

End Sub