Dim uuid As String ="409467D025B446A8AF5602B9C0D14584"
'Dim curName As String =args(1)
'name=Functions.Execute("utf8",name)
Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
XMLH.open("GET", "http://"+Vars("ent_ip")+"/dqaj/app/entrecord/entview.action?enterpriseId="& uuid, True) '获得实时信息
XMLH.send(Nothing)
Do While XMLH.readyState <> 4
Application.DoEvents
Loop
'把数据json数据转化成对象
Dim json As String = XMLH.responseText
Dim ScriptControl As Object, data As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
.Language = "Javascript"
.Timeout = -1
.AddCode(JscriptCode)
data = .Run("toObject", json) ‘这段代码2017报错
End With
If data.total=0 Then
For Each o As object In data.data
If o.enterpriseName<>"" Then
Vars("V_entName")=o.enterpriseName
Vars("V_entpdName")=o.proddistName
End If
Next
Else
messagebox.show( "未查询到企业!","")
End If
加好友 
发短信
Post By：2017/3/8 13:41:00 [只看该作者]
