Training Peaks Webservice

<script language='javascript'>
dp.SyntaxHighlighter.BloggerMode();
dp.SyntaxHighlighter.HighlightAll('code');
</script>

Dim sUserName As String = "username"
Dim sPassword As String = "password"
Dim nUserId As Integer = 115133
Dim bData() As Byte

Dim ws As trainingpeaksWS.Service = New trainingpeaksWS.Service()
Dim p() As trainingpeaksWS.PersonBase = ws.GetAccessibleAthletes("username", "password", trainingpeaksWS.AthleteAccountTypes.SharedSelfCoachedPremium)


Dim v As String = ws.Version()

Dim dt As DateTime = DateTime.Now()
dt = dt.AddDays(-30)

Dim v3 As Object = ws.GetWorkoutsForAthlete("username", "password", dt, DateTime.Now)
Dim v2 As Object = ws.GetWorkoutsForAccessibleAthlete("username", "password", nUserId, dt, DateTime.Now)
Dim v4 As Object = ws.GetExtendedWorkoutDataForAccessibleAthlete("username", "password", nUserId, 40760637)

Dim workout As trainingpeaksWS.Workout = New trainingpeaksWS.Workout()


ws.ImportFileForUser(sUserName, sPassword, bData)