Hi Wazoo, The Calendar data API doesn't impose limits on how often you can send queries, so that can't be the source of your issue.
To debug this I'd suggest looking at the query URL that you're sending the Calendar server. The same URL should return the same set of events each time. If that's not the case, feel free to post the query URL so the group can take a look. Cheers, Lane On Jun 23, 9:34 am, Wazoo <[EMAIL PROTECTED]> wrote: > I'm a newbie VB.net programmer and have written some code to pull > event titles, dates and time from my Calendar which I then use in a > home automation program. > > Oddly, my code ran great when I first ran it a few days ago.... but > then started acting strangely; i.e. suddenly not pulling all the > events, creating bogus dates and times, and throwing the following > error: "Index was out of range. Must be non-negative and less than the > size of the collection. Parameter name: index". > > Frustrated, I left it alone to start new this morning. So I ran it > and.... everything worked great! So I ran it about 7 - 10 times.... > when... it started acting up again! I'm at a complete lose why this > would be happening. > > Any help on this would be greatly appreciated. > > Thanks! > > (BTW - I've remmed out the hs class statements as they are for the > home automation software) > > Here is my Code: > > Try > > 'USER PREFERENCE SECTION > > 'Minutes before Calendar Event time that you want > announcement; i.e. -15 = 15 minutes before event time > Dim intAdvNotice As Integer = -15 > 'Days you want to pull from Google Calendar; i.e. just the > day script run = 1, 2 for today plus tomorrow, etc. > Dim intDays As Integer = 2 > > 'GOOGLE CALENDAR SETTINGS > 'Enter the XML link from Private Calendar of your Google > Calendar Settings > Dim strURLwithCookie As String = "http://www.google.com/ > calendar/feeds/xxxxxxxxx%40gmail.com/ > private-8479cb957f4782c17d1114f46a873ed1/full" > Dim objCalService As Google.GData.Calendar.CalendarService > 'Enter the Name of your Google Calendar that you want to > pull events from > objCalService = New > Google.GData.Calendar.CalendarService("Test Cal") > Dim query As Google.GData.Calendar.EventQuery > query = New > Google.GData.Calendar.EventQuery(strURLwithCookie) > > Dim objToday As Date = DateTime.Today > Dim objEventTime As Date > > 'set the limits of the query > query.StartTime = objToday > query.EndTime = DateAdd(DateInterval.Day, intDays, > objToday) > > 'get the events > Dim calFeed As Google.GData.Calendar.EventFeed > calFeed = objCalService.Query(query) > > 'show the title of the calendar > > Dim intEventCount As Integer = calFeed.Entries.Count > > 'display the events > Dim entry As Google.GData.Calendar.EventEntry = New > Google.GData.Calendar.EventEntry > > For Each entry In calFeed.Entries > > Dim objDate As Date = entry.Times(0).StartTime.Date > Dim objTime As Date = > entry.Times(0).StartTime.TimeOfDay.ToString > Dim objCombined As Date = > entry.Times(0).StartTime.ToString > Dim strEventTitle As String = entry.Title.Text > Dim intExpiredTime As Integer = 0 > > objEventTime = DateAdd("n", intAdvNotice, objTime) > > If DateAdd("n", intAdvNotice, objCombined) < > DateTime.Now Then > intExpiredTime = 1 > MsgBox("Expired Event is " + strEventTitle + " " + > objTime + " " + objDate) > 'hs.writelog("EVT", "Time has passed for Event " & > strEventTitle & " at time " & objTime) > > Else > End If > > 'Create New Event > If intExpiredTime <> 1 Then > > MsgBox("Creating Event " + strEventTitle + " " + > objTime + " " + objDate) > > 'hs.newtimeevent(strEventTitle, objEventTime, > objDate, 1, 1, 1, 1, 1, 1, 1, "", 1, "EventSpeaker.txt", "Pending > Announcements") > 'hs.writelog("EVT", "Creating Event " & > strEventTitle) > > Else > End If > > Next > Catch ex As Exception > > MsgBox(ex.Message) > > 'hs.WriteLog("*** ERROR ***", "Error encountered on line " > & Erl.ToString() & " of Gcalc.vb (" & ex.Message & ")") > > End Try > > End Sub --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "Google Calendar Data API" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [EMAIL PROTECTED] For more options, visit this group at http://groups.google.com/group/google-calendar-help-dataapi?hl=en -~----------~----~----~----~------~----~------~--~---
