如何使用XOJO从Web加载JSON？

Question

我是XOJO的新手，我正在制作一个Web应用程序来列出我的同事的时间条目。

守则如下：

Dim Socket as new HTTPSocket
Dim d As New Dictionary
Dim result As String

Socket.SetRequestContent("","application/json; charset=utf-8")
result = Socket.get("http://teamwork.companyname.com/time/total.json?userId=111111", 30) 
result = DefineEncoding(result, Encodings.UTF8)

OutputArea3.Text = result

当我用www.example.com替换网址时，它可以正常工作，并且可以加载内容。 我也尝试过各种不同的网址，用于网上不同的JSON，但它也没有用。

我应该使用什么，以便可以加载JSON？

非常感谢您的建议

Answer 1

我自己解决了。我创建了一个名为CustomHTTPSocket的HTTPSocket子类，并使用我的登录名实现了AuthenticationRequired事件：

name="username"
password="password"
return true

现在有效：）