public static string getXmlFile(String url, String paramList,string referer)
创新互联从2013年成立，是专业互联网技术服务公司，拥有项目成都做网站、网站制作、成都外贸网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元瓦房店做网站,已为上家服务,为瓦房店各地企业和个人服务,联系电话:18980820575
{
HttpWebResponse res = null;
string strResult = " ";
try
{
HttpWebRequest req = (HttpWebRequest)WebRequest.Create(url);
req.Method = "GET ";
req.KeepAlive = true;
req.Referer=referer;
//CookieContainer cookieCon = new CookieContainer();
//req.CookieContainer = cookieCon;
//req.CookieContainer.SetCookies(new Uri(url),cookieheader);
StringBuilder UrlEncoded = new StringBuilder();
res = (HttpWebResponse)req.GetResponse();
Stream ReceiveStream = res.GetResponseStream();
Encoding encode = System.Text.Encoding.GetEncoding( "gb2312 ");
StreamReader sr = new StreamReader( ReceiveStream, encode );
Char[] read = new Char[256];
int count = sr.Read( read, 0, 256 );
while (count 0)
{
String str = new String(read, 0, count);
strResult += str;
count = sr.Read(read, 0, 256);
}
}
catch(Exception e)
{
strResult = e.ToString();
}
finally
{
if ( res != null )
{
res.Close();
}
}
return strResult;
}
多线程里调用就行了 费了好长时间才弄出来 我调试过了 能行 如果对你有用就给分吧
Public Class Form1
Public Class SquareClass '把多线程调用的函数封装到类中，通过类事件返回
Public Value As Double
Public Square As Double
Public Event ThreadComplete(ByVal Square As Double)
Public Sub CalcSquare()
Square = Value * Value
RaiseEvent ThreadComplete(Square)
End Sub
End Class
Dim WithEvents oSquare As SquareClass
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '多线程返回值测试，当线程运行完成激发事件
oSquare = New SquareClass()
Dim t As New Threading.Thread(AddressOf oSquare.CalcSquare)
oSquare.Value = 30
t.Start()
End Sub
Sub SquareEventHandler(ByVal Square As Double) Handles oSquare.ThreadComplete '响应事件函数
MsgBox("The square is " Square)
End Sub
End Class
这个线程对象一定有个完成时或者进行中的动作，你可以用AddHandler语句来将过程委托给ProcessChanged或者ProcessConpleted动作。
主线程并发执行，主线程是一种返回字符串长度的简单方法：
EndInvoke做三件事。首先，它会等待异步委托vb.net教程完成执行（如果尚未执行）。其次，它接收返回值（以及任何ref或out参数）。第三，它将所有未处理的工作程序异常抛出回调用线程。
如果您使用异步委托调用的方法没有返回值，则仍然（在技术上）有义务调用EndInvoke。实际上，这是有争议的。没有EndInvoke警察对违规者进行处罚！但是，如果您选择不调用EndInvoke，则需要考虑worker方法上的异常处理，以避免无提示的失败。
您还可以在调用BeginInvoke时指定一个回调委托-一种接受IAsyncResult对象的方法，该方法在完成后会自动调用。这允许煽动线程“忘记”异步委托，但是在回调端需要一些额外的工作：
ginInvoke的最后一个参数是填充IAsyncResult的AsyncState属性的用户状态对象。它可以包含您喜欢的任何内容；在这种情况下，我们使用它将方法委托传递给完成回调，因此我们可以在其上调用EndInvoke。
Thread不会返回值的。你应该创建委托的，使用委托的异步方法
Dim funcInt32 As Func(Of String, Integer) = AddressOf GetList
Dim s As IAsyncResult = funcInt32.BeginInvoke("(参数)", Nothing, Nothing)
’在要获得结果的地方调用EndInvoke方法结束异步调用并获得结果。
Dim result As Int32 = funcInt32.EndInvoke(s)
首先，你把你那些要运行很久的过程。尽量放在一个过程中。
因为线程只能是过程，不能使函数，没有返回值的。
然后，在某个事件下这样写：
**这里我假设你的那个很就的过程叫做 sub aaa()
调用如下：
Dim mythread As New System.Threading.Thread(AddressOf aaa)
mythread.Start()
***********
这样就是定义一个线程，名字叫 mythread，这个线程会运行aaa这个过程。
start 就是让线程运行。
