Абсурд запрос относительно API, VBA и Excel

Я пытаюсь иметь MS Excel с помощью макросов VBA, чтобы получить информацию о моей учетной записи от Cryptsy и организовать все это в кучу хороших, красивых таблиц.

Я знаю, что есть, вероятно, более эффективные способы, чтобы идти об этом, но я просто хочу знать, как это сделать. Итак, если вы хотели бы сказать мне обо всем "лучшие способы," Я буду признателен за предложения. Или вы можете просто увидеть это как вызов в программировании. Независимо плывет лодка, я думаю.

Это говорит ....

У меня уже есть макрос, который петля через BTC-E Общественного тикер и изменения цвета на основе значений ячеек. Я думаю, что Тикеры обновим BTC-E достаточно часто, чтобы это было несколько информативно, даже если это не достаточно быстро, чтобы быть очень полезными (3 секунд для полного цикла перед перезапуском). Я использую его в основном знать, когда мне нужно, чтобы перейти на сайт, когда он кажется больше активности происходит.

Я также уже есть макрос, который вытягивает Public ОБЩИЙ РЫНОК Приказы Cryptsy и настраивает эти хорошие столы для меня ..... Однако, проблема в том, что публичные интерфейсы Cryptsy только обновляются каждые ~ 5 минут .... но Private API жив ,

(Почему Cryptsy? Только начинает изучать в и оформлении день торговли. Походившая как хорошее место как любой, тем более, что они еще не торговать в декретных валютах.)

Вот основной VBA (бесплатно), что я ищу, чтобы перейти от "ПОЛУЧИТЬ" к "ПОСЛЕ"........

Код:

Sub MarketInfo ()

Dim XML: Set XML = CreateObject ("Msxml2.XMLHTTP")

XML.Open "Получить", "http://pubapi.cryptsy.com/api.php?method=singlemarketdata&marketid = 3", Ложь
XML.send

Dim Респ As String: Респ = XML.ResponseText

Тусклое SellPrc As Integer: SellPrc = InStr (1, Респ, "sellorders") + 23
Тусклое SellQty As Integer: SellQty = InStr (SellPrc, Респ, "количество") - 3
Dim Sprice As String: Sprice = Mid (Респ, SellPrc, SellQty - SellPrc)
Листы ("Лист1").Ассортимент("С2") .Value = Sprice

Тусклый BuyPrc As Integer: BuyPrc = InStr (1, Респ, "buyorders") + 22
Тусклый BuyQty As Integer: BuyQty = InStr (BuyPrc, Респ, "количество") - 3
Dim bPrice As String: bPrice = Mid (Респ, BuyPrc, BuyQty - BuyPrc)
Листы ("Лист1").Ассортимент("D2") .Value = bPrice

End Sub

Что мне нужно помощь с установкой временного значения, API ключи, заголовки и т.д., чтобы получить доступ к своей учетной записи в адресной строке. Не заинтересованы в проведении торговых операций через Excel, просто хочет посмотреть на статистику моего аккаунта по причинам бухгалтерскими. Я просто не могу показаться, что Google ответов в любом месте (и Bing еще хуже).

Вот ссылка для получения дополнительной информации о протоколах API Cryptsy в: https://www.cryptsy.com/pages/api

Короткий вопрос: Что следует за "https://www.cryptsy.com/api"?

28 октября 2013, 10:53:26 AM	# 1
Rogue5pawn Сообщений: 26 Цитировать по имени цитировать ответ	Re: Абсурд запрос относительно API, VBA, и Excel Взлом Биткоин адресов. 500 Биткоинов взломаны в "мозговом кошельке" с паролем "bitcoin is awesome" Адрес кошелька: 14NWDXkQwcGN1Pd9fboL8npVynD5SfyJAE Приватный ключ: 5J64pq77XjeacCezwmAr2V1s7snvvJkuAz8sENxw7xCkikceV6e подробнее... Всем кто хочет заработать Биткоины без вложений - рекомендую сайт http://bitcoin-zarabotat.ru Я пытаюсь иметь MS Excel с помощью макросов VBA, чтобы получить информацию о моей учетной записи от Cryptsy и организовать все это в кучу хороших, красивых таблиц. Я знаю, что есть, вероятно, более эффективные способы, чтобы идти об этом, но я просто хочу знать, как это сделать. Итак, если вы хотели бы сказать мне обо всем "лучшие способы," Я буду признателен за предложения. Или вы можете просто увидеть это как вызов в программировании. Независимо плывет лодка, я думаю. Это говорит .... У меня уже есть макрос, который петля через BTC-E Общественного тикер и изменения цвета на основе значений ячеек. Я думаю, что Тикеры обновим BTC-E достаточно часто, чтобы это было несколько информативно, даже если это не достаточно быстро, чтобы быть очень полезными (3 секунд для полного цикла перед перезапуском). Я использую его в основном знать, когда мне нужно, чтобы перейти на сайт, когда он кажется больше активности происходит. Я также уже есть макрос, который вытягивает Public ОБЩИЙ РЫНОК Приказы Cryptsy и настраивает эти хорошие столы для меня ..... Однако, проблема в том, что публичные интерфейсы Cryptsy только обновляются каждые ~ 5 минут .... но Private API жив , (Почему Cryptsy? Только начинает изучать в и оформлении день торговли. Походившая как хорошее место как любой, тем более, что они еще не торговать в декретных валютах.) Вот основной VBA (бесплатно), что я ищу, чтобы перейти от "ПОЛУЧИТЬ" к "ПОСЛЕ"........ Код: Sub MarketInfo () Dim XML: Set XML = CreateObject ("Msxml2.XMLHTTP") XML.Open "Получить", "http://pubapi.cryptsy.com/api.php?method=singlemarketdata&marketid = 3", Ложь XML.send Dim Респ As String: Респ = XML.ResponseText Тусклое SellPrc As Integer: SellPrc = InStr (1, Респ, "sellorders") + 23 Тусклое SellQty As Integer: SellQty = InStr (SellPrc, Респ, "количество") - 3 Dim Sprice As String: Sprice = Mid (Респ, SellPrc, SellQty - SellPrc) Листы ("Лист1").Ассортимент("С2") .Value = Sprice Тусклый BuyPrc As Integer: BuyPrc = InStr (1, Респ, "buyorders") + 22 Тусклый BuyQty As Integer: BuyQty = InStr (BuyPrc, Респ, "количество") - 3 Dim bPrice As String: bPrice = Mid (Респ, BuyPrc, BuyQty - BuyPrc) Листы ("Лист1").Ассортимент("D2") .Value = bPrice End Sub Что мне нужно помощь с установкой временного значения, API ключи, заголовки и т.д., чтобы получить доступ к своей учетной записи в адресной строке. Не заинтересованы в проведении торговых операций через Excel, просто хочет посмотреть на статистику моего аккаунта по причинам бухгалтерскими. Я просто не могу показаться, что Google ответов в любом месте (и Bing еще хуже). Вот ссылка для получения дополнительной информации о протоколах API Cryptsy в: https://www.cryptsy.com/pages/api Короткий вопрос: Что следует за "https://www.cryptsy.com/api"?

13 февраля 2014, 5:45:54 PM	# 2
tactrad Сообщений: 34 Цитировать по имени цитировать ответ	Re: Абсурд запрос относительно API, VBA, и Excel Получил 1806 Биткоинов Реальная история. Любой прогресс в этом? Я застрял в той же точке.

17 февраля 2014, 2:18:06 AM	# 3
impresionesmline Сообщения: 217 Цитировать по имени цитировать ответ	Re: Абсурд запрос относительно API, VBA, и Excel Возможно, эта страница может дать вам подсказку: Случайное слово пример: https://bitbucket.org/nitrous/mtgox-api/src/1dd0a12ab1d74c3bcecbb02825104e248407bd92/examples/api.vba POST Примеры: http://social.technet.microsoft.com/Forums/scriptcenter/en-US/a2887fc4-90a6-4f27-9678-b76137f3cb22/invalid-parameters-when-using-xmlhttp60-and-post-method?forum=ITCG http://msdn.microsoft.com/en-us/library/dd582945(v=office.11).aspx http://social.msdn.microsoft.com/Forums/en-US/c917c50c-ef26-4184-a883-995460c002df/get-the-response-body-of-the-given-url-using-msxml2xmlhttp-in- VFP? форум = visualfoxprogeneral http://www.bigresource.com/VB-Using-xmlHttp-correctly-ddbTZ3nEfQ.html Посмотрите на это, например: котировка Sub XMLTest1 () Dim XMLHTTP Набор XMLHTTP = CreateObject ("Microsoft.XMLHTTP") Тусклый результат xmlhttp.Open "ПОСЛЕ", "http://www.bmreports.com/servlet/com.logica.neta.bwp_PanBmData", Ложь xmlhttp.setrequestheader "Тип содержимого", "применение / х-WWW-форм-urlencoded" xmlhttp.send "? Param1 = i_isg-spow1¶m5 = 2003-06-14¶m6 = *" Результат = xmlhttp.responsetext результат MsgBox End Sub котировка Короткий вопрос: Что следует за "https://www.cryptsy.com/api"? Мой ответ был бы, что такие параметры нас котировка Метод = singlemarketdata&marketid = 3 должно быть отправлено с использованием метода xmlhttp.send. я также думаю, что "?" не должны быть включены в этот метод.

Заголовок