VB循环下载网页代码

来源：百度知道 编辑：UC知道 时间：2024/09/23 04:50:29
具体要求:
1.用API实现,下载速度越快越好
2.只下载网页代码的前50字节
3.因为我是初学者,希望给出具体代码,万分感谢.
1楼朋友的程序可以实现,但程序运行两次以上就死了.得重新启动VB软件.试了几次都是这样.

'根据你的反馈，可知不是代码本身的问题，而是在下载还没完成的情况下，你又按了command1，从而造成假死的情况。所以，正确的操作是：等每一次下载完毕后，再进行下一次的下载。

'在窗体内建立command1控件，然后复制下面代码，把下载地址改成你要下载的地址，运行程序即可得到结果。
'=======代码部分========
Option Explicit
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByRef hInet As Long) As Long
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, sBuffer As Byte, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext