Question

帮忙写个小程序，很简单。有能力的帮下忙

功能要求；

不断重复下载一个指定网页，就是下载完覆盖在下载。

界面要求：
可以指定网页
可以设置重复的次数和间隔的时间
**最好可以设置是否不用IE解释代码，或者直接下载代码不解释。我想这样能省好些资源。
**再有就是可以载入外部的文本格式的网址目录

**如果嫌麻烦满足前两条基本功能就行了

最好是用VB写的应为我只会读VB，各位代劳帮下忙吧。
目的是耗光一个小网站的带宽
做测试网站负载能力用

分数我会再提，各位费神了啊

我邮箱594779968@qq.com

Answer 1

已发到你邮箱
'在窗体内建立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 As Long) As Long
Private Const MaxByte = 50 '请修改实际下载的字节数

Private Sub Command1_Click()
Dim sBuffer() As Byte, Ret As Long
Dim s As String, hFile As Long, hOpen As Long
Dim i As Long, TmpStr As String
Dim mvarUrl(2) As String
mvarUrl(0) = "http://zhidao.baidu.com/question/60359757.html" '你可在此改成你要下载的网页地址
mvarUrl(1) = "http://zhidao.baidu.com/question/74613923.html"
mvarUrl(2) = "http://www.163.com/"
For i = 0 To UBound(mvarUrl)
ReDim sBuffer(1 To MaxByte)
hOpen = InternetOpen("Tgwang", 1, vbNullString, vbNullString, 0)
hFile = InternetOpenUrl(hOpen, mvarUrl(i), vbNullString, ByVal 0&, &H80000000, ByVal 0&)
InternetReadFile hFile, sBuffer(1), MaxByte, Ret
If Ret <> 0 Then
TmpStr = LeftB(sBuffer, Ret)
Debug.Print "你要下载的50字节的网页内容为：" & StrConv(TmpStr, vbUnicode)
End If
Next
InternetCloseHandle hOpen
End Sub
你直接用这个软件业可以
认识Web网站的性能测试工具
http://developer.51cto.com 2008-11-11 14:00 佚名 51testing 我要评论(0)

* 摘要：随着Web 2.0技术的迅速发展，许多公司都开发了一些基于Web的网站服务，通常在设计开发Web应用系统的时候很难模拟出大量用户同时访问系统的实际情况，因此，当Web网站遇到访问高峰时，容易发生服务器响应速度变慢甚至服务中断。这时候我们需要一种能够真实模拟大量用户访问Web应用系统的性能测试工具进行压力测试，来测试静态HTML页面的响应时间。
* 标签：Web网站 性能测试 网站性能测试
*
Oracle帮您准确洞察各个物流环节

随着Web 2.0技术的迅速发展，许多公司都开发了一些基于Web的网站服务，通常在设计开发Web应用系统的时候很难模拟出大量用户同时访问系统的实际情况，因此，当Web网站遇到访问高峰时，容易发生服务器响应速度变慢甚至服务中断。为了避免这种情况，需要一种能够真实模拟大量用户访问Web应用系统的性能测试工具进行压力测试，来测试静态HTML页面的响应时间，甚至测试动态网页（包括ASP、PHP、JSP等）的响应时间，为服务器的性能优化和调整提供数据依据。

我推荐各位Web 2.0开发测试人员使用Microsoft 的Web Application Stress Tool这个工具软件，这个微软提供的小工具仅9.58M，很小巧且实用。虽然功能上比不了专业的LoadRunner，但LoadRunner体积庞大，价格不菲，一般的企业也不会花那么多钱去购买LoadRunner，而微软的WAS则是完全免费，并且主要的功能都有，够用就行。

Microsoft Web Application Stress Tool能有效测试一个网站的负载性能，这个软件可以通过脚本模拟100个强并发用户的访问，并模拟实际用户的一些点击操作，WAS还可以连接上远程 Windows网站服务器的性能计数器（Performance Counter），通过对服务器性能（CPU/内存等）的性能分析来找到系统的瓶颈。CPU使用百分比反映了处理器开销，CPU使用百分比持续地超过 75%是性能瓶颈在于处理器的一个明显的迹象。

每次测试运行结束后WAS会生成详细的报表，WAS报表可以从View菜单选择Reports查看。

另外，CSDN也总结了一些其他的测试工具，包括性能测试工具和功能测试工具，前十大测试工具排名如下：

企业级自动化测试工具WinRunner

Mercury Interactive公司的WinRunner是一种企业级的功能测试工具，用于检测应用程序是否能够达到预期的功能及正常运行。通过自动录制、检测和回放用户的应用操作，WinRunner能够有效地帮助测试人员对复杂的企业级应用的不同发布版进行测试，提高测试人员的工作效率和质量，确保跨平台的、复杂的企业级应用无故障发布及长期稳定运行。

工业标准级负载测试工具Loadrunner

LoadRunner 是一种预测系统行为和性能的负载测试工具。通过以模拟上千万用户实施并发负载及实时性能监测的方式来确认和查找问题，LoadRunner 能够对整个企业架构进行测试。通过使用LoadRunner ，企业能最大限度地缩短测试时间，优化性能和加速应用系统的发布周期。

全球测试管理系统testdirector

TestDirector 是业界第一个基于Web的测试管理系统，它可以在您公司内部或外部进行全球范围内测试的管理。通过在一个整体的应用系统中集成了测试管理的各个部分，包括需求管理，测试计划，测试执行以及错误跟踪等功能，TestDirector极大地加速了测试过程。

功能测试工具Rational Robot

IBM Rational Robot 是业界最顶尖的功能测试工具，它甚至可以在测试人员学习高级脚本技术之前帮助其进行成功的测试。它集成在测试人员的桌面 IBM Rational TestManager 上，在这里测试人员可以计划、组织、执行、管理和报告所有测试活动，包括手动测试报告。这种测试和管理的双重功能是自动化测试的理想开始。

单元测试工具xUnit系列

目前的最流行的单元测试工具是xUnit系列框架，常用的根据语言不同分为JUnit（java），CppUnit（C++），DUnit （Delphi ），NUnit（.net），PhpUnit（Php ）等等。该测试框架的第一个和最杰出的应用就是由Erich Gamma （《设计模式》的作者）和Kent Beck（XP（Extreme Programming）的创始人 ）提供的开放源代码的JUnit.

◆功能测试工具SilkTest

Borland SilkTest 2006属于软件功能测试工具，是Borland公司所提出软件质量管理解决方案的套件之一。这个工具采用精灵设定与自动化执行测试，无论是程序设计新手或资深的专家都能快速建立功能测试，并分析功能错误。

◆性能测试工具WAS

Microsoft Web Application Stress Tool 是由微软的网站测试人员所开发，专门用来进行实际网站压力测试的一套工具。透过这套功能强大的压力测试工具，您可以使用少量的Client端计算机仿真大量用户上线对网站服务所可能造成的影响。

◆自动化白盒测试工具Jtest

Jtest是parasoft公司推出的一款针对java语言的自动化白盒测试工具，它通过自动实现java的单元测试和代码标准校验，来提高代码的可靠性。parasoft同时出品的还有C++ test，是一款C/C++白盒测试工具。

◆功能和性能测试的工具JMeter

JMeter是Apache组织的开放源代码项目，它是功能和性能测试的工具，100%的用java实现。

◆性能测试和分析工具WEBLODE

webload是RadView公司推出的一个性能测试和分析工具，它让web应用程序开发者自动执行压力测试；webload通过模拟真实用户的操作，生成压力负载来测试web的性能。

Answer 2

一、网站负载不是有开源工具可以用吗？
二、我不会VB，我是做VC的
三、了解一下http协议即可。windows有专门api操作http下载的。在VC中是CHttpConnection,CInternetSession,CHttpFile封装类处理

这中程序源代码都有，如果是VC可以输入关键字"VC http下载"就有很多提供源码的，比会VB的话，找一个VB的源码，稍改就可(代码肯定不大，都是调用widows api)

Answer 3

楼上这个不错，哪天试试

Answer 4

Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal

Answer 5

我是来学习的