以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  FOXTABLE遇上AJAX  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46675)
--  作者：wfkbabro
--  发布时间：2014/2/26 21:30:00
--  FOXTABLE遇上AJAX

如果  http://www.test1.com/t1.aspx?f1=admin&type=t1  这个网址 返回字符串  "台|张|套|米|kg"

想用在下拉选项框里，有办法在FOXTABLE里实现吗？

应该参考哪个帮助？谢谢。
--  作者：有点甜
--  发布时间：2014/2/26 21:53:00
--  
 类似这样使用

Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
XMLH.open("GET", "http://city.ip138.com/city.asp", True)
XMLH.send(Nothing)
Do While XMLH.readyState <> 4
    Application.DoEvents
Loop

Dim json As String = XMLH.responseText
msgbox(json)
--  作者：飞
--  发布时间：2014/2/27 14:24:00
--  
        Dim url As String = "http://www.test1.com/t1.aspx?f1=admin&type=t1"
        Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(url)
        request.Method = "GET"
        Using responseStream As IO.Stream = request.GetResponse.GetResponseStream
            Dim reader As New IO.StreamReader(responseStream)
            Dim result As String = reader.ReadToEnd
            Forms("窗口1").Controls("ComboBox1").ComboList = result
        End Using
--  作者：wfkbabro
--  发布时间：2014/2/28 14:02:00
--  

谢谢两位高手~~