Dim data As Map = CreateMap("title": edt_title.Text, "detail": edt_detail.Text, "script": edt_script.Text, "language": ac_language.Text)
Dim json As JSONGenerator
json.Initialize(data)
Dim connection As HttpJob
connection.Initialize("Connection", Me)
connection.PostString("http://codehub.pythonanywhere.com/api/v1/snippet/", json.ToString)
connection.GetRequest.SetHeader("Content-Type", "application/json")
ToastMessageShow("Created",True)