Autohotkey: quick add to google calendar

“AHK is the mail way I interface with my computers these days. I’ve been looking for a similar idea to send updates to my Google Calendar”

I got the comment above from Billy (along with some much appreciated feedback)  and I figured a Google Calendar App was worth a shot.  To be honest, this is an autohotkey script AND a little command line utility in VB to make it work.  I have not figured out how to call the Google API from autohotkey…  The good news is that there is no installation required (you’ll need the newest .NET installed) and you just have to move my CLgCAL folder into the script folder of your own scripts…  If you like this, please check out my main blog for other helpful articles!

Google Calendar AHK (1136)

Let me know if you have any trouble – this one is going to take some teamwork to iron out the kinks.  The default settings use Windows + G to bring up the post window.

~ab

PS:  Here is the VB code for those who are interested…

Imports System
Imports System.IO
Imports System.Collections
Imports System.ComponentModel
Imports Google.GData.Client
Imports Google.GData.Extensions
Imports Google.GData.Calendar
Module main
Public Sub Main()
Dim vars() As String
Dim myService = New CalendarService(“Cal”)
Dim myEntry = New EventEntry()
Dim postUri = New Uri(“http://www.google.com/calendar/feeds/default/private/full”)
vars = Command.Split(“_”)
Dim username As String = vars(0)
Dim password As String = vars(1)
Dim quickadd As String = vars(2)
myService.setUserCredentials(username, password)
myEntry.QuickAdd = True
myEntry.Content.Content = quickadd
‘Dim createdEntry = (EventEntry)
myService.Insert(postUri, myEntry)
End Sub
End Module
Imports System Imports System.IO Imports System.Collections Imports System.ComponentModel Imports Google.GData.Client Imports Google.GData.Extensions Imports Google.GData.Calendar Module main     Public Sub Main()         Dim vars() As String         Dim myService = New CalendarService("Cal")         Dim myEntry = New EventEntry()         Dim postUri = New Uri("http://www.google.com/calendar/feeds/default/private/full")         vars = Command.Split("_")         Dim username As String = vars(0)         Dim password As String = vars(1)         Dim quickadd As String = vars(2)         myService.setUserCredentials(username, password)         myEntry.QuickAdd = True         myEntry.Content.Content = quickadd         'Dim createdEntry = (EventEntry)         myService.Insert(postUri, myEntry)     End Sub End Module
Get Adobe Flash playerPlugin by wpburn.com wordpress themes