0

我有一个在 Microsoft Access 中创建的功能齐全的“应用程序”，我用它来控制我的飞利浦 Hue 灯。它们使用 JSON 命令通过 RESTful 接口进行操作，在 VBA 中创建代码非常简单。不过，我想制作一个独立的 Windows 应用程序，以便可以在没有 Access 的计算机上运行它。

我正在尝试使用 Visual Studio 2015 制作一个使用 VB.net 的通用应用程序，但我在转换我的一些代码时遇到了问题。我能够修复大部分故障，但我无法让 winHttpReq 命令工作。在我的研究中，听起来它们在 VB.net 中没有直接相关性，但我发现的建议都没有奏效。

  Dim Result As String
  Dim MyURL As String, postData As String, strQuote As String
  Dim winHttpReq As Object
  winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

    'Create address and lamp
    MyURL = "http://" & IP.Text & "/api/" & Hex.Text & "/lights/" & "1" & "/state"
    postData = Code.Text

    winHttpReq.Open("PUT", MyURL, False)
    winHttpReq.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    winHttpReq.Send(postData)

我收到未声明“CreateObject”的错误。由于其保护级别，它可能无法访问。我对 VB.net 编码很陌生，但所有关于替代发布方法的建议似乎都不起作用。任何建议将不胜感激。

4

1 回答 1

0

在 VB.Net 中，使用WebRequest：

'Create address and lamp
MyURL = "http://" & IP.Text & "/api/" & Hex.Text & "/lights/" & "1" & "/state"
Dim request As WebRequest = WebRequest.Create(MyURL)
' Get the response.
Dim response As WebResponse = request.GetResponse()
' Display the status.
Console.WriteLine(CType(response,HttpWebResponse).StatusDescription)
' Get the stream containing content returned by the server.
Dim dataStream As Stream = response.GetResponseStream()
' Open the stream using a StreamReader for easy access.
Dim reader As New StreamReader(dataStream)
' Read the content.
Dim responseFromServer As String = reader.ReadToEnd()
' Display the content.
Console.WriteLine(responseFromServer)
' Clean up the streams and the response.
reader.Close()
response.Close()
于 2015-11-02T20:10:53.523 回答