a guest May 16th, 2018 97 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- Private Sub SurroundingSub()
- Dim accessToken As String = "xxxxxxxxxxxxxxxxxxx"
- Dim apiVersion As String = "v1"
- Dim tvApiBaseUrl As String = "https://webapi.teamviewer.com"
- Dim address As String = tvApiBaseUrl & "/api/" & apiVersion & "/devices"
- Dim request As HttpWebRequest = TryCast(WebRequest.Create(address), HttpWebRequest)
- request.Headers.Add("Bearer", accessToken)
- request.Method = "GET"
- Dim webResp As WebResponse = request.GetResponse()
- Catch __unusedException1__ As Exception
- End Try
- End Sub
RAW Paste Data