护手霜 發表於 2008-7-15 18:44:40

VB XMLHTTP使用方法

Private&nbsp;Function&nbsp;IsHearOK(URL&nbsp;As&nbsp;String)&nbsp;As&nbsp;Boolean <BR>Dim&nbsp;XMLObject&nbsp;As&nbsp;Object,&nbsp;ReturnType&nbsp;As&nbsp;String <BR>Set&nbsp;XMLObject&nbsp;=&nbsp;CreateObject("Microsoft.XMLHTTP") <BR>XMLObject.Open&nbsp;"GET",&nbsp;URL,&nbsp;False <BR>XMLObject.setRequestHeader&nbsp;"CONTENT-TYPE",&nbsp;"application/x-www-form-urlencoded" <BR>XMLObject.setRequestHeader&nbsp;"Range",&nbsp;"bytes=1-255" <BR>XMLObject.Send <BR>If&nbsp;XMLObject.Status&nbsp;=&nbsp;200&nbsp;Or&nbsp;XMLObject.Status&nbsp;=&nbsp;206&nbsp;Then <BR>ReturnType&nbsp;=&nbsp;XMLObject.getResponseHeader("CONTENT-TYPE") <BR>If&nbsp;UCase(ReturnType)&nbsp;&lt;&gt;&nbsp;"TEXT/HTML"&nbsp;Then <BR>IsHearOK&nbsp;=&nbsp;True <BR>Else <BR>IsHearOK&nbsp;=&nbsp;False <BR>End&nbsp;If <BR>Else <BR>IsHearOK&nbsp;=&nbsp;False <BR>End&nbsp;If <BR>Set&nbsp;XMLObject&nbsp;=&nbsp;Nothing <BR>End&nbsp;Function <br><br>Private&nbsp;Sub&nbsp;Command1_Click() <BR>If&nbsp;IsHearOK("https://www.jb51.net/test.exe")&nbsp;Then <BR>MsgBox&nbsp;"ok" <BR>Else <BR>MsgBox&nbsp;"no" <BR>End&nbsp;If <BR>End&nbsp;Sub&nbsp;
                           
                            <div class="art_xg">
                              <b>您可能感兴趣的文章:</b><ul><li>用VBS可执行程序+Xmlhttp下载备份网上文件的代码</li><li>用ASP VBS xmlhttp adodbstream下载和保存图片的代码</li><li>VB中的RasEnumConnections函数返回632错误解决方法</li><li>VB读取线程、句柄及写入内存的API代码实例</li><li>VB实现的倒计时类代码详解</li><li>VB调用Word拼写检查功能实例</li><li>VB6中的LSet语句和RSet语句详解</li><li>VB6反编译软件VB RezQV2.4a 正式版注册码</li><li>VB使用XMLHTTP实现Post与Get的方法</li></ul>
                            </div>

                        </div>
                        <!--endmain-->
頁: [1]
查看完整版本: VB XMLHTTP使用方法