| tiancao1001 于 2011-02-18 08:36 AM 发表评论： |
|
| 查看所评论的日志：vb编写的自动点击工具，替代繁琐的手工操作。 |
| tiancao1001 于 2011-01-20 10:02 AM 发表评论： |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2010-12-03 07:59 PM 发表评论： |
楼井的最小宽度？
建筑防火设计规范 GB 50016-2006
7.4.8 公共建筑的室内疏散楼梯两梯段扶手间的水平净距不宜小于150mm。
条文说明：
7.4.8 本条规定主要考虑火灾发生后，消防人员进入失火建筑的楼梯间后，能迅速利用两梯段之间150mm宽的空隙向上吊挂水带展开救援作业，以节省时间和水带，减少水头损失，方便操作。 |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2010-12-02 08:24 PM 发表评论： |
| 预制混凝土檩条的间距约为500~800，檩条的支承长度不小于80mm，山墙悬挑不大于500mm。 |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2010-11-29 10:03 PM 发表评论： |
一键关闭所有IE窗口
taskkill /im iexplore.exe /f |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2010-11-29 09:51 PM 发表评论： |
Option Explicit
Private Sub Command1_Click()
Command1.Enabled = False
WebBrowser1.Navigate2 Text1.Text
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim x As Long
List1.Clear
If Not WebBrowser1.Busy Then
DoEvents
End If
For x = 0 To WebBrowser1.Document.Links.length - 1
List1.AddItem WebBrowser1.Document.Links.Item(x)
Next x
Command1.Enabled = True
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Label3 = Text
End Sub |
|
| 查看所评论的日志：VB 读取网页源码并分析其中的URL |
| tiancao1001 于 2010-11-28 03:40 PM 发表评论： |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2010-11-25 10:59 PM 发表评论： |
|
| 查看所评论的日志：田草日志 |
[9] [10] [11] [12] [13] [14] [15] [16] [17] [18] ... [37] 
