师傅不在QQ,在这里吗?有个问题.//小新的徒弟.
Private Sub Command1_Click()
Dim i As Integer
For i = Text2 To Text3
Text1 = "http://www.csdn.net/develop/read_article.asp?id=" & i
Text1.Refresh
Download "http://www.csdn.net/develop/read_article.asp?id=" & i, App.Path & "\downdata\专家\" & i & ".htm"
Next
End Sub
Private Sub Download(UrtFile As String, LocalFile As String)
Dim bData() As Byte '数据变量
Dim intFile As Integer '可用文件变量
Dim i As Integer
Dim ttt As String
intFile = FreeFile() '将 intFile 设置为未使用的文件
' OpenURL 方法的结果首先传入 Byte 数组，
'然后将 Byte 数组保存到磁盘。
On Error Resume Next
Kill LocalFile
On Error GoTo 0
bData() = Inet1.OpenURL(UrtFile, icByteArray)
Open LocalFile For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
Exit Sub
err1:
Resume
End Sub
这段VB代码是用来抓帖子用的,用delphi怎么写.
我装了个Inet控件为什么不能用啊:(,谁有msinet.lic文件,传一个给我
问题点数：20、回复次数：6Top
1 楼baicolt（五岁的小新是我师傅）回复于 2001-12-06 11:47:36 得分 0
我解决了,谁来跟一下就给谁啦,哈哈Top
2 楼thedream（梦幻使者）回复于 2001-12-06 12:04:43 得分 20
这么好的运气?我跟!!!!!!!!!!!!!!!!!Top
3 楼thedream（梦幻使者）回复于 2001-12-06 12:05:12 得分 0
给我啊,跟了两次了!!!:)Top
4 楼liang_z（千山一刀之忍者神龟）回复于 2001-12-06 12:06:39 得分 0
呵呵Top
5 楼yopeng（小混混）回复于 2001-12-06 12:07:26 得分 0
我跟!!!!!!!!!!!!!!!!! Top
6 楼baicolt（五岁的小新是我师傅）回复于 2001-12-06 12:13:50 得分 0
啊,不好意思,我没有看到有这么多人:(Top
