Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add vb template

  • Loading branch information...
commit 72110d2741375c601097e6f0e9de7db4d1d43ffd 1 parent bf4f00a
Kori Francis kfrancis authored
Showing with 30 additions and 0 deletions.
  1. +30 −0 vb.html
30 vb.html
View
@@ -0,0 +1,30 @@
+<section name="vb" class="vb">
+ <p class="ioDesc">Request</p>
+ <pre class="incoming"><code class="language-vb">
+Dim request = TryCast(System.Net.WebRequest.Create("<%= @apiUrl %><%= @url %>"), System.Net.HttpWebRequest)
+request.Method = "<%= @method.toUpperCase() %>"
+<% if @contentType: %>
+request.ContentType = "<%= @contentType %>"
+<% end %>
+<% if @headers: %>
+<% for header, value of @headers: %>request.Headers.Add(<%= @helpers.escape header %>, <%= @helpers.escape value %>)
+<% end %><% end %>
+<% if @helpers.isNotEmpty @body: %>
+ <% if @method.toUpperCase() is 'POST' or @method.toUpperCase() is 'PUT' or @method.toUpperCase() is 'DELETE': %>
+Using writer = New System.IO.StreamWriter(request.GetRequestStream())
+ Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes("<%= @body.replace(/"/g, "'") %>")
+ request.ContentLength = byteArray.Length
+ writer.Write(byteArray)
+ writer.Close()
+End Using
+ <% end %>
+ <% else: %>
+ request.ContentLength = 0
+<% end %>
+Dim responseContent As String
+Using response = TryCast(request.GetResponse(), System.Net.HttpWebResponse)
+ Using reader = New System.IO.StreamReader(response.GetResponseStream())
+ responseContent = reader.ReadToEnd()
+ End Using
+End Using
+</code></pre></section>
Please sign in to comment.
Something went wrong with that request. Please try again.