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