diff --git a/vb.html b/vb.html new file mode 100644 index 0000000..6d4e396 --- /dev/null +++ b/vb.html @@ -0,0 +1,30 @@ +
+

Request

+

+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
+
\ No newline at end of file