I am trying to access the smartsheet API. They have a sample code provided in curl to access it.
To access your Sheet list, construct an HTTPS request using your favorite programming or scripting language. Here is an example using the curl from a linux command line:
curl https://api.smartsheet.com/1.0/sheets \
-H "Authorization: Bearer 0da6cf0d-848c-4266-9b47-cd32a6151b1f" \
-H "Assume-User: john.doe%40smartsheet.com"
How do I do that in vb.net or from a html form?
This is a rather large subject but at it's most simple you could try this...
Imports System.Net
and then...
Dim wHeader As WebHeaderCollection = New WebHeaderCollection()
wHeader.Clear()
wHeader.Add("Authorization: Bearer 0da6cf0d-848c-4266-9b47-cd32a6151b1f")
wHeader.Add("Assume-User: john.doe%40smartsheet.com")
Dim sUrl As String = "https://api.smartsheet.com/1.0/sheets"
Dim wRequest As HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(sUrl), HttpWebRequest)
'wRequest.ContentType = "application/json" ' I don't know what your content type is
wRequest.Headers = wHeader
wRequest.Method = "GET"
Dim wResponse As HttpWebResponse = DirectCast(wRequest.GetResponse(), HttpWebResponse)
Dim sResponse As String = ""
Using srRead As New StreamReader(wResponse.GetResponseStream())
sResponse = srRead.ReadToEnd()
End Using
I'm unfamiliar with the smartsheet API but you can use this as a start point.
If you are using a Proxy you will need to add...
Dim wProxy As IWebProxy = WebRequest.GetSystemWebProxy()
wProxy.Credentials = System.Net.CredentialCache.DefaultCredentials
and specify the proxy when you make the request...
wRequest.Proxy = wProxy
To create a web request in VB.Net, you can use the HttpWebRequest class.
The -H argument in curl creates an extra header. To add headers to a HttpWebRequest you simply add them to the WebHeaderCollection Headers.
Example:
Dim myHttpWebRequest = CType(WebRequest.Create("https://api.smartsheet.com/1.0/sheets"), HttpWebRequest)
myHttpWebRequest.Headers.Add("Authorization: Bearer 0da6cf0d-848c-4266-9b47-cd32a6151b1f")
myHttpWebRequest.Headers.Add("Assume-User: john.doe%40smartsheet.com")
Dim myHttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
use the example and it worked perfectly for me, some changes. I leave you the example.
Dim wHeader As WebHeaderCollection = New WebHeaderCollection()
wHeader.Clear()
wHeader.Add("Authorization: Bearer eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9")
wHeader.Add("Assume-User: g.n.moran%gmail.com")
Dim wRequest As HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(url), HttpWebRequest)
wRequest.Headers = wHeader
wRequest.Method = "POST"
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(json)
wRequest.ContentType = "application/json"
wRequest.ContentLength = byteArray.Length
Dim dataStream As Stream = wRequest.GetRequestStream()
dataStream.Write(byteArray, 0, byteArray.Length)
dataStream.Close()
dataStream.Dispose()
ServicePointManager.Expect100Continue = False
Dim wResponse As HttpWebResponse = DirectCast(wRequest.GetResponse(), HttpWebResponse)
oerror.Codigo = CType(wResponse, HttpWebResponse).StatusCode
oerror.Descripcion = CType(wResponse, HttpWebResponse).StatusDescription
Dim responseFromServer As String = ""
dataStream = wResponse.GetResponseStream()
Dim reader As New StreamReader(dataStream)
Using srRead As New StreamReader(wResponse.GetResponseStream())
responseFromServer = srRead.ReadToEnd()
End Using
