Private Sub Command1_Click()

Command1.Enabled = False

GetHtmlStr Text1

End Sub

Private Sub GetHtmlStr(strUrl As String)

Dim xml As Object '或者Dim xml As New ServerXMLHTTP

Set xml = CreateObject("msxml2.serverxmlhttp")

xml.Open "GET", strUrl, False

xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

xml.setRequestHeader "Accept-Language", "zh-cn"

xml.setRequestHeader "Accept-Encoding", "gzip, deflate"

xml.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; SV1; .NET4.0C; .NET4.0E; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)"

xml.send

Do While xml.readyState <> 4

    DoEvents

Loop

Text2 = StrConv(xml.ResponseBody, vbUnicode)

Set xml = Nothing

Command1.Enabled = True

End Sub

最新文章

  1. UI第七节——UISlider详解
  2. HTML两张图片叠加问题的进一步修改
  3. android-tools-adb
  4. javascript笔记1-基本概念
  5. jsch ssh服务器调用Linux命令或脚本的小问题
  6. F - Wormholes
  7. 数据结构——二叉搜索树（Binary Search Tree）
  8. 201521123009 《Java程序设计》第6周学习总结
  9. 本地计算机上的 postgresql 服务启动后停止解决方法
  10. Python字典的一点用法
  11. java 深度复制与浅复制 copyOf、arraycopy、copyOfRange
  12. python三大神器之pip
  13. jitwatch查看JIT后的汇编码
  14. Layui_2.x_上传插件使用
  15. echart四川地图
  16. 零基础Python爬虫实现(百度贴吧)
  17. IDEA激活
  18. Java VM
  19. 如何修改mac 电脑的hosts 文件
  20. caffe环境的搭建（Ubuntu14.04 64bit，无CUDA，caffe在CPU下运行）

热门文章

  1. 【Java】【转】在命令行中编译和运行java
  2. TestNG 判断文件下载成功
  3. java：通过Calendar类正确计算两日期之间的间隔
  4. [翻译] TGLStackedViewController
  5. windows实现MySQL主从复制
  6. win7 64 &amp;vs2010 与 opengl配置
  7. php常用算法和数据结构
  8. PAT 1001A+B Format
  9. Alpha 冲刺报告（2/10）
  10. 4518: [Sdoi2016]征途