Accept-Encoding: gzip, deflate /////////// 可能是这个问题,没设置好格式,参考下面的get格式:GET / HTTP/1.1 Host: www.baidu.com User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.6) Connection: Keep-Alive
baoaya(点头) ,请加我qq,我还有一问题想问
Private Sub Command1_Click() With Winsock1 .RemoteHost = "www.baidu.com" .RemotePort = 80 .Connect End With End Sub
按错建。 只想以下的代码可以连接吗?.RemoteHost = "www.baidu.com" '换做IP可不可以?Private Sub Command1_Click() With Winsock1 .RemoteHost = "www.baidu.com" .RemotePort = 80 .Connect End With End Sub
///////////
可能是这个问题,没设置好格式,参考下面的get格式:GET / HTTP/1.1
Host: www.baidu.com
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.6)
Connection: Keep-Alive
With Winsock1
.RemoteHost = "www.baidu.com"
.RemotePort = 80
.Connect
End With
End Sub
只想以下的代码可以连接吗?.RemoteHost = "www.baidu.com" '换做IP可不可以?Private Sub Command1_Click()
With Winsock1
.RemoteHost = "www.baidu.com"
.RemotePort = 80
.Connect
End With
End Sub