一个郁闷很久问题，希望有高手来解决

[bug2002]

小弟编写了一个程序，需要在VB中用WINSOCK访问某个网址，但发现速度狂慢，而且访问一次就卡住了，访问不了第二次，请问怎样解决啊？？是不是用多线程呢？

[daisy8675]

怎麼個慢法，vb 在多線程的問題上本來就不好
但是我怎麼做的不覺得慢

[87721054]

呵呵，那就把你不慢的代码给人家说下嘛~~

[hhyttppd]

是不是网速的问题？

[yoyofish]

对啊 把慢的和不慢的代码都贴出来
大家也好交流分析嘛

[painus]

我的也不慢呀，贴出来吧！

[happywqw]

贴出代码看看！

[bug2002]

Dim s As Boolean

'开始
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect
Command1.Enabled = False
Text1.Enabled = False
s = False
End Sub

'结束
Private Sub Command2_Click()
Winsock1.Close
Command1.Enabled = True
Text1.Enabled = True
s = True
n = 0
End Sub

Private Sub Winsock1_Close()
If s = False Then Command1_Click
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData "GET /******/******.jsp?******=" + Text1.Text + "&itemID=704&aid=4354&pid=705&vid=default HTTP/1.1" + Chr(13) + Chr(10) + "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/vnd.ms-excel, application/vnd.ms-powerpoint, */*" + Chr(13) + Chr(10) + "Accept-Language: zh-cn" + Chr(13) + Chr(10) + "Accept-Encoding: gzip, deflate" + Chr(13) + Chr(10) + "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)" + Chr(13) + Chr(10) + "Host: ***.***.***.***" + Chr(13) + Chr(10) + "Connection: Keep-Alive" + Chr(13) + Chr(10) + "Cookie: JSESSIONID=3B71A43E3F64F8B8055AFFA255C0C858" + Chr(13) + Chr(10) + Chr(13) + Chr(10)
End Sub

以上就是我用的代码，我家是ADSL，但2秒才能循环一次，一次以后就卡了。希望高手指点！

[orsharp]

上下求索