level 2
空降兵wzl
楼主
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = True
Timer1.Interval = 75
System.Windows.Forms.SendKeys.Send("{j}")
WebBrowser1.Focus()
End Sub
End Class
如何使它能自动连续按J键,我运行时总是按一下Button2它输入一下J,不能自动连续输入
2012年07月23日 10点07分
1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = True
Timer1.Interval = 75
System.Windows.Forms.SendKeys.Send("{j}")
WebBrowser1.Focus()
End Sub
End Class
如何使它能自动连续按J键,我运行时总是按一下Button2它输入一下J,不能自动连续输入