拡張子:txtvbswsfjsphpjavahtmlutf8sjis
<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>