切换到宽版
  • 44059阅读
  • 249回复

88 [复制链接]

上一主题 下一主题
离线527999091
只看该作者 170楼 发表于: 2008-07-28
`
  
  
离线次碳酸钴

只看该作者 171楼 发表于: 2008-07-28
好象很无聊...
离线527999091
只看该作者 172楼 发表于: 2008-07-28
是的
  
  
离线527999091
只看该作者 173楼 发表于: 2008-07-28
可是怎么办呢
  
  
离线93°

只看该作者 174楼 发表于: 2008-07-28
源码
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
Intel Xeon 5405  
Microsoft Windows 7 Ultimate 64Bit
Microsoft Windows Vista Ultimate 64Bit
Microsoft Windows Server 2003
Microsoft Windows XP Pro
nVIDIA GeForce 9600 + 1GB DDR2 800Mhz x4
离线MarsBear
只看该作者 175楼 发表于: 2008-07-28
聊天吧
离线MarsBear
只看该作者 176楼 发表于: 2008-07-28
小钴 有事找你
离线527999091
只看该作者 177楼 发表于: 2008-07-28
谢谢185楼
  
  
离线93°

只看该作者 178楼 发表于: 2008-07-28
0
Intel Xeon 5405  
Microsoft Windows 7 Ultimate 64Bit
Microsoft Windows Vista Ultimate 64Bit
Microsoft Windows Server 2003
Microsoft Windows XP Pro
nVIDIA GeForce 9600 + 1GB DDR2 800Mhz x4
离线93°

只看该作者 179楼 发表于: 2008-07-28
1
Intel Xeon 5405  
Microsoft Windows 7 Ultimate 64Bit
Microsoft Windows Vista Ultimate 64Bit
Microsoft Windows Server 2003
Microsoft Windows XP Pro
nVIDIA GeForce 9600 + 1GB DDR2 800Mhz x4
快速回复
限100 字节
如果您提交过一次失败了,可以用”恢复数据”来恢复帖子内容
 
上一个 下一个