'引用Microsoft WinHTTP Services
Private Sub Command1_Click()
Dim objHttp As New WinHttpRequest
objHttp.Open "GET", "http://community.csdn.net/expert/forum.asp"
objHttp.Send
MsgBox objHttp.GetAllResponseHeaders
End Sub
...全文
21511打赏收藏
[分享] 你想看看别人的网站用的是什么服务软件吗?
'引用Microsoft WinHTTP Services Private Sub Command1_Click() Dim objHttp As New WinHttpRequest objHttp.Open "GET", "http://community.csdn.net/expert/forum.asp" objHttp.Send MsgBox objHttp.GetAllResponseHeaders End Sub