This little vbs droplet serves as an example of how to use third party APIs to post to an online blog using XML-RPC. I tested it with pebble. To use it, copy the code below and save it as a vbs file. Change blogsite, username and password to match your needs. Drop some other file onto the vbs file, the script just requires SOMETHING to be dropped on it. You should see a new post posted on December 14, 2006 7:10:00 AM PST.

blogsite = "www.qicboy.com"
username = "secret"
password = "secret"
blogname = "default"

Dim http,fso,fin,xml

Set args = WScript.Arguments
If (args.count <1) then
  msgbox "Drop the file you wish to post.",0,"metaWeblog Droplet"


Else
  newPost(args(0))

End If

function newPost(ByVal path) 
  title="Sample title" 'read from file
  body ="Sample body"  'read from file
  pubDate = "20061214T07:10:00-0800" 'read from file

  document = "" &_
    "<methodCall>" &_
    "  <methodName>metaWeblog.newPost</methodName>" &_
    "  <params>" &_
    "    <param>" &_
    "      <value><string>" & blogname &"</string></value>" &_
    "    </param>" &_
    "    <param>" &_
    "      <value><string>" & username & "</string></value>" &_
    "    </param>" &_
    "    <param>" &_
    "      <value><string>" & password & "</string></value>" &_
    "    </param>" &_
    "    <param>" &_
    "      <value>" &_
    "        <struct>" &_
    "          <member>" &_
    "            <name>description</name>" &_
    "            <value><string>"& body & "</string></value>" &_
    "          </member>" &_
    "          <member>" &_
    "            <name>title</name>" &_
    "            <value><string>"& title &"</string></value>" &_
    "          </member>" &_
    "          <member>" &_
    "            <name>pubDate</name>" &_
    "            <value><dateTime.iso8601>" & pubDate & "</dateTime.iso8601></value>" &_
    "          </member>" &_
    "        </struct>" &_
    "      </value>" &_
    "    </param>" &_
    "    <param>" &_
    "      <value><boolean>1</boolean></value>" &_
    "   </param>" &_
    "  </params>" &_
    "</methodCall>"

  Set fso = createObject("Scripting.FileSystemObject")
  Set fin = fso.OpenTextFile(args.item(0), 1)
  set http = createObject("Microsoft.XMLHTTP")
  Set ie = createObject("InternetExplorer.Application")
  ie.Visible = True
  ie.statusText = "Opening page "& site &"..."
 
  http.open "POST", "http://" & blogsite & "/xmlrpc", false
  http.send (document)

  Set xml = createobject("msxml2.domdocument") 
  xml.loadxml http.responseText
  Set xsl = createobject("msxml2.domdocument") 
  xsl.load("res://msxml.dll/defaultss.xsl") 

  ie.Navigate "about:blank"
  ie.document.Write "<title>metaWeblog Droplet</title>"
  ie.document.Write xml.transformnode(xsl)

  ie.statusText = "Done"

  newPost = 0 
end function

Add a comment

Posted by QICBoy on December 14, 2006 12:00:00 PM PST #

Planetory.org is offering a $50,000 prize for a plan to track Apophis, an asteroid that is planned to pass the earth in a near miss in 2029. While the chances of the asteroid actually hitting the earth are low they are not zero. Also, the effect of the asteroid passing so close to the earth is not fully understood. Scientists are still not certain what the asteroid will eventually hit. It is estimated that an asteroid flies this close to our planet every 1300 years.

Add a comment

Posted by QICBoy on December 14, 2006 10:21:29 AM PST #