Set http = CreateObject("Microsoft.XMLHTTP")
With http
.open "GET", sUrl, False
.send
End With
On Error Resume Next
If http.Status <> 200 Then
GetUrlContent = ""
Else
GetUrlContent = StrConv(http.responseBody, vbUnicode)
End If
Set http = Nothing
就是eBay的网页,内容如下,请高手帮我解决一下,谢谢:
<html><head><META http-equiv='Content-Type' content='text/html;charset=UTF-8'><meta http-equiv='Content-Type' content='text/html; charset=UTF-8'><title>eBay 鏄撹叮搴楅摵: 鍙岄奔鍟嗗煄, 钀ュ吇淇濆仴鍝? 鐢熸椿鏃ョ敤鍝佺瓑鏁板崄涓囧湪绾垮晢鍝佺儹鍗栦腑, 鍏堝埌鍏堝緱锛?/title><meta name='description' content='eBay 鏄撹叮鍟嗗簵: 鍙岄奔鍟嗗煄: 钀ュ吇淇濆仴鍝? 鐢熸椿鏃ョ敤鍝? 鏈簵鏃犲埄娑﹀晢鍝? 鍐鐑攢浜у搧 绛夎秴鍊间綆浠峰晢鍝佸簲鏈夊敖鏈夛紒'><meta name='keywords' content='鍙岄奔鍟嗗煄, 钀ュ吇淇濆仴鍝? 鐢熸椿鏃ョ敤鍝? 鏈簵鏃犲埄娑﹀晢鍝? 鍐鐑攢浜у搧, 澶鎺ㄨ崘鍟嗗搧, the face shop'><meta name='XslBuildInfo' content='2006-12-18 18:18:50,,, vo.rusqv60;,RcmdId StoreFront,RlogId p4pqiufvoiwi%3C%3Dsm%2Bppqtt32%3E-10fbc87d566'><meta name='Arg1' content='vo.rusqv60;'>
With http
.open "GET", sUrl, False
.send
End With
On Error Resume Next
If http.Status <> 200 Then
GetUrlContent = ""
Else
GetUrlContent = StrConv(http.responseBody, vbUnicode)
End If
Set http = Nothing
就是eBay的网页,内容如下,请高手帮我解决一下,谢谢:
<html><head><META http-equiv='Content-Type' content='text/html;charset=UTF-8'><meta http-equiv='Content-Type' content='text/html; charset=UTF-8'><title>eBay 鏄撹叮搴楅摵: 鍙岄奔鍟嗗煄, 钀ュ吇淇濆仴鍝? 鐢熸椿鏃ョ敤鍝佺瓑鏁板崄涓囧湪绾垮晢鍝佺儹鍗栦腑, 鍏堝埌鍏堝緱锛?/title><meta name='description' content='eBay 鏄撹叮鍟嗗簵: 鍙岄奔鍟嗗煄: 钀ュ吇淇濆仴鍝? 鐢熸椿鏃ョ敤鍝? 鏈簵鏃犲埄娑﹀晢鍝? 鍐鐑攢浜у搧 绛夎秴鍊间綆浠峰晢鍝佸簲鏈夊敖鏈夛紒'><meta name='keywords' content='鍙岄奔鍟嗗煄, 钀ュ吇淇濆仴鍝? 鐢熸椿鏃ョ敤鍝? 鏈簵鏃犲埄娑﹀晢鍝? 鍐鐑攢浜у搧, 澶鎺ㄨ崘鍟嗗搧, the face shop'><meta name='XslBuildInfo' content='2006-12-18 18:18:50,,, vo.rusqv60;,RcmdId StoreFront,RlogId p4pqiufvoiwi%3C%3Dsm%2Bppqtt32%3E-10fbc87d566'><meta name='Arg1' content='vo.rusqv60;'>
解决方案 »
- 请问VB怎样控制COM口打印机
- 如何通过网页源代码中了解到网页的编码方式?
- vb 调用 Vc 的 dll (参数为 char* v1, int * v2)
- 各位兄弟帮帮忙 用datagrid控件显示的结果,怎么进行打印啊,或者导入Excel打印也行,方法越多越好 谢谢了
- 关于DATEADD的问题
- 用Winsock发邮件,怎么进行本地测试.
- 求助:
- Ms Project 2000 中 VBA的问题?
- vb中通用数据报表(data report)打印的实现
- 怎样为自已做的控件加属性.
- 如何不让vb打印word时的提示框出现?
- Winsock控件未连接时可能激发 DataArrival事件,SP6仍然未改变,请高手解决
unicode是UTF-32
--------------------------------------------------------------
程序,犹如人生。
http://community.csdn.net/Expert/topic/4983/4983083.xml?temp=.3987848