コメント |
@DIV
<JOB>
<COMMENT>
************************************************************
************************************************************
</COMMENT>
<OBJECT id="objHTTP" progid="Msxml2.XMLHTTP" />
<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
' ソース内テキストデータの表示
str = RegTrim(GetResource("myTextData"))
Wscript.Echo str
Call objHTTP.Open( "POST","https://ssl.seesaa.jp/blog/rpc", False )
' POST 用 HTTP ヘッダ
Call objHTTP.setRequestHeader("Content-Type", "text/xml" )
Call objHTTP.setRequestHeader("User-Agent", "WSH : lightbox" )
Call objHTTP.SetRequestHeader("Content-Length",Len(str))
Call objHTTP.Send(str)
Wscript.Echo(objHTTP.responseText)
' GUI
MsgBox( "処理が終了しました " )
' ***********************************************************
' 文字列前後の漢字スペースを含むホワイトスペースの削除
' ***********************************************************
Function RegTrim( strValue )
Dim regEx, str
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Pattern = "^[ \s]+"
str = regEx.Replace( strValue, "" )
regEx.Pattern = "[ \s]+$"
RegTrim = regEx.Replace( str, "" )
End Function
</SCRIPT>
<COMMENT>
************************************************************
ソース内テキストデータ
************************************************************
</COMMENT>
<RESOURCE id="myTextData">
<![CDATA[
<?xml version="1.0" encoding="UTF-8"?>
<methodCall>
<methodName>metaWeblog.newPost</methodName>
<params>
<param>
<value>
<string>2377873</string>
</value>
</param>
<param>
<value>メールアドレス</value>
</param>
<param>
<value>
<string>パスワード</string>
</value>
</param>
<param>
<value>
<struct>
<member>
<name>title</name>
<value>
<string>XML-RPCで投稿中</string>
</value>
</member>
<member>
<name>description</name>
<value>
<string>なんでまともな仕様書が無いのでしょう</string>
</value>
</member>
</struct>
</value>
</param>
</params>
</methodCall>
]]]]>
</RESOURCE>
</JOB>
@END |