MSXML2.ServerXMLHTTP

st788796

使用 Microsoft.XMLHTTP对象时，有可能返回 msxml3.dll 错误，这时可以使用 MSXML2.ServerXMLHTTP 完成，如下代码

2. 
   
3. (setq xl (vlax-create-object "MSXML2.ServerXMLHTTP"))
   
4. (vlax-invoke-method xl 'open "get" "http://bbs.xdcad.net/" :vlax-false)
   
5. (vlax-invoke xl 'send)

<br /> (setq xl (vlax-create-object "MSXML2.ServerXMLHTTP"))<br /> (vlax-invoke-method xl 'open "get" "http://bbs.xdcad.net/" :vlax-false)<br /> (vlax-invoke xl 'send)

然后使用

1. 
   
2. (vlax-get-property xl 'responseText)
   

复制代码

获取网页的 text
或者使用

1. 
   
2. (vlax-get-property xl 'respon**ML)
   

复制代码

获取网页的 IXMLDOMDocument2 对象

st788796

Sample: 获取网络北京时间

2. 
   
3. (setq xl (vlax-create-object "MSXML2.ServerXMLHTTP"))
   
4. (vlax-invoke-method  xl 'open "get" "http://time.tianqi.com/" :vlax-false)
   
5. (vlax-invoke xl 'send)
   
6. (setq str  (vlax-get-property xl 'responsetext)
   
7.       pos  (+ (vl-string-search "北京现在时间：" str) 14)
   
8.       pos1 (vl-string-search "。" str pos)
   
9. )
   
10. (substr str (1+ pos) (- pos1 pos))

<br /> (setq xl (vlax-create-object "MSXML2.ServerXMLHTTP"))<br /> (vlax-invoke-method  xl 'open "get" "http://time.tianqi.com/" :vlax-false)<br /> (vlax-invoke xl 'send)<br /> (setq str  (vlax-get-property xl 'responsetext)<br />       pos  (+ (vl-string-search "北京现在时间：" str) 14)<br />       pos1 (vl-string-search "。" str pos)<br /> )<br /> (substr str (1+ pos) (- pos1 pos))