88 [复制链接]

好象很无聊...

是的

可是怎么办呢

源码
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate "https://www.huaxueba.com/bbs/viewthread.php?tid=2345&extra=page%3D1"
End Sub

Private Sub Command3_Click()
WebBrowser1.Stop
End Sub

Private Sub Timer1_Timer()
If WebBrowser1.Busy = False Then


SendKeys "{F6}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys Text1.Text

SendKeys "{TAB}"
SendKeys "{ENTER}"
Text1.Text = Text1.Text + 1
End If
End Sub

聊天吧

小钴 有事找你

谢谢185楼

0

1