Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Net.Configuration
Imports System.Threading
Public Class Form1
Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
Dim MyT As New System.Threading.Thread(AddressOf BduCount)
MyT.Start()
End Sub
Private Sub BduCount(ByVal Qid As String)
Try
Dim request As HttpWebRequest = WebRequest.Create("http://cp.zhidao.baidu.com/v.php?q=111")
request.KeepAlive = False
request.Timeout = 10000
request.ServicePoint.ConnectionLimit = 1000
request.Method = "GET"
request.GetResponse()
Catch ex As Exception
End Try
End Sub
End Class

然后内存就满了。。

不可能吧，只是一个子线程获取web服务器内容，就能把你电脑内存弄满？？我不相信

明显是作死。开一堆线程肯定吃内存

用Timer 控件不停的去开一个新的线程，这是作死的节奏啊，不明白你为什么要这样做？
为什么不一直接一个线程跑到底？

问题解决了吗？求答案

人才啊，把线程放在timer里，你做访问量用sock模拟http请求多好