执行身份验证请求返回意外结果:404

Question

当我实现谷歌日历时出现以下错误提示：

执行身份验证请求返回意外结果：404

法典：

Dim service As New CalendarService("cal1")
Dim entry As EventEntry = New EventEntry()
entry.Title.Text = Title
entry.Content.Content = Desc
Dim eventLocation As Where = New Where()

eventLocation.ValueString = Location
entry.Locations.Add(eventLocation)
'Dim dtstartdatetime As DateTime = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day, 3, 30, 0)
Dim dtstartdatetime As DateTime = StartTime
'Dim dtenddatetime As DateTime = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day, 4, 30, 0)
Dim dtenddatetime As DateTime = EndTime
Dim eventTime As [When] = New [When](dtstartdatetime, dtenddatetime)
entry.Times.Add(eventTime)
If (UserName <> "" And UserName.Length > 0) Then
    service.setUserCredentials(UserName, Password )
End If
Dim uripath As String = "http://www.google.com/calendar/feeds/" + UserName + "/private/full"
Dim postUri = New Uri("http://www.google.com/calendar/feeds/default/private/full")
postUri = New Uri(uripath)
Dim requestFactory As GDataGAuthRequestFactory = service.RequestFactory
requestFactory.CreateRequest(GDataRequestType.Insert, postUri)
Dim insertedEntry As AtomEntry = service.Insert(postUri, entry)

Answer 1

此方法是旧版本，该服务已于 2014 年关闭。请参考以下链接 https://gsuiteupdates.googleblog.com/2014/10/deprecated-google-calendar-apis-v1-v2.html