VB使用Winsock控件无法连接的问题(在线等)
Puto 2005-09-26 08:16:39 小弟需要做一个简单的下载文件的程序。按照网上找来的例子,使用Winsock(sp6)控件。却发现无论如何无法连接远端服务器。
代码如下:
Private Sub Command1_Click()
Dim StartTime As Date
With WinSck
.RemoteHost = "www.sina.com.cn"
.RemotePort = 80
.Connect
Do While .State <> sckConnected
DoEvents: DoEvents: DoEvents: DoEvents
If DateDiff("s", StartTime, Time()) > 30 Then
.Close
Exit Sub
End If
Loop
......
End With
... ...
End Sub
我为了做实验,在自己的机器上边使用Apache建立了一个Web服务器。本地IP地址是192.168.55.204
只有当我使用 .RemoteHost = "192.168.55.204" 时,才偶尔可以连接上。
小弟初学VB,也是首次使用这个控件。真的不明白为什么别人可以使用,我不可以。难道真的是我RPWT?
恳求高手指教。