Google Script

A javascript that interacts with google to generate its results.

' gmail.vb - gets unread gmail as an atom feed
' for Alintex Script - www.alintex.com
' usage: ax(w)script [username] [password] gmail.vb

imports System
imports System.Net
imports System.IO
imports System.Text

#region "Script"

' check commandline arguments
if (args.Length < 2)
   print("gmail.vb - gets unread gmail as an atom feed")
   print("Usage: ax(w)script [username] [password] gmail.vb")
   return
end if

' connect to gmail and retrieve the atom xml feed
client = new WebClient
bytes = Encoding.ASCII.GetBytes(args(0) & ":" & args(1))
client.Headers.Add("Authorization", "Basic " & _
   Convert.ToBase64String(bytes))

gmailUri = "https://gmail.google.com/gmail/feed/atom"
dim feedStream as Stream = client.OpenRead(gmailUri)
reader = new StreamReader(feedStream)
feedAsXml = reader.ReadToEnd()
feedStream.Close()

print(feedAsXml)

#end region