Translations:Пример доступа к данным из Excel/9/en — различия между версиями

Материал из WebHMI Wiki
Перейти к: навигация, поиск
(Новая страница: «<pre> Sub GetRegisters() Dim Client As New WebClient Client.BaseUrl = "http://192.168.1.1/api" Dim Request As New WebRequest Request.Reso…»)
 
 
Строка 11: Строка 11:
 
     Request.ResponseFormat = WebFormat.JSON
 
     Request.ResponseFormat = WebFormat.JSON
 
      
 
      
−
     Request.AddHeader "X-WH-APIKEY", "8DA00F5F9B42A8D070651C58F495DB1C3191AF19"
+
    ' API KEY
 +
     Request.AddHeader "X-WH-APIKEY", "EBB484265A64A547411FAC660AE3710CAA797976"
 +
   
 +
    ' IDs of connections to read register values from; comma-separated
 +
    Request.AddHeader "X-WH-CONNS", "1,2"
 
      
 
      
 
     Dim Response As WebResponse
 
     Dim Response As WebResponse
 
     Set Response = Client.Execute(Request)
 
     Set Response = Client.Execute(Request)
 
     Cells.Range("A2:C1000").Clear
 
     Cells.Range("A2:C1000").Clear

Текущая версия на 08:28, 12 апреля 2018

Информация о сообщении (править)
Это сообщение не имеет описания. Если вы знаете, где или как это сообщение используется, то можете помочь другим переводчикам, добавив к нему описание.
Формулировка сообщения (Пример доступа к данным из Excel)
<pre>
Sub GetRegisters()   
   Dim Client As New WebClient
   Client.BaseUrl = "http://192.168.1.1/api"
    
   Dim Request As New WebRequest
   Request.Resource = "register-values"
    
   Request.Method = WebMethod.HttpGet
   Request.RequestFormat = WebFormat.JSON
   Request.ResponseFormat = WebFormat.JSON
    
   ' API KEY
   Request.AddHeader "X-WH-APIKEY", "EBB484265A64A547411FAC660AE3710CAA797976"
    
   ' IDs of connections to read register values from; comma-separated
   Request.AddHeader "X-WH-CONNS", "1,2"
    
   Dim Response As WebResponse
   Set Response = Client.Execute(Request)
   Cells.Range("A2:C1000").Clear
Перевод<pre>
Sub GetRegisters()   
   Dim Client As New WebClient
   Client.BaseUrl = "http://192.168.1.1/api"
    
   Dim Request As New WebRequest
   Request.Resource = "register-values"
    
   Request.Method = WebMethod.HttpGet
   Request.RequestFormat = WebFormat.JSON
   Request.ResponseFormat = WebFormat.JSON
    
   ' API KEY
   Request.AddHeader "X-WH-APIKEY", "EBB484265A64A547411FAC660AE3710CAA797976"
    
   ' IDs of connections to read register values from; comma-separated
   Request.AddHeader "X-WH-CONNS", "1,2"
    
   Dim Response As WebResponse
   Set Response = Client.Execute(Request)
   Cells.Range("A2:C1000").Clear
Sub GetRegisters()    
    Dim Client As New WebClient
    Client.BaseUrl = "http://192.168.1.1/api"
    
    Dim Request As New WebRequest
    Request.Resource = "register-values"
    
    Request.Method = WebMethod.HttpGet
    Request.RequestFormat = WebFormat.JSON
    Request.ResponseFormat = WebFormat.JSON
    
    ' API KEY
    Request.AddHeader "X-WH-APIKEY", "EBB484265A64A547411FAC660AE3710CAA797976"
    
    ' IDs of connections to read register values from; comma-separated
    Request.AddHeader "X-WH-CONNS", "1,2"
    
    Dim Response As WebResponse
    Set Response = Client.Execute(Request)
    Cells.Range("A2:C1000").Clear
Источник — «http://wiki.webhmi.com.ua/index.php?title=Translations:Пример_доступа_к_данным_из_Excel/9/en&oldid=6586»