'Bitcointalk.org - шестигранная, GPL
Открытый класс MtGoxAPI
Открытое ApiKey Свойства As String
Открытое ApiSecretKey Свойства As String
Открытое UserName Свойства As String
Пароль публичной собственности As String

Public Enum Urls
GetTicker
GetDepth
GetTrades
GetFunds
BuyBTC
SellBTC
GetOrders
Информация
»...
Конец Enum

Private Function GetURL (URL Как URLS) As String
Select Case URL
Дело Urls.GetTicker
Вернуть "http://mtgox.com/api/0/data/ticker.php"
Дело Urls.GetDepth
Вернуть "http://mtgox.com/api/0/data/getDepth.php"
Дело Urls.GetTrades
Вернуть "http://mtgox.com/api/0/data/getTrades.php"
Дело Urls.GetFunds
Вернуть "https://mtgox.com/api/0/getFunds.php"
Дело Urls.BuyBTC
Вернуть "https://mtgox.com/api/0/buyBTC.php"
Дело Urls.SellBTC
Вернуть "https://mtgox.com/api/0/sellBTC.php"
Дело Urls.GetOrders
Вернуть "https://mtgox.com/api/0/getOrders.php"
Дело Urls.Info
Вернуть "https://mtgox.com/api/0/info.php"
Case Else
Певд NotImplementedException ()
End Select
End Function

Public Shared Function UrlEncode (URL As String) As String
Дим г = url.Replace ("!", "% 21")
г = r.Replace ("*", "% 2A")
г = r.Replace ("'", "% 27")
г = r.Replace ("(", "% 28")
г = r.Replace (")", "% 29")
г = r.Replace (";", "% 3B")
г = r.Replace (":", "% 3A")
г = r.Replace ("@", "% 40")
г = r.Replace ("&", "% 26")
г = r.Replace ("знак равно", "% 3D")
г = r.Replace ("+", "% 2B")
г = r.Replace ("$", "% 24")
г = r.Replace (",", "% 2C")
г = r.Replace ("/", "% 2F")
г = r.Replace ("?", "% 3F")
г = r.Replace ("#", "% 23")
г = r.Replace ("[", "% 5B")
г = r.Replace ("]", "% 5D")
Возврат г
End Function

Открытый запрос Функции (URL Как URLS, Params В перечне (кортежи (Of String, String))) Как Newtonsoft.Json.Linq.JObject

Dim strUrl = GetURL (URL)
Если PARAMS ничего после этого PARAMS = Новый список (из кортежей (Of String, String))

Dim REQ Как Net.HttpWebRequest = System.Net.HttpWebRequest.Create (strUrl)
req.UserAgent = "Mozilla / 5.0 (Windows NT 6.1; WOW64; с.в.: 8.0) Gecko / 20110920 Firefox / 8.0"

Dim authRequired = нет (URL = Urls.GetTicker Или URL = Urls.GetDepth Или URL = Urls.GetTrades)

Если authRequired Тогда
Если String.IsNullOrEmpty (ApiKey) Или String.IsNullOrEmpty (ApiSecretKey) или _
String.IsNullOrEmpty (UserName) Или String.IsNullOrEmpty (Password) Затем Throw New ArgumentNullException ("Свойства аутентификации не установлены")

req.Headers.Add ("Rest-Key", ApiKey)
params.Add (Tuple.Create ("данное время", DateTime.Now.Ticks.ToString ()))
params.Add (Tuple.Create ("имя", ИмяПользователь))
params.Add (Tuple.Create ("проходить", Пароль))
End If

Если params.Count Тогда
'Мы должны POST
req.AllowWriteStreamBuffering = True
req.Method = "ПОСЛЕ"
req.ContentType = "применение / х-WWW-форм-urlencoded"
Dim postSB As New System.Text.StringBuilder ()
Для каждых паров В Params
Если postSB.Length Тогда postSB.Append ("&")
postSB.Append (UrlEncode (param.Item1))
postSB.Append ("знак равно")
postSB.Append (UrlEncode (param.Item2))
следующий
Тусклое postBin = System.Text.Encoding.ASCII.GetBytes (postSB.ToString ())

Если authRequired Тогда
Тусклое HMAC = System.Security.Cryptography.HMACSHA512.Create ()
hmac.Key = Convert.FromBase64String (ApiSecretKey)
Дим хэш = hmac.ComputeHash (postBin)
req.Headers.Add ("Rest-Sign", Convert.ToBase64String (хэш))
End If

req.GetRequestStream.Write (postBin, 0, postBin.Length)
End If



Дим ответ = req.GetResponse.GetResponseStream ()
Dim читатель Как IO.StreamReader = Новый IO.StreamReader (ответ)
«Возвращение reader.ReadToEnd ()

Возвращение Newtonsoft.Json.Linq.JObject.Parse (reader.ReadToEnd ())

End Function



End Class