1
以下のコードでは、 "Http.ResponseText
"がライセンスの問題を返します。
私は解決策を教えてください:HttpResponseText一部のライセンス問題を返す
ポップアップエラーがある:参照用
<!DOCTYPE html> Licensed Materials - Property of IBM (c) Copyright IBM Corporation 2005, 2015. All Rights Reserved.
Note to U.S. Government Users Restricted Rights: Use, duplication or disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
<html > <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <meta http-equiv="X-UA-Compatible" content="IE=10"> <title> </title>
<link type="tect/css" rel="stylesheet" href="/ccm/web/_style/?include=A—&etag=DNUG8pOy1Eg_en_US&_proxyURL= %2Fccm&ss=K7RWd"> <link rel="shortcut icon" href="/ccm/web/netjazz.ajailjazz.ico">
< style type="tect/css"> #net-jazz-ajax-NoScriptMessage { width: 100%; color: #000000; font-size gem; text-align: center; position: absolute top: 1%; z-index: 999;
</style>
</head>
<body class="claro"> <noscript> <div id="net-jazz-ajax-NoScriptMessage">lavascript is either disabled or not available in your Browser</div> </noscript> <div id="net-jazz-ajax-InitialLoadMessage"> Loading...</div>
:
Public Function JazzLogin(url, userid, password)
Dim jazzUserid
Dim JazzPassword
JazzUserid = "j_username=jazzadmin"
JazzPassword = "j_password=jazzadmin"
Set http = CreateObject("MSXML2.serverXMLHTTP")[enter image description here][1]
' login to jazz server specified in the parameter section.
http.Open "GET", url&"/authenticated/identity", False
http.Send
http.Open "POST", url&"/authenticated/j_security_check", False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.Send JazzUserid&"&"&JazzPassword
Set JazzLogin = http
End Function