1,502
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Function GetByWinHttp$(ByVal GetUrl$, ByVal Referer$, ByVal Cookie$)
On Error Resume Next
Dim XmlHttp As Object
Set XmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
With XmlHttp
.Option(4) = 13056
.Open "GET", GetUrl, True
.SetRequestHeader "Accept", "application/x-shockwave-flash, image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*"
.SetRequestHeader "Accept-Language", "ko-KR,zh-cn;q=0.5"
.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET4.0C; .NET4.0E)"
If Referer <> "" Then .SetRequestHeader "Referer", Referer
If Cookie <> "" Then .SetRequestHeader "Cookie", Cookie
.SetRequestHeader "Connection", "Keep-Alive"
.Send
.WaitForResponse
GetByWinHttp = .ResponseText
End With
Set XmlHttp = Nothing
End Function
Private Sub Command1_Click() '调用
Dim ReturnCode$
ReturnCode = GetByWinHttp("https://" & IP & "/protected/enableSsh.cgi", "", "")
Debug.Print ReturnCode
End Sub
试试这个,原来的还说错了,不好意思。